3
{ Program to demonstrate the FSStat function. }
5
uses BaseUnix,Unix,UnixType;
12
writeln ('Info about current partition : ');
16
Fd:=fpOpen(S,O_RDOnly);
19
if fstatfs (fd,info)<>0 then
21
writeln('Fstat failed. Errno : ',fpgeterrno);
26
writeln ('Result of fsstat on file ''',s,'''.');
27
writeln ('fstype : ',info.fstype);
28
writeln ('bsize : ',info.bsize);
29
writeln ('bfree : ',info.bfree);
30
writeln ('bavail : ',info.bavail);
31
writeln ('files : ',info.files);
32
writeln ('ffree : ',info.ffree);
34
writeln ('fsid : ',info.fsid[0]);
36
writeln ('fsid : ',info.fsid[0]);
37
writeln ('Namelen : ',info.namelen);
39
write ('Type name of file to do fsstat. (q quits) :');
b'\\ No newline at end of file'