paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-06 14:54:42 +01:00
Code Issues Packages Projects Releases Wiki Activity

codetools: added FileDateToDateTimeDef

Browse Source 
git-svn-id: trunk@35085 -
This commit is contained in:
mattias 2012-02-02 15:04:42 +00:00
parent 916b25ac4d
commit f9917204fc
2 changed files with 20 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
components/codetools/directorycacher.pas
View File

@ -103,15 +103,13 @@ type
FileTimeStamp: integer; FileTimeStamp: integer;
end; end;
TCTDirectoryListingTime = longint;
PCTDirectoryListingTime = ^TCTDirectoryListingTime;
TCTDirectoryListingAttr = longint; TCTDirectoryListingAttr = longint;
PCTDirectoryListingAttr = ^TCTDirectoryListingAttr; PCTDirectoryListingAttr = ^TCTDirectoryListingAttr;
TCTDirectoryListingSize = int64; TCTDirectoryListingSize = int64;
PCTDirectoryListingSize = ^TCTDirectoryListingSize; PCTDirectoryListingSize = ^TCTDirectoryListingSize;
TCTDirectoryListingHeader = packed record TCTDirectoryListingHeader = packed record
Time: TCTDirectoryListingTime; Time: TCTFileAgeTime;
Attr: TCTDirectoryListingAttr; Attr: TCTDirectoryListingAttr;
Size: TCTDirectoryListingSize; Size: TCTDirectoryListingSize;
end; end;
@ -131,7 +129,7 @@ type
procedure Clear; procedure Clear;
function CalcMemSize: PtrUInt; function CalcMemSize: PtrUInt;
function GetFilename(Index: integer): PChar; function GetFilename(Index: integer): PChar;
function GetTime(Index: integer): TCTDirectoryListingTime; function GetTime(Index: integer): TCTFileAgeTime;
function GetAttr(Index: integer): TCTDirectoryListingAttr; function GetAttr(Index: integer): TCTDirectoryListingAttr;
function GetSize(Index: integer): TCTDirectoryListingSize; function GetSize(Index: integer): TCTDirectoryListingSize;
end; end;
@ -174,7 +172,7 @@ type
function FindCompiledUnitInUnitSet(const AUnitName: string): string; function FindCompiledUnitInUnitSet(const AUnitName: string): string;
function FindFile(const ShortFilename: string; function FindFile(const ShortFilename: string;
const FileCase: TCTSearchFileCase): string; const FileCase: TCTSearchFileCase): string;
function FileAge(const ShortFilename: string): TCTDirectoryListingTime; function FileAge(const ShortFilename: string): TCTFileAgeTime;
function FileAttr(const ShortFilename: string): TCTDirectoryListingAttr; function FileAttr(const ShortFilename: string): TCTDirectoryListingAttr;
function FileSize(const ShortFilename: string): TCTDirectoryListingSize; function FileSize(const ShortFilename: string): TCTDirectoryListingSize;
function FindUnitSource(const AUnitName: string; AnyCase: boolean): string; function FindUnitSource(const AUnitName: string; AnyCase: boolean): string;
@ -235,7 +233,7 @@ type
procedure IncreaseFileTimeStamp; inline; procedure IncreaseFileTimeStamp; inline;
procedure IncreaseConfigTimeStamp; inline; procedure IncreaseConfigTimeStamp; inline;
function FileExists(Filename: string): boolean; function FileExists(Filename: string): boolean;
function FileAge(Filename: string): TCTDirectoryListingTime; 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;
function FindUnitInUnitLinks(const Directory, AUnitName: string): string; function FindUnitInUnitLinks(const Directory, AUnitName: string): string;
@ -930,7 +928,7 @@ begin
end; end;
function TCTDirectoryCache.FileAge(const ShortFilename: string function TCTDirectoryCache.FileAge(const ShortFilename: string
): TCTDirectoryListingTime; ): TCTFileAgeTime;
var var
i: Integer; i: Integer;
begin begin
@ -1472,7 +1470,7 @@ begin
end; end;
function TCTDirectoryCachePool.FileAge(Filename: string function TCTDirectoryCachePool.FileAge(Filename: string
): TCTDirectoryListingTime; ): TCTFileAgeTime;
var var
Directory: String; Directory: String;
Cache: TCTDirectoryCache; Cache: TCTDirectoryCache;
@ -1779,7 +1777,7 @@ begin
Result:=@Files[Starts[Index]+NameOffset]; Result:=@Files[Starts[Index]+NameOffset];
end; end;
function TCTDirectoryListing.GetTime(Index: integer): TCTDirectoryListingTime; function TCTDirectoryListing.GetTime(Index: integer): TCTFileAgeTime;
procedure RaiseIndexOutOfBounds; procedure RaiseIndexOutOfBounds;
begin begin

13
components/codetools/fileprocs.pas
View File

@ -76,6 +76,8 @@ type
ctsfcLoUpCase, // also search for lower and upper case ctsfcLoUpCase, // also search for lower and upper case
ctsfcAllCase // search case insensitive ctsfcAllCase // search case insensitive
); );
TCTFileAgeTime = longint;
PCTFileAgeTime = ^TCTFileAgeTime;
function CompareFilenames(const Filename1, Filename2: string): integer; inline; function CompareFilenames(const Filename1, Filename2: string): integer; inline;
function CompareFilenamesIgnoreCase(const Filename1, Filename2: string): integer; inline; function CompareFilenamesIgnoreCase(const Filename1, Filename2: string): integer; inline;
@ -130,6 +132,7 @@ function SetCurrentDirUTF8(const NewDir: String): Boolean; inline;
function CreateDirUTF8(const NewDir: String): Boolean; inline; function CreateDirUTF8(const NewDir: String): Boolean; inline;
function RemoveDirUTF8(const Dir: String): Boolean; inline; function RemoveDirUTF8(const Dir: String): Boolean; inline;
function ForceDirectoriesUTF8(const Dir: string): Boolean; inline; function ForceDirectoriesUTF8(const Dir: string): Boolean; inline;
function FileDateToDateTimeDef(aFileDate: TCTFileAgeTime; const Default: TDateTime): TDateTime;
function ClearFile(const Filename: string; RaiseOnError: boolean): boolean; function ClearFile(const Filename: string; RaiseOnError: boolean): boolean;
function GetTempFilename(const Path, Prefix: string): string; function GetTempFilename(const Path, Prefix: string): string;
@ -646,6 +649,16 @@ begin
Result:=LazFileUtils.ForceDirectoriesUTF8(Dir); Result:=LazFileUtils.ForceDirectoriesUTF8(Dir);
end; end;
function FileDateToDateTimeDef(aFileDate: TCTFileAgeTime; const Default: TDateTime
): TDateTime;
begin
try
Result:=FileDateToDateTime(aFileDate);
except
Result:=Default;
end;
end;
{------------------------------------------------------------------------------- {-------------------------------------------------------------------------------
function ClearFile(const Filename: string; RaiseOnError: boolean): boolean; function ClearFile(const Filename: string; RaiseOnError: boolean): boolean;
-------------------------------------------------------------------------------} -------------------------------------------------------------------------------}