Copyright (C) 1994, Digital Equipment Corp. INTERFACE** <signal.h> **Usignal ; FROM Ctypes IMPORT int;
CONST SIGHUP = 1; (* hangup *) SIGINT = 2; (* interrupt *) SIGQUIT = 3; (* quit *) SIGILL = 4; (* illegal instruction (not reset when caught) *) SIGTRAP = 5; (* trace trap (not reset when caught) *) SIGIOT = 6; (* IOT instruction *) SIGEMT = 7; (* EMT instruction *) SIGFPE = 8; (* floating point exception *) FPE_INTDIV_TRAP = 20; (* integer divide by zero *) FPE_INTOVF_TRAP = 21; (* integer overflow *) FPE_FLTOPERR_TRAP = 1; (* [floating operand error] *) FPE_FLTDEN_TRAP = 2; (* [floating denormalized operand] *) FPE_FLTDIV_TRAP = 3; (* [floating divide by zero] *) FPE_FLTOVF_TRAP = 4; (* [floating overflow] *) FPE_FLTUND_TRAP = 5; (* [floating underflow] *) FPE_FLTINEX_TRAP = 6; (* [floating inexact result] *) FPE_UUOP_TRAP = 7; (* [floating undefined opcode] *) FPE_DATACH_TRAP = 8; (* [floating data chain exception] *) FPE_FLTSTK_TRAP = 16; (* [floating stack fault] *) FPE_FPA_ENABLE = 17; (* [FPA not enabled] *) FPE_FPA_ERROR = 18; (* [FPA arithmetic exception] *) SIGKILL = 9; (* kill (cannot be caught or ignored) *) SIGBUS = 10; (* bus error *) BUS_HWERR = 1; (* misc hardware error (e.g. timeout) *) BUS_ALIGN = 2; (* hardware alignment error *) SIGSEGV = 11; (* segmentation violation *) SEGV_NOMAP = 3; (* no mapping at the fault address *) SEGV_PROT = 4; (* access exceeded protections *) SEGV_OBJERR = 5; (* object returned errno value *) SIGSYS = 12; (* bad argument to system call *) SIGPIPE = 13; (* write on a pipe with no one to read it *) SIGALRM = 14; (* alarm clock *) SIGTERM = 15; (* software termination signal from kill *) SIGURG = 16; (* urgent condition on IO channel *) SIGSTOP = 17; (* sendable stop signal not from tty *) SIGTSTP = 18; (* stop signal from tty *) SIGCONT = 19; (* continue a stopped process *) SIGCHLD = 20; (* to parent on child stop or exit *) SIGTTIN = 21; (* to readers pgrp upon background tty read *) SIGTTOU = 22; (* like TTIN for output if (tp->t_local<OSTOP) *) SIGIO = 23; (* input/output possible signal *) SIGXCPU = 24; (* exceeded CPU time limit *) SIGXFSZ = 25; (* exceeded file size limit *) SIGVTALRM = 26; (* virtual time alarm *) SIGPROF = 27; (* profiling time alarm *) SIGWINCH = 28; (* window size changes *) SIGLOST = 29; (* Sys-V rec lock: notify user upon server crash *) SIGUSR1 = 30; (* User signal 1 (from SysV) *) SIGUSR2 = 31; (* User signal 2 (from SysV) *) (* System V definitions *) SIGCLD = SIGCHLD; SIGABRT = SIGIOT;Signal vector
template
used in sigvec call.
TYPE SignalHandler = PROCEDURE (sig, code: int; scp: UNTRACED REF struct_sigcontext); sigset_t = int; struct_sigvec = RECORD sv_handler: SignalHandler; (* signal handler *) sv_mask: sigset_t; (* signal mask to apply *) sv_flags: int; (* see signal options below *) END; CONST empty_sigset_t : sigset_t = 0; empty_sv_mask : sigset_t = 0; CONST SV_ONSTACK = 16_0001; (* take signal on signal stack *) SV_INTERRUPT = 16_0002; (* do not restart system on signal return *) SA_NOCLDSTOP = 16_0004; (* Don't generate SIGCLD when children stop *) SV_OLDSIG = 16_1000; (* Emulate old signal() for POSIX *) (* Defines for sigprocmask() call. POSIX. *) SIG_BLOCK = 1; (* Add these signals to block mask *) SIG_UNBLOCK = 2; (* Remove these signals from block mask *) SIG_SETMASK = 3; (* Set block mask to this mask *) TYPE struct_sigstack = RECORD ss_sp: ADDRESS; (* signal stack pointer *) ss_onstack: int; (* current status *) END;
* Information pushed on stack when a signal is delivered. * This is used by the kernel to restore state following * execution of the signal handler. It is also made available * to the handler to allow it to properly restore state if * a non-standard exit is performed. * * WARNING: THE sigcontext MUST BE KEPT CONSISTENT WITH /usr/include/setjmp.h * AND THE LIBC ROUTINES setjmp() AND longjmp() *
TYPE struct_sigcontext = RECORD (*----------------------------------------------------------------------- * BEGIN REGION THAT MUST CORRESPOND WITH setjmp.h * BEGIN REGION THAT MUST CORRESPOND WITH A jmp_buf *) sc_onstack: int; (* sigstack state to restore *) sc_mask: int; (* signal mask to restore *) sc_sp: int; (* sp to restore *) sc_pc: int; (* pc at time of signal *) sc_ps: int; sc_eax: int; sc_edx: int; sc_edi: int; (* this is from /usr/include/setjmp.h *) (* * END OF REGION THAT MUST AGREE WITH setjmp.h * END OF jmp_buf REGION -----------------------------------------------------------------------*) END;Do not modifiy these variables read-only
VAR BADSIG, SIG_ERR, SIG_DFL, SIG_IGN, SIG_HOLD: SignalHandler;Convert a signal number to a mask suitable for sigblock().
<*INLINE*> PROCEDURE sigmask (n: int): int;** kill(2) - send signal to a process **
<*EXTERNAL*> PROCEDURE kill (pid, sig: int): int;** killpg(2) - send signal to a process or process group **
<*EXTERNAL*> PROCEDURE killpg (pgrp, sig: int): int;** sigblock(2) - block signals **
<*EXTERNAL*> PROCEDURE sigblock (mask: int): int;** sigpause(2) - atomically release blocked signals and wait for interrupt **
<*EXTERNAL*> PROCEDURE sigpause (sigmask: int): int;** sigpending(2) - examine pending signals **
<*EXTERNAL*> PROCEDURE sigpending (VAR set: sigset_t): int;** sigsetmask(2) - set current signal mask **
<*EXTERNAL*> PROCEDURE sigsetmask (mask: int): int;** sigstack(2) - set and/or get signal stack context **
<*EXTERNAL*> PROCEDURE sigstack (VAR ss, oss: struct_sigstack): int;** sigvec(2) - software signal facilities **
<*EXTERNAL*> PROCEDURE sigvec (sig: int; VAR vec, ovec: struct_sigvec): int; END Usignal.