Добавил:
Mendeleev
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:
(* рТПЗТБННБ runls2 -- ЙУРПМШЪХЕФ ЧЩЪПЧ execv ДМС ЪБРХУЛБ ls *)
uses linux,stdio;
const
av: array [0..2] of pchar=('ls', '-l', nil);
begin
execv ('/bin/ls', av);
(* еУМЙ НЩ ПЛБЪБМЙУШ ЪДЕУШ, ФП РТПЙЪПЫМБ ПЫЙВЛБ *)
perror ('execv failed');
halt(1);
end.
uses linux,stdio;
const
av: array [0..2] of pchar=('ls', '-l', nil);
begin
execv ('/bin/ls', av);
(* еУМЙ НЩ ПЛБЪБМЙУШ ЪДЕУШ, ФП РТПЙЪПЫМБ ПЫЙВЛБ *)
perror ('execv failed');
halt(1);
end.
Соседние файлы в папке 5