pas2js: fixed compile under nodejs

git-svn-id: trunk@45296 -

packages/fcl-js/src/jssrcmap.pas

@@ -38,7 +38,7 @@ uses
   {$ifdef pas2js}
   JS,
     {$ifdef nodejs}
-    NodeJSFS,
+    Node.FS,
     {$endif}
   {$else}
   contnrs,

packages/fcl-passrc/src/pasresolver.pp

@@ -324,7 +324,7 @@ uses
   {$ifdef pas2js}
   js,
   {$IFDEF NODEJS}
-  NodeJSFS,
+  Node.FS,
   {$ENDIF}
   {$endif}
   Classes, SysUtils, Math, Types, contnrs,

packages/fcl-passrc/src/pparser.pp

@@ -38,7 +38,7 @@ interface
 
 uses
   {$ifdef NODEJS}
-  NodeJSFS,
+  Node.FS,
   {$endif}
   SysUtils, Classes, Types, PasTree, PScanner;
 

packages/fcl-passrc/src/pscanner.pp

@@ -39,7 +39,7 @@ uses
   {$ifdef pas2js}
   js,
   {$IFDEF NODEJS}
-  NodeJSFS,
+  Node.FS,
   {$ENDIF}
   Types,
   {$endif}

packages/pastojs/src/pas2jscompiler.pp

@@ -4889,13 +4889,13 @@ var
   begin
     if s='' then exit;
     if Flags='' then
-      Flags:=Space(Log.Indent)
+      Flags:=StringOfChar(' ',Log.Indent)
     else
       Flags:=Flags+',';
     if length(Flags)+length(s)>Log.LineLen then
     begin
       Log.LogPlain(Flags);
-      Flags:=Space(Log.Indent);
+      Flags:=StringOfChar(' ',Log.Indent);
     end;
     Flags:=Flags+s;
   end;

packages/pastojs/src/pas2jsfilecache.pp

@@ -925,7 +925,7 @@ begin
       Filename:=ChompPathDelim(ResolveDots(Filename));
       if not FilenameIsAbsolute(Filename) then
         Filename:=WorkingDirectory+Filename;
-      Result:={$IFDEF pas2js}NodeJSFS{$ELSE}SysUtils{$ENDIF}.DirectoryExists(Filename);
+      Result:={$IFDEF pas2js}Node.FS{$ELSE}SysUtils{$ENDIF}.DirectoryExists(Filename);
       end;
     end;
 end;
@@ -939,7 +939,7 @@ begin
   if Info.Dir<>nil then
     Result:=Info.Dir.IndexOfFile(Info.ShortFilename)>=0
   else
-    Result:={$IFDEF pas2js}NodeJSFS{$ELSE}SysUtils{$ENDIF}.FileExists(Info.Filename);
+    Result:={$IFDEF pas2js}Node.FS{$ELSE}SysUtils{$ENDIF}.FileExists(Info.Filename);
 end;
 
 function TPas2jsCachedDirectories.FileExistsI(var Filename: string): integer;
@@ -952,7 +952,7 @@ begin
   if not GetFileInfo(Info) then exit;
   if Info.Dir=nil then
   begin
-    if {$IFDEF pas2js}NodeJSFS{$ELSE}SysUtils{$ENDIF}.FileExists(Info.Filename) then
+    if {$IFDEF pas2js}Node.FS{$ELSE}SysUtils{$ENDIF}.FileExists(Info.Filename) then
       Result:=1;
   end
   else

packages/pastojs/src/pas2jsfileutils.pp

@@ -29,7 +29,7 @@ uses
   BaseUnix,
   {$ENDIF}
   {$IFDEF Pas2JS}
-  JS, NodeJS, NodeJSFS,
+  JS, NodeJS, Node.FS,
   {$ENDIF}
   SysUtils, Classes;
 

packages/pastojs/src/pas2jslogger.pp

@@ -30,7 +30,7 @@ uses
   {$IFDEF Pas2JS}
   JS,
   {$IFDEF NodeJS}
-  NodeJSFS,
+  Node.FS,
   {$ENDIF}
   {$ENDIF}
   pas2jsutils,