Системное программирование в UNIX средствами Free Pascal



Описание


uses linux;

Function FNMatch(const Pattern, Name:string):Boolean;

Function FSearch(Path:pathstr; DirList:string):Pathstr;

Function Glob(Const Path:Pathstr):PGlob;

Procedure GlobFree(Var P:Pglob);

FNMatch возвращает True, если имя файла в Name совпадает с шаблоном в Pattern. Шаблон может содержать знаки *

(совпадение с нулем или более символов) или ?

(совпадение с одиночными символом).

FSearch ищет в DirList, списке каталогов, разделенных двоеточием, файл, указанный в Path, возвращаю путь к найденному файлу или пустую строку.

Glob возвращает указатель на структуру tglob, содержащую имена всех файлов, отвечающих шаблону в Path. Возвращает nil при ошибке, устанавливая LinuxError.

GlobFree освобождает память, занятую структурой tglob.

Например:

Uses linux;

Var G1,G2 : PGlob;

begin

  G1:=Glob ('*');

  if LinuxError=0 then

    begin

    G2:=G1;

    Writeln ('Files in this directory : ');

    While g2<>Nil do

      begin

      Writeln (g2^.name);

      g2:=g2^.next;

      end;

    GlobFree (g1);

    end;

end.




Содержание  Назад  Вперед