<<>> <> <> <> <<>> 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.