-- 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 --