mirror of
https://github.com/elliotnunn/sys7.1-doc-wip.git
synced 2024-05-31 13:41:30 +00:00
63 lines
1.4 KiB
OpenEdge ABL
63 lines
1.4 KiB
OpenEdge ABL
|
|
{
|
|
Created: Saturday, July 27, 1991 at 11:41 PM
|
|
ShutDown.p
|
|
Pascal Interface to the Macintosh Libraries
|
|
|
|
Copyright Apple Computer, Inc. 1987-1991
|
|
All rights reserved
|
|
This file is used in these builds: Mac32 BigBang Sys606
|
|
|
|
Change History (most recent first):
|
|
|
|
<3> 7/31/91 JL Updated Copyright.
|
|
<2> 1/27/91 LN Checked in Database generate file from DSG.
|
|
|
|
To Do:
|
|
}
|
|
|
|
|
|
{$IFC UNDEFINED UsingIncludes}
|
|
{$SETC UsingIncludes := 0}
|
|
{$ENDC}
|
|
|
|
{$IFC NOT UsingIncludes}
|
|
UNIT ShutDown;
|
|
INTERFACE
|
|
{$ENDC}
|
|
|
|
{$IFC UNDEFINED UsingShutDown}
|
|
{$SETC UsingShutDown := 1}
|
|
|
|
{$I+}
|
|
{$SETC ShutDownIncludes := UsingIncludes}
|
|
{$SETC UsingIncludes := 1}
|
|
{$IFC UNDEFINED UsingTypes}
|
|
{$I $$Shell(PInterfaces)Types.p}
|
|
{$ENDC}
|
|
{$SETC UsingIncludes := ShutDownIncludes}
|
|
|
|
CONST
|
|
sdOnPowerOff = 1; {call procedure before power off.}
|
|
sdOnRestart = 2; {call procedure before restart.}
|
|
sdOnUnmount = 4; {call procedure before unmounting.}
|
|
sdOnDrivers = 8; {call procedure before closing drivers.}
|
|
sdRestartOrPower = 3; {call before either power off or restart.}
|
|
|
|
PROCEDURE ShutDwnPower;
|
|
INLINE $3F3C,$0001,$A895;
|
|
PROCEDURE ShutDwnStart;
|
|
INLINE $3F3C,$0002,$A895;
|
|
PROCEDURE ShutDwnInstall(shutDownProc: ProcPtr;flags: INTEGER);
|
|
INLINE $3F3C,$0003,$A895;
|
|
PROCEDURE ShutDwnRemove(shutDownProc: ProcPtr);
|
|
INLINE $3F3C,$0004,$A895;
|
|
|
|
|
|
{$ENDC} { UsingShutDown }
|
|
|
|
{$IFC NOT UsingIncludes}
|
|
END.
|
|
{$ENDC}
|
|
|