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