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

{************************************************************
	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}