DIRECTORY BasicTime, Commander, ComputeServerClient, ComputeServerCallbacksRpcControl, ComputeServerControllerRpcControl, InterpreterToolPrivate, IO, PrincOps, Pup USING [Address], Rope, RPC, RuntimeError, SymTab; ComputeClientInternal: CEDAR DEFINITIONS = BEGIN ROPE: TYPE = Rope.ROPE; STREAM: TYPE = IO.STREAM; ClientMachineName: RPC.ShortROPE ; StreamPupAddress: Pup.Address; myNetAddressRope: ROPE; CachePrefixesOKToRead: LIST OF ROPE; serviceState: TYPE = REF serviceStateObject; serviceStateObject: TYPE; ControllerGVName: ROPE; ControllerInterface: ComputeServerControllerRpcControl.InterfaceRecord; TristateBool: TYPE = {true, halftrue, false}; Enabled: TristateBool; TryToImportController: PROC; PokeTheController: PROC; GetControllerInterfaceProcess: PROC [forceImport: BOOL _ FALSE]; MatchPupAddress: PROC [serverPupAddress: Pup.Address] RETURNS [found: BOOL, item: serviceState]; ServiceListObject: TYPE = RECORD [ listenerPupAddress: Pup.Address, serverInstance: ROPE _ NIL, command: ROPE _ NIL, process: PROCESS ]; GetCurrentServices: PROC RETURNS [serviceList: LIST OF REF ServiceListObject _ NIL]; END. žComputeClientInternal.mesa The internal server interface for the Client. This interface resides on the client, is internal to the Summoner, and is not an RPC interface. Last Edited by: Bob Hagmann, May 9, 1986 7:59:08 am PDT Hal Murray, March 22, 1986 10:29:41 pm PST Copyright c 1984 by Xerox Corporation. All rights reserved. Bob Hagmann March 10, 1985 12:14:39 pm PST changes to: ComputeClientInternal Κ˜headšœ™IbodyšœŽ™ŽL™7Icode™*Jšœ Οmœ1™<code2šΟk ˜ Nšœ ˜ N˜ N˜N˜!Nšœ"˜"N˜Nšžœ˜Nšœ ˜ Nšœžœ ˜Nšœ˜Nšžœ˜Nšœ ˜ N˜——šœžœž œ˜*Nšž˜Nšžœžœžœ˜Nšžœžœžœžœ˜Nšœžœ ˜"Nšœ˜Nšœžœ˜Nšœžœžœžœ˜$Nšœžœžœ˜,Nšœžœ˜Nšœžœ˜NšœG˜GNšœžœ˜-Nšœ˜NšΟbœžœ˜NšΠbnœžœ˜NšΟnœžœžœžœ˜@Nš œžœ!žœ žœ˜`N˜šœžœžœ˜"Jšœ ˜ Jšœžœžœ˜Jšœ žœž˜Jšœ ž˜Jšœ˜—Nš œžœžœžœžœžœžœ˜TNšžœ˜—™*Mšœ Οr™!—M™—…—b