TSOutputPress.mesa
definitions for the interface to Tioga typesetter press output routines
Michael Plass, November 3, 1982 10:53 am
Last Edited by: Beach, May 24, 1983 9:10 am
DIRECTORY
IO,
Graphics,
Rope,
TSOutput,
SirPress,
TSFont;
TSOutputPress: CEDAR DEFINITIONS =
BEGIN
PressState: TYPE = REF PressStateRec;
PressStateRec:
TYPE =
RECORD [
graphicsContext: Graphics.Context, -- Draw graphics through a Context
pressHandle: SirPress.PressHandle, -- Text goes directly to the press file
pipe: SirPress.Pipe,
curFont: TSFont.Ref ← NIL
];
CreateWithCursor:
PROCEDURE [stream:
IO.
STREAM, documentName: Rope.
ROPE, cursorObject: SirPress.CursorObject]
RETURNS [handle: TSOutput.Handle];
SetFont: PROCEDURE [pressState: PressState, font: TSFont.Ref];
END.
Michael Plass, September 16, 1982 12:22 pm: Changed fileName parameter to IO.STREAM.
Michael Plass, November 2, 1982 9:58 am: Made into CEDAR interface.
Michael Plass, November 3, 1982 10:53 am: CursorObject.