mirror of
https://github.com/elliotnunn/mac-rom.git
synced 2024-06-01 07:41:58 +00:00
4325cdcc78
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.
72 lines
1.3 KiB
OpenEdge ABL
72 lines
1.3 KiB
OpenEdge ABL
|
|
{
|
|
Created: Friday, August 2, 1991 at 11:40 PM
|
|
Signal.p
|
|
Pascal Interface to the Macintosh Libraries
|
|
|
|
Signal Handling interface.
|
|
This must be compatible with C's <signal.h>
|
|
|
|
Copyright Apple Computer, Inc. 1986, 1987, 1988, 1991
|
|
All rights reserved
|
|
This file is used in these builds: ROM System
|
|
|
|
|
|
Change History (most recent first):
|
|
|
|
<3> 9/17/91 MH remove last 4 lines of usingInclude stuff. They only do
|
|
something when you include other files.
|
|
<2> 8/8/91 JL Updated Copyright. Standardized Header.
|
|
|
|
To Do:
|
|
}
|
|
|
|
|
|
{$IFC UNDEFINED UsingIncludes}
|
|
{$SETC UsingIncludes := 0}
|
|
{$ENDC}
|
|
|
|
{$IFC NOT UsingIncludes}
|
|
UNIT Signal;
|
|
INTERFACE
|
|
{$ENDC}
|
|
|
|
{$IFC UNDEFINED UsingSignal}
|
|
{$SETC UsingSignal := 1}
|
|
|
|
|
|
TYPE
|
|
SignalMap = INTEGER;
|
|
SignalHandler = ^LONGINT; { Pointer to function }
|
|
|
|
CONST
|
|
SIG_ERR = -1; { Returned by IEsignal on error }
|
|
SIG_IGN = 0;
|
|
SIG_DFL = 1;
|
|
SIG_HOLD = 3;
|
|
SIG_RELEASE = 5;
|
|
|
|
SIGABRT = $0001;
|
|
SIGINT = $0002; { Currently only SIGINT implemented }
|
|
SIGFPE = $0004;
|
|
SIGILL = $0008;
|
|
SIGSEGV = $0010;
|
|
SIGTERM = $0020;
|
|
|
|
{ Signal Handling Functions }
|
|
|
|
FUNCTION
|
|
IEsignal(sigNum: LONGINT; sigHdlr: UNIV SignalHandler):
|
|
SignalHandler; C;
|
|
|
|
FUNCTION
|
|
IEraise(sigNum: LONGINT):
|
|
LONGINT; C;
|
|
|
|
|
|
{$ENDC} { UsingSignal }
|
|
|
|
{$IFC NOT UsingIncludes}
|
|
END.
|
|
{$ENDC}
|