<> <> <> <> DIRECTORY IO, Rope, RPC; ComputeServerClient: CEDAR DEFINITIONS = BEGIN ROPE: TYPE = Rope.ROPE; RemoteSuccess: TYPE = {true, false, timeOut, commandNotFound, aborted, communicationFailure, cantImportController, cantImportServer, serverTooBusy, clientNotRunning}; <> <> <> <> <> <> <> <> <> <> <> StartServiceProc: TYPE = PROC [service: ROPE, version: ROPE _ NIL, cmdLine: ROPE, in, out: IO.STREAM, queueService: BOOL _ FALSE, timeToWait: INT _ 3600, retries: NAT _ 3] RETURNS [found: BOOL, success: RemoteSuccess, remoteMsg: ROPE, serverInstance: ROPE]; StartService: StartServiceProc ; <> <<>> <<>> BestServerStatsProc: TYPE = PROC RETURNS[success: RemoteSuccess, selfIsBest: BOOL, FOM: REAL]; BestServerStats: BestServerStatsProc ; <> <> RegisterProcs: PRIVATE PROC [StartService: StartServiceProc, BestServerStats: BestServerStatsProc ] ; <> END. <> <> <> <> << >>