Copyright (C) Xerox Corporation 1983, 1984, 1985, 1986. All rights reserved.

Last edited by Jacks 13-Dec-85 16:49:21

Tim Diebert: October 23, 1986 1:44:57 pm PDT

Ruseli Binsol: December 8, 1986 9:41:18 am PST

<<Procedures shared by all PSExec*Impl modules.>>

CHNameP2V0 USING [Name],

NSExec USING [ClientStatus, ExecProc, Handle, StopMode],

NSString USING [String],

PSExecMessages USING [Key],

XMessage USING [StringArray];

OPEN CHName: CHNameP2V0;

==== ==== ====

COPIED TYPES:

==== ==== ====

==== ==== ====

TYPES:

==== ==== ====

KeyList: TYPE = REF KeyListRep;

KeyListRep: TYPE ~ RECORD [keys: SEQUENCE cnt: CARDINAL OF PSExecMessages.Key];

ChoiceList: TYPE ~ REF XMessage.StringArray;

RegCode: TYPE = {

==== ==== ====

VARIABLES:

==== ==== ====

printServiceName: CHName.Name; --Fully qualified name of the Print Service; may be NIL.

developmentMode: BOOLEAN; --set TRUE if server is booted with development switch

==== ==== ==== ==== ==== ==== ==== ==== ==== ==== ==== ==== ==== ====

NSEXEC CLIENT PROCS:

These procedures are parameters in the call to NSExec.CreateClient.

NSExec.ExecProc: TYPE = PROCEDURE [exec: Handle]--

==== ==== ==== ==== ==== ==== ==== ==== ==== ==== ==== ==== ==== ====

Initialize: PROCEDURE [exec: NSExec.Handle, normal: BOOLEAN];

Start: NSExec.ExecProc;

Stop: PROCEDURE [exec: NSExec.Handle, stopMode: NSExec.StopMode];

Expunge: NSExec.ExecProc; --called when print service is being permanently removed from a server. This proc should delete any data files created during runtime, but will not be needed after the print service is permanently removed.

Name: PROCEDURE [nameProc: PROCEDURE [clientName: NSString.String]];

Status: PROCEDURE [statusProc: PROCEDURE [status: NSExec.ClientStatus, comment: NSString.String]];

PrintServiceCommand: NSExec.ExecProc; --called whenever "Print Service" command is entered at Services Executive.

==== ==== ==== ==== ==== ==== ==== ==== ==== ==== ====

COMMAND PROCESSING ROUTINES:

NSExec.ExecProc: TYPE = PROCEDURE [exec: Handle]--

==== ==== ==== ==== ==== ==== ==== ==== ==== ==== ====

DisplayDocuments: NSExec.ExecProc;

CancelDocuments: NSExec.ExecProc;

StartQueuingAndPrinting: NSExec.ExecProc;

StopQueuingAndPrinting: NSExec.ExecProc;

StartPrinting: NSExec.ExecProc;

StopPrinting: NSExec.ExecProc;

StartQueuing: NSExec.ExecProc;

StopQueuing: NSExec.ExecProc;

StartDiagnostic: NSExec.ExecProc;

ShutDownPrinter: NSExec.ExecProc;

WakeUpPrinter: NSExec.ExecProc;

ResetStatistics: NSExec.ExecProc;

RenamePrintService: NSExec.ExecProc;

DisplayFonts: NSExec.ExecProc;

DisplayTestPatterns: NSExec.ExecProc;

DeleteFonts: NSExec.ExecProc;

DeleteTestPatterns: NSExec.ExecProc;

InstallFromFloppy: NSExec.ExecProc;

PrintTestPattern: NSExec.ExecProc;

SetParameters: NSExec.ExecProc;

PutPrinterDisplay: NSExec.ExecProc;

GetPrinterDisplay: NSExec.ExecProc;

SetTargetPrintService: NSExec.ExecProc;

SetTrace: NSExec.ExecProc;

DisplayPrintServiceStatus: NSExec.ExecProc;

QueryTargetPrintService: NSExec.ExecProc;

==== ==== ==== ====

SUPPORT ROUTINES:

==== ==== ==== ====

DisplayCount: PROCEDURE [exec: NSExec.Handle, count: CARDINAL,
msg: PSExecMessages.Key];

ExpandKeyAndPrint: PROCEDURE [exec: NSExec.Handle, template: PSExecMessages.Key, stringArray: ChoiceList];

ExpandArrayAndPrint: PROCEDURE [exec: NSExec.Handle, template: NSString.String,
stringArray: ChoiceList];

ExpandArrayAndPrintAsync: PROCEDURE [template: NSString.String,
stringArray: ChoiceList];

GetList: PROCEDURE [length: CARDINAL, keys: KeyList, stringArray: ChoiceList];

Print: PROCEDURE [exec: NSExec.Handle, message: NSString.String];

DeleteServiceFromClearinghouse: PROCEDURE [exec: NSExec.Handle]
RETURNS [code: RegCode];

RegisterServiceAtClearinghouse: PROCEDURE [exec: NSExec.Handle]
RETURNS [code: RegCode, serviceName: CHName.Name ← [NIL, NIL, NIL]];

END. --PSExecInternal

LOG

5-Dec-83 14:38:14 - Jacks - Added ExpandArrayAndPrint.

9-Jan-84 13:29:04 - Jacks - Added command processing routines from PSTTYExecCImpl and PSTTYExecDImpl.

7-Feb-84 11:37:51 - Jacks - Removed SetRegistration.

3-Apr-84 18:41:41 - Jacks - Added Exec.Handle's to support routines.

3-Oct-84 11:26:37 - Jacks - Renamed from PSTTYExecInternal to PSExecInternal; Added ExpandArrayAndPrintAsync, DeleteServiceFromClearinghouse and RegisterAsyncMessageProc; added all PSExecAImpl exec procs; added all NSExec client procs.