-- file: LaurelDriverDefs.mesa
-- created by Schroeder, April 26, 1979 3:10 PM.
-- edited by Levin: January 8, 1981 11:54 AM
-- edited by Brotz: November 19, 1981 11:58 AM

DIRECTORY
ControlDefs USING [FrameHandle],
dsD: FROM "DisplayDefs" USING [backgtype],
ProcessDefs USING [Priority];

drD: DEFINITIONS =

BEGIN


-- Font Stuff

ALFont: TYPE = MACHINE DEPENDENT RECORD[
height: CARDINAL,
proportional: BOOLEAN,
baseline: [0 .. 177B],
maxWidth: [0 .. 255B],
charTable: ARRAY CHARACTER OF SelfRelativePointer];

SelfRelativePointer: TYPE = CARDINAL;

font: PUBLIC POINTER TO drD.ALFont;

smudgeXwValue: CARDINAL = 6;

-- Miscellaneous Stuff

videoBackground: dsD.backgtype;

InstallError: TYPE = {none, inLog, noLog};

CommandLineAction: TYPE = {gmfOnly, sendOnly, checkOnly, gnmAndStay, sendBug};

CapturePupGlitch: PROCEDURE[why: UNSPECIFIED -- DriverDefs.GlitchType --];

Catcher: PROCEDURE [msg: UNSPECIFIED, signal: SIGNAL[UNSPECIFIED],
frame: ControlDefs.FrameHandle];

ProcessBugReport: PROCEDURE;

PreStopInitialization: PROCEDURE
RETURNS [commandInCommandLine: CommandLineAction, installError: InstallError];

ResumeNub: PORT [commandInCommandLine: CommandLineAction, installError: InstallError];

-- The following are exported by LaurelInterrupt

interruptPriority: ProcessDefs.Priority = -- NucleusOps.InterruptPriority -- 6;

interruptWakeup: CONDITION;

InterruptProcess: PROCEDURE;

END. -- of LaurelDriverDefs --