supermario/base/SuperMarioProj.1994-02-09/Interfaces/PInterfaces/SegLoad.p
2019-06-29 23:17:50 +08:00

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}