INTERFACE Csignal;

FROM Ctypes IMPORT int;

TYPE
  Handler = PROCEDURE (s: int);

<*EXTERNAL Csignal__signal*>
PROCEDURE signal (sig: int; func: Handler): Handler;

END Csignal.