mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-05-02 16:34:54 +02:00
33 lines
814 B
ObjectPascal
33 lines
814 B
ObjectPascal
program Example30;
|
|
|
|
{ Program to demonstrate the FSStat function. }
|
|
|
|
uses linux;
|
|
|
|
var s : string;
|
|
info : statfs;
|
|
|
|
begin
|
|
writeln ('Info about current partition : ');
|
|
s:='.';
|
|
while s<>'q' do
|
|
begin
|
|
if not fsstat (s,info) then
|
|
begin
|
|
writeln('Fstat failed. Errno : ',linuxerror);
|
|
halt (1);
|
|
end;
|
|
writeln;
|
|
writeln ('Result of fsstat on file ''',s,'''.');
|
|
writeln ('fstype : ',info.fstype);
|
|
writeln ('bsize : ',info.bsize);
|
|
writeln ('bfree : ',info.bfree);
|
|
writeln ('bavail : ',info.bavail);
|
|
writeln ('files : ',info.files);
|
|
writeln ('ffree : ',info.ffree);
|
|
writeln ('fsid : ',info.fsid);
|
|
writeln ('Namelen : ',info.namelen);
|
|
write ('Type name of file to do fsstat. (q quits) :');
|
|
readln (s)
|
|
end;
|
|
end. |