ComputeControllerInternal.mesa
The internal controller interface for the Summoner. This interface resides on the controller, is internal to the Summoner, and is not an RPC interface.
Last Edited by: Bob Hagmann, October 1, 1985 10:54:08 am PDT
Copyright © 1984 by Xerox Corporation. All rights reserved.
DIRECTORY
BasicTime,
Commander,
ComputeServerClient,
ComputeServerCallbacksRpcControl,
ComputeServerControllerRpcControl,
ComputeServerDebuggerRpcControl,
ComputeServerServer,
ComputeServerUserRpcControl,
InterpreterToolPrivate,
IO,
PrincOps,
PupDefs,
Rope,
RPC,
RuntimeError,
SymTab;
ComputeControllerInternal:
CEDAR
DEFINITIONS =
BEGIN
ROPE: TYPE = Rope.ROPE;
STREAM: TYPE = IO.STREAM;
ServerStatusRecord:
TYPE =
RECORD [
serverMachineName: RPC.ShortROPE,
serverMachinePupAddress: RPC.ShortROPE,
newPackage: BOOL ← FALSE,
newQueueing: BOOL ← TRUE,
FOM: REAL ← 0.0,
timeOfStatus: BasicTime.GMT,
machineType: PrincOps.MachineType,
mainMemory: CARDINAL,
numberCPUs: CARDINAL,
diskPartionSize: INT,
freePagesOnDisk: INT,
freeboard: INT,
freeGFI: CARDINAL,
freeMDS: CARDINAL,
freeVM: CARDINAL,
oldestLRUFileDate: BasicTime.GMT,
CPULoad: REAL,
reclamationRate: REAL,
freeProcesses: CARDINAL
];
ServerStatus: TYPE = REF ServerStatusRecord;
ServerStatusList: LIST OF ServerStatus;
IAmTheController: BOOL;
ControllerMovingAway: BOOL;
TimeIBecameTheController: BasicTime.GMT;
GrabController: BOOL;
END.