INTERFACE Csignal; FROM Ctypes IMPORT int; TYPE Handler = PROCEDURE (s: int); <*EXTERNAL*> PROCEDURE signal (sig: int; func: Handler): Handler; END Csignal.