Topspeed_JPI/TS/INCLUDE/CSIGNAL.DEF

(* Release 3.10 *)
(*-------------------------------------------------------------------------*
*                                                                          *
*  CSIGNAL.DEF - Modula-2 interface to SIGNAL.H                            *
*                                                                          *
*  COPYRIGHT (C) 1989..1992 Clarion Software Corporation.                  *
*  All Rights Reserved                                                     *
*                                                                          *
*--------------------------------------------------------------------------*)

(*# project("#set tsc='on'") *)
(*# call(o_a_size=>off, o_a_copy=>off, c_conv=>on, result_optional=>on) *)
(*# module(implementation=>off, init_code=>off) *)
(*# name(prefix=>c) *)


DEFINITION MODULE csignal;

CONST
    NSIG    = 23;  (* maximum signal number + 1 *)
    SIGINT  = 2;   (* interrupt - corresponds to DOS 3.x int 23H *)
    SIGILL  = 4;   (* illegal opcode *)
    SIGFPE  = 8;   (* floating point error *)
    SIGSEGV = 11;  (* segment violation *)
    SIGTERM = 15;  (* software termination signal from kill *)
    SIGUSR1 = 16;  (* user defined signal 1 *)
    SIGUSR2 = 17;  (* user defined signal 2 *)
    SIGUSR3 = 20;  (* user defined signal 3 *)
    SIGABRT = 22;  (* abnormal termination triggered by abort call *)

TYPE
  SigProc = PROCEDURE(INTEGER);
CONST
  SIG_DFL =  0;
  SIG_IGN =  1;
  SIG_SGE =  3;
  SIG_ACK =  4;
  SIG_ERR = -1;

PROCEDURE signal(SigNo: INTEGER; P: SigProc): SigProc;
PROCEDURE raise(_sig: INTEGER);

END csignal.