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 © 1984 by Xerox Corporation. All rights reserved.
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.