supermario/base/SuperMarioProj.1994-02-09/Interfaces/PInterfaces/CommResources.p

127 lines
4.1 KiB
OpenEdge ABL
Raw Normal View History

2019-06-29 15:17:50 +00:00
{************************************************************
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}