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

Первый параметр pid определяет процесс


uses linux;
Function Kill(Pid:Longint; Sig:Integer):Integer;
Первый параметр pid определяет процесс или процессы, которым посылается сигнал sig. Обычно pid является положительным числом, и в этом случае он рассматривается как идентификатор процесса. Поэтому следующий оператор
kill(7421, SIGTERM);
означает «послать сигнал SIGTERM процессу с идентификатором 7421». Так как процесс, посылающий сигнал kill, должен знать идентификатор процесса, которому предназначен сигнал, то вызов kill чаще всего используется для обмена между тесно связанными процессами, например, родительским и дочерним. Заметим, что процесс может послать сигнал самому себе.
Существуют некоторые ограничения, связанные с правами доступа. Чтобы можно было послать сигнал процессу, действующий или истинный идентификатор пользователя посылающего процесса должен совпадать с действующим или истинным идентификатором пользователя процесса, которому сигнал адресован. Процессы суперпользователя, как обычно, могут посылать сигналы любым другим процессам. Если непривилегированный пользователь пытается послать сигнал процессу, который принадлежит другому пользователю, то вызов kill завершится неудачей, вернет значение –1 и поместит в переменную
linuxerror значение EPERM. (Другие возможные значения ошибок в переменной linuxerror после неудачного вызова kill – это значение Sys_ESRCH, указывающее, что процесс с заданным идентификатором не существует, и Sys_EINVAL, если sig содержит некорректный номер сигнала.)
Параметр pid вызова kill может также принимать определенные значения, которые имеют особый смысл:
–        если параметр pid равен нулю, то сигнал будет послан всем процессам, принадлежащим к той же группе, что и процесс, пославший сигнал, в том числе и самому процессу;
–        если параметр pid равен –1, и действующий идентификатор пользователя является идентификатором суперпользователя, то сигнал посылается всем процессам, истинный идентификатор пользователя которых равен действующему идентификатору пользователя, пославшего сигнал процесса, снова включая и сам процесс, пославший сигнал;


–        если параметр pid равен –1 и действующий идентификатор пользовать является идентификатором суперпользователя, то сигнал посылается всем процессам, кроме определенных системных процессов (последнее исключение относится ко всем попыткам послать сигнал группе процессов, но наиболее важно это в данном случае);
–        и, наконец, если параметр pid меньше нуля, но не равен –1, то сигнал посылается всем процессам, идентификатор группы которых равен модулю pid, включая пославший сигнал процесс, если для него также выполняется это условие.


Следующий пример – программа synchro создает два процесса, которые будут поочередно печатать сообщения на стандартный вывод. Они синхронизирут свою работу, посылая друг другу сигнал SIGUSR1 при помощи вызова kill.
 (* Программа synchro -- пример использования вызова kill *)
uses linux,stdio;
const
  ntimes:integer=0;
procedure p_action(sig:integer);cdecl;
begin
  inc(ntimes);
  writeln ('Родительский процесс получил сигнал ', ntimes, ' раз(а)');
end;
procedure c_action(sig:integer);cdecl;
begin
  inc(ntimes);
  writeln ('Дочерний процесс получил сигнал ', ntimes, ' раз(а)');
end;
var
  pid, ppid:longint;
  pact, cact:sigactionrec;
begin
  (* Задать обработчик сигнала SIGUSR1 в родительском процессе *)
  pact.handler.sh := @p_action;
  sigaction (SIGUSR1, @pact, nil);
  pid := fork;
  case pid of
    -1:               (* ошибка *)
    begin
      perror ('synchro');
      halt(1);
    end;
    0:                (* дочерний процесс *)
    begin
      (* Задать обработчик в дочернем процессе *)
      cact.handler.sh := @c_action;
      sigaction (SIGUSR1, @cact, nil);
      (* Получить идентификатор родительского процесса *)
      ppid := getppid;
      while true do
      begin
        sleep (1);
        kill (ppid, SIGUSR1);
        pause;
      end;
      (* Бесконечный цикл *)


    end;
    else              (* родительский процесс *)
      while true do
      begin
        pause;
        sleep (1);
        kill (pid, SIGUSR1);
      end;
      (* Бесконечный цикл *)
  end;
end.
Оба процесса выполняют бесконечный цикл, приостанавливая работу до получения сигнала от другого процесса. Они используют для этого системный вызов pause, который просто приостанавливает работу до получения сигнала (см. раздел 6.4.3). Затем каждый из процессов выводит сообщение и, в свою очередь, посылает сигнал при помощи вызова kill. Дочерний процесс начинает вывод сообщений (обратите внимание на порядок операторов в каждом цикле). Оба процесса завершают работу, когда пользователь нажимает на клавишу прерывания. Диалог с программой может выглядеть примерно так:
$ synchro
Родительский процесс получил сигнал #1
Дочерний процесс получил сигнал #1
Родительский процесс получил сигнал #2
Дочерний процесс получил сигнал #2
< прерывание >    (пользователь нажал на клавишу прерывания)
$

Содержание раздела