1
2function sysv_signal(__sig:longint; __handler:__sighandler_t):__sighandler_t;cdecl;external clib name 'sysv_signal';
3function signal(__sig:longint; __handler:__sighandler_t):__sighandler_t;cdecl;external clib name 'signal';
4function bsd_signal(__sig:longint; __handler:__sighandler_t):__sighandler_t;cdecl;external clib name 'bsd_signal';
5function kill(__pid:__pid_t; __sig:longint):longint;cdecl;external clib name 'kill';
6function killpg(__pgrp:__pid_t; __sig:longint):longint;cdecl;external clib name 'killpg';
7function __raise(__sig:longint):longint;cdecl;external clib name 'raise';
8function ssignal(__sig:longint; __handler:__sighandler_t):__sighandler_t;cdecl;external clib name 'ssignal';
9function gsignal(__sig:longint):longint;cdecl;external clib name 'gsignal';
10procedure psignal(__sig:longint; __s:Pchar);cdecl;external clib name 'psignal';
11function __sigpause(__sig_or_mask:longint; __is_sig:longint):longint;cdecl;external clib name '__sigpause';
12function sigpause(__mask:longint):longint;cdecl;external clib name 'sigpause';
13function sigblock(__mask:longint):longint;cdecl;external clib name 'sigblock';
14function sigsetmask(__mask:longint):longint;cdecl;external clib name 'sigsetmask';
15function siggetmask:longint;cdecl;external clib name 'siggetmask';
16
17const
18   NSIG = _NSIG;
19
20Type
21   Psighandler_t = ^sighandler_t;
22   sighandler_t = __sighandler_t;
23
24   Psig_t = ^sig_t;
25   sig_t = __sighandler_t;
26
27
28var
29  _sys_siglist : array[0..(_NSIG)-1] of Pchar;cvar;external;
30  sys_siglist : array[0..(_NSIG)-1] of Pchar;cvar;external;
31
32Type
33  P_sigvec = ^_sigvec;
34  _sigvec = record
35    sv_handler : __sighandler_t;
36    sv_mask : longint;
37    sv_flags : longint;
38  end;
39
40
41const
42   SV_ONSTACK = 1 shl 0;
43   SV_INTERRUPT = 1 shl 1;
44   SV_RESETHAND = 1 shl 2;
45
46function sigvec(__sig:longint; __vec:p_sigvec; __ovec:p_sigvec):longint;cdecl;external clib name 'sigvec';
47function sigreturn(__scp:Psigcontext):longint;cdecl;external clib name 'sigreturn';
48function siginterrupt(__sig:longint; __interrupt:longint):longint;cdecl;external clib name 'siginterrupt';
49function sigstack(__ss:Psigstack; __oss:Psigstack):longint;cdecl;external clib name 'sigstack';
50function sigaltstack(__ss:Psigaltstack; __oss:Psigaltstack):longint;cdecl;external clib name 'sigaltstack';
51function sighold(__sig:longint):longint;cdecl;external clib name 'sighold';
52function sigrelse(__sig:longint):longint;cdecl;external clib name 'sigrelse';
53function sigignore(__sig:longint):longint;cdecl;external clib name 'sigignore';
54function sigset(__sig:longint; __disp:__sighandler_t):__sighandler_t;cdecl;external clib name 'sigset';
55function sigaction(__sig: longint; Action: PSigAction; OldAction: PSigAction): Integer; cdecl;external clib name 'sigaction';
56
57function __libc_current_sigrtmin:longint;cdecl;external clib name '__libc_current_sigrtmin';
58function __libc_current_sigrtmax:longint;cdecl;external clib name '__libc_current_sigrtmax';
59
60
61{ ---------------------------------------------------------------------
62    Borland compatibility types
63  ---------------------------------------------------------------------}
64
65Type
66  TSigVec = _sigvec;
67  PSigVec = ^TSigVec;
68
69
70function sigemptyset(var SigSet : TSigSet):longint;cdecl;external clib name 'sigemptyset';
71function sigfillset(var SigSet : TSigSet):longint;cdecl;external clib name 'sigfillset';
72function sigaddset(var SigSet : TSigSet; SigNum : Longint):longint;cdecl;external clib name 'sigaddset';
73function sigdelset(var SigSet : TSigSet; SigNum : Longint):longint;cdecl;external clib name 'sigdelset';
74function sigismember(const SigSet : TSigSet; SigNum : Longint):longint;cdecl;external clib name 'sigismember';
75function sigisemptyset(const SigSet : TSigSet):longint;cdecl;external clib name 'sigisemptyset';
76function sigandset(var SigSet : TSigSet; const Left : TSigSet; const Right : TSigSet):longint;cdecl;external clib name 'sigandset';
77function sigorset(var SigSet : TSigSet; const Left : TSigSet; const Right : TSigSet):longint;cdecl;external clib name 'sigorset';
78function sigprocmask(__how:longint; var SigSet : TSigSet; var oldset: Tsigset):longint;cdecl;external clib name 'sigprocmask';
79function sigsuspend(SigSet : TSigSet):longint;cdecl;external clib name 'sigsuspend';
80function sigaction(__sig:longint; Const act: _sigaction; Var oldact: _sigaction):longint;cdecl;external clib name 'sigaction';
81function sigpending(SigSet : TSigSet):longint;cdecl;external clib name 'sigpending';
82function sigwait(SigSet : TSigSet; Var __sig:longint):longint;cdecl;external clib name 'sigwait';
83function sigwaitinfo(SigSet : TSigSet; var __info: tsiginfo_t):longint;cdecl;external clib name 'sigwaitinfo';
84function sigtimedwait(SigSet : TSigSet; var __info: tsiginfo_t; var __timeout: ttimespec):longint;cdecl;external clib name 'sigtimedwait';
85function sigqueue(__pid:__pid_t; __sig:longint; __val:sigval):longint;cdecl;external clib name 'sigqueue';
86
87function sigvec(__sig:longint; const vec: tsigvec; __ovec:p_sigvec):longint;cdecl;external clib name 'sigvec';
88function sigvec(__sig:longint; const vec: tsigvec; var __ovec: tsigvec):longint;cdecl;external clib name 'sigvec';
89
90
91