diff options
| author | Tomas Bzatek <tbzatek@users.sourceforge.net> | 2009-11-28 16:00:34 +0100 |
|---|---|---|
| committer | Tomas Bzatek <tbzatek@users.sourceforge.net> | 2009-11-28 16:00:34 +0100 |
| commit | 6132c2ef3066e813acb1237afeca266f32c53a21 (patch) | |
| tree | b880a4eeb74e07f0e94c9767f9aba0873194d903 /UCoreUtils.pas | |
| parent | 9e4a6521a9ea3310437962d6708cf814fafc70d1 (diff) | |
| download | tuxcmd-6132c2ef3066e813acb1237afeca266f32c53a21.tar.xz | |
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
Diffstat (limited to 'UCoreUtils.pas')
| -rw-r--r-- | UCoreUtils.pas | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/UCoreUtils.pas b/UCoreUtils.pas index 95ca5a8..203fbc7 100644 --- a/UCoreUtils.pas +++ b/UCoreUtils.pas @@ -761,9 +761,9 @@ var Path : string; function CaseDirExists(DPath, DFileName: string): boolean; begin if (WideCompareStr(Pattern, FileName) <> 0) and (WideCompareText(Pattern, FileName) = 0) and Directory and - Engine.TwoSameFiles(DPath + Pattern, DPath + FileName) + Engine.TwoSameFiles(DPath + Pattern, DPath + FileName, True) then Result := False - else Result := Engine.DirectoryExists(DPath + DFileName); + else Result := Engine.DirectoryExists(DPath + DFileName, True); end; @@ -1509,11 +1509,11 @@ begin 4 : if Data1^.Size > Data2^.Size then Result := -1 else if Data1^.Size < Data2^.Size then Result := 1 else Result := CompareTextsEx(Data1^.FDisplayName, Data2^.FDisplayName); - 5, 6 : if Data1^.ModifyTime > Data2^.ModifyTime then Result := -1 else - if Data1^.ModifyTime < Data2^.ModifyTime then Result := 1 else + 5, 6 : if Data1^.mtime > Data2^.mtime then Result := -1 else + if Data1^.mtime < Data2^.mtime then Result := 1 else Result := CompareTextsEx(Data1^.FDisplayName, Data2^.FDisplayName); - 7 : if StripDate(Data1^.ModifyTime) > StripDate(Data2^.ModifyTime) then Result := -1 else - if StripDate(Data1^.ModifyTime) < StripDate(Data2^.ModifyTime) then Result := 1 else + 7 : if StripDate(Data1^.mtime) > StripDate(Data2^.mtime) then Result := -1 else + if StripDate(Data1^.mtime) < StripDate(Data2^.mtime) then Result := 1 else Result := CompareTextsEx(Data1^.FDisplayName, Data2^.FDisplayName); 8 : if Data1^.UID > Data2^.UID then Result := -1 else if Data1^.UID < Data2^.UID then Result := 1 else |