DIRECTORY PrintingTypes USING [Option], PSAsyncMsg USING [Proc], System USING [UniversalID]; QueueControl: CEDAR DEFINITIONS = BEGIN TraceLevel: TYPE = {none, mini, verbose}; CompletionStatus: TYPE = {successful, aborted, spoolFailure}; CompletionProc: TYPE = PROCEDURE [ status: CompletionStatus, documentID: System.UniversalID, docsPrinted, docsTransmitted: CARDINAL _ 0 ]; Init: PROCEDURE [printingOption: PrintingTypes.Option, documentCompleted: CompletionProc, --proc called whenever a doc completes putAsyncMsgFromKey: PSAsyncMsg.Proc, trace: TraceLevel --needed at init because queue processing starts right away ]; ModifyTraceLevel: PROCEDURE [trace: TraceLevel]; Cleanup: PROCEDURE; ProcessAbortedQueue: PROCEDURE; ProcessMarkedQueue: PROCEDURE; ProcessForwardedQueue: PROCEDURE; --Applies to FEPS/remote9700. WaitAbortQueueEmpty: PROCEDURE; END. --QueueControl LOG 25-Aug-83 10:42:31 - Jacks - Created as part of PSCommand rework. These procs used to be defined in PSExec. 26-Oct-83 15:14:20 - Jacks - Added Init proc (see PSQManagerImpl). 16-Nov-83 16:22:59 - Jacks - Added parameters to Init. 18-Nov-83 15:10:53 - Jacks - Renamed from PSQManager to QueueControl. 6-Dec-83 9:35:34 - Jacks - Added PutAsyncMsgFromKey to Init; defined TraceLevel locally. 16-Dec-83 13:54:23 - Jacks - Removed queue stages from and added documentsTransmitted to Init. 26-Jan-84 22:50:05 - Jacks - Added Cleanup. 15-Sep-84 15:59:24 - Jacks - Added ModifyTraceLevel and ProcessForwardedQueue and removed trace from init parms. 15-Nov-84 16:40:53 - Jacks - Replace CountProcs and ActivityProc with Completion Proc as Init parm; removed unused procs: ProcessDecomposedQueue and ProcessSpooledQueue. 14-Jun-85 16:45:45 - Jacks - Added copyright notice. 16-Jul-85 8:17:03 - Jacks - PSAsyncMsg interface change. 11-Apr-86 10:17:18 - Jacks - Added printingOption to Init parms. 0QueueControl.mesa Copyright (C) Xerox Corporation 1983, 1984, 1985, 1986. All rights reserved. Last edited by Jacks 11-Apr-86 10:17:29 Tim Diebert: October 23, 1986 4:42:54 pm PDT Called when the print service is being permanently removed from a server. Proc should release any storage allocated. Κx˜codešœ™KšœL™LKšœ'™'K™,—K˜šΟk ˜ Kšœœ ˜Kšœ œ˜Kšœœ˜—K˜šΠln œœ œ˜'K˜Kšœ œ˜)Kšœœ'˜=šœœ œ˜"K˜K˜Kšœœ˜*K˜—K˜KšΟnœ œKΟc&œ8 ;œ˜φ—˜KšŸœ œ˜0K˜šŸœ œ˜Kšœu™u—K˜KšŸœ œ˜KšŸœ œ˜KšŸœ œ ˜?K˜KšŸœ œ˜K˜Kšœ ˜K˜Kš˜—K˜lK˜BK˜6˜EK˜Z—K˜^K˜+K˜pK˜©K˜4K˜9K˜@—…—V ώ