Interpress.mesa
Copyright © 1985, 1986 by Xerox Corporation. All rights reserved.
Michael Plass, June 7, 1985 3:31:24 pm PDT
Doug Wyatt, May 30, 1986 3:03:19 pm PDT
DIRECTORY
Imager USING [Context],
IO USING [STREAM],
Rope USING [ROPE];
Interpress: CEDAR DEFINITIONS
~ BEGIN
ROPE: TYPE ~ Rope.ROPE;
STREAM: TYPE ~ IO.STREAM;
LogProc: TYPE ~ PROC [class: INT, code: ATOM, explanation: ROPE];
classMasterError: INT ~ 0;
classMasterWarning: INT ~ 10;
classAppearanceError: INT ~ 50;
classAppearanceWarning: INT ~ 60;
classComment: INT ~ 100;
Master: TYPE ~ REF MasterRep;
MasterRep:
TYPE ~
RECORD [
pages: INT, -- number of pages in the master
impl: REF MasterImplRep -- implementation details
];
MasterImplRep: TYPE;
Open:
PROC [fileName:
ROPE, log: LogProc]
RETURNS [Master];
Opens the named Interpress master and executes the preamble.
FromStream:
PROC [stream:
STREAM, log: LogProc]
RETURNS [Master];
DoPage:
PROC[master: Master, page:
INT, context: Imager.Context, log: LogProc];
Executes a page of the master; page IN[1..master.pages].
END.