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. ΤMergeControl.mesa Copyright (C) Xerox Corporation 1984, 1985, 1986. All rights reserved. Last edited by Jacks 16-Jul-85 8:14:35 Tim Diebert: October 23, 1986 4:41:32 pm PDT <> In some cases the client is notified of problems found while merging and may continue (if continuable) or abort the document. Procedures called only once Enables (paused or stopped) merging and returns. Disables merging and returns; document in progress is given the status specified and put on the appropriate queue. If the document is put on the aborted queue, the cancel proc is called. IF wither=wait, returns TRUE when merging is stopped. IF wither=dontWait, return immediately. ΚΞ˜codešœ™KšœF™FKšœ'™'K™,—K˜K™:K˜šΟk ˜ Kšœ œ ˜Kšœœ ˜Kšœ œ#˜3Kšœœ ˜Kšœ œ˜K˜—KšΠln œœ œ˜'˜Kšœ œ˜*Kšœ œ˜$K˜Kšœ œ˜)š œ œ œLœœ œ˜ŽKšœ}™}K˜—Kšœ œ œE˜aK˜Kšœ ™ K˜šΟnœ œ[Οc?œ&˜ΟKšœ™—K˜šŸœ œ˜Kšœ0™0——˜šŸœ œFœ˜ZKšœ»™»——˜šŸœ œ!œœ˜EKšœ5™5Kšœ'™'——˜Kš Ÿœ œœ œ -˜[—˜KšŸœ œ˜0—˜Kšœ ˜K˜—Kšœ˜K˜%K˜4K˜9—…— Ύ