mirror of
https://github.com/doublecmd/doublecmd.git
synced 2026-06-21 09:58:13 +00:00
371 lines
9.8 KiB
ObjectPascal
371 lines
9.8 KiB
ObjectPascal
{
|
|
Double Commander
|
|
--------------------------------------------------------------
|
|
Some utils for VFS system (and maybe classic fs) .
|
|
Part of Commander, realised under GNU GPL 2. (C)opyright 2003
|
|
|
|
Authors:
|
|
Radek Cervinka, radek.cervinka@centrum.cz
|
|
Copyright (C) 2006-2007 Koblov Alexander (Alexx2000@mail.ru)
|
|
|
|
contributors:
|
|
|
|
|
|
|
|
}
|
|
|
|
unit uVFSutil;
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, uTypes, uFileList;
|
|
|
|
procedure FillAndCount(var fl:TFileList; out FilesSize : Int64);
|
|
procedure AddUpLevel(sUpPath : String; var ls:TFileList);
|
|
function LowDirLevel(sPath : String) : String;
|
|
|
|
{en
|
|
Checks if a filename matches any filename in the filelist or
|
|
if it could be in any directory of the file list or any of their subdirectories.
|
|
}
|
|
function MatchesFileList(const FileList: TFileList; FileName: String): Boolean;
|
|
|
|
{en
|
|
Checks if a filename with full path belongs in the specified path.
|
|
@param(sPath
|
|
Fully specified path to directory to check.)
|
|
@param(sFilePath
|
|
Fully specified path to file name.)
|
|
@param(AllowSubDirs
|
|
If True, allows the file path to point to a file in some subdirectory of sPath.
|
|
If False, only allows the file path to point directly to a file in sPath.
|
|
}
|
|
function IsFileInPath(const sPath : String; sFilePath : String; AllowSubDirs: Boolean) : Boolean;
|
|
|
|
{en
|
|
Changes all the file names in FileList making them relative to 'sNewRootPath'.
|
|
It is done by removing 'sNewRootPath' prefix from file names and setting
|
|
current directory to sNewRootPath.
|
|
@param(sNewRootPath
|
|
Path that specifies new 'root' directory for all filenames.)
|
|
@param(FileList
|
|
Contains list of files to change.)
|
|
}
|
|
procedure ChangeFileListRoot(sNewRootPath: String; var FileList: TFileList);
|
|
|
|
function ExtractDirLevel(const sPrefix, sPath: String): String;
|
|
function ls2FileInfo(sls:string):TFileRecItem;
|
|
// convert line in ls -la (or vfs) format to our structure
|
|
function ModeStr2Mode(const sMode:String):Integer;
|
|
|
|
implementation
|
|
|
|
uses
|
|
SysUtils, uFileOp, uOSUtils, uFindEx, LCLProc {$IFDEF UNIX}, BaseUnix{$ENDIF};
|
|
|
|
{ TFileList }
|
|
|
|
(* Get all files in subfolders in Real File System *)
|
|
|
|
procedure FillAndCount(var fl:TFileList; out FilesSize : Int64);
|
|
var
|
|
i:Integer;
|
|
ptr:PFileRecItem;
|
|
sRealName : String;
|
|
sr : TSearchRec;
|
|
NewFileList: TFileList;
|
|
|
|
procedure FillAndCountRec(const srcPath, dstPath:String);
|
|
var
|
|
sr:TSearchRec;
|
|
fr:TFileRecItem;
|
|
|
|
begin
|
|
if FindFirstEx(srcPath+'*',faAnyFile,sr)<>0 then
|
|
begin
|
|
FindCloseEx(sr);
|
|
Exit;
|
|
end;
|
|
repeat
|
|
if (sr.Name='.') or (sr.Name='..') then Continue;
|
|
fr.sName:=ExtractDirLevel(fl.CurrentDirectory, srcPath+sr.Name);
|
|
fr.sPath:=dstPath;
|
|
fr.sNameNoExt:=sr.Name; // we use to save dstname
|
|
fr.iMode := sr.Attr;
|
|
fr.bSelected:=False;
|
|
fr.iSize := sr.Size;
|
|
|
|
NewFileList.AddItem(@fr);
|
|
|
|
if FPS_ISDIR(fr.iMode) then
|
|
begin
|
|
FillAndCountRec(srcPath+sr.Name+DirectorySeparator, dstPath+sr.Name+DirectorySeparator);
|
|
end
|
|
else
|
|
inc(FilesSize, fr.iSize);
|
|
until FindNextEx(sr)<>0;
|
|
FindCloseEx(sr);
|
|
end;
|
|
|
|
|
|
|
|
begin
|
|
NewFileList:=TFileList.Create;
|
|
NewFileList.CurrentDirectory := fl.CurrentDirectory;
|
|
FilesSize := 0;
|
|
for i:=0 to fl.Count-1 do
|
|
begin
|
|
ptr:=fl.GetItem(i);
|
|
|
|
if FPS_ISDIR(ptr^.iMode) and (not ptr^.bLinkIsDir) then
|
|
begin
|
|
sRealName := ptr^.sName;
|
|
ptr^.sName := ExtractDirLevel(fl.CurrentDirectory, ptr^.sName);
|
|
NewFileList.AddItem(ptr); // add DIR to List
|
|
FillAndCountRec(sRealName + DirectorySeparator, ptr^.sNameNoExt + DirectorySeparator); // rekursive browse child dir
|
|
end
|
|
else
|
|
begin
|
|
ptr^.sName := ExtractDirLevel(fl.CurrentDirectory, ptr^.sName);
|
|
NewFileList.AddItem(ptr);
|
|
inc(FilesSize, ptr^.iSize);
|
|
end;
|
|
end;
|
|
fl.Free;
|
|
fl := NewFileList;
|
|
end;
|
|
|
|
procedure ChangeFileListRoot(sNewRootPath: String; var FileList: TFileList);
|
|
var
|
|
i: Integer;
|
|
pfri: PFileRecItem;
|
|
begin
|
|
for i:=0 to FileList.Count-1 do
|
|
begin
|
|
pfri := FileList.GetItem(i);
|
|
|
|
pfri^.sName := ExtractDirLevel(sNewRootPath, pfri^.sName);
|
|
pfri^.sPath := ExtractDirLevel(sNewRootPath, pfri^.sPath);
|
|
end;
|
|
|
|
FileList.CurrentDirectory := ExtractDirLevel(sNewRootPath, FileList.CurrentDirectory);
|
|
end;
|
|
|
|
procedure AddUpLevel(sUpPath : String; var ls:TFileList); // add virtually ..
|
|
var
|
|
fi:TFileRecItem;
|
|
begin
|
|
fi.sName:='..';
|
|
fi.iSize:=0;
|
|
fi.sExt:='';
|
|
fi.sNameNoExt:=fi.sName;
|
|
fi.bSelected:=False;
|
|
fi.bExecutable:=False;
|
|
fi.bSysFile := False;
|
|
{$IF DEFINED(MSWINDOWS)}
|
|
fi.sModeStr:='d-----';
|
|
{$ELSE}
|
|
fi.sModeStr:='drwxr-xr-x';
|
|
{$ENDIF}
|
|
fi.iMode:=ModeStr2Mode(fi.sModeStr); //!!!!
|
|
fi.iDirSize:=0;
|
|
fi.sPath := sUpPath;
|
|
ls.AddItem(@fi);
|
|
end;
|
|
|
|
function LowDirLevel(sPath : String) : String;
|
|
var
|
|
Index, I, Count : Integer;
|
|
tmp : String;
|
|
begin
|
|
Count := 0;
|
|
sPath := ExcludeTrailingPathDelimiter(sPath);
|
|
tmp := sPath;
|
|
while True do
|
|
begin
|
|
Index := Pos(PathDelim, tmp);
|
|
if Index > 0 then
|
|
begin
|
|
Delete(tmp, Index, 1);
|
|
Inc(Count);
|
|
I := Index;
|
|
end
|
|
else
|
|
Break;
|
|
end;
|
|
Result := Copy(sPath, 1, I + Count - 1);
|
|
|
|
end;
|
|
|
|
|
|
function MatchesFileList(const FileList: TFileList; FileName: String): Boolean;
|
|
var
|
|
i: Integer;
|
|
pfri : pFileRecItem;
|
|
begin
|
|
Result := False;
|
|
for i:=0 to FileList.Count-1 do
|
|
begin
|
|
pfri:=FileList.GetItem(i);
|
|
|
|
if FPS_ISDIR(pfri^.iMode) then
|
|
begin
|
|
// Check if 'FileName' is in this directory or any of its subdirectories.
|
|
if IsFileInPath(pfri^.sName, FileName, True) then
|
|
Result := True;
|
|
end
|
|
else
|
|
begin
|
|
// Item in the list is a file, only compare names.
|
|
if pfri^.sName = FileName then
|
|
Result := True;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
function IsFileInPath(const sPath : String; sFilePath : String; AllowSubDirs: Boolean) : Boolean;
|
|
var
|
|
PathLength, FilePathLength: Integer;
|
|
DelimiterPos: Integer;
|
|
begin
|
|
Result := False;
|
|
|
|
PathLength := Length(sPath);
|
|
FilePathLength := Length(sFilePath);
|
|
|
|
if (FilePathLength >= PathLength) and
|
|
(CompareStr(Copy(sFilePath, 1, PathLength), sPath) = 0) then
|
|
begin
|
|
if AllowSubDirs then
|
|
Result := True
|
|
else
|
|
begin
|
|
// Additionally check if the remaining path is a relative path.
|
|
|
|
// Look for a path delimiter in the middle of the filepath.
|
|
sFilePath := Copy(sFilePath, 1 + PathLength, FilePathLength - PathLength);
|
|
DelimiterPos := Pos(DirectorySeparator, sFilePath);
|
|
|
|
// If no delimiter was found or it was found at then end (for example,
|
|
// directories may end with it), then the filename is in 'sPath'.
|
|
if (DelimiterPos = 0) or (DelimiterPos = FilePathLength - PathLength) then
|
|
Result := True;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
function ExtractDirLevel(const sPrefix, sPath: String): String;
|
|
var
|
|
PrefixLength: Integer;
|
|
begin
|
|
if IsFileInPath(sPrefix, sPath, True) then
|
|
begin
|
|
PrefixLength := Length(sPrefix);
|
|
Result := Copy(sPath, 1 + PrefixLength, Length(sPath) - PrefixLength)
|
|
end
|
|
else
|
|
Result := sPath;
|
|
end;
|
|
|
|
function ModeStr2Mode(const sMode:String):Integer;
|
|
begin
|
|
// stupid conversion
|
|
Result:=0;
|
|
{$IFDEF WINDOWS}
|
|
|
|
if sMode[1] = 'd' then Result := Result or $10;
|
|
if sMode[2] = 'r' then Result := Result or $01;
|
|
if sMode[3] = 'a' then Result := Result or $20;
|
|
if sMode[4] = 'h' then Result := Result or $02;
|
|
if sMode[5] = 's' then Result := Result or $04;
|
|
if sMode[6] = 'v' then Result := Result or $08;
|
|
|
|
{$ELSE}
|
|
// if sMode[1]='-' then Result:=Result+10;
|
|
if sMode[1]='d' then Result:=Result or __S_IFDIR;
|
|
if sMode[1]='l' then Result:=Result or __S_IFLNK;
|
|
if sMode[1]='s' then Result:=Result or __S_IFSOCK;
|
|
if sMode[1]='f' then Result:=Result or __S_IFIFO;
|
|
if sMode[1]='b' then Result:=Result or __S_IFBLK;
|
|
if sMode[1]='c' then Result:=Result or __S_IFCHR;
|
|
|
|
|
|
if sMode[2]='r' then Result:=Result or S_IRUSR;
|
|
if sMode[3]='w' then Result:=Result or S_IWUSR;
|
|
if sMode[4]='x' then Result:=Result or S_IXUSR;
|
|
if sMode[5]='r' then Result:=Result or S_IRGRP;
|
|
if sMode[6]='w' then Result:=Result or S_IWGRP;
|
|
if sMode[7]='x' then Result:=Result or S_IXGRP;
|
|
if sMode[8]='r' then Result:=Result or S_IROTH;
|
|
if sMode[9]='w' then Result:=Result or S_IWOTH;
|
|
if sMode[10]='x' then Result:=Result or S_IXOTH;
|
|
|
|
if sMode[4]='s' then Result:=Result or S_ISUID;
|
|
if sMode[7]='s' then Result:=Result or S_ISGID;
|
|
{$ENDIF}
|
|
end;
|
|
|
|
function ls2FileInfo(sls:string):TFileRecItem;
|
|
var
|
|
i:Integer;
|
|
iPoz:Integer;
|
|
begin
|
|
if sls='' then
|
|
Raise Exception.Create('ls2FileInfo: sls is empty');
|
|
Result.sModeStr:=Copy(sls,1,10); // Atrrs
|
|
Result.iMode:=ModeStr2Mode(Result.sModeStr);
|
|
iPoz:=11;
|
|
i:=iPoz;
|
|
while sls[i]<=' ' do
|
|
inc(i);
|
|
|
|
// Result.iNr:=StrToInt(sls[i]); //???
|
|
iPoz:=i+1;
|
|
i:=iPoz+1;
|
|
while sls[i]>' ' do
|
|
inc(i);
|
|
|
|
Result.sOwner:=Trim(copy(sls,iPoz,i-iPoz)); // Owner
|
|
while sls[i]<=' ' do
|
|
inc(i);
|
|
|
|
iPoz:=i;
|
|
while sls[i]>' ' do
|
|
inc(i);
|
|
Result.sGroup:=Trim(copy(sls,iPoz,i-iPoz)); //Group
|
|
|
|
while sls[i]<=' ' do
|
|
inc(i);
|
|
|
|
iPoz:=i;
|
|
while sls[i]>' ' do
|
|
inc(i);
|
|
Result.iSize:=StrToInt(copy(sls,iPoz,i-iPoz)); // FileSize
|
|
while sls[i]<=' ' do
|
|
inc(i);
|
|
|
|
iPoz:=i;
|
|
i:=length(sls);
|
|
while (sls[i]>' ') and (i>iPoz) do
|
|
dec(i);
|
|
|
|
Result.sTime:=Copy(sls,iPoz,i-iPoz); // date
|
|
// Result.fTimeI:=StrToDateTime(Result.fTime);
|
|
// Inc(iPoz,12);
|
|
iPoz:=i;
|
|
Result.sName:=Trim(Copy(sls,iPoz,length(sls)-iPoz+1)); // FileName
|
|
Result.sExt:='';
|
|
Result.sNameNoExt:=Result.sName;
|
|
|
|
|
|
Result.bSelected:=False;
|
|
Result.bExecutable:=False;
|
|
Result.bIsLink:=False;
|
|
Result.bLinkIsDir:=False;
|
|
Result.iDirSize:=0;
|
|
end;
|
|
|
|
|
|
|
|
end.
|