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

* linux: make use of statx in Sysutils.FileAge if available

Browse Source 
git-svn-id: trunk@48457 -
This commit is contained in:
florian 2021-01-30 18:47:27 +00:00
parent de62cb8b02
commit f39f8d0f1a
3 changed files with 29 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -16245,6 +16245,7 @@ tests/test/units/sysutils/tfexpand2.pp svneol=native#text/plain
tests/test/units/sysutils/tffirst.pp svneol=native#text/plain
tests/test/units/sysutils/tfile1.pp svneol=native#text/plain
tests/test/units/sysutils/tfile2.pp svneol=native#text/plain
tests/test/units/sysutils/tfileage.pp svneol=native#text/pascal
tests/test/units/sysutils/tfilename.pp svneol=native#text/plain
tests/test/units/sysutils/tfloattostr.pp svneol=native#text/plain
tests/test/units/sysutils/tformat.pp svneol=native#text/plain

18
rtl/unix/sysutils.pp
View File

@ -55,6 +55,10 @@ uses
{$DEFINE HAVECLOCKGETTIME}
{$ENDIF}
{$if defined(LINUX)}
{$DEFINE HAS_STATX}
{$endif}
{ Include platform independent interface part }
{$i sysutilh.inc}
@ -547,12 +551,26 @@ begin
end;
end;
Function FileAge (Const FileName : RawByteString): Int64;
Var
Info : Stat;
SystemFileName: RawByteString;
{$ifdef HAS_STATX}
Infox : Statx;
{$endif HAS_STATX}
begin
SystemFileName:=ToSingleByteFileSystemEncodedFileName(FileName);
{$ifdef HAS_STATX}
{ first try statx }
if (Fpstatx(0,pchar(SystemFileName),0,STATX_MTIME or STATX_MODE,Infox)>=0) and not(fpS_ISDIR(Infox.stx_mode)) then
begin
Result:=Infox.stx_mtime.tv_sec;
exit;
end;
{$endif HAS_STATX}
If (fpstat(pchar(SystemFileName),Info)<0) or fpS_ISDIR(info.st_mode) then
exit(-1)
else

10
tests/test/units/sysutils/tfileage.pp Normal file
View File

@ -0,0 +1,10 @@
uses
sysutils;
begin
if 3600*24*(now()-FileDateToDateTime(FileAge(paramstr(0))))>7200 then
begin
writeln('FileAge returns: ',FileDateToDateTime(FileAge(paramstr(0))));
writeln('Compilation time and run time differ too much, SysUtils.FileAge buggy?');
halt(1);
end;
end.