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

68 lines
1.4 KiB
OpenEdge ABL

{
Created: Saturday, July 27, 1991 at 8:31 PM
DiskInit.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/30/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 DiskInit;
INTERFACE
{$ENDC}
{$IFC UNDEFINED UsingDiskInit}
{$SETC UsingDiskInit := 1}
{$I+}
{$SETC DiskInitIncludes := UsingIncludes}
{$SETC UsingIncludes := 1}
{$IFC UNDEFINED UsingTypes}
{$I $$Shell(PInterfaces)Types.p}
{$ENDC}
{$SETC UsingIncludes := DiskInitIncludes}
TYPE
HFSDefaults = RECORD
sigWord: PACKED ARRAY [0..1] OF Byte; { signature word}
abSize: LONGINT; { allocation block size in bytes}
clpSize: LONGINT; { clump size in bytes}
nxFreeFN: LONGINT; { next free file number}
btClpSize: LONGINT; { B-Tree clump size in bytes}
rsrv1: INTEGER; { reserved}
rsrv2: INTEGER; { reserved}
rsrv3: INTEGER; { reserved}
END;
PROCEDURE DILoad;
PROCEDURE DIUnload;
FUNCTION DIBadMount(where: Point;evtMessage: LONGINT): INTEGER;
FUNCTION DIFormat(drvNum: INTEGER): OSErr;
FUNCTION DIVerify(drvNum: INTEGER): OSErr;
FUNCTION DIZero(drvNum: INTEGER;volName: Str255): OSErr;
{$ENDC} { UsingDiskInit }
{$IFC NOT UsingIncludes}
END.
{$ENDC}