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

* Fixed FileAge and corrected FileGetAttr

Browse Source
This commit is contained in:
michael 1999-05-13 21:54:09 +00:00
parent 49bda42c6c
commit 481ca42ccb
1 changed files with 14 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
rtl/linux/filutil.inc
View File

@ -74,12 +74,16 @@ end;
Function FileAge (Const FileName : String): Longint;
Var Info : Stat;
Y,M,D,hh,mm,ss : word;
begin
If not fstat (FileName,Info) then
exit(-1)
else
Exit (Info.mtime);
begin
EpochToLocal(info.mtime,y,m,d,hh,mm,ss);
Result:=DateTimeToFileDate(EncodeDate(y,m,d)+EncodeTime(hh,mm,ss,0));
end;
end;
@ -93,6 +97,8 @@ end;
Function LinuxToWinAttr (FN : Char; Const Info : Stat) : Longint;
begin
Result:=0;
If FN='.' then
@ -101,6 +107,9 @@ begin
Result:=Result or faDirectory;
If (Info.Mode and STAT_IWUSR)=0 Then
Result:=Result or faReadOnly;
If (Info.Mode and
(STAT_IFSOCK or STAT_IFBLK or STAT_IFCHR or STAT_IFIFO))<>0 then
Result:=Result or faSysFile;
end;
{
@ -272,7 +281,10 @@ end;
{
$Log$
Revision 1.9 1999-04-08 11:31:01 peter
Revision 1.10 1999-05-13 21:54:09 michael
* Fixed FileAge and corrected FileGetAttr
Revision 1.9 1999/04/08 11:31:01 peter
* removed warnings
Revision 1.8 1999/02/28 13:18:10 michael