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

+ implemented DOS.GetFAttr for WASI

Browse Source
This commit is contained in:
Nikolay Nikolov 2021-10-12 09:14:14 +03:00
parent 4e605fb764
commit ca242e9ad0
1 changed files with 19 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

53
rtl/wasi/dos.pp
View File

@ -696,42 +696,27 @@ Begin
End;
Procedure GetFAttr(var f; var attr : word);
(*Var
info : baseunix.stat;
LinAttr : longint;
p : pchar;
{$ifndef FPC_ANSI_TEXTFILEREC}
r : RawByteString;
{$endif not FPC_ANSI_TEXTFILEREC}*)
Var
pr: RawByteString;
fd: __wasi_fd_t;
Info: __wasi_filestat_t;
Begin
(* DosError:=0;
{$ifdef FPC_ANSI_TEXTFILEREC}
{ encoding is already correct }
p:=@textrec(f).name;
{$else}
r:=ToSingleByteFileSystemEncodedFileName(textrec(f).name);
p:=pchar(r);
{$endif}
{ use the pchar rather than the rawbytestring version so that we don't check
a second time whether the string needs to be converted to the right code
page
}
if FPStat(p,info)<0 then
begin
Attr:=0;
DosError:=3;
exit;
end
else
LinAttr:=Info.st_Mode;
if fpS_ISDIR(LinAttr) then
Attr:=$10
else
Attr:=$0;
if fpAccess(p,W_OK)<0 then
Attr:=Attr or $1;
DosError:=0;
Attr:=0;
if ConvertToFdRelativePath(textrec(f).name,fd,pr)<>0 then
begin
DosError:=3;
exit;
end;
if __wasi_path_filestat_get(fd,__WASI_LOOKUPFLAGS_SYMLINK_FOLLOW,PChar(pr),length(pr),@Info)<>__WASI_ERRNO_SUCCESS then
begin
DosError:=3;
exit;
end;
if Info.filetype=__WASI_FILETYPE_DIRECTORY then
Attr:=$10;
if filerec(f).name[0]='.' then
Attr:=Attr or $2;*)
Attr:=Attr or $2;
end;
Procedure getftime (var f; var time : longint);