<> <> <> <> <> DIRECTORY MarkerControl USING [ClientProcsHandle], PrintQueue USING [QueueStage], PSAsyncMsg USING [Proc], XNS USING [Address]; SpoolControl: CEDAR DEFINITIONS = BEGIN SpoolStatus: TYPE = RECORD [ enabled: BOOLEAN, connectionsAllowed: CARDINAL, -- maximum allowable concurrent Courier connections currentConnections: CARDINAL ]; WaitChoice: TYPE = {wait, dontWait}; TraceLevel: TYPE = {none, mini, verbose}; Init: PROCEDURE [maxConnections: CARDINAL, markerProcs: MarkerControl.ClientProcsHandle, putAsyncMsgFromKey: PSAsyncMsg.Proc] RETURNS [XNS.Address]; Start: PROCEDURE; <> Suspend: PROCEDURE; <> Stop: PROCEDURE [disposeQ: PrintQueue.QueueStage]; <> Stopped: PROCEDURE [wither:WaitChoice _ dontWait] RETURNS[BOOLEAN]; <> <> ModifyTraceLevel: PROCEDURE [trace: TraceLevel]; Connections: PROCEDURE [number: INTEGER]; <> Status: PROCEDURE RETURNS [spoolStatus: SpoolStatus]; <<==== ==== ==== ==== ====>> <> <<==== ==== ==== ==== ====>> Control: TYPE = RECORD [ abortedQ: PrintQueue.QueueStage _ aborted, allowConnection, abortCurrent, printingPreempt, resumePrinting: BOOLEAN _ FALSE, currentConnections: CARDINAL _ 0, maxConnections: CARDINAL _ 0, markerProcs: MarkerControl.ClientProcsHandle _ NIL, putAsyncMsgFromKey: PSAsyncMsg.Proc _ NIL, trace: TraceLevel _ none]; ControlHandle: TYPE = REF Control; control: PRIVATE ControlHandle; ErrorTypes: TYPE = {busy, spoolFull, spoolingDisabled, tooManyConnections}; Error: PRIVATE ERROR [type: ErrorTypes]; <<==== ==== ==== ==== ====>> <> <<==== ==== ==== ==== ====>> ConnectionClosed: PRIVATE PROCEDURE; FilterConnection: PRIVATE PROCEDURE; END. LOG February 10, 1981 1:33 PM by J.Beeley Action: Created file. April 13, 1981 4:10 PM by JB. Upgraded interface to be consistant with other PrintServer control interfaces. May 28, 1981 4:35 PM by JB. Imported TraceLevel from PSExec. June 19, 1981 5:03 PM by JB. Added ModifyTraceLevel, System.NetworkAddress. July 8, 1981 9:15 PM by JB. Defined TraceLevel locally; removed ListQueue, AbortQueue. September 23, 1981 5:08 PM by JB. Modified to define allocatable queue pages. 15-Sep-82 13:26:26 - JB - Converted for use by Telepress and NSPrint server modules. 19-Oct-82 9:30:06 - JB - Added Volume.PageCount to queue page allocation; change QueuePages to RecalculateQueuePages. 14-Feb-83 14:02:29 - JB - Added 'busy' to ErrorTypes. 5-Aug-83 13:56:43 - Jacks - Changes for PSCommand rework: Changed CommandInterface.TraceLevel to PSState.TraceLevel. 8-Nov-83 9:44:23 - Jacks - Removed PSState.TraceLevel and defined it locally to be consistent with DecomposerControl and MarkerControl. 6-Dec-83 9:36:23 - Jacks - Added PutAsyncMsgFromKey to Init. 19-Dec-83 15:29:24 - Jacks - Removed queue stages from Init and Control; removed trace from Init. 26-Jan-84 22:48:53 - Jacks - Added Cleanup. 8-Nov-84 11:33:42 - Jacks - Removed Cleanup. 13-Jun-85 12:53:33 - Jacks - Added copyright notice. 22-Jul-85 15:05:16 - Jacks - Removed RecalculateQueuePages; removed queuePages and allocatedPages from SpoolStatus; PSAsyncMsg interface change.