-- Compiler ControllerDefs  
-- Stone, for ExpungeStyles, May 2, 1981  12:30 PM
-- Dawson, June 5, 1979  8:51 AM
-- Tiberi, November 6, 1979  3:05 AM
-- interface module for griffin file controllers
-- Last Edited by: Stone, January 19, 1983 3:49 pm

DIRECTORY
    StyleDefs: FROM "StyleDefs",
    GriffinFontDefs: FROM "GriffinFontDefs",
    Graphics USING [Color];


-- ---------------------------------------------------------------------------------
-- ---------------------------------------------------------------------------------
ControllerDefs:  DEFINITIONS =

BEGIN 

HardcopyController: TYPE= RECORD[hxcenter, hycenter, hwidth, hheight: REAL,
    pressxcenter, pressycenter: CARDINAL, hscale: REAL];

DisplayController: TYPE=RECORD[dxcenter, dycenter, dwidth, dheight: CARDINAL,
    dxscale, dyscale, dxorigin, dyorigin: REAL,
    dgridsize: CARDINAL];

SetHardcopyController: PROCEDURE [HardcopyController];

SetDisplayController: PROCEDURE [DisplayController];

ReadDisplayController: PROCEDURE RETURNS [DisplayController];

ReadHardcopyController: PROCEDURE RETURNS [HardcopyController];

GreyOfColor: PROCEDURE [color: StyleDefs.Color] RETURNS [Graphics.Color];

CPProcedure: TYPE = PROCEDURE [color: StyleDefs.Color, grey: [0 .. 255]];

ForAllControlPairs: PROCEDURE [proc: CPProcedure];

AppendStyle: PROCEDURE [StyleDefs.StyleHandle] RETURNS [CARDINAL];

NumberOfStyle: PROCEDURE [StyleDefs.StyleHandle] RETURNS [CARDINAL];

StyleWithNumber: PROCEDURE [CARDINAL] RETURNS [StyleDefs.StyleHandle];

ExpungeStyles: PROCEDURE;

AppendFont: PROCEDURE [GriffinFontDefs.FontDescriptorHandle] RETURNS [CARDINAL];

FontWithNumber: PROCEDURE [CARDINAL] RETURNS [GriffinFontDefs.FontDescriptorHandle];

ForAllStyles: PROCEDURE [PROCEDURE [StyleDefs.StyleHandle]];

ForAllFonts: PROCEDURE [PROCEDURE [GriffinFontDefs.FontDescriptorHandle]];

CurrentStyle: PROCEDURE RETURNS [StyleDefs.StyleHandle];

DefaultControllers: PROCEDURE;

-- these two only for menu style stuff
CurrentStyleRecord: PROCEDURE RETURNS [StyleDefs.StyleHandle];
CurrentFontDescriptor: PROCEDURE RETURNS [GriffinFontDefs.FontDescriptorHandle];


ControllerError: SIGNAL;

END.