paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 10:19:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: added case insensitive FileExists

Browse Source
This commit is contained in:
mattias 2025-02-21 20:53:29 +01:00
parent 6801b7bff6
commit 650d1da4a1
1 changed files with 15 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
components/codetools/directorycacher.pas
View File

@ -344,7 +344,8 @@ type
UseCache: boolean = true): string; UseCache: boolean = true): string;
procedure IncreaseFileTimeStamp; inline; procedure IncreaseFileTimeStamp; inline;
procedure IncreaseConfigTimeStamp; inline; procedure IncreaseConfigTimeStamp; inline;
function FileExists(Filename: string): boolean; function FileExists(Filename: string): boolean; overload;
function FileExists(Filename: string; FileCase: TCTSearchFileCase): boolean; overload;
function FileAge(Filename: string): TCTFileAgeTime; function FileAge(Filename: string): TCTFileAgeTime;
function FileAttr(Filename: string): TCTDirectoryListingAttr; function FileAttr(Filename: string): TCTDirectoryListingAttr;
function FileSize(Filename: string): TCTDirectoryListingSize; function FileSize(Filename: string): TCTDirectoryListingSize;
@ -2701,6 +2702,11 @@ begin
end; end;
function TCTDirectoryCachePool.FileExists(Filename: string): boolean; function TCTDirectoryCachePool.FileExists(Filename: string): boolean;
begin
Result:=FileExists(Filename,ctsfcDefault);
end;
function TCTDirectoryCachePool.FileExists(Filename: string; FileCase: TCTSearchFileCase): boolean;
var var
Directory: String; Directory: String;
Cache: TCTDirectoryCache; Cache: TCTDirectoryCache;
@ -2708,15 +2714,17 @@ var
begin begin
Filename:=TrimFilename(Filename); Filename:=TrimFilename(Filename);
if Filename='' then exit(false); if Filename='' then exit(false);
if FilenameIsAbsolute(Filename) then begin ShortFilename:=ExtractFilename(Filename);
ShortFilename:=ExtractFilename(Filename); if (ShortFilename<>'') and (ShortFilename<>'.') and (ShortFilename<>'..') then
if (ShortFilename<>'') and (ShortFilename<>'.') and (ShortFilename<>'..') begin
then begin if FilenameIsAbsolute(Filename) then begin
Directory:=ExtractFilePath(Filename); Directory:=ExtractFilePath(Filename);
Cache:=GetCache(Directory,true,false); Cache:=GetCache(Directory,true,false);
Result:=Cache.FindFile(ShortFilename,ctsfcDefault)<>''; Result:=Cache.FindFile(ShortFilename,FileCase)<>'';
exit; end else begin
Result:=FindVirtualFile(Filename)<>'';
end; end;
exit;
end; end;
// fallback // fallback
Result:=FileStateCache.FileExistsCached(Filename); Result:=FileStateCache.FileExistsCached(Filename);