<> <> <> <> <<<>>> DIRECTORY NSString USING [String], PrintingTypes USING [Option], PrintQueue USING [ObjectStatus, QueueObjectHandle], Process USING [Priority], PSAsyncMsg USING [Proc]; MergeControl: CEDAR DEFINITIONS = BEGIN TraceLevel: TYPE = {none, terse, verbose}; WaitChoice: TYPE = {wait, dontWait}; NotifyCode: TYPE = {noResources, other}; NotifyProc: TYPE = PROCEDURE [queueObject: PrintQueue.QueueObjectHandle, code: NotifyCode, continuable: BOOLEAN] RETURNS [keepGoing: BOOLEAN]; <> CancelProc: TYPE = PROCEDURE [docName: NSString.String, docQueueStatus: PrintQueue.ObjectStatus]; <> Init: PROCEDURE [currentOption: PrintingTypes.Option, priority: Process.Priority, notifyProc: NotifyProc, --proc called to notify client of problems found while merging. putAsyncMsgFromKey: PSAsyncMsg.Proc]; <> Start: PROCEDURE; <> Stop: PROCEDURE [status: PrintQueue.ObjectStatus, canceledWhileMerging: CancelProc _ NIL]; <> Stopped: PROCEDURE [wither: WaitChoice _ dontWait] RETURNS [BOOLEAN]; <> <> Status: PROCEDURE RETURNS [merging: BOOLEAN]; --returns TRUE if a document is being merged. ModifyTraceLevel: PROCEDURE [trace: TraceLevel]; END. -- of MergeControl LOG when/who/what 16-Oct-84 11:09:57 - Jacks - Created. 12-Jun-85 18:05:34 - Jacks - Added copyright notice. 16-Jul-85 8:14:24 - Jacks - PSAsyncMsg interface change.