mac-rom/Interfaces/AIncludes/Signal.a
Elliot Nunn 0ba83392d4 Bring in CubeE sources
Resource forks are included only for .rsrc files. These are DeRezzed into their data fork. 'ckid' resources, from the Projector VCS, are not included.

The Tools directory, containing mostly junk, is also excluded.
2017-09-20 18:04:16 +08:00

70 lines
1.8 KiB
Plaintext

;
; File: Signal.a
;
; Contains: xxx put contents here xxx
;
; Written by: xxx put writers here xxx
;
; Copyright: © 1991 by Apple Computer, Inc., all rights reserved.
;
; Change History (most recent first):
;
; <3> 1/30/91 gbm sab, #38: Change the Ôalready including this fileÕ variable to
; all uppercase (for security reasons)
;
; To Do:
;
; File Signal.a
;
; Copyright Apple Computer, Inc. 1986, 1990
; All rights reserved.
;
; Include File for Signal processing in the MPW Environment
; Set CASE OBJECT to assure references to the names IMPORTed here link
; properly. The following statements restore the CASE setting to its
; previous value.
IF &TYPE('__INCLUDINGSIGNAL__') = 'UNDEFINED' THEN
__INCLUDINGSIGNAL__ SET 1
PRINT Push,Off ; save the current print settings and turn it off
GBLC &S%%%%,&P%%%%
&S%%%% SETC &Setting('CASE') ; save the current CASE setting
&P%%%% SETC &Setting('PRINT',1) ; and the PRINT settings before we changed them
MACRO
X%%%%
GBLC &S%%%%,&P%%%% ; link references with previously defined variables
PRINT Push,&P%%%% ; restore the previous PRINT settings
CASE &S%%%% ; and restore the CASE setting
PRINT POP ; restore the PRINT settings
ENDM
PRINT Pop ; restore the PRINT settings
CASE OBJECT ; all imported/exported names case significant
SIG_DFL EQU 1
SIG_ERR EQU -1
SIG_IGN EQU 0
SIG_HOLD EQU 3
SIG_RELEASE EQU 5
SIGABRT EQU $0001
SIGINT EQU $0002
SIGFPE EQU $0004
SIGILL EQU $0008
SIGSEGV EQU $0010
SIGTERM EQU $0020
IMPORT signal
IMPORT raise
PRINT Push,Off ; save and turn off PRINT when macro is invoked
X%%%% ; invoke the macro to restore CASE setting
PRINT POP ; restore the PRINT settings
ENDIF ; ...already included