mirror of
https://github.com/elliotnunn/sys7.1-doc-wip.git
synced 2024-12-12 20:29:12 +00:00
70 lines
1.8 KiB
Plaintext
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
|