mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

ADD: Show file creation time under Linux with kernel >= 4.11

Browse source
This commit is contained in:
Alexander Koblov 2017-05-06 09:31:33 +00:00
commit a7898d6954
1 changed files with 23 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

23
src/filesources/filesystem/ufilesystemfilesource.pas
View file

@ -132,6 +132,9 @@ uses
{$IFDEF DARWIN}
uMyDarwin,
{$ENDIF}
{$IFDEF LINUX}
statx,
{$ENDIF}
{$ENDIF}
uFileSystemListOperation,
uFileSystemCopyOperation,
@ -430,6 +433,9 @@ var
sFullPath: String;
Attrs: TFileAttrs;
AProps: TFilePropertiesTypes;
{$IF DEFINED(LINUX)}
StatXInfo: TStatX;
{$ENDIF}
{$IF DEFINED(UNIX)}
StatInfo, LinkInfo: BaseUnix.Stat; //buffer for stat info
{$ELSEIF DEFINED(MSWINDOWS)}
@ -606,6 +612,20 @@ begin
{$ENDIF}
end;
{$IF DEFINED(LINUX)}
if fpCreationTime in PropertiesToSet then
begin
if HasStatX and (fpstatx(0, sFullPath, 0, STATX_BTIME, @StatXInfo) >= 0) then
begin
if (StatXInfo.stx_mask and STATX_BTIME <> 0) and (StatXInfo.stx_btime.tv_sec > 0) then
begin
CreationTimeProperty := TFileCreationDateTimeProperty.Create(
FileTimeToDateTime(DCBasicTypes.TFileTime(StatXInfo.stx_btime.tv_sec)));
end;
end;
end;
{$ENDIF}
{$ELSE}
if FindFirstEx(sFullPath, 0, SearchRec) = -1 then
@ -781,6 +801,9 @@ begin
, fpCompressedSize
{$ENDIF}
];
{$IF DEFINED(LINUX)}
if HasStatX then Result += [fpCreationTime];
{$ENDIF}
end;
function TFileSystemFileSource.CreateListOperation(TargetPath: String): TFileSourceOperation;