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

+ initial attempt for implementing do_open. Not working yet

Browse Source 
git-svn-id: branches/wasm@48311 -
This commit is contained in:
nickysn 2021-01-22 02:43:54 +00:00
parent e14451c6b6
commit c8760b12d4
2 changed files with 119 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

97
rtl/wasi/sysfile.inc
View File

@ -100,6 +100,99 @@ begin
end;
procedure Do_Open(var f; p: pchar; flags: longint; pchangeable: boolean);
begin
DebugWriteLn('Do_Open');
{
FileRec and textrec have both Handle and mode as the first items so
they could use the same routine for opening/creating.
when (flags and $100) the file will be append
when (flags and $1000) the file will be truncate/rewritten
when (flags and $10000) there is no check for close (needed for textfiles)
}
var
oflags : __wasi_oflags_t = 0;
fs_rights_base: __wasi_rights_t = 0;
fdflags: __wasi_fdflags_t = 0;
ourfd: __wasi_fd_t;
res: __wasi_errno_t;
Begin
{ close first if opened }
if ((flags and $10000)=0) then
begin
case FileRec(f).mode of
fminput,fmoutput,fminout : Do_Close(FileRec(f).Handle);
fmclosed : ;
else
begin
inoutres:=102; {not assigned}
exit;
end;
end;
end;
{ reset file Handle }
FileRec(f).Handle:=UnusedHandle;
{ We do the conversion of filemodes here, concentrated on 1 place }
case (flags and 3) of
0 : begin
fs_rights_base :=__WASI_RIGHTS_FD_READ;
FileRec(f).mode:=fminput;
end;
1 : begin
fs_rights_base :=__WASI_RIGHTS_FD_WRITE;
FileRec(f).mode:=fmoutput;
end;
2 : begin
fs_rights_base :=__WASI_RIGHTS_FD_READ or __WASI_RIGHTS_FD_WRITE;
FileRec(f).mode:=fminout;
end;
end;
if (flags and $1000)=$1000 then
oflags:=oflags or (__WASI_OFLAGS_CREAT or __WASI_OFLAGS_TRUNC)
else
if (flags and $100)=$100 then
fdflags:=fdflags or __WASI_FDFLAGS_APPEND;
{ empty name is special }
if p[0]=#0 then
begin
case FileRec(f).mode of
fminput :
FileRec(f).Handle:=StdInputHandle;
fminout, { this is set by rewrite }
fmoutput :
FileRec(f).Handle:=StdOutputHandle;
fmappend :
begin
FileRec(f).Handle:=StdOutputHandle;
FileRec(f).mode:=fmoutput; {fool fmappend}
end;
end;
exit;
end;
{ real open call }
repeat
res:=path_open(0,
0,
p,
strlen(p),
oflags,
fs_rights_base,
fs_rights_base,
fdflags,
@ourfd);
until (res=__WASI_ERRNO_SUCCESS) or (res<>__WASI_ERRNO_INTR);
{if (res=__WASI_ERRNO_ROFS) and ((OFlags and O_RDWR)<>0) then
begin
Oflags:=Oflags and not(O_RDWR);
repeat
FileRec(f).Handle:=Fpopen(p,oflags,MODE_OPEN);
until (FileRec(f).Handle<>-1) or (geterrno<>ESysEINTR);
end;}
If res<>__WASI_ERRNO_SUCCESS Then
begin
FileRec(f).mode:=fmclosed;
InOutRes:=Errno2InoutRes(res);
end
else
begin
FileRec(f).Handle:=ourfd;
InOutRes:=0;
end;
end;

24
rtl/wasi/system.pp
View File

@ -46,6 +46,7 @@ implementation
type
P__wasi_size_t = ^__wasi_size_t;
__wasi_size_t = longint;
P__wasi_fd_t = ^__wasi_fd_t;
__wasi_fd_t = longint;
size_t = longint;
__wasi_errno_t = longint;
@ -209,6 +210,20 @@ type
fs_rights_inheriting: __wasi_rights_t;
end;
__wasi_lookupflags_t = UInt32;
const
__WASI_LOOKUPFLAGS_SYMLINK_FOLLOW = 1;
type
__wasi_oflags_t = UInt16;
const
__WASI_OFLAGS_CREAT = 1;
__WASI_OFLAGS_DIRECTORY = 2;
__WASI_OFLAGS_EXCL = 4;
__WASI_OFLAGS_TRUNC = 8;
function fd_write(fd: __wasi_fd_t;
iovs: P__wasi_ciovec_t;
iovs_len: size_t;
@ -220,6 +235,15 @@ function fd_read(fd: __wasi_fd_t;
procedure proc_exit(rval: __wasi_exitcode_t); noreturn; external 'wasi_snapshot_preview1';
function fd_fdstat_get(fd: __wasi_fd_t;
stat: P__wasi_fdstat_t): __wasi_errno_t; external 'wasi_snapshot_preview1';
function path_open(fd: __wasi_fd_t;
dirflags: __wasi_lookupflags_t;
path: PChar;
path_len: size_t;
oflags: __wasi_oflags_t;
fs_rights_base,
fs_rights_inherting: __wasi_rights_t;
fdflags: __wasi_fdflags_t;
opened_fd: P__wasi_fd_t): __wasi_errno_t; external 'wasi_snapshot_preview1';
{$I system.inc}