[fpc-pascal] fstat usage
    Francisco Reyes 
    lists at stringsutils.com
       
    Sat Dec  6 04:18:30 CET 2008
    
    
  
Trying the fstat function and don't seem to be getting the right values for 
ctime, mtime and atime.
-- filedate.pp
uses BaseUnix,DateUtils,SysUtils;
var
  info : stat ;
begin
  if fpstat ('myfile.txt' , info) <>0 then
    begin
      writeln ('Fstat failed . Errno : ' , fpgeterrno) ;
      halt ( 1 ) ;
    end ;
  writeln ;
  writeln ('atime  : ' , DateTimeToStr(info.st_atime ));
  writeln ('mtime  : ' , DateTimeToStr(info.st_mtime ));
  writeln ('ctime  : ' , DateTimeToStr(info.st_ctime ));
  writeln ('Now STR: ', DateTimeToStr(Now));
  writeln ('Mod diff:' , DaySpan(Now,info.st_mtime));
  writeln ('mtime raw: ', info.st_mtime );
  writeln (' Now  raw: ', Now);
end .
touch mfyle.txt
fpc filedate.pp
./filedate.pp
atime  : 6-9-88<--
mtime  : 6-9-88<--
ctime  : 6-9-88<-- 
Now STR: 5-12-08 22:15:08
Mod diff: 1.22849351907281E+009
mtime raw: 1228533307
 Now  raw:  3.97879271865278E+004
I was expecting atime, mtime and ctime to be very close to 'Now'.
The file date is December 5, 2008 as shown on the OS
ll myfile.txt
-rw-r--r-- 1 fran users 16 2008-12-05 22:15 myfile.txt
Any suggestions on what I am missing would be greatly 
appreciated.
    
    
More information about the fpc-pascal
mailing list