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



         

Программа etest


(* Программа etest - ввод имен объектов в очередь. *)

{$mode objfpc}

uses ipc,linux,stdio,sysutils;

{$i q.inc}

var

  priority:longint;

begin

  if paramcount <> 2 then

  begin

    writeln(stderr, 'Применение: ',paramstr(0),' имя приоритет');

    halt (1);

  end;

  try

    priority:=strtoint(paramstr(2));

  except

    on e:econverterror do

    begin

      warn ('Нечисловой приоритет');

      halt (2);

    end;

  end;

  if (priority <= 0) or (priority > MAXPRIOR) then

  begin

    warn ('Недопустимый приоритет');

    halt (2);

  end;

  if not enter (paramstr(1), priority) then

  begin

    warn ('Ошибка в процедуре enter');

    halt (3);

  end;

  halt (0);

end.




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