unix/src/irix-5.2/Usignal.m3


Copyright (C) 1994, Digital Equipment Corp.

UNSAFE MODULE Usignal;

IMPORT Word, Ctypes;

PROCEDURE sigmask (n: Ctypes.int): Ctypes.int =
BEGIN
  RETURN Word.Shift (1, n-1);
END sigmask;

BEGIN
  SIG_ERR := LOOPHOLE (-1, SignalHandler);
  SIG_DFL := LOOPHOLE ( 0, SignalHandler);
  SIG_IGN := LOOPHOLE ( 1, SignalHandler);
  SIG_HOLD := LOOPHOLE ( 2, SignalHandler);
END Usignal.

interface Usignal is in: