DIRECTORY BasicTime, Commander, ComputeServerClient, ComputeServerCallbacksRpcControl, ComputeServerControllerRpcControl, ComputeServer, ComputeServerServer, InterpreterToolPrivate, IO, PrincOps, 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, nonBackgroundCPULoad: REAL, reclamationRate: REAL, freeProcesses: CARDINAL, userName: RPC.ShortROPE, currentRequests: LIST OF ComputeServer.Request, numberOfCurrentRequests: INT _ 0, aveBackgroundLoad: REAL _ 0 ]; ServerStatus: TYPE = REF ServerStatusRecord; ServerStatusList: LIST OF ServerStatus; IAmTheController: BOOL; ControllerMovingAway: BOOL; TimeIBecameTheController: BasicTime.GMT; GrabController: BOOL; END. ^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, May 9, 1986 8:03:44 am PDT Hal Murray, March 22, 1986 9:16:32 pm PST Copyright c 1984 by Xerox Corporation. All rights reserved. Κk˜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˜šœžœžœ˜#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˜—M˜Mšœžœžœ˜,Mšœžœžœ˜'M˜Nšœžœ˜Nšœžœ˜Nšœ$žœ˜(Nšœžœ˜Nšžœ˜—M™—…—Έ