<*EXTERNAL*> INTERFACECONSTUsignal ; FROM Ctypes IMPORT int; FROM Utypes IMPORT pid_t;
<*EXTERNAL "Usignal__SIGINT"*> VAR SIGINT: int; <*EXTERNAL "Usignal__SIGKILL"*> VAR SIGKILL: int; <*EXTERNAL "Usignal__SIGALRM"*> VAR SIGALRM: int; <*EXTERNAL "Usignal__SIGCHLD"*> VAR SIGCHLD: int; <*EXTERNAL "Usignal__SIGHUP"*> VAR SIGHUP: int; <*EXTERNAL "Usignal__SIGTERM"*> VAR SIGTERM: int; TYPE SignalHandler = PROCEDURE (sig: int); SignalActionHandler = PROCEDURE (sig: int; sip: siginfo_t_star; uap: ADDRESS (* Uucontext.ucontext_t_star *) ); siginfo_t_star = ADDRESS; PROCEDURE kill (pid: pid_t; sig: int): int; END Usignal.