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

* Centralize logging for APIs

Browse Source
This commit is contained in:
Michael Van Canneyt 2025-01-30 14:44:54 +01:00
parent c622a245f2
commit a2b7d84ddf
1 changed files with 28 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
packages/wasi/src/wasienv.pas
View File

@ -254,7 +254,13 @@ type
Private
FEnv : TPas2JSWASIEnvironment;
FInstanceExports: TWASIExports;
FLogAPI: Boolean;
Protected
property LogAPI : Boolean Read FLogAPI Write FLogAPI;
procedure DoError(const Msg: String); overload;
procedure DoError(const Fmt: String; const Args: array of const); overload;
procedure DoLog(const Msg : String); overload;
procedure DoLog(const Fmt : String; const args : Array of const); overload;
procedure SetInstanceExports(const AValue: TWASIExports); virtual;
function getModuleMemoryDataView : TJSDataView;
Public
@ -756,6 +762,28 @@ begin
Inherited CreateFmt(aFmt,aArgs);
end;
procedure TImportExtension.DoLog(const Msg: String);
begin
if LogApi then
Writeln(ClassName+': '+Msg);
end;
procedure TImportExtension.DoLog(const Fmt: String; const args: array of const);
begin
if LogApi then
DoLog(Format(Fmt,Args));
end;
procedure TImportExtension.DoError(const Msg: String);
begin
Console.Error(ClassName+': '+Msg);
end;
procedure TImportExtension.DoError(const Fmt: String; const Args: array of const);
begin
Console.Error(ClassName+': '+Format(Fmt,Args));
end;
procedure TImportExtension.SetInstanceExports(const AValue: TWASIExports);
begin
if FInstanceExports=AValue then Exit;