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.  Z  PressPrinter.mesaMichael Plass,  November 1, 1982 9:30 ammachine readable indication of the current state of thingshuman readable indication of any unusual situationindicates how much of the file has been sentCalled at various intervals, whenever something interesting happens.The ProgressProc may call this to abort the transmissionÊÚ  –"Mesa" style˜ JšÏc™Jš(™(J˜ šÏk	˜	Jšžœ˜J˜J˜ —Jšœžœ˜!Jšž˜J˜ Jšžœžœžœžœ˜Jšžœžœžœ˜J˜ Jšœžœžœ˜#Jšœžœ˜J˜ Jšœžœ€˜‹J˜ šÏnœž	œ
žœ	˜1Jš:™:J˜ —šŸœž	œ
žœžœ˜7Jš2™2J˜ —šŸœž	œ
žœžœ˜NJš,™,J˜ —šŸœžœž	œ˜0JšD™DJ˜ —šŸœž	œ
˜Jš8™8J˜ —Jš
Ÿœž	œžœžœžœ˜;J˜ šŸœž	œ˜Jšœ
žœ˜Jšœžœ˜Jšœžœ˜Jšœžœ˜!Jšœ
žœž˜Jšœžœ
˜J˜ —Jšžœ˜J˜ J˜0J˜?J˜:J˜FJ˜]— …—    p  ¤  