paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 10:26:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Fixed Globtosearchrec to use unixtowinage

Browse Source
This commit is contained in:
michael 2004-06-15 07:36:03 +00:00
parent d1264d494a
commit c89660006d
1 changed files with 17 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
rtl/unix/sysutils.pp
View File

@ -123,6 +123,17 @@ begin
FileTruncate:=fpftruncate(Handle,Size)>=0; FileTruncate:=fpftruncate(Handle,Size)>=0;
end; end;
Function UnixToWinAge(UnixAge : time_t): Longint;
Var
Y,M,D,hh,mm,ss : word;
begin
EpochToLocal(UnixAge,y,m,d,hh,mm,ss);
Result:=DateTimeToFileDate(EncodeDate(y,m,d)+EncodeTime(hh,mm,ss,0));
end;
Function FileAge (Const FileName : String): Longint; Function FileAge (Const FileName : String): Longint;
Var Info : Stat; Var Info : Stat;
@ -132,10 +143,7 @@ begin
If fpstat (FileName,Info)<0 then If fpstat (FileName,Info)<0 then
exit(-1) exit(-1)
else else
begin Result:=UnixToWinAge(info.st_mtime);
EpochToLocal(info.st_mtime,y,m,d,hh,mm,ss);
Result:=DateTimeToFileDate(EncodeDate(y,m,d)+EncodeTime(hh,mm,ss,0));
end;
end; end;
@ -208,7 +216,7 @@ begin
Attr:=Info.Attr; Attr:=Info.Attr;
If P^.Name<>Nil then If P^.Name<>Nil then
Name:=strpas(p^.name); Name:=strpas(p^.name);
Time:=Sinfo.st_mtime; Time:=UnixToWinAge(Sinfo.st_mtime);
Size:=Sinfo.st_Size; Size:=Sinfo.st_Size;
end; end;
end; end;
@ -635,7 +643,10 @@ end.
{ {
$Log$ $Log$
Revision 1.41 2004-05-22 14:25:03 michael Revision 1.42 2004-06-15 07:36:03 michael
+ Fixed Globtosearchrec to use unixtowinage
Revision 1.41 2004/05/22 14:25:03 michael
+ Fixed FindFirst/FindNext so it treats the attributes correctly + Fixed FindFirst/FindNext so it treats the attributes correctly
Revision 1.40 2004/04/28 20:48:20 peter Revision 1.40 2004/04/28 20:48:20 peter