pastojs: marker for checking writeln statements

git-svn-id: trunk@38138 -

packages/pastojs/src/fppas2js.pp

@@ -2633,11 +2633,13 @@ function TPas2JSResolver.FindExternalName(const aName: String
 begin
   Result:=TPasIdentifier(FExternalNames.Find(aName));
   {$IFDEF VerbosePasResolver}
+  {AllowWriteln}
   if (Result<>nil) and (Result.Owner<>Self) then
     begin
     writeln('TPas2JSResolver.FindExternalName Result.Owner<>Self Owner='+GetObjName(Result.Owner));
     raise Exception.Create('20170322235814');
     end;
+  {AllowWriteln-}
   {$ENDIF}
 end;
 
@@ -3637,8 +3639,10 @@ var
   i: Integer;
 begin
   inherited DoWriteStack(Index);
+  {AllowWriteln}
   for i:=0 to length(LocalVars)-1 do
     writeln('    ',i,' ',LocalVars[i].Name,': ',GetObjName(LocalVars[i].Element));
+  {AllowWriteln-}
 end;
 
 { TConvertContext }
@@ -3740,6 +3744,7 @@ begin
 end;
 
 procedure TConvertContext.WriteStack;
+{AllowWriteln}
 
   procedure W(Index: integer; AContext: TConvertContext);
   begin
@@ -3752,10 +3757,13 @@ begin
   writeln('TConvertContext.WriteStack: ');
   W(1,Self);
 end;
+{AllowWriteln-}
 
 procedure TConvertContext.DoWriteStack(Index: integer);
 begin
+  {AllowWriteln}
   writeln('  ',Index,' ',ToString);
+  {AllowWriteln-}
 end;
 
 function TConvertContext.ToString: string;

packages/pastojs/src/pas2jsfilecache.pp

@@ -764,6 +764,7 @@ begin
 end;
 
 procedure TPas2jsCachedDirectory.CheckConsistency;
+{AllowWriteln}
 
   procedure E(Msg: string);
   begin
@@ -802,6 +803,7 @@ begin
     end;
     LastEntry:=Entry;
   end;
+  {AllowWriteln-}
 end;
 
 procedure TPas2jsCachedDirectory.WriteDebugReport;
@@ -809,11 +811,13 @@ var
   i: Integer;
   Entry: TPas2jsCachedDirectoryEntry;
 begin
+  {AllowWriteln}
   writeln('TPas2jsCachedDirectory.WriteDebugReport Count=',Count,' Path="',Path,'"');
   for i:=0 to Count-1 do begin
     Entry:=Entries[i];
     writeln(i,' "',Entry.Name,'" Size=',Entry.Size,' Time=',DateTimeToStr(FileDateToDateTime(Entry.Time)),' Dir=',faDirectory and Entry.Attr>0);
   end;
+  {AllowWriteln-}
 end;
 
 { TPas2jsCachedDirectories }

packages/pastojs/src/pas2jsfiler.pp

@@ -1874,7 +1874,9 @@ begin
   for i:=0 to Obj.Count-1 do
     begin
     aName:=Obj.Names[i];
+    {$IFDEF VerbosePJUFiler}
     writeln('TPJUReader.ReadModuleAsJSON ',aName);
+    {$ENDIF}
     Data:=Obj.Elements[aName];
     case Obj.Names[i] of
     'FileType': ;

packages/pastojs/src/pas2jslibcompiler.pp

@@ -189,7 +189,7 @@ begin
   if Assigned(FOnLibLogCallBack) then
     FOnLibLogCallBack(FOnLibLogData,PAnsiChar(Msg),Length(Msg))
   else if isConsole then
-    Writeln(Msg);
+    {AllowWriteln}Writeln(Msg);{AllowWriteln-}
 end;
 
 function TLibraryPas2JSCompiler.LibraryRun(ACompilerExe, AWorkingDir: PAnsiChar;

packages/pastojs/src/pas2jslogger.pp

@@ -526,7 +526,9 @@ begin
     begin
     // prevent codepage conversion magic
     SetCodePage(RawByteString(S), CP_OEMCP, False);
+    {AllowWriteln}
     writeln(S);
+    {AllowWriteln-}
     end;
 end;
 

packages/pastojs/src/pas2jspparser.pp

@@ -91,7 +91,9 @@ var
     if (LastMsgNumber>=0) and (MsgNumber<>LastMsgNumber+1) then
       begin
       s:='gap in registered message numbers: '+IntToStr(LastMsgNumber)+' '+IntToStr(MsgNumber);
+      {AllowWriteln}
       writeln('Pas2jsPParser.RegisterMessages ',s);
+      {AllowWriteln-}
       raise Exception.Create(s);
       end;
     Log.RegisterMsg(MsgType,MsgNumber,MsgPattern);