<> <> <> <> <<<>>> DIRECTORY NSString USING [String], PrintingTypes USING [Option], PrintQueue USING [ObjectStatus], Process USING [Priority], PSAsyncMsg USING [Proc], TargetPSStatus USING [Communication], XNS USING [Address]; ForwardingControl: CEDAR DEFINITIONS = BEGIN TraceLevel: TYPE = {none, terse, verbose}; WaitChoice: TYPE = {wait, dontWait}; CancelProc: TYPE = PROCEDURE [docName: NSString.String, docQueueStatus: PrintQueue.ObjectStatus]; <> Init: PROCEDURE [currentOption: PrintingTypes.Option, priority: Process.Priority, putAsyncMsgFromKey: PSAsyncMsg.Proc]; <> Start: PROCEDURE; <> Stop: PROCEDURE [status: PrintQueue.ObjectStatus, canceledWhileForwarding: CancelProc _ NIL]; <> Stopped: PROCEDURE [wither: WaitChoice _ dontWait] RETURNS [BOOLEAN]; <> <> SetTargetPrintService: PROCEDURE [target: XNS.Address]; Status: PROCEDURE RETURNS [ forwarding: BOOLEAN, --returns TRUE if forwarding in progress forwardingStatus: TargetPSStatus.Communication]; --valid if forwarding = TRUE ModifyTraceLevel: PROCEDURE [trace: TraceLevel]; END. -- of ForwardingControl LOG when/who/what 16-Oct-84 10:54:30 - Jacks - Created. 8-Nov-84 13:29:10 - Jacks - Added forwardingStatus to Status proc. 14-Jun-85 10:49:26 - Jacks - Added copyright notice; updated to PS Euclid interfaces. 16-Jul-85 8:13:34 - Jacks - PSAsyncMsg interface change.