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