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

atari: implemented some more bits of sysutils

Browse Source 
git-svn-id: trunk@35200 -
This commit is contained in:
Károly Balogh 2016-12-27 04:17:27 +00:00
parent 8cff8892fe
commit 2199f2a65e
1 changed files with 23 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
rtl/atari/sysutils.pp
View File

@ -217,8 +217,15 @@ end;
function FileExists (const FileName : RawByteString) : Boolean; function FileExists (const FileName : RawByteString) : Boolean;
var
Attr: longint;
begin begin
result:=false; FileExists:=false;
Attr:=FileGetAttr(FileName);
if Attr < 0 then
exit;
result:=(Attr and (faVolumeID or faDirectory)) = 0;
end; end;
@ -317,13 +324,18 @@ end;
Function FileGetAttr (Const FileName : RawByteString) : Longint; Function FileGetAttr (Const FileName : RawByteString) : Longint;
begin begin
FileGetAttr := -1 FileGetAttr:=gemdos_fattrib(pchar(FileName),0,0);
end; end;
Function FileSetAttr (Const Filename : RawByteString; Attr: longint) : Longint; Function FileSetAttr (Const Filename : RawByteString; Attr: longint) : Longint;
begin begin
FileSetAttr := -1; FileSetAttr:=gemdos_fattrib(pchar(FileName),1,Attr and faAnyFile);
if FileSetAttr < -1 then
FileSetAttr:=-1
else
FileSetAttr:=0;
end; end;
@ -361,8 +373,15 @@ begin
end; end;
function DirectoryExists(const Directory: RawByteString): Boolean; function DirectoryExists(const Directory: RawByteString): Boolean;
var
Attr: longint;
begin begin
result:=false; DirectoryExists:=false;
Attr:=FileGetAttr(Directory);
if Attr < 0 then
exit;
result:=(Attr and faDirectory) <> 0;
end; end;