. Файловая система proc - часть 2

  while elem<>nil do              (*пока не достигнут конец каталога*)

  begin

    (*пытаемся преобразовать имя элемента катлога в число*)

    val(strpas(elem^.name),number,coder);

    (*если это удается, катлог имеет числовое имя и соответствует процессу*)

    if coder=0 then

    begin

    (*формируем путь к файлу status в виде /proc/номер_процесса/status *)

      strcopy(fullpath,'/proc/');

      strcat(fullpath,elem^.name);

      strcat(fullpath,'/status');

      (*открываем файл и чтиаем из него первую строку*)

      assign(f,fullpath);

      reset(f);

      readln(f,name);

      close(f);

     (*вырезаем из строки ту ее часть, что соответствует имени процесса*)

      strlcopy(realname,@name[7],length(name));

      realname[length(name)-6]:=#0;

      (*выводим номер и имя процесса*)

      writeln(number,#9,realname);

    end;

    elem:=readdir(d);               (*попытка чтения элемента каталога*)

  end;

  closedir(d);                    (*закрытие открытого opendir каталога*)

end.

Упражнение 13.37. Используя файловую систему /proc, получите информацию об открытых всеми процессами файлах.

uses linux,strings,sysutils; (*для системных вызовов Linux и работы со строками PChar*)

var

  d,d1:^TDir;             (*указатель на запись для работы с каталогом*)

  elem,elem1:^Dirent;      (*указатель на запись, хранящую один элекмент каталога*)

  realname,                       (*имя процесса из файла status*)    

  fullpath,fullpath1              (*полный путь к элементу каталога*)

          :array [0..1000] of char;

  number,coder:integer;   (*номер процесса и код ошибки преобразования*)

  f:text;

  name:string;

begin

  d:=opendir('/proc');       (*попытка открытия каталога для чтения*)

  if d=nil then                   (*если попытка не удалась*)

  begin

    writeln('Ошибка вызова opendir для каталога /proc');  (*диагностика*)

    halt(1);                   (*возврат в предыдущую программу*)

  end;