mirror of
https://gitlab.com/freepascal.org/fpc/pas2js.git
synced 2025-09-13 04:49:23 +02:00
* Allow logging of API calls
This commit is contained in:
Michael Van Canneyt
parent
de892c168d
commit
dcf6b87890
@ -9,6 +9,9 @@ unit wasienv;
|
||||
{$INTERFACES CORBA}
|
||||
{$WARN 5024 off}
|
||||
{$WARN 4501 off}
|
||||
|
||||
{ $DEFINE NO_WASI_DEBUG}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
@ -333,6 +336,7 @@ type
|
||||
FImportObject : TJSObject;
|
||||
Finstance: TJSWebAssemblyInstance;
|
||||
FIsLittleEndian: Boolean;
|
||||
FLogAPI: Boolean;
|
||||
FModuleInstanceExports : TJSModulesExports;
|
||||
FOnGetConsoleInputBuffer: TGetConsoleInputBufferEvent;
|
||||
FOnGetConsoleInputString: TGetConsoleInputStringEvent;
|
||||
@ -347,9 +351,13 @@ type
|
||||
function getiovs(view: TJSDataView; iovs, iovsLen: NativeInt): TJSArray;
|
||||
function GetMemory: TJSWebassemblyMemory;
|
||||
procedure SetInstance(AValue: TJSWebAssemblyInstance);
|
||||
procedure SetLogAPI(AValue: Boolean);
|
||||
Protected
|
||||
Class Var UTF8TextDecoder: TJSTextDecoder;
|
||||
Protected
|
||||
Procedure DoLog(Msg : String);
|
||||
Procedure DoLog(Fmt : String; Args : array of const);
|
||||
|
||||
class procedure setBigUint64(View: TJSDataView; byteOffset, value: NativeInt; littleEndian: Boolean);
|
||||
class procedure setBigInt64(View: TJSDataView; byteOffset, value: NativeInt; littleEndian: Boolean);
|
||||
procedure DoConsoleWrite(IsStdErr: Boolean; aBytes: TJSArray); virtual;
|
||||
@ -435,6 +443,7 @@ type
|
||||
Property Exitcode : Nativeint Read FExitCode;
|
||||
// Default is set to the one expected by FPC runtime: wasi_snapshot_preview1
|
||||
Property WASIImportName : String Read FWASIImportName Write FWASIImportName;
|
||||
Property LogAPI : Boolean REad FLogAPI Write SetLogAPI;
|
||||
end;
|
||||
|
||||
{ TImportExtension }
|
||||
@ -982,6 +991,10 @@ end;
|
||||
function TPas2JSWASIEnvironment.fd_prestat_dir_name(fd, pathPtr,
|
||||
pathLen: NativeInt): NativeInt;
|
||||
begin
|
||||
{$IFNDEF NO_WASI_DEBUG}
|
||||
if LogAPI then
|
||||
DoLog('TPas2JSWASIEnvironment.fd_prestat_dir_name(%d,%d,%d)',[fd,pathPtr,PathLen]);
|
||||
{$ENDIF}
|
||||
console.log('Unimplemented: TPas2JSWASIEnvironment.fd_prestat_dir_name');
|
||||
Result:=WASI_ENOSYS;
|
||||
end;
|
||||
@ -993,6 +1006,10 @@ Var
|
||||
View : TJSDataView;
|
||||
|
||||
begin
|
||||
{$IFNDEF NO_WASI_DEBUG}
|
||||
if LogAPI then
|
||||
DoLog('TPas2JSWASIEnvironment.environ_sizes_get(%d,%d,%d)',[environCount,environBufSize]);
|
||||
{$ENDIF}
|
||||
view:=getModuleMemoryDataView();
|
||||
view.setUint32(environCount, 0, IsLittleEndian);
|
||||
view.setUint32(environBufSize, 0, IsLittleEndian);
|
||||
@ -1002,6 +1019,10 @@ end;
|
||||
function TPas2JSWASIEnvironment.environ_get(environ, environBuf: NativeInt
|
||||
): NativeInt;
|
||||
begin
|
||||
{$IFNDEF NO_WASI_DEBUG}
|
||||
if LogAPI then
|
||||
DoLog('TPas2JSWASIEnvironment.environ_get(%d,%d)',[environ,environBuf]);
|
||||
{$ENDIF}
|
||||
Result:= WASI_ESUCCESS;
|
||||
end;
|
||||
|
||||
@ -1012,6 +1033,10 @@ Var
|
||||
View : TJSDataView;
|
||||
|
||||
begin
|
||||
{$IFNDEF NO_WASI_DEBUG}
|
||||
if LogAPI then
|
||||
DoLog('TPas2JSWASIEnvironment.args_sizes_get(%d,%d)',[argc,argvbufsize]);
|
||||
{$ENDIF}
|
||||
view:=getModuleMemoryDataView();
|
||||
view.setUint32(argc, 0, IsLittleEndian);
|
||||
view.setUint32(argvBufSize, 0, IsLittleEndian);
|
||||
@ -1020,6 +1045,10 @@ end;
|
||||
|
||||
function TPas2JSWASIEnvironment.args_get(argv, argvBuf: NativeInt): NativeInt;
|
||||
begin
|
||||
{$IFNDEF NO_WASI_DEBUG}
|
||||
if LogAPI then
|
||||
DoLog('TPas2JSWASIEnvironment.args_get(%d,%d)',[argv, argvBuf]);
|
||||
{$ENDIF}
|
||||
Result:=WASI_ESUCCESS;
|
||||
end;
|
||||
|
||||
@ -1075,8 +1104,36 @@ begin
|
||||
FMemory:=FModuleInstanceExports.Memory;
|
||||
end;
|
||||
|
||||
procedure TPas2JSWASIEnvironment.SetLogAPI(AValue: Boolean);
|
||||
begin
|
||||
{$IFNDEF NO_WASI_DEBUG}
|
||||
if FLogAPI=AValue then Exit;
|
||||
FLogAPI:=AValue;
|
||||
{$ELSE}
|
||||
FLogAPI:=False;
|
||||
{$ENDIF}
|
||||
end;
|
||||
|
||||
procedure TPas2JSWASIEnvironment.DoLog(Msg: String);
|
||||
begin
|
||||
{$IFNDEF NO_WASI_DEBUG}
|
||||
Writeln(Msg);
|
||||
{$ENDIF}
|
||||
end;
|
||||
|
||||
procedure TPas2JSWASIEnvironment.DoLog(Fmt: String; Args: array of const);
|
||||
begin
|
||||
{$IFNDEF NO_WASI_DEBUG}
|
||||
Writeln(Format(Fmt,Args));
|
||||
{$ENDIF}
|
||||
end;
|
||||
|
||||
function TPas2JSWASIEnvironment.GetTime(aClockID: NativeInt): NativeInt;
|
||||
begin
|
||||
{$IFNDEF NO_WASI_DEBUG}
|
||||
if LogAPI then
|
||||
DoLog('TPas2JSWASIEnvironment.GetTime(%d)',[aClockID]);
|
||||
{$ENDIF}
|
||||
Result:=-1;
|
||||
Case aClockId of
|
||||
WASI_CLOCK_MONOTONIC:
|
||||
@ -1097,6 +1154,10 @@ Var
|
||||
View : TJSDataView;
|
||||
|
||||
begin
|
||||
{$IFNDEF NO_WASI_DEBUG}
|
||||
if LogAPI then
|
||||
DoLog('TPas2JSWASIEnvironment.fd_fdstat_get(%d,%d)',[fd,BufPtr]);
|
||||
{$ENDIF}
|
||||
view:=getModuleMemoryDataView();
|
||||
view.setUint8(bufPtr, fd);
|
||||
view.setUint16(bufPtr + 2, 0, IsLittleEndian);
|
||||
@ -1108,12 +1169,20 @@ end;
|
||||
|
||||
function TPas2JSWASIEnvironment.fd_fdstat_set_flags(fd, flags: NativeInt): NativeInt;
|
||||
begin
|
||||
{$IFNDEF NO_WASI_DEBUG}
|
||||
if LogAPI then
|
||||
DoLog('TPas2JSWASIEnvironment.fd_fdstat_set_flags(%d,%d)',[fd,flags]);
|
||||
{$ENDIF}
|
||||
console.log('Unimplemented: TPas2JSWASIEnvironment.fd_fdstat_set_flags');
|
||||
Result:= WASI_ENOSYS;
|
||||
end;
|
||||
|
||||
function TPas2JSWASIEnvironment.fd_fdstat_set_rights(fd, fsRightsBase, fsRightsInheriting: NativeInt): NativeInt;
|
||||
begin
|
||||
{$IFNDEF NO_WASI_DEBUG}
|
||||
if LogAPI then
|
||||
DoLog('TPas2JSWASIEnvironment.fd_fdstat_set_rights(%d,%d,%d)',[fd,fsRightsBase,fsRightsInheriting]);
|
||||
{$ENDIF}
|
||||
console.log('Unimplemented: TPas2JSWASIEnvironment.fd_fdstat_set_rights');
|
||||
Result:= WASI_ENOSYS;
|
||||
end;
|
||||
@ -1168,6 +1237,10 @@ var
|
||||
end;
|
||||
|
||||
begin
|
||||
{$IFNDEF NO_WASI_DEBUG}
|
||||
if LogAPI then
|
||||
DoLog('TPas2JSWASIEnvironment.fd_write(%d,%d,%d)',[fd,iovs,iovslen,nwritten]);
|
||||
{$ENDIF}
|
||||
BufferBytes:=TJSArray.New;
|
||||
view:=getModuleMemoryDataView();
|
||||
written:=0;
|
||||
@ -1182,6 +1255,10 @@ end;
|
||||
function TPas2JSWASIEnvironment.fd_pwrite(fd, iovs, iovsLen, offset,
|
||||
nwritten: NativeInt): NativeInt;
|
||||
begin
|
||||
{$IFNDEF NO_WASI_DEBUG}
|
||||
if LogAPI then
|
||||
DoLog('TPas2JSWASIEnvironment.fd_prite(%d,%d,%d,%d)',[fd,iovs,iovslen,offset,nwritten]);
|
||||
{$ENDIF}
|
||||
console.log('Unimplemented: TPas2JSWASIEnvironment.fd_pwrite');
|
||||
Result:=WASI_ENOSYS;
|
||||
end;
|
||||
@ -1214,6 +1291,10 @@ Var
|
||||
view: TJSDataView;
|
||||
|
||||
begin
|
||||
{$IFNDEF NO_WASI_DEBUG}
|
||||
if LogAPI then
|
||||
DoLog('TPas2JSWASIEnvironment.clock_res_get(%d,%d)',[clockid,resolution]);
|
||||
{$ENDIF}
|
||||
view:=getModuleMemoryDataView;
|
||||
setBigUint64(view,resolution, 0,IsLittleEndian);
|
||||
Result:=WASI_ESUCCESS;
|
||||
@ -1225,6 +1306,10 @@ Var
|
||||
view: TJSDataView;
|
||||
n : NativeInt;
|
||||
begin
|
||||
{$IFNDEF NO_WASI_DEBUG}
|
||||
if LogAPI then
|
||||
DoLog('TPas2JSWASIEnvironment.clock_time_get(%d,%d,%d)',[clockid,precision,time]);
|
||||
{$ENDIF}
|
||||
view:=getModuleMemoryDataView;
|
||||
n:=GetTime(clockId);
|
||||
if N=-1 then
|
||||
@ -1376,6 +1461,10 @@ end;
|
||||
function TPas2JSWASIEnvironment.fd_advise(fd, offset, len, advice: NativeInt
|
||||
): NativeInt;
|
||||
begin
|
||||
{$IFNDEF NO_WASI_DEBUG}
|
||||
if LogAPI then
|
||||
DoLog('TPas2JSWASIEnvironment.fd_advise(%d,%d,%d,%d)',[fd,offset,len,advice]);
|
||||
{$ENDIF}
|
||||
console.log('Unimplemented: TPas2JSWASIEnvironment.fd_advise');
|
||||
Result:= WASI_ENOSYS;
|
||||
end;
|
||||
@ -1383,18 +1472,30 @@ end;
|
||||
function TPas2JSWASIEnvironment.fd_allocate(fd, offset, len: NativeInt
|
||||
): NativeInt;
|
||||
begin
|
||||
{$IFNDEF NO_WASI_DEBUG}
|
||||
if LogAPI then
|
||||
DoLog('TPas2JSWASIEnvironment.fd_allocate(%d,%d,%d)',[fd,offset,len]);
|
||||
{$ENDIF}
|
||||
console.log('Unimplemented: TPas2JSWASIEnvironment.fd_allocate');
|
||||
Result:= WASI_ENOSYS;
|
||||
end;
|
||||
|
||||
function TPas2JSWASIEnvironment.fd_close(fd: NativeInt): NativeInt;
|
||||
begin
|
||||
{$IFNDEF NO_WASI_DEBUG}
|
||||
if LogAPI then
|
||||
DoLog('TPas2JSWASIEnvironment.fd_close(%d)',[fd]);
|
||||
{$ENDIF}
|
||||
console.log('Unimplemented: TPas2JSWASIEnvironment.fd_close');
|
||||
Result:= WASI_ENOSYS;
|
||||
end;
|
||||
|
||||
function TPas2JSWASIEnvironment.fd_datasync(fd: NativeInt): NativeInt;
|
||||
begin
|
||||
{$IFNDEF NO_WASI_DEBUG}
|
||||
if LogAPI then
|
||||
DoLog('TPas2JSWASIEnvironment.fd_datasync(%d)',[fd]);
|
||||
{$ENDIF}
|
||||
console.log('Unimplemented: TPas2JSWASIEnvironment.fd_datasync');
|
||||
Result:= WASI_ENOSYS;
|
||||
end;
|
||||
@ -1402,12 +1503,20 @@ end;
|
||||
function TPas2JSWASIEnvironment.fd_seek(fd, offset, whence,
|
||||
newOffsetPtr: NativeInt): NativeInt;
|
||||
begin
|
||||
{$IFNDEF NO_WASI_DEBUG}
|
||||
if LogAPI then
|
||||
DoLog('TPas2JSWASIEnvironment.fd_seek(%d,%d,%d,%d)',[fd,offset,whence,newOffsetPtr]);
|
||||
{$ENDIF}
|
||||
console.log('Unimplemented: TPas2JSWASIEnvironment.fd_seek');
|
||||
Result:= WASI_ENOSYS;
|
||||
end;
|
||||
|
||||
function TPas2JSWASIEnvironment.fd_sync(fd: NativeInt): NativeInt;
|
||||
begin
|
||||
{$IFNDEF NO_WASI_DEBUG}
|
||||
if LogAPI then
|
||||
DoLog('TPas2JSWASIEnvironment.fd_sync(%d)',[fd]);
|
||||
{$ENDIF}
|
||||
console.log('Unimplemented: TPas2JSWASIEnvironment.fd_sync');
|
||||
Result:= WASI_ENOSYS;
|
||||
end;
|
||||
@ -1415,6 +1524,10 @@ end;
|
||||
function TPas2JSWASIEnvironment.fd_pread(fd, iovs, iovsLen, offset,
|
||||
nread: NativeInt): NativeInt;
|
||||
begin
|
||||
{$IFNDEF NO_WASI_DEBUG}
|
||||
if LogAPI then
|
||||
DoLog('TPas2JSWASIEnvironment.fd_pread(%d,%d,%d,%d,%d)',[fd,iovs,iovslen,offset,nread]);
|
||||
{$ENDIF}
|
||||
console.log('Unimplemented: TPas2JSWASIEnvironment.fd_pread');
|
||||
Result:= WASI_ENOSYS;
|
||||
end;
|
||||
@ -1497,6 +1610,10 @@ var
|
||||
end;
|
||||
|
||||
begin
|
||||
{$IFNDEF NO_WASI_DEBUG}
|
||||
if LogAPI then
|
||||
DoLog('TPas2JSWASIEnvironment.fd_read(%d,%d,%d,%d)',[fd,iovs,iovslen,nread]);
|
||||
{$ENDIF}
|
||||
bytesRead:=0;
|
||||
view:=getModuleMemoryDataView();
|
||||
if (fd = WASI_STDIN_FILENO) then
|
||||
@ -1542,18 +1659,30 @@ end;
|
||||
function TPas2JSWASIEnvironment.fd_readdir(fd, bufPtr, bufLen, cookie,
|
||||
bufusedPtr: NativeInt): NativeInt;
|
||||
begin
|
||||
{$IFNDEF NO_WASI_DEBUG}
|
||||
if LogAPI then
|
||||
DoLog('TPas2JSWASIEnvironment.fd_readdir(%d,%d,%d,%d,%d)',[fd,bufPtr,buflen,cookie,bufusedptr]);
|
||||
{$ENDIF}
|
||||
console.log('Unimplemented: TPas2JSWASIEnvironment.fd_readdir');
|
||||
Result:= WASI_ENOSYS;
|
||||
end;
|
||||
|
||||
function TPas2JSWASIEnvironment.fd_renumber(afrom, ato: NativeInt): NativeInt;
|
||||
begin
|
||||
{$IFNDEF NO_WASI_DEBUG}
|
||||
if LogAPI then
|
||||
DoLog('TPas2JSWASIEnvironment.fd_renumber(%d,%d)',[aFrom,aTo]);
|
||||
{$ENDIF}
|
||||
console.log('Unimplemented: TPas2JSWASIEnvironment.fd_renumber');
|
||||
Result:= WASI_ENOSYS;
|
||||
end;
|
||||
|
||||
function TPas2JSWASIEnvironment.fd_tell(fd, offsetPtr: NativeInt): NativeInt;
|
||||
begin
|
||||
{$IFNDEF NO_WASI_DEBUG}
|
||||
if LogAPI then
|
||||
DoLog('TPas2JSWASIEnvironment.fd_tell(%d,%d)',[fd,offsetPtr]);
|
||||
{$ENDIF}
|
||||
console.log('Unimplemented: TPas2JSWASIEnvironment.fd_tell');
|
||||
Result:= WASI_ENOSYS;
|
||||
end;
|
||||
@ -1561,6 +1690,10 @@ end;
|
||||
function TPas2JSWASIEnvironment.fd_filestat_get(fd, bufPtr: NativeInt
|
||||
): NativeInt;
|
||||
begin
|
||||
{$IFNDEF NO_WASI_DEBUG}
|
||||
if LogAPI then
|
||||
DoLog('TPas2JSWASIEnvironment.fd_filestat_get(%d,%d)',[fd,bufPtr]);
|
||||
{$ENDIF}
|
||||
console.log('Unimplemented: TPas2JSWASIEnvironment.fd_filestat_get');
|
||||
Result:= WASI_ENOSYS;
|
||||
end;
|
||||
@ -1568,6 +1701,10 @@ end;
|
||||
function TPas2JSWASIEnvironment.fd_filestat_set_size(fd, stSize: NativeInt
|
||||
): NativeInt;
|
||||
begin
|
||||
{$IFNDEF NO_WASI_DEBUG}
|
||||
if LogAPI then
|
||||
DoLog('TPas2JSWASIEnvironment.fd_filestat_set_size(%d,%d)',[fd,stSize]);
|
||||
{$ENDIF}
|
||||
console.log('Unimplemented: TPas2JSWASIEnvironment.fd_filestat_set_size');
|
||||
Result:= WASI_ENOSYS;
|
||||
end;
|
||||
@ -1575,6 +1712,10 @@ end;
|
||||
function TPas2JSWASIEnvironment.fd_filestat_set_times(fd, stAtim, stMtim,
|
||||
fstflags: NativeInt): NativeInt;
|
||||
begin
|
||||
{$IFNDEF NO_WASI_DEBUG}
|
||||
if LogAPI then
|
||||
DoLog('TPas2JSWASIEnvironment.fd_filestat_set_times(%d,%d,%d)',[fd,stAtim,stMtim,fstFlags]);
|
||||
{$ENDIF}
|
||||
console.log('Unimplemented: TPas2JSWASIEnvironment.fd_filestat_set_times');
|
||||
Result:= WASI_ENOSYS;
|
||||
end;
|
||||
@ -1582,6 +1723,10 @@ end;
|
||||
function TPas2JSWASIEnvironment.path_readlink(fd, pathPtr, pathLen, buf,
|
||||
bufLen, bufused: NativeInt): NativeInt;
|
||||
begin
|
||||
{$IFNDEF NO_WASI_DEBUG}
|
||||
if LogAPI then
|
||||
DoLog('TPas2JSWASIEnvironment.path_readlink(%d,%d,%d,%d,%d,%d)',[fd,PathPtr,PathLen,buf,buflen,bufused]);
|
||||
{$ENDIF}
|
||||
console.log('Unimplemented: TPas2JSWASIEnvironment.path_readlink');
|
||||
Result:= WASI_ENOSYS;
|
||||
end;
|
||||
@ -1589,6 +1734,10 @@ end;
|
||||
function TPas2JSWASIEnvironment.path_create_directory(fd, pathPtr,
|
||||
pathLen: NativeInt): NativeInt;
|
||||
begin
|
||||
{$IFNDEF NO_WASI_DEBUG}
|
||||
if LogAPI then
|
||||
DoLog('TPas2JSWASIEnvironment.path_create_directory(%d,%d,%d)',[fd,PathPtr,PathLen]);
|
||||
{$ENDIF}
|
||||
console.log('Unimplemented: TPas2JSWASIEnvironment.path_create_directory');
|
||||
Result:= WASI_ENOSYS;
|
||||
end;
|
||||
@ -1596,6 +1745,10 @@ end;
|
||||
function TPas2JSWASIEnvironment.path_filestat_get(fd, flags, pathPtr, pathLen,
|
||||
bufPtr: NativeInt): NativeInt;
|
||||
begin
|
||||
{$IFNDEF NO_WASI_DEBUG}
|
||||
if LogAPI then
|
||||
DoLog('TPas2JSWASIEnvironment.path_filestat_get(%d,%d,%d,%d,%d)',[fd,flags,PathPtr,PathLen,bufptr]);
|
||||
{$ENDIF}
|
||||
console.log('Unimplemented: TPas2JSWASIEnvironment.path_filestat_get');
|
||||
Result:= WASI_ENOSYS;
|
||||
end;
|
||||
@ -1603,6 +1756,10 @@ end;
|
||||
function TPas2JSWASIEnvironment.path_link(oldFd, oldFlags, oldPath, oldPathLen,
|
||||
newFd, newPath, newPathLen: NativeInt): NativeInt;
|
||||
begin
|
||||
{$IFNDEF NO_WASI_DEBUG}
|
||||
if LogAPI then
|
||||
DoLog('TPas2JSWASIEnvironment.path_link(%d,%d,%d,%d,%d,%d,%d)',[oldfd,oldFlags,OldPath,OldPathLen,Newfd,NewPath,NewPathLen]);
|
||||
{$ENDIF}
|
||||
console.log('Unimplemented: TPas2JSWASIEnvironment.path_link');
|
||||
Result:= WASI_ENOSYS;
|
||||
end;
|
||||
@ -1610,6 +1767,10 @@ end;
|
||||
function TPas2JSWASIEnvironment.path_remove_directory(fd, pathPtr,
|
||||
pathLen: NativeInt): NativeInt;
|
||||
begin
|
||||
{$IFNDEF NO_WASI_DEBUG}
|
||||
if LogAPI then
|
||||
DoLog('TPas2JSWASIEnvironment.path_remove_directory(%d,%d,%d)',[fd,PathPtr,PathLen]);
|
||||
{$ENDIF}
|
||||
console.log('Unimplemented: TPas2JSWASIEnvironment.path_remove_directory');
|
||||
Result:= WASI_ENOSYS;
|
||||
end;
|
||||
@ -1617,6 +1778,10 @@ end;
|
||||
function TPas2JSWASIEnvironment.path_rename(oldFd, oldPath, oldPathLen, newFd,
|
||||
newPath, newPathLen: NativeInt): NativeInt;
|
||||
begin
|
||||
{$IFNDEF NO_WASI_DEBUG}
|
||||
if LogAPI then
|
||||
DoLog('TPas2JSWASIEnvironment.path_rename(%d,%d,%d,%d,%d,%d)',[oldfd,OldPath,OldPathLen,Newfd,NewPath,NewPathLen]);
|
||||
{$ENDIF}
|
||||
console.log('Unimplemented: TPas2JSWASIEnvironment.path_rename');
|
||||
Result:= WASI_ENOSYS;
|
||||
end;
|
||||
@ -1624,6 +1789,10 @@ end;
|
||||
function TPas2JSWASIEnvironment.path_symlink(oldPath, oldPathLen, fd, newPath,
|
||||
newPathLen: NativeInt): NativeInt;
|
||||
begin
|
||||
{$IFNDEF NO_WASI_DEBUG}
|
||||
if LogAPI then
|
||||
DoLog('TPas2JSWASIEnvironment.path_symlink(%d,%d,%d,%d,%d)',[OldPath,OldPathLen,fd,NewPath,NewPathLen]);
|
||||
{$ENDIF}
|
||||
console.log('Unimplemented: TPas2JSWASIEnvironment.path_symlink');
|
||||
Result:= WASI_ENOSYS;
|
||||
end;
|
||||
@ -1631,6 +1800,10 @@ end;
|
||||
function TPas2JSWASIEnvironment.path_unlink_file(fd, pathPtr, pathLen: NativeInt
|
||||
): NativeInt;
|
||||
begin
|
||||
{$IFNDEF NO_WASI_DEBUG}
|
||||
if LogAPI then
|
||||
DoLog('TPas2JSWASIEnvironment.path_unlink_file(%d,%d,%d)',[fd,PathPtr,PathLen]);
|
||||
{$ENDIF}
|
||||
console.log('Unimplemented: TPas2JSWASIEnvironment.path_unlink_file');
|
||||
Result:= WASI_ENOSYS;
|
||||
end;
|
||||
@ -1638,6 +1811,10 @@ end;
|
||||
function TPas2JSWASIEnvironment.path_open(dirfd, dirflags, pathPtr, pathLen,
|
||||
oflags, fsRightsBase, fsRightsInheriting, fsFlags, fd: NativeInt): NativeInt;
|
||||
begin
|
||||
{$IFNDEF NO_WASI_DEBUG}
|
||||
if LogAPI then
|
||||
DoLog('TPas2JSWASIEnvironment.path_open(%d,%d,%d,%d,%d,%d,%d,%d,%d)',[dirfd, dirflags, pathPtr, pathLen, oflags, fsRightsBase, fsRightsInheriting, fsFlags, fd]);
|
||||
{$ENDIF}
|
||||
console.log('Unimplemented: TPas2JSWASIEnvironment.path_open');
|
||||
Result:= WASI_ENOSYS;
|
||||
end;
|
||||
@ -1645,6 +1822,10 @@ end;
|
||||
function TPas2JSWASIEnvironment.path_filestat_set_times(fd, fstflags, pathPtr,
|
||||
pathLen, stAtim, stMtim: NativeInt): NativeInt;
|
||||
begin
|
||||
{$IFNDEF NO_WASI_DEBUG}
|
||||
if LogAPI then
|
||||
DoLog('TPas2JSWASIEnvironment.path_filestat_set_times(%d,%d,%d,%d,%d,%d)',[fd,fstflags,PathPtr,PathLen,stAtim,stMtim]);
|
||||
{$ENDIF}
|
||||
console.log('Unimplemented: TPas2JSWASIEnvironment.path_filestat_set_times');
|
||||
Result:= WASI_ENOSYS;
|
||||
end;
|
||||
|
||||
Loading…
Reference in New Issue
Block a user