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

(* вМПЛЙТПЧЛБ УЙЗОБМПЧ -- ДЕНПОУФТЙТХЕФ ЧЩЪПЧ sigprocmask *)
uses linux,stdio;

var
set1, set2:sigset_t;

begin
(* уПЪДБФШ РПМОЩК ОБВПТ УЙЗОБМПЧ *)
sigfillset (@set1);

(* уПЪДБФШ ОБВПТ УЙЗОБМПЧ, ОЕ ЧЛМАЮБАЭЙК
* УЙЗОБМЩ SIGINT Й SIGQUIT
*)
sigfillset (@set2);
sigdelset (@set2, SIGINT);
sigdelset (@set2, SIGQUIT);
(* оЕЛТЙФЙЮЕУЛЙК ХЮБУФПЛ ЛПДБ ... *)
(* хУФБОПЧЙФШ ВМПЛЙТПЧЛХ ЧУЕИ УЙЗОБМПЧ *)
sigprocmask (SIG_SETMASK, @set1, nil);
(* вПМЕЕ ЛТЙФЙЮЕУЛЙК ХЮБУФПЛ ЛПДБ ... *)
(* вМПЛЙТПЧЛБ НЕОШЫЕЗП ЮЙУМБ УЙЗОБМПЧ. *)
sigprocmask (SIG_UNBLOCK, @set2, nil);
(* нЕОЕЕ ЛТЙФЙЮЕУЛЙК ХЮБУФПЛ ЛПДБ ... *)
(* пФНЕОЙФШ ВМПЛЙТПЧЛХ ДМС ЧУЕИ УЙЗОБМПЧ *)
sigprocmask (SIG_UNBLOCK, @set1, nil);
end.