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: Read symlink target

Browse source
This commit is contained in:
Alexander Koblov 2015-07-02 17:17:19 +00:00
commit 99b1dc1c19
3 changed files with 39 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

41
src/filesources/gio/ugiofilesource.pas
View file

@ -40,8 +40,8 @@ type
function GetFreeSpace(Path: String; out FreeSize, TotalSize : Int64) : Boolean; override;
class function CreateFile(const APath: String): TFile; override;
class function CreateFile(const APath: String; AFileInfo: PGFileInfo): TFile;
class function CreateFile(const APath: String): TFile; override;
class function CreateFile(const APath: String; AFolder: PGFile; AFileInfo: PGFileInfo): TFile;
function GetParentDir(sPath : String): String; override;
function IsPathAtRoot(Path: String): Boolean; override;
@ -73,7 +73,7 @@ type
implementation
uses uGioListOperation, uGioCopyOperation, uDebug, DCDateTimeUtils, uShowMsg,
uGioDeleteOperation, uGioExecuteOperation, uGioCreateDirectoryOperation,
uGioMoveOperation, uGioSetFilePropertyOperation;
uGioMoveOperation, uGioSetFilePropertyOperation, DCFileAttributes, DCOSUtils;
const
MessageTitle = 'Double Commander';
@ -103,14 +103,47 @@ begin
end;
end;
class function TGioFileSource.CreateFile(const APath: String;
class function TGioFileSource.CreateFile(const APath: String; AFolder: PGFile;
AFileInfo: PGFileInfo): TFile;
var
AFile: PGFile;
ATarget: Pgchar;
AFileType: TGFileType;
ASymlinkInfo: PGFileInfo;
begin
Result:= CreateFile(APath);
Result.Name:= g_file_info_get_name(AFileInfo);
Result.Size:= g_file_info_get_size (AFileInfo);
Result.Attributes:= g_file_info_get_attribute_uint32 (AFileInfo, FILE_ATTRIBUTE_UNIX_MODE);
Result.ModificationTime:= UnixFileTimeToDateTime(g_file_info_get_attribute_uint64 (AFileInfo, FILE_ATTRIBUTE_TIME_MODIFIED));
Result.LinkProperty := TFileLinkProperty.Create;
// Get a file's type (whether it is a regular file, symlink, etc).
AFileType:= g_file_info_get_file_type (AFileInfo);
if AFileType = G_FILE_TYPE_DIRECTORY then
begin
Result.Attributes:= Result.Attributes or S_IFDIR;
end
else if AFileType = G_FILE_TYPE_SYMBOLIC_LINK then
begin
ATarget:= g_file_info_get_symlink_target(AFileInfo);
AFile:= g_file_get_child(AFolder, ATarget);
ASymlinkInfo := g_file_query_info (AFile, FILE_ATTRIBUTE_STANDARD_TYPE,
G_FILE_QUERY_INFO_NONE, nil, nil);
Result.LinkProperty.LinkTo := ATarget;
Result.LinkProperty.IsValid := Assigned(ASymlinkInfo);
if (Result.LinkProperty.IsValid) then
begin
AFileType:= g_file_info_get_file_type(ASymlinkInfo);
Result.LinkProperty.IsLinkToDirectory := (AFileType = G_FILE_TYPE_DIRECTORY);
g_object_unref(ASymlinkInfo);
end;
g_object_unref(PGObject(AFile));
end;
end;
function TGioFileSource.SetCurrentWorkingDirectory(NewDir: String): Boolean;

2
src/filesources/gio/ugiofilesourceutil.pas
View file

@ -48,7 +48,7 @@ var
if (aFileName = '.') or (aFileName = '..') then Continue;
aFile:= TGioFileSource.CreateFile(srcPath, info);
aFile:= TGioFileSource.CreateFile(srcPath, AFolder, info);
NewFiles.Add(aFile);
if aFile.IsDirectory then

2
src/filesources/gio/ugiolistoperation.pas
View file

@ -80,7 +80,7 @@ begin
begin
CheckOperationState;
aFile:= TGioFileSource.CreateFile(Path, info);
aFile:= TGioFileSource.CreateFile(Path, f, info);
FFiles.Add(aFile);
info:= g_file_enumerator_next_file (en, nil, @error);