paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-05 13:37:47 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Add SendoutputToConsole boolean for better control of output

Browse Source
This commit is contained in:
Michael Van Canneyt 2025-03-24 10:31:07 +01:00
parent d019335646
commit 74fbb1f24f
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/wasi/src/wasiworkerthreadhost.pas
View File

@ -94,6 +94,7 @@ Type
FHost : TWASIHost;
FSendOutputToBrowser: Boolean;
FConsoleChannel: TJSBroadcastChannel;
FSendOutputToConsole: Boolean;
function GetAfterStart: TAfterStartEvent;
function GetBeforeStart: TBeforeStartEvent;
function GetcPredefinedConsoleInput: TStrings;
@ -141,6 +142,8 @@ Type
Property BeforeStart : TBeforeStartEvent Read GetBeforeStart Write SetBeforeStart;
// Send output to browser window process?
Property SendOutputToBrowser : Boolean Read FSendOutputToBrowser Write FSendOutputToBrowser;
// Send output to console ?
Property SendOutputToConsole : Boolean Read FSendOutputToConsole Write FSendOutputToConsole;
// Default console input
Property PredefinedConsoleInput : TStrings Read GetcPredefinedConsoleInput Write SetPredefinedConsoleInput;
// Called when reading from console (stdin). If not set, PredefinedConsoleinput is used.
@ -636,6 +639,7 @@ begin
inherited Create(aOwner);
FHost:=CreateHost;
FConsoleChannel:=TJSBroadcastChannel.new(channelConsole);
FSendOutputToConsole:=true;
end;
destructor TWorkerWASIHostApplication.Destroy;
@ -673,6 +677,8 @@ end;
procedure TWorkerThreadRunnerApplication.HandleConsoleWrite(Sender: TObject; aOutput: string);
begin
if SendOutputToConsole then
Writeln(aOutput);
if SendOutputToBrowser then
ConsoleChannel.postMessage(TWorkerConsoleCommand.Create(aOutput));
end;
@ -846,6 +852,8 @@ end;
procedure TWorkerThreadControllerApplication.HandleConsoleWrite(Sender: TObject; aOutput: string);
begin
if SendOutputToConsole then
Writeln(aOutput);
if SendOutputToBrowser then
FConsoleChannel.postMessage(TWorkerConsoleCommand.Create(aOutput,0));
end;