pastojs: clean up

git-svn-id: trunk@40067 -

packages/pastojs/src/pas2jsfileutils.pp

@@ -222,7 +222,9 @@ begin
   Result:=false;
   RelPath:=Filename;
   if (BaseDirectory='') or (Filename='') then exit;
+  {AllowWriteln}
   writeln('TryCreateRelativePath ToDo: ',Filename,' Base=',BaseDirectory,' UsePointDirectory=',UsePointDirectory);
+  {AllowWriteln-}
 end;
 {$ELSE}
   function IsNameChar(c: char): boolean; inline;
@@ -325,7 +327,9 @@ begin
   Len:=length(AFilename);
   if Len=0 then exit('');
   Result:=AFilename;
+  {AllowWriteln}
   writeln('ResolveDots ToDo ',AFilename);
+  {AllowWriteln-}
 end;
 {$ELSE}
 
@@ -590,7 +594,10 @@ end;
 function CompareFilenames(const File1, File2: string): integer;
 begin
   {$IFDEF Pas2js}
+  {AllowWriteln}
   writeln('CompareFilenames ToDo ',File1,' ',File2);
+  {AllowWriteln-}
+  raise Exception.Create('CompareFilenames ToDo');
   Result:=0;
   {$ELSE}
   Result:=AnsiCompareFileName(File1,File2);
@@ -622,7 +629,10 @@ function MatchGlobbing(Mask, Name: string): boolean;
 {$IFDEF Pas2js}
 begin
   if Mask='' then exit(Name='');
+  {AllowWriteln}
   writeln('MatchGlobbing ToDo ',Mask,' Name=',Name);
+  {AllowWriteln-}
+  raise Exception.Create('MatchGlobbing ToDo');
   Result:=false;
 end;
 {$ELSE}

packages/pastojs/src/pas2jsfileutilsnodejs.inc

@@ -17,7 +17,9 @@
 
 function FilenameIsAbsolute(const aFilename: string): boolean;
 begin
+  {AllowWriteln}
   writeln('FilenameIsAbsolute ToDo ',aFilename);
+  {AllowWriteln-}
   Result:=FilenameIsUnixAbsolute(aFilename);
   raise Exception.Create('FilenameIsAbsolute ToDo');
 end;
@@ -61,7 +63,9 @@ end;
 
 function GetCurrentDirPJ: String;
 begin
+  {AllowWriteln}
   writeln('GetCurrentDirPJ ToDo');
+  {AllowWriteln-}
   Result:='';
   raise Exception.Create('GetCurrentDirPJ ToDo');
 end;
@@ -100,14 +104,18 @@ end;
 function ResolveSymLinks(const Filename: string; ExceptionOnError: boolean
   ): string;
 begin
+  {AllowWriteln}
   writeln('ResolveSymLinks ToDo ',Filename,' ',ExceptionOnError);
+  {AllowWriteln-}
   Result:=Filename;
   raise Exception.Create('ResolveSymLinks ToDo');
 end;
 
 function FileIsWritable(const AFilename: string): boolean;
 begin
+  {AllowWriteln}
   writeln('FileIsWritable ToDo ',AFilename);
+  {AllowWriteln-}
   Result := false;
   raise Exception.Create('FileIsWritable ToDo');
 end;

packages/pastojs/src/pas2jslogger.pp

@@ -490,18 +490,27 @@ end;
 
 constructor TPas2jsFileStream.Create(Filename: string; Mode: cardinal);
 begin
+  {AllowWriteln}
   writeln('TPas2JSFileStream.Create TODO ',Filename,' Mode=',Mode);
+  {AllowWriteln-}
+  raise Exception.Create('TPas2JSFileStream.Create');
 end;
 
 destructor TPas2jsFileStream.Destroy;
 begin
+  {AllowWriteln}
   writeln('TPas2JSFileStream.Destroy TODO');
+  {AllowWriteln-}
+  raise Exception.Create('TPas2JSFileStream.Destroy');
   inherited Destroy;
 end;
 
 procedure TPas2jsFileStream.Write(const s: string);
 begin
+  {AllowWriteln}
   writeln('TPas2JSFileStream.Write TODO s="',s,'"');
+  {AllowWriteln-}
+  raise Exception.Create('TPas2JSFileStream.Write');
 end;
 {$ENDIF}