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 not fstat ('test.fil',info) then
20
writeln('Fstat failed. Errno : ',linuxerror);
24
writeln ('Result of fstat on file ''test.fil''.');
25
writeln ('Inode : ',info.ino);
26
writeln ('Mode : ',info.mode);
27
writeln ('nlink : ',info.nlink);
28
writeln ('uid : ',info.uid);
29
writeln ('gid : ',info.gid);
30
writeln ('rdev : ',info.rdev);
31
writeln ('Size : ',info.size);
32
writeln ('Blksize : ',info.blksze);
33
writeln ('Blocks : ',info.blocks);
34
writeln ('atime : ',info.atime);
35
writeln ('mtime : ',info.mtime);
36
writeln ('ctime : ',info.ctime);
b'\\ No newline at end of file'