<> 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. SpoolControl.mesa Copyright (C) Xerox Corporation 1981, 1982, 1983, 1984, 1985, 1986. All rights reserved. Last modified by Jacks on 22-Jul-85 15:05:21. Tim Diebert: December 29, 1986 10:13:44 am PST Enables spooling and returns. Undoes a Suspend or Stop. Stops ongoing activity and refuses new connection requests. Aborts ongoing activity and refuses new connection requests. Spooling in progress is aborted and the associated QueueObjects are placed in disposeQ. IF wither=wait, returns TRUE when spooling is stopped. IF wither=dontWait, return immediately. Add (subtract) number allowable concurrent network connections. ==== ==== ==== ==== ==== Communications Control ==== ==== ==== ==== ==== ==== ==== ==== ==== ==== Control Procs ==== ==== ==== ==== ==== ΚT˜
codeš
œ™Kš
œX™XKš
œ-™-K™.—K˜K˜=K˜š
Οk ˜ Kšœœ˜(Kšœœ˜Kšœœ˜Kšœ
œ˜—K˜KšΠlnœœ
œ˜'˜šœ œœ˜Kšœ œ
˜KšœœΟc3˜QKšœ˜K˜——˜Kšœœ˜$Kšœœ˜)—˜Kš Οnœ œœUœœ ˜”
K˜š œ œ
˜Kš
œ8™8——˜š œ œ
˜Kš
œ;™;—K˜š œ œ#˜2Kš
ϥ
™•
——˜š œ œ œ
œ˜CKš
œ6™6Kš
œ'™'——˜Kš œ œ˜0—˜š œ œ œ˜)Kš
œ?™?——˜Kš œ œ
œ˜5—˜Kš
œ™Kš
œ™Kš
œ™K˜šœ œœ˜K˜*Kšœ@œœ
˜PKšœœ˜!Kšœœ˜Kšœ/œ
˜3Kšœ&œ
˜*K˜K˜—Kšœœœ ˜"—˜šœ œ˜K˜—Kšœœ;˜K—˜Kš œœ
œ˜(—˜Kš
œ™Kš
œ ™ Kš
œ™K˜Kš œœ
 œ
˜$K˜š œœ
 œ
˜$K˜—Kšœ
˜—K˜Kš
˜Kšœœ#˜=KšœœœP˜mKšœœœ"˜=Kšœœœ0˜LKšœœœ<˜WKšœœœ-˜NKšœœ=˜TKšœœ_˜všœœ˜5K˜tK˜‰
K˜=—K˜b˜+K˜,—K˜4K˜
—…—¬