paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-14 00:10:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ implemented ParamStr and ParamCount for WASI

Browse Source 
git-svn-id: branches/wasm@48355 -
This commit is contained in:
nickysn 2021-01-23 17:59:23 +00:00
parent cf71bf40dd
commit 7799cd0f80
1 changed files with 36 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
rtl/wasi/system.pp
View File

@ -67,6 +67,11 @@ implementation
{$I system.inc}
var
argv_size,
argv_buf_size: __wasi_size_t;
argv_buf: Pointer;
function GetProcessID: SizeUInt;
begin
end;
@ -80,12 +85,43 @@ begin
__wasi_proc_exit(ExitCode);
End;
procedure setup_arguments;
begin
if argv<>nil then
exit;
if __wasi_args_sizes_get(@argc, @argv_buf_size)<>__WASI_ERRNO_SUCCESS then
begin
argc:=0;
argv:=nil;
exit;
end;
argv_size:=(argc+1)*SizeOf(PChar);
GetMem(argv, argv_size);
GetMem(argv_buf, argv_buf_size);
if __wasi_args_get(Pointer(argv), argv_buf)<>__WASI_ERRNO_SUCCESS then
begin
FreeMem(argv, argv_size);
FreeMem(argv_buf, argv_buf_size);
argc:=0;
argv:=nil;
end;
end;
Function ParamCount: Longint;
Begin
if argv=nil then
setup_arguments;
paramcount := argc - 1;
End;
function paramstr(l: longint) : string;
begin
if argv=nil then
setup_arguments;
if (l>=0) and (l+1<=argc) then
paramstr:=strpas(argv[l])
else
paramstr:='';
end;
procedure SysInitStdIO;