* Namespaced Atom API

packages/atom/namespaced/Api.Atom.pas

@@ -0,0 +1,3 @@
+{$DEFINE FPC_DOTTEDUNITS}
+unit Api.Atom;
+{$include ../src/libatom.pp}

packages/atom/namespaced/Fcl.App.Atom.pas

@@ -0,0 +1,3 @@
+{$DEFINE FPC_DOTTEDUNITS}
+unit Fcl.App.Atom;
+{$include ../src/atomapp.pp}

packages/atom/atomapp.pp → packages/atom/src/atomapp.pp

@@ -10,15 +10,20 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
  **********************************************************************}
-
+{$IFNDEF FPC_DOTTEDUNITS}
 unit atomapp;
+{$ENDIF}
 
 {$mode objfpc}
 
 interface
 
 uses
+{$IFDEF FPC_DOTTEDUNITS}
+  System.Classes, System.SysUtils, JSApi.JS, Api.Atom, Fcl.CustApp;
+{$ELSE}
   Classes, SysUtils, JS, libatom, custapp;
+{$ENDIF}
 
 Type
   TAtomEnvironment = class (TJSObject)

packages/atom/libatom.pp → packages/atom/src/libatom.pp

@@ -10,8 +10,9 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
  **********************************************************************}
-
+{$IFNDEF FPC_DOTTEDUNITS}
 unit libatom;
+{$ENDIF}
 
 {$mode objfpc}
 {$modeswitch externalclass}
@@ -19,7 +20,11 @@ unit libatom;
 interface
 
 uses
+{$IFDEF FPC_DOTTEDUNITS}
+  JSApi.JS, System.Types, BrowserApi.Web;
+{$ELSE}
   JS, types, web;
+{$ENDIF}
 
 Type
   TAtomHandler = reference to procedure;