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

(* рТПЗТБННБ lookout УППВЭБЕФ ПВ ЙЪНЕОЕОЙЙ ЖБКМБ *)

uses linux,stdio;

const
MFILE=10;

var
sb:tstat;
j:integer;
last_time:array [1..MFILE] of longint;

procedure sleep(t:longint);cdecl;external 'c';

procedure cmp(name:string;last:longint);
begin
(*
* рТПЧЕТСФШ ЧТЕНС ЙЪНЕОЕОЙС ЖБКМБ,
* ЕУМЙ НПЦОП УЮЙФБФШ ДБООЩЕ П ЖБКМЕ.
*)
if not fstat(name,sb) or (sb.mtime <> last) then
begin
writeln('lookout: ЖБКМ ',name,' ЙЪНЕОЙМУС');
halt(0);
end;
end;


begin
if (paramcount < 1) then
begin
writeln('рТЙНЕОЕОЙЕ: lookout ЙНС_ЖБКМБ ...');
halt(1);
end;
if (paramcount > MFILE) then
begin
writeln('lookout: УМЙЫЛПН НОПЗП ЙНЕО ЖБКМПЧ');
halt (1);
end;
(* йОЙГЙБМЙЪБГЙС *)
for j:=1 to paramcount do
begin
if not fstat(paramstr(j), sb) then
begin
writeln ('lookout: ПЫЙВЛБ ЧЩЪПЧБ stat ДМС ', paramstr(j));
halt(1);
end;
last_time[j]:=sb.mtime;
end;
(* рПЧФПТСФШ ДП ФЕИ РПТ, РПЛБ ЖБКМ ОЕ ЙЪНЕОЙФУС *)
while true do
begin
for j:=1 to paramcount do
cmp(paramstr(j), last_time[j]);
(*
* пУФБОПЧЙФШУС ОБ 60 УЕЛХОД.
* жХОЛГЙС 'sleep' УФБОДБТФОБС
* ВЙВМЙПФЕЮОБС РТПГЕДХТБ UNIX.
*)
sleep (60);
end;
end.