mirror of
https://github.com/elliotnunn/supermario.git
synced 2024-11-29 05:49:19 +00:00
70 lines
1.4 KiB
OpenEdge ABL
70 lines
1.4 KiB
OpenEdge ABL
|
|
{
|
|
Created: Saturday, July 27, 1991 at 11:39 PM
|
|
SegLoad.p
|
|
Pascal Interface to the Macintosh Libraries
|
|
|
|
Copyright Apple Computer, Inc. 1985-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 SegLoad;
|
|
INTERFACE
|
|
{$ENDC}
|
|
|
|
{$IFC UNDEFINED UsingSegLoad}
|
|
{$SETC UsingSegLoad := 1}
|
|
|
|
{$I+}
|
|
{$SETC SegLoadIncludes := UsingIncludes}
|
|
{$SETC UsingIncludes := 1}
|
|
{$IFC UNDEFINED UsingTypes}
|
|
{$I $$Shell(PInterfaces)Types.p}
|
|
{$ENDC}
|
|
{$SETC UsingIncludes := SegLoadIncludes}
|
|
|
|
CONST
|
|
appOpen = 0; {Open the Document (s)}
|
|
appPrint = 1; {Print the Document (s)}
|
|
|
|
TYPE
|
|
AppFile = RECORD
|
|
vRefNum: INTEGER;
|
|
fType: OSType;
|
|
versNum: INTEGER; {versNum in high byte}
|
|
fName: Str255;
|
|
END;
|
|
|
|
|
|
PROCEDURE UnloadSeg(routineAddr: Ptr);
|
|
INLINE $A9F1;
|
|
PROCEDURE ExitToShell;
|
|
INLINE $A9F4;
|
|
PROCEDURE GetAppParms(VAR apName: Str255;VAR apRefNum: INTEGER;VAR apParam: Handle);
|
|
INLINE $A9F5;
|
|
PROCEDURE CountAppFiles(VAR message: INTEGER;VAR count: INTEGER);
|
|
PROCEDURE GetAppFiles(index: INTEGER;VAR theFile: AppFile);
|
|
PROCEDURE ClrAppFiles(index: INTEGER);
|
|
|
|
|
|
{$ENDC} { UsingSegLoad }
|
|
|
|
{$IFC NOT UsingIncludes}
|
|
END.
|
|
{$ENDC}
|
|
|