Engine and VFS API cleanupv0.6.72

* also split threaded operations into UCoreWorkers.pas
* symlinks should be properly resolved now, even in archives
* no more relative/absolute path confusion
* moved FillDirFiles outside engines, made it more universal

1 files changed, 6 insertions, 6 deletions

diff --git a/UChecksumDruid.pas b/UChecksumDruid.pas
index 346dc3f..7745fad 100644
--- a/UChecksumDruid.pas
+++ b/UChecksumDruid.pas
@@ -423,7 +423,7 @@ procedure TFChecksumDruid.Process;
 const Ext: array[boolean] of string = ('.md5', '.sfv');
 var i: integer;
     MaxSize, LastValue: Int64;
-    Stat: PDataItemSL;
+    Stat: PDataItem;
     s, s2: string;
 begin
   if FileNames.Count = 0 then begin
@@ -443,7 +443,7 @@ begin
   //  Compute maximal size of selected files
   MaxSize := 0;
   for i := 0 to FileNames.Count - 1 do begin
-    Stat := Engine.GetFileInfoSL(FileNames[i]);
+    Stat := Engine.GetFileInfo(FileNames[i], True, True);
     if Assigned(Stat) then begin
       Inc(MaxSize, Stat.Size);
       FreeDataItem(Stat);
@@ -458,7 +458,7 @@ begin
   for i := 0 to FileNames.Count - 1 do begin
     ProcessingLabel.Caption := Format(LANGCCHKSUMNowProcessingFileS, [StrToUTF8(ExtractFileName(FileNames[i]))]);
     LastValue := Progress.Value;
-    Stat := Engine.GetFileInfoSL(FileNames[i]);
+    Stat := Engine.GetFileInfo(FileNames[i], True, True);
     Application.ProcessMessages;
     try
       if ProcessFile(FileNames[i], SFVRadioButton.Checked, s) then begin
@@ -591,7 +591,7 @@ end;
 
 procedure TFChecksumDruid.WriteSFVComment(const FName: string);
 var i, Error, Count: integer;
-    Stat: PDataItemSL;
+    Stat: PDataItem;
     s: string;
 begin
   FileDes := Engine.OpenFile(FName, omWrite, Error);
@@ -613,10 +613,10 @@ begin
               ';  http://tuxcmd.sourceforge.net/'#13#10'; '#13#10'; /----'#13#10, [ConstAboutVersion, ConstAboutBuildDate,
               SysUtils.FormatDateTime('mm.dd.yyyy "at" hh:nn:ss', Now)]);
   for i := 0 to FileNames.Count - 1 do begin
-    Stat := Engine.GetFileInfoSL(FileNames[i]);
+    Stat := Engine.GetFileInfo(FileNames[i], True, True);
     if Assigned(Stat) then begin
       s := s + Format(';  %s %s %s'#13#10, [PadRightStr(IntToStr(Stat^.Size), 11),
-                      FormatDate(Stat^.ModifyTime, True, True, 999, 999, 1, '%Y-%m-%d', '%k:%M.%S'), ExtractFileName(FileNames[i])]);
+                      FormatDate(Stat^.mtime, True, True, 999, 999, 1, '%Y-%m-%d', '%k:%M.%S'), ExtractFileName(FileNames[i])]);
       FreeDataItem(Stat);
     end;
   end;