<> <> <> <> DIRECTORY IPOperatorOut USING [Handle], PressReader USING [Handle], Rope USING [ROPE]; PressToIP: DEFINITIONS = BEGIN PressFile: TYPE = PressReader.Handle; IPMaster: TYPE = IPOperatorOut.Handle; OpenPressFile: PROCEDURE [pressFileName: Rope.ROPE] RETURNS [pressFile: PressFile]; <> <> OpenOutputIPMaster: PROCEDURE [ipMasterName: Rope.ROPE] RETURNS [ipMaster: IPMaster]; <> <> ConvertPressToInterpress: PROCEDURE [ pressFile: PressFile, ipMaster: IPMaster, usePriority: BOOLEAN _ FALSE, -- if TRUE, set priorityImportant on each page fullInterpress: BOOLEAN _ FALSE, -- if TRUE, generate full Interpress instead of IP 2.0 progressProc: ProgressProc _ NIL, progressData: REF ANY]; <> <> ProgressProc: TYPE = PROCEDURE[finishedWhat: FinishedWhat, progressData: REF ANY]; FinishedWhat: TYPE = {preamble, page, document}; Error: ERROR [errorCode: ErrorCode]; ErrorCode: PUBLIC TYPE = {FileNotAvailable, FileNotAPressFile, FontNotFound}; END. <> <> <<>> <> <> <<>> <> <> <<>> <> <> <<>> <> <>