<> <> DIRECTORY IO, Rope; PressPrinter: CEDAR DEFINITIONS = BEGIN STREAM: TYPE = IO.STREAM; ROPE: TYPE = Rope.ROPE; Handle: TYPE = REF PressPrinterRec; PressPrinterRec: TYPE; State: TYPE = {queued, opening, serverBusy, serverTimeout, serverTrouble, transmitting, aborted, unableToOpenFile, invalidPressFile, done}; CurrentState: PROCEDURE [Handle] RETURNS [State]; <> CurrentStateMessage: PROCEDURE [Handle] RETURNS [ROPE]; <> CurrentProgress: PROCEDURE [Handle] RETURNS [fractionOfFileTransmitted: REAL]; <> ProgressProc: TYPE = PROCEDURE [handle: Handle]; <> Abort: PROCEDURE [Handle]; <> IsAPressFile: PROCEDURE [fileName: ROPE] RETURNS [BOOLEAN]; SendPressFile: PROCEDURE [ fileName: ROPE, server: ROPE, copies: INT _ 1, progressProc: ProgressProc _ NIL, userName: ROPE _ NIL ] RETURNS [Handle]; END. Created by Michael Plass, June 15, 1982 3:00 pm Michael Plass, June 29, 1982 4:04 pm. Converted for Cedar 3.2. Michael Plass, July 8, 1982 12:49 pm. Added IsAPressFile. Michael Plass, July 8, 1982 2:15 pm. Added userName to SendPressFile. Michael Plass, November 1, 1982 9:30 am. Converted to Tioga formatting, CEDARized interface.