mirror of
https://github.com/elliotnunn/sys7.1-doc-wip.git
synced 2024-06-01 04:41:39 +00:00
84 lines
1.8 KiB
OpenEdge ABL
84 lines
1.8 KiB
OpenEdge ABL
|
|
{
|
|
Created: Tuesday, July 23, 1991 at 8:14 PM
|
|
CRMSerialDevices.p
|
|
Pascal Interface to the Macintosh Libraries
|
|
|
|
Copyright Apple Computer, Inc. 1988-1991
|
|
All rights reserved
|
|
This file is used in these builds: ROM System
|
|
|
|
Change History (most recent first):
|
|
|
|
<3> 7/25/91 JL Checked in database generated file from DSG. Reordered file to
|
|
match C file.
|
|
<3> 7/25/91 JL Checked in database generated file from DSG.
|
|
<2> 10/2/90 kaz Support for icon suites: deviceIcon is now a handle to a
|
|
CRMIconRecord; bumped version #. <jng>
|
|
<1> 3/14/90 BBH first checked in
|
|
|
|
To Do:
|
|
}
|
|
|
|
|
|
{$IFC UNDEFINED UsingIncludes}
|
|
{$SETC UsingIncludes := 0}
|
|
{$ENDC}
|
|
|
|
{$IFC NOT UsingIncludes}
|
|
UNIT CRMSerialDevices;
|
|
INTERFACE
|
|
{$ENDC}
|
|
|
|
{$IFC UNDEFINED UsingCRMSerialDevices}
|
|
{$SETC UsingCRMSerialDevices := 1}
|
|
|
|
{$I+}
|
|
{$SETC CRMSerialDevicesIncludes := UsingIncludes}
|
|
{$SETC UsingIncludes := 1}
|
|
{$IFC UNDEFINED UsingTypes}
|
|
{$I $$Shell(PInterfaces)Types.p}
|
|
{$ENDC}
|
|
{$SETC UsingIncludes := CRMSerialDevicesIncludes}
|
|
|
|
CONST
|
|
|
|
{ for the crmDeviceType field of the CRMRec data structure }
|
|
crmSerialDevice = 1;
|
|
|
|
|
|
{ version of the CRMSerialRecord below }
|
|
curCRMSerRecVers = 1;
|
|
|
|
TYPE
|
|
{ Maintains compatibility w/ apps & tools that expect an old style icon }
|
|
CRMIconPtr = ^CRMIconRecord;
|
|
CRMIconHandle = ^CRMIconPtr;
|
|
CRMIconRecord = RECORD
|
|
oldIcon: ARRAY [0..31] OF LONGINT; { ICN# }
|
|
oldMask: ARRAY [0..31] OF LONGINT;
|
|
theSuite: Handle; { Handle to an IconSuite }
|
|
reserved: LONGINT;
|
|
END;
|
|
|
|
CRMSerialPtr = ^CRMSerialRecord;
|
|
CRMSerialRecord = RECORD
|
|
version: INTEGER;
|
|
inputDriverName: StringHandle;
|
|
outputDriverName: StringHandle;
|
|
name: StringHandle;
|
|
deviceIcon: CRMIconHandle;
|
|
ratedSpeed: LONGINT;
|
|
maxSpeed: LONGINT;
|
|
reserved: LONGINT;
|
|
END;
|
|
|
|
|
|
|
|
{$ENDC} { UsingCRMSerialDevices }
|
|
|
|
{$IFC NOT UsingIncludes}
|
|
END.
|
|
{$ENDC}
|
|
|