Selaa lähdekoodia

* Namespaced Node.JS Apis

Michaël Van Canneyt 1 vuosi sitten
vanhempi
commit
86e45dfb86

+ 3 - 0
packages/nodejs/namespaced/NodeApi.FS.pas

@@ -0,0 +1,3 @@
+{$DEFINE FPC_DOTTEDUNITS}
+unit NodeApi.FS;
+{$include ../src/node.fs.pas}

+ 3 - 0
packages/nodejs/namespaced/NodeApi.Http.pas

@@ -0,0 +1,3 @@
+{$DEFINE FPC_DOTTEDUNITS}
+unit NodeApi.Http;
+{$include ../src/node.http.pas}

+ 3 - 0
packages/nodejs/namespaced/NodeApi.Net.pas

@@ -0,0 +1,3 @@
+{$DEFINE FPC_DOTTEDUNITS}
+unit NodeApi.Net;
+{$include ../src/node.net.pas}

+ 3 - 0
packages/nodejs/namespaced/NodeApi.OnOff.pas

@@ -0,0 +1,3 @@
+{$DEFINE FPC_DOTTEDUNITS}
+unit NodeApi.OnOff;
+{$include ../src/node.onoff.pas}

+ 3 - 0
packages/nodejs/namespaced/NodeApi.SPIDevice.pas

@@ -0,0 +1,3 @@
+{$DEFINE FPC_DOTTEDUNITS}
+unit NodeApi.SPIDevice;
+{$include ../src/node.spidevice.pas}

+ 3 - 0
packages/nodejs/namespaced/NodeApi.Url.pas

@@ -0,0 +1,3 @@
+{$DEFINE FPC_DOTTEDUNITS}
+unit NodeApi.Url;
+{$include ../src/node.url.pas}

+ 6 - 0
packages/nodejs/node.fs.pas → packages/nodejs/src/node.fs.pas

@@ -10,7 +10,9 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
 
  **********************************************************************}
  **********************************************************************}
+{$IFNDEF FPC_DOTTEDUNITS}
 unit node.fs;
 unit node.fs;
+{$ENDIF}
 
 
 {$mode objfpc}
 {$mode objfpc}
 {$ModeSwitch externalclass}
 {$ModeSwitch externalclass}
@@ -18,7 +20,11 @@ unit node.fs;
 interface
 interface
 
 
 uses
 uses
+{$IFDEF FPC_DOTTEDUNITS}
+  JSApi.JS,NodeApi.JS,  System.Types, System.SysUtils;
+{$ELSE} 
   JS, NodeJS, Types, SysUtils;
   JS, NodeJS, Types, SysUtils;
+{$ENDIF}
 
 
 var
 var
   DirectorySeparator: char = '/';
   DirectorySeparator: char = '/';

+ 6 - 0
packages/nodejs/node.http.pas → packages/nodejs/src/node.http.pas

@@ -12,7 +12,9 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
 
  **********************************************************************}
  **********************************************************************}
+{$IFNDEF FPC_DOTTEDUNITS}
 unit node.http;
 unit node.http;
+{$ENDIF}
 
 
 {$mode objfpc}
 {$mode objfpc}
 {$modeswitch externalclass}
 {$modeswitch externalclass}
@@ -20,7 +22,11 @@ unit node.http;
 interface
 interface
 
 
 uses
 uses
+{$IFDEF FPC_DOTTEDUNITS}
+  System.Types, JSApi.JS,NodeApi.JS, NodeApi.Net;
+{$ELSE} 
   js, nodejs, types, node.net;
   js, nodejs, types, node.net;
+{$ENDIF}
 
 
 Type
 Type
 { TNJSHTTPIncomingMessage }
 { TNJSHTTPIncomingMessage }

+ 6 - 0
packages/nodejs/node.net.pas → packages/nodejs/src/node.net.pas

@@ -12,7 +12,9 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
 
  **********************************************************************}
  **********************************************************************}
+{$IFNDEF FPC_DOTTEDUNITS}
 unit node.net;
 unit node.net;
+{$ENDIF}
 
 
 {$mode objfpc}
 {$mode objfpc}
 {$modeswitch externalclass}
 {$modeswitch externalclass}
@@ -20,7 +22,11 @@ unit node.net;
 interface
 interface
 
 
 uses
 uses
+{$IFDEF FPC_DOTTEDUNITS}
+  System.Classes, System.SysUtils, JSApi.JS, NodeApi.JS;
+{$ELSE} 
   Classes, SysUtils, js, nodejs;
   Classes, SysUtils, js, nodejs;
+{$ENDIF}
 
 
 type
 type
   TNJSStreamDuplex = class external name 'stream.Duplex' (TJSObject);
   TNJSStreamDuplex = class external name 'stream.Duplex' (TJSObject);

+ 6 - 1
packages/nodejs/node.onoff.pas → packages/nodejs/src/node.onoff.pas

@@ -12,8 +12,9 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
 
  **********************************************************************}
  **********************************************************************}
-
+{$IFNDEF FPC_DOTTEDUNITS}
 unit node.onoff;
 unit node.onoff;
+{$ENDIF}
 
 
 {$mode objfpc}
 {$mode objfpc}
 {$modeswitch externalclass}
 {$modeswitch externalclass}
@@ -21,7 +22,11 @@ unit node.onoff;
 interface
 interface
 
 
 uses
 uses
+{$IFDEF FPC_DOTTEDUNITS}
+  JSApi.JS, NodeApi.JS;
+{$ELSE} 
   JS,nodejs;
   JS,nodejs;
+{$ENDIF}
 
 
 Type
 Type
   TGPIOReadCallBack = reference to procedure(err : TJSError; aValue : Byte);
   TGPIOReadCallBack = reference to procedure(err : TJSError; aValue : Byte);

+ 6 - 0
packages/nodejs/node.spidevice.pas → packages/nodejs/src/node.spidevice.pas

@@ -12,7 +12,9 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
 
  **********************************************************************}
  **********************************************************************}
+{$IFNDEF FPC_DOTTEDUNITS}
 unit node.spidevice;
 unit node.spidevice;
+{$ENDIF}
 
 
 {$mode objfpc}
 {$mode objfpc}
 {$modeswitch externalclass}
 {$modeswitch externalclass}
@@ -20,7 +22,11 @@ unit node.spidevice;
 interface
 interface
 
 
 uses
 uses
+{$IFDEF FPC_DOTTEDUNITS}
+  JSApi.JS, NodeApi.JS;
+{$ELSE} 
   JS,NodeJS;
   JS,NodeJS;
+{$ENDIF}
 
 
 
 
 Type
 Type

+ 6 - 1
packages/nodejs/node.url.pas → packages/nodejs/src/node.url.pas

@@ -12,8 +12,9 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
 
  **********************************************************************}
  **********************************************************************}
-
+{$IFNDEF FPC_DOTTEDUNITS}
 unit node.url;
 unit node.url;
+{$ENDIF}
 
 
 {$mode objfpc}
 {$mode objfpc}
 {$ModeSwitch externalclass}
 {$ModeSwitch externalclass}
@@ -21,7 +22,11 @@ unit node.url;
 interface
 interface
 
 
 uses
 uses
+{$IFDEF FPC_DOTTEDUNITS}
+  System.Types, JSApi.JS, NodeApi.JS;
+{$ELSE} 
   Types, JS, nodeJS;
   Types, JS, nodeJS;
+{$ENDIF}
 
 
 Type
 Type
   TNJSURLSearchParams = Class external name 'URLSearchParams' (TJSObject)
   TNJSURLSearchParams = Class external name 'URLSearchParams' (TJSObject)