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

* unix: faSymLink

Browse Source 
* unix: TSearchRec.PathOnly

git-svn-id: trunk@1101 -
This commit is contained in:
florian 2005-09-17 20:05:04 +00:00
parent 6bce91adc0
commit b245075bb3
2 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/objpas/sysutils/filutilh.inc
View File

@ -23,6 +23,7 @@ Type
{$ifdef unix}
FindHandle : Pointer;
Mode : TMode;
PathOnly : AnsiString;
{$else unix}
FindHandle : THandle;
{$endif unix}
@ -48,6 +49,7 @@ Const
faVolumeId = $00000008;
faDirectory = $00000010;
faArchive = $00000020;
faSymLink = $00000040;
faAnyFile = $0000003f;
{ File open modes }

3
rtl/unix/sysutils.pp
View File

@ -280,6 +280,8 @@ begin
Result:=Result or faReadOnly;
If fpS_ISSOCK(Info.st_mode) or fpS_ISBLK(Info.st_mode) or fpS_ISCHR(Info.st_mode) or fpS_ISFIFO(Info.st_mode) Then
Result:=Result or faSysFile;
If fpS_ISLNK(Info.st_mode) Then
Result:=Result or faSymLink;
end;
type
@ -520,6 +522,7 @@ begin
begin
GlobSearchRec^.GlobHandle:=P^.Next;
Result:=Fpstat(GlobSearchRec^.Path+StrPas(p^.name),SInfo)>=0;
Info.PathOnly:=GlobSearchRec^.Path;
If Result then
begin
Info.Attr:=LinuxToWinAttr(p^.name,SInfo);