DIRECTORYBasicTime,Commander,ComputeServerClient,ComputeServerCallbacksRpcControl,ComputeServerControllerRpcControl,ComputeServerDebuggerRpcControl,InterpreterToolPrivate,IO,PrincOps,PupDefs,Rope,RPC,RuntimeError,SymTab;ComputeClientInternal: CEDAR DEFINITIONS =BEGINROPE: TYPE = Rope.ROPE;STREAM: TYPE = IO.STREAM;ClientMachineName: RPC.ShortROPE ;StreamPupAddress: PupDefs.PupAddress;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: PupDefs.PupAddress] RETURNS [found: BOOL, item: serviceState];ServiceListObject: TYPE = RECORD [listenerPupAddress: PupDefs.PupAddress,serverInstance: ROPE _ NIL,command: ROPE _ NIL];GetCurrentServices: PROC RETURNS [serviceList: LIST OF REF ServiceListObject _ NIL];END.   x  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, October 2, 1985 11:35:45 am PDT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™<Jšœ
Ïmœ1™<code2šÏk	˜	Mšœ
˜
M˜
M˜M˜!Mšœ"˜"Mšœ ˜ M˜Mšžœ˜Mšœ	˜	M˜Mšœ˜Mšžœ˜Mšœ˜M˜——šœžœžœ˜*Mšž˜Mšžœžœžœ˜Mšžœžœžœžœ˜Mšœžœ˜"Mšœ%˜%Mšœžœ˜Mšœžœžœžœ˜$Mšœžœžœ˜,Mšœžœ˜Mšœžœ˜MšœG˜GMšœžœ˜-Mšœ˜MšÏbœžœ˜MšÐbnœžœ˜MšÏnœžœžœžœ˜@Mš œžœ(žœ	žœ˜gM˜ šœžœžœ˜"Jšœ'˜'Jšœžœžœ˜Jšœ	žœž˜Jšœ˜—Mš œžœžœžœžœžœžœ˜TMšžœ˜—code™*NšœÏr™!—N™ — …—    z    