Полищук, Семериков. Системное программирование в UNIX средствами Free Pascal / examples / 4 / doublels

uses linux,stdio;

function my_double_ls(name:pchar):integer;
var
dp:PDIR;
d:pdirent;
begin
(* пФЛТЩФЙЕ ЛБФБМПЗБ У РТПЧЕТЛПК ПЫЙВПЛ *)
dp:=opendir (name);
if dp=nil then
begin
my_double_ls:=-1;
exit;
end;

(* рТПДПМЦЙФШ ПВИПД ЛБФБМПЗБ,
* ЧЩЧПДС ЪБРЙУЙ Ч ОЕН, ЕУМЙ
* ЙОДЕЛУ ПУФБЕФУС ДПРХУФЙНЩН
*)
d:=readdir(dp);
while d<>nil do
begin
if d^.ino<>0 then
writeln(d^.name);
d:=readdir(dp);
end;

(* чЕТОХФШУС Л ОБЮБМХ ЛБФБМПЗБ ... *)
rewinddir(dp);
(* ... Й УОПЧБ ЧЩЧЕУФЙ ЕЗП УПДЕТЦЙНПЕ *)
d:=readdir(dp);
while d<>nil do
begin
if d^.ino<>0 then
writeln(d^.name);
d:=readdir(dp);
end;
closedir(dp);
my_double_ls:=0;
end;


begin
my_double_ls('.');
end.