3
{ Program to demonstrate the FStat function. }
13
assign (f,'test.fil');
15
for i:=1 to 10 do writeln (f,'Testline # ',i);
17
{ Do the call on made file. }
18
if fpstat ('test.fil',info)<>0 then
20
writeln('Fstat failed. Errno : ',fpgeterrno);
24
writeln ('Result of fstat on file ''test.fil''.');
25
writeln ('Inode : ',info.st_ino);
26
writeln ('Mode : ',info.st_mode);
27
writeln ('nlink : ',info.st_nlink);
28
writeln ('uid : ',info.st_uid);
29
writeln ('gid : ',info.st_gid);
30
writeln ('rdev : ',info.st_rdev);
31
writeln ('Size : ',info.st_size);
32
writeln ('Blksize : ',info.st_blksize);
33
writeln ('Blocks : ',info.st_blocks);
34
writeln ('atime : ',info.st_atime);
35
writeln ('mtime : ',info.st_mtime);
36
writeln ('ctime : ',info.st_ctime);
b'\\ No newline at end of file'