InterpressFabricators.mesa
Copyright Ó 1987, 1992 by Xerox Corporation. All rights reserved.
Fumihiko Shibata, July 7, 1989 11:34:39 am JST
DIRECTORY
Commander, ImagerInterpress, IO, Rope;
InterpressFabricators: CEDAR DEFINITIONS = BEGIN
Client interface to Interpress files
ProgressProc: TYPE ~ PROC [pageNumber: INT, totalPages: INT] RETURNS [stop: BOOL ¬ FALSE];
Call after generating a page for feedback purposes. If totalPages<=0, unknown final master size. If returns TRUE, converter may stop. Converters to IP masters have to such callback procs, called respectively just before starting a page and just after finishing it.
MacPaintToInterpress: PUBLIC PROC [inputName: Rope.ROPE, interpress: ImagerInterpress.Ref,
beginPage, endPage: ProgressProc, msg: IO.STREAM ¬ NIL, pageWidth, pageHeight: REAL, caption: Rope.ROPE] RETURNS [failed: BOOL ¬ FALSE];
Convert MacPaint file to IP master.
PICTToInterpress: PUBLIC PROC [inputName: Rope.ROPE, interpress: ImagerInterpress.Ref, beginPage, endPage: ProgressProc, msg: IO.STREAM ¬ NIL, pageWidth, pageHeight: REAL, caption: Rope.ROPE] RETURNS [failed: BOOL ¬ FALSE];
Convert Macintosh PICT file to IP master.
CGMToInterpress: PUBLIC PROC [inputName: Rope.ROPE, interpress: ImagerInterpress.Ref, beginPage, endPage: ProgressProc, msg: IO.STREAM ¬ NIL, pageWidth, pageHeight: REAL, caption: Rope.ROPE] RETURNS [failed: BOOL ¬ FALSE];
Convert CGM to IP master.
Command interface
ActionProc: TYPE ~ PROC [inputName: Rope.ROPE, outputName: Rope.ROPE, cmd: Commander.Handle, cmds: IO.STREAM];
Command: Commander.CommandProc;
MacPaintToInterpressAction: ActionProc;
PICTToInterpressAction: ActionProc;
CGMToInterpressAction: ActionProc;
END.