PressToIP.mesa
Last edited by Shore; January 30, 1983 5:18 pm
Last edited by Wyatt; March 2, 1983 10:47 am
This interface provides a Press to Interpress converter.
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];
opens the Press file to be converted
ERRORS: Error[FileNotAvailable, FileNotAPressFile]
OpenOutputIPMaster:
PROCEDURE [ipMasterName: Rope.
ROPE]
RETURNS [ipMaster: IPMaster];
opens the Interpress Master for writting
ERRORS: Error[FileNotAvailable]
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];
performs the conversion and closes both files
progressProc is called (with progressData) upon the completion of the preamble, each page, and the entire document
ProgressProc: TYPE = PROCEDURE[finishedWhat: FinishedWhat, progressData: REF ANY];
FinishedWhat: TYPE = {preamble, page, document};
Error: ERROR [errorCode: ErrorCode];
ErrorCode: PUBLIC TYPE = {FileNotAvailable, FileNotAPressFile, FontNotFound};
END.
Change Log
Created by Shore; September 16, 1982 2:30 pm
Changed by Shore; September 22, 1982 10:33 am
Added ProgressProc
Changed by Shore; September 26, 1982 2:54 pm
converted to new operator interface and added usePriority stuff
Changed by Shore; November 16, 1982 12:54 pm
converted to Cedar.Style and added node formats
Changed by Wyatt; March 2, 1983 10:47 am
added fullInterpress parameter