UNIX Free Pascal


         

,


else
printf ('%-30s*'#9'0%3o'#$a, [name, status.mode and octal(0777)]);
list:=0;
end;
, . , :
var
path:array [0..255] of char;
begin
if paramcount=0 then
ftw ('.', @list, 1)
else
begin
strpcopy(path,paramstr(1));
ftw (path, @list, 1);
end;
halt(0);
end.
list :
$ list
. * 0755
./list * 0755
./filel 0644
./subdir * 0777
./subdir/another 0644
./subdir/subdir2 * 0755
./subdir/yetanother 0644
.
linux .