Topspeed_JPI/TS-V3/INCLUDE/CSIGNAL.LST

Listing:

    1  (* Release 3.10 *)
    2  (*-------------------------------------------------------------------------*
    3  *                                                                          *
    4  *  CSIGNAL.DEF - Modula-2 interface to SIGNAL.H                            *
    5  *                                                                          *
    6  *  COPYRIGHT (C) 1989..1992 Clarion Software Corporation.                  *
    7  *  All Rights Reserved                                                     *
    8  *                                                                          *
    9  *--------------------------------------------------------------------------*)
   10  
   11  (*# project("#set tsc='on'") *)
   12  (*# call(o_a_size=>off, o_a_copy=>off, c_conv=>on, result_optional=>on) *)
   13  (*# module(implementation=>off, init_code=>off) *)
   14  (*# name(prefix=>c) *)
   15  
   16  
   17  DEFINITION MODULE csignal;
   18  
   19  CONST
   20      NSIG    = 23;  (* maximum signal number + 1 *)
   21      SIGINT  = 2;   (* interrupt - corresponds to DOS 3.x int 23H *)
   22      SIGILL  = 4;   (* illegal opcode *)
   23      SIGFPE  = 8;   (* floating point error *)
   24      SIGSEGV = 11;  (* segment violation *)
   25      SIGTERM = 15;  (* software termination signal from kill *)
   26      SIGUSR1 = 16;  (* user defined signal 1 *)
   27      SIGUSR2 = 17;  (* user defined signal 2 *)
   28      SIGUSR3 = 20;  (* user defined signal 3 *)
   29      SIGABRT = 22;  (* abnormal termination triggered by abort call *)
   30  
   31  TYPE
   32    SigProc = PROCEDURE(INTEGER);
*****              ^ not supported yet
*****                        ^ not supported yet
   33  CONST
   34    SIG_DFL =  0;
   35    SIG_IGN =  1;
   36    SIG_SGE =  3;
   37    SIG_ACK =  4;
   38    SIG_ERR = -1;
   39  
   40  PROCEDURE signal(SigNo: INTEGER; P: SigProc): SigProc;
   41  PROCEDURE raise(_sig: INTEGER);
   42  
   43  END csignal.
*****      ^ not supported yet

    3 errors