mirror of
https://github.com/elliotnunn/BuildCubeE.git
synced 2026-01-23 04:16:18 +00:00
62 lines
1.0 KiB
OpenEdge ABL
62 lines
1.0 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
|
|
}
|
|
|
|
|
|
{$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}
|