paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 20:39:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

lazutils: defaults for filecache

Browse Source 
git-svn-id: trunk@34351 -
This commit is contained in:
mattias 2011-12-21 13:57:43 +00:00
parent 1933e0f5ff
commit 4f552aff1b
1 changed files with 30 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
components/lazutils/lazfilecache.pas
View File

@ -130,46 +130,68 @@ function FileExistsCached(const AFilename: string): boolean;
begin begin
if OnFileExistsCached<>nil then if OnFileExistsCached<>nil then
Result:=OnFileExistsCached(AFilename) Result:=OnFileExistsCached(AFilename)
else if FileStateCache<>nil then
Result:=FileStateCache.FileExistsCached(AFilename)
else else
Result:=FileStateCache.FileExistsCached(AFilename); Result:=FileExistsUTF8(AFilename);
end; end;
function DirPathExistsCached(const AFilename: string): boolean; function DirPathExistsCached(const AFilename: string): boolean;
begin begin
Result:=FileStateCache.DirPathExistsCached(AFilename); if FileStateCache<>nil then
Result:=FileStateCache.DirPathExistsCached(AFilename)
else
Result:=DirPathExists(AFilename);
end; end;
function DirectoryIsWritableCached(const ADirectoryName: string): boolean; function DirectoryIsWritableCached(const ADirectoryName: string): boolean;
begin begin
Result:=FileStateCache.DirectoryIsWritableCached(ADirectoryName); if FileStateCache<>nil then
Result:=FileStateCache.DirectoryIsWritableCached(ADirectoryName)
else
Result:=DirectoryIsWritable(ADirectoryName);
end; end;
function FileIsExecutableCached(const AFilename: string): boolean; function FileIsExecutableCached(const AFilename: string): boolean;
begin begin
Result:=FileStateCache.FileIsExecutableCached(AFilename); if FileStateCache<>nil then
Result:=FileStateCache.FileIsExecutableCached(AFilename)
else
Result:=FileIsExecutable(AFilename);
end; end;
function FileIsReadableCached(const AFilename: string): boolean; function FileIsReadableCached(const AFilename: string): boolean;
begin begin
Result:=FileStateCache.FileIsReadableCached(AFilename); if FileStateCache<>nil then
Result:=FileStateCache.FileIsReadableCached(AFilename)
else
Result:=FileIsReadable(AFilename);
end; end;
function FileIsWritableCached(const AFilename: string): boolean; function FileIsWritableCached(const AFilename: string): boolean;
begin begin
Result:=FileStateCache.FileIsWritableCached(AFilename); if FileStateCache<>nil then
Result:=FileStateCache.FileIsWritableCached(AFilename)
else
Result:=FileIsWritable(AFilename);
end; end;
function FileIsTextCached(const AFilename: string): boolean; function FileIsTextCached(const AFilename: string): boolean;
begin begin
Result:=FileStateCache.FileIsTextCached(AFilename); if FileStateCache<>nil then
Result:=FileStateCache.FileIsTextCached(AFilename)
else
Result:=FileIsText(AFilename);
end; end;
function FileAgeCached(const AFileName: string): Longint; function FileAgeCached(const AFileName: string): Longint;
begin begin
if OnFileAgeCached<>nil then if OnFileAgeCached<>nil then
Result:=OnFileAgeCached(AFilename) Result:=OnFileAgeCached(AFilename)
else if FileStateCache<>nil then
Result:=FileStateCache.FileAgeCached(AFilename)
else else
Result:=FileStateCache.FileAgeCached(AFilename); Result:=FileAgeUTF8(AFileName);
end; end;
procedure InvalidateFileStateCache(const Filename: string); procedure InvalidateFileStateCache(const Filename: string);