mirror of
https://github.com/elliotnunn/mac-rom.git
synced 2024-12-28 16:31:01 +00:00
0ba83392d4
Resource forks are included only for .rsrc files. These are DeRezzed into their data fork. 'ckid' resources, from the Projector VCS, are not included. The Tools directory, containing mostly junk, is also excluded.
163 lines
4.2 KiB
OpenEdge ABL
163 lines
4.2 KiB
OpenEdge ABL
|
|
{
|
|
Created: Saturday, July 27, 1991 at 8:26 PM
|
|
Devices.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):
|
|
|
|
<7> 7/30/91 JL Updated Copyright.
|
|
<6> 1/28/91 JL Changed aSync parameter to async
|
|
<5> 1/27/91 LN Checked in Database generate file from DSG.
|
|
<4> 1/7/91 JDR (dba) Adding messages sent to the monitor function in the
|
|
Control Panel.
|
|
<3> 12/14/90 dba <JDR> add cursorDev
|
|
<2> 10/8/90 JAL Added Sync and ASync calls to get around glue.
|
|
}
|
|
|
|
|
|
{$IFC UNDEFINED UsingIncludes}
|
|
{$SETC UsingIncludes := 0}
|
|
{$ENDC}
|
|
|
|
{$IFC NOT UsingIncludes}
|
|
UNIT Devices;
|
|
INTERFACE
|
|
{$ENDC}
|
|
|
|
{$IFC UNDEFINED UsingDevices}
|
|
{$SETC UsingDevices := 1}
|
|
|
|
{$I+}
|
|
{$SETC DevicesIncludes := UsingIncludes}
|
|
{$SETC UsingIncludes := 1}
|
|
{$IFC UNDEFINED UsingOSUtils}
|
|
{$I $$Shell(PInterfaces)OSUtils.p}
|
|
{$ENDC}
|
|
{$IFC UNDEFINED UsingFiles}
|
|
{$I $$Shell(PInterfaces)Files.p}
|
|
{$ENDC}
|
|
{$IFC UNDEFINED UsingQuickdraw}
|
|
{$I $$Shell(PInterfaces)Quickdraw.p}
|
|
{$ENDC}
|
|
{$SETC UsingIncludes := DevicesIncludes}
|
|
|
|
CONST
|
|
newSelMsg = 12;
|
|
fillListMsg = 13;
|
|
getSelMsg = 14;
|
|
selectMsg = 15;
|
|
deselectMsg = 16;
|
|
terminateMsg = 17;
|
|
buttonMsg = 19;
|
|
chooserID = 1;
|
|
initDev = 0; {Time for cdev to initialize itself}
|
|
hitDev = 1; {Hit on one of my items}
|
|
closeDev = 2; {Close yourself}
|
|
nulDev = 3; {Null event}
|
|
updateDev = 4; {Update event}
|
|
activDev = 5; {Activate event}
|
|
deactivDev = 6; {Deactivate event}
|
|
keyEvtDev = 7; {Key down/auto key}
|
|
macDev = 8; {Decide whether or not to show up}
|
|
undoDev = 9;
|
|
cutDev = 10;
|
|
copyDev = 11;
|
|
pasteDev = 12;
|
|
clearDev = 13;
|
|
cursorDev = 14;
|
|
cdevGenErr = -1; {General error; gray cdev w/o alert}
|
|
cdevMemErr = 0; {Memory shortfall; alert user please}
|
|
cdevResErr = 1; {Couldn't get a needed resource; alert}
|
|
cdevUnset = 3; { cdevValue is initialized to this}
|
|
|
|
{ Monitors control panel messages }
|
|
initMsg = 1; {initialization}
|
|
okMsg = 2; {user clicked OK button}
|
|
cancelMsg = 3; {user clicked Cancel button}
|
|
hitMsg = 4; {user clicked control in Options dialog}
|
|
nulMsg = 5; {periodic event}
|
|
updateMsg = 6; {update event}
|
|
activateMsg = 7; {not used}
|
|
deactivateMsg = 8; {not used}
|
|
keyEvtMsg = 9; {keyboard event}
|
|
superMsg = 10; {show superuser controls}
|
|
normalMsg = 11; {show only normal controls}
|
|
startupMsg = 12; {code has been loaded}
|
|
|
|
TYPE
|
|
DCtlPtr = ^DCtlEntry;
|
|
DCtlHandle = ^DCtlPtr;
|
|
DCtlEntry = RECORD
|
|
dCtlDriver: Ptr;
|
|
dCtlFlags: INTEGER;
|
|
dCtlQHdr: QHdr;
|
|
dCtlPosition: LONGINT;
|
|
dCtlStorage: Handle;
|
|
dCtlRefNum: INTEGER;
|
|
dCtlCurTicks: LONGINT;
|
|
dCtlWindow: WindowPtr;
|
|
dCtlDelay: INTEGER;
|
|
dCtlEMask: INTEGER;
|
|
dCtlMenu: INTEGER;
|
|
END;
|
|
|
|
AuxDCEPtr = ^AuxDCE;
|
|
AuxDCEHandle = ^AuxDCEPtr;
|
|
AuxDCE = PACKED RECORD
|
|
dCtlDriver: Ptr;
|
|
dCtlFlags: INTEGER;
|
|
dCtlQHdr: QHdr;
|
|
dCtlPosition: LONGINT;
|
|
dCtlStorage: Handle;
|
|
dCtlRefNum: INTEGER;
|
|
dCtlCurTicks: LONGINT;
|
|
dCtlWindow: GrafPtr;
|
|
dCtlDelay: INTEGER;
|
|
dCtlEMask: INTEGER;
|
|
dCtlMenu: INTEGER;
|
|
dCtlSlot: Byte;
|
|
dCtlSlotId: Byte;
|
|
dCtlDevBase: LONGINT;
|
|
dCtlOwner: Ptr;
|
|
dCtlExtDev: Byte;
|
|
fillByte: Byte;
|
|
END;
|
|
|
|
|
|
FUNCTION GetDCtlEntry(refNum: INTEGER): DCtlHandle;
|
|
FUNCTION SetChooserAlert(f: BOOLEAN): BOOLEAN;
|
|
FUNCTION OpenDriver(name: Str255;VAR drvrRefNum: INTEGER): OSErr;
|
|
FUNCTION CloseDriver(refNum: INTEGER): OSErr;
|
|
FUNCTION Control(refNum: INTEGER;csCode: INTEGER;csParamPtr: Ptr): OSErr;
|
|
FUNCTION Status(refNum: INTEGER;csCode: INTEGER;csParamPtr: Ptr): OSErr;
|
|
FUNCTION KillIO(refNum: INTEGER): OSErr;
|
|
FUNCTION PBControl(paramBlock: ParmBlkPtr;async: BOOLEAN): OSErr;
|
|
FUNCTION PBControlSync(paramBlock: ParmBlkPtr): OSErr;
|
|
INLINE $205F,$A004,$3E80;
|
|
FUNCTION PBControlAsync(paramBlock: ParmBlkPtr): OSErr;
|
|
INLINE $205F,$A404,$3E80;
|
|
FUNCTION PBStatus(paramBlock: ParmBlkPtr;async: BOOLEAN): OSErr;
|
|
FUNCTION PBStatusSync(paramBlock: ParmBlkPtr): OSErr;
|
|
INLINE $205F,$A005,$3E80;
|
|
FUNCTION PBStatusAsync(paramBlock: ParmBlkPtr): OSErr;
|
|
INLINE $205F,$A405,$3E80;
|
|
FUNCTION PBKillIO(paramBlock: ParmBlkPtr;async: BOOLEAN): OSErr;
|
|
FUNCTION PBKillIOSync(paramBlock: ParmBlkPtr): OSErr;
|
|
INLINE $205F,$A006,$3E80;
|
|
FUNCTION PBKillIOAsync(paramBlock: ParmBlkPtr): OSErr;
|
|
INLINE $205F,$A406,$3E80;
|
|
|
|
|
|
{$ENDC} { UsingDevices }
|
|
|
|
{$IFC NOT UsingIncludes}
|
|
END.
|
|
{$ENDC}
|
|
|