DIRECTORY Commander, ImagerInterpress, IO, Rope; InterpressFabricators: CEDAR DEFINITIONS = BEGIN ProgressProc: TYPE ~ PROC [pageNumber: INT, totalPages: INT] RETURNS [stop: BOOL ¬ FALSE]; 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]; 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]; 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]; 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. @ InterpressFabricators.mesa Copyright Σ 1987, 1992 by Xerox Corporation. All rights reserved. Fumihiko Shibata, July 7, 1989 11:34:39 am JST Client interface to Interpress files 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. Convert MacPaint file to IP master. Convert Macintosh PICT file to IP master. Convert CGM to IP master. Command interface Κπ•NewlineDelimiter –(cedarcode) style™codešœ™Kšœ Οeœ7™BK™.K™—šΟk ˜ Kšœžœ˜&K˜—KšΡblnœžœž œž˜0head™$K™šœžœžœžœžœžœžœžœ˜ZKšœˆ™ˆK˜—K˜šΟnœΟs œžœKžœžœžœžœ Πklžœžœ žœžœ˜γJšœžœ™#——™š œ‘ œžœKžœžœžœžœ ’žœžœ žœžœ˜ίJšœžœ™)J™—š œžœžœžœKžœžœžœžœžœžœ žœžœ˜ήJšœžœ™——™š œ žœžœžœžœžœžœ˜nK˜—Kš œ˜K˜Kš œ ˜'Kš œ ˜#Kš œ ˜"—Kšžœ˜—…—h˜