mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-21 07:29:26 +02:00
39 lines
1009 B
ObjectPascal
39 lines
1009 B
ObjectPascal
program example28;
|
|
|
|
{ Program to demonstrate the FStat function. }
|
|
|
|
uses BaseUnix;
|
|
|
|
var f : text;
|
|
i : byte;
|
|
info : stat;
|
|
|
|
begin
|
|
{ Make a file }
|
|
assign (f,'test.fil');
|
|
rewrite (f);
|
|
for i:=1 to 10 do writeln (f,'Testline # ',i);
|
|
close (f);
|
|
{ Do the call on made file. }
|
|
if fpstat ('test.fil',info)<>0 then
|
|
begin
|
|
writeln('Fstat failed. Errno : ',fpgeterrno);
|
|
halt (1);
|
|
end;
|
|
writeln;
|
|
writeln ('Result of fstat on file ''test.fil''.');
|
|
writeln ('Inode : ',info.st_ino);
|
|
writeln ('Mode : ',info.st_mode);
|
|
writeln ('nlink : ',info.st_nlink);
|
|
writeln ('uid : ',info.st_uid);
|
|
writeln ('gid : ',info.st_gid);
|
|
writeln ('rdev : ',info.st_rdev);
|
|
writeln ('Size : ',info.st_size);
|
|
writeln ('Blksize : ',info.st_blksize);
|
|
writeln ('Blocks : ',info.st_blocks);
|
|
writeln ('atime : ',info.st_atime);
|
|
writeln ('mtime : ',info.st_mtime);
|
|
writeln ('ctime : ',info.st_ctime);
|
|
{ Remove file }
|
|
erase (f);
|
|
end. |