mirror of
https://github.com/elliotnunn/supermario.git
synced 2024-08-29 23:28:53 +00:00
127 lines
4.1 KiB
OpenEdge ABL
127 lines
4.1 KiB
OpenEdge ABL
{************************************************************
|
|
CommResources.p
|
|
Pascal Interface to the Communications Resource Manager
|
|
|
|
Copyright Apple Computer, Inc. 1988-1991
|
|
All rights reserved
|
|
|
|
This file is used in these builds: ROM System
|
|
|
|
Change History (most recent first):
|
|
|
|
<10> 8/28/91 CH Even more consistency crap.
|
|
<9> 8/28/91 CH Updated interface headers for consistency.
|
|
<8> 8/20/91 BH move CRMReserveRF into public interfaces
|
|
<7> 8/14/91 JL Moved comment to before CRMReleaseRF call to match database
|
|
output.
|
|
<6> 8/9/91 JNG Moved CRMReleaseRF into main interfaces
|
|
<5> 7/25/91 JL Checked in database generated file from DSG. Moved ordering of
|
|
functions to match C file.
|
|
<4> 7/9/91 BH add CRMGetToolNamedResource
|
|
<3> 7/3/91 BH added CRMParseCAPSResource
|
|
<2> 6/25/91 JNG Add CRMIsDriverOpen
|
|
<1> 3/14/90 BBH first checked in
|
|
|
|
To Do:
|
|
************************************************************}
|
|
|
|
{$IFC UNDEFINED UsingIncludes}
|
|
{$SETC UsingIncludes := 0}
|
|
{$ENDC}
|
|
|
|
{$IFC NOT UsingIncludes}
|
|
UNIT CommResources;
|
|
INTERFACE
|
|
{$ENDC}
|
|
|
|
{$IFC UNDEFINED UsingCommResources}
|
|
{$SETC UsingCommResources := 1}
|
|
|
|
{$I+}
|
|
{$SETC CommResourcesIncludes := UsingIncludes}
|
|
{$SETC UsingIncludes := 1}
|
|
{$IFC UNDEFINED UsingOSUtils}
|
|
{$I $$Shell(PInterfaces)OSUtils.p}
|
|
{$ENDC}
|
|
{$SETC UsingIncludes := CommResourcesIncludes}
|
|
|
|
CONST
|
|
|
|
{ version of the Comm Resource Manager }
|
|
curCRMVersion = 2;
|
|
|
|
{ tool classes (also the tool file types) }
|
|
classCM = 'cbnd';
|
|
classFT = 'fbnd';
|
|
classTM = 'tbnd';
|
|
|
|
{ constants general to the use of the Communications Resource Manager }
|
|
crmType = 9; { queue type }
|
|
crmRecVersion = 1; { version of queue structure }
|
|
|
|
{ error codes }
|
|
crmGenericError = -1;
|
|
crmNoErr = 0;
|
|
|
|
TYPE
|
|
{ data structures general to the use of the Communications Resource Manager }
|
|
CRMErr = OSErr;
|
|
|
|
CRMRecPtr = ^CRMRec;
|
|
CRMRec = RECORD
|
|
qLink: QElemPtr; {reserved}
|
|
qType: INTEGER; {queue type -- ORD(crmType) = 9}
|
|
crmVersion: INTEGER; {version of queue element data structure}
|
|
crmPrivate: LONGINT; {reserved}
|
|
crmReserved: INTEGER; {reserved}
|
|
crmDeviceType: LONGINT; {type of device, assigned by DTS}
|
|
crmDeviceID: LONGINT; {device ID; assigned when CRMInstall is called}
|
|
crmAttributes: LONGINT; {pointer to attribute block}
|
|
crmStatus: LONGINT; {status variable - device specific}
|
|
crmRefCon: LONGINT; {for device private use}
|
|
END;
|
|
|
|
|
|
FUNCTION InitCRM: CRMErr;
|
|
FUNCTION CRMGetHeader: QHdrPtr;
|
|
PROCEDURE CRMInstall(crmReqPtr: QElemPtr);
|
|
FUNCTION CRMRemove(crmReqPtr: QElemPtr): OSErr;
|
|
FUNCTION CRMSearch(crmReqPtr: QElemPtr): QElemPtr;
|
|
FUNCTION CRMGetCRMVersion: INTEGER;
|
|
|
|
FUNCTION CRMGetResource(theType: ResType;theID: INTEGER): Handle;
|
|
FUNCTION CRMGet1Resource(theType: ResType;theID: INTEGER): Handle;
|
|
FUNCTION CRMGetIndResource(theType: ResType;index: INTEGER): Handle;
|
|
FUNCTION CRMGet1IndResource(theType: ResType;index: INTEGER): Handle;
|
|
FUNCTION CRMGetNamedResource(theType: ResType;name: Str255): Handle;
|
|
FUNCTION CRMGet1NamedResource(theType: ResType;name: Str255): Handle;
|
|
PROCEDURE CRMReleaseResource(theHandle: Handle);
|
|
FUNCTION CRMGetToolResource(procID: INTEGER;theType: ResType;theID: INTEGER): Handle;
|
|
FUNCTION CRMGetToolNamedResource(procID: INTEGER;theType: ResType;name: Str255): Handle;
|
|
PROCEDURE CRMReleaseToolResource(procID: INTEGER;theHandle: Handle);
|
|
FUNCTION CRMGetIndex(theHandle: Handle): LONGINT;
|
|
|
|
FUNCTION CRMLocalToRealID(bundleType: ResType;toolID: INTEGER;theType: ResType;
|
|
localID: INTEGER): INTEGER;
|
|
FUNCTION CRMRealToLocalID(bundleType: ResType;toolID: INTEGER;theType: ResType;
|
|
realID: INTEGER): INTEGER;
|
|
|
|
FUNCTION CRMGetIndToolName(bundleType: OSType;index: INTEGER;VAR toolName: Str255): OSErr;
|
|
|
|
FUNCTION CRMFindCommunications(VAR vRefNum: INTEGER;VAR dirID: LONGINT): OSErr;
|
|
|
|
FUNCTION CRMIsDriverOpen(driverName: Str255): BOOLEAN;
|
|
|
|
FUNCTION CRMParseCAPSResource(theHandle: Handle;selector: ResType;VAR value: LONGINT): CRMErr;
|
|
|
|
FUNCTION CRMReserveRF(refNum: INTEGER): OSErr;
|
|
FUNCTION CRMReleaseRF(refNum: INTEGER): OSErr;
|
|
|
|
|
|
{$ENDC} { UsingCommResources }
|
|
|
|
{$IFC NOT UsingIncludes}
|
|
END.
|
|
{$ENDC}
|
|
|