DIRECTORY ComputeServerClient, IO, Rope; ComputeClientExtras: CEDAR DEFINITIONS = BEGIN ROPE: TYPE = Rope.ROPE; PendingRequest: TYPE = RECORD[ service: ROPE, serverName: ROPE, process: PROCESS ]; StartServiceExtra: PROC [service: ROPE, version: ROPE _ NIL, cmdLine: ROPE, in, out: IO.STREAM, queueService: BOOL _ FALSE, timeToWait: INT _ 3600, retries: NAT _ 3, serverName: ROPE _ NIL] RETURNS [found: BOOL, success: ComputeServerClient.RemoteSuccess, remoteMsg: ROPE, serverInstance: ROPE]; OutstandingRequests: PROC RETURNS [requests: LIST OF PendingRequest]; RemoteProcessSite: PROC [process: PROCESS] RETURNS [serverName: ROPE]; END. ΄ComputeClientExtras.mesa The Compute Client interface. This interface is between the Client (the rest of the Cedar world) and the Client code for the Summoner on the workstation, and thus is not an RPC interface. It is a variant of the ComputeServerClient.mesa interface, but is faster since it avoids one level of procedure call. Extras interface to add serverName to StartService Last Edited by: Bob Hagmann, May 5, 1986 4:51:28 pm PDT Copyright c 1985 by Xerox Corporation. All rights reserved. Identical to ComputeServerClient.StartService, except that the serverName argument is added. If "serverName" is non-NIL, then the server is contracted directly, bypassing the Controller. Servers may be specified by their name (e.g., "Bataan") or by their network address (e.g., "3#277#"). Return a list of actively running requests from this workstation. Requests queued, not started yet, or competed are not returned. Given a local process number, if it is currently doing a compute server request, return the server name currently doing the service. NIL is returned if there is no current server. No guarentee is given that the request is still at the server when this procedure returns. Κ†˜headšœ™Ibodyšœ³™³Lšœ&Οn ™2L™7Jšœ Οmœ1™<code2šΟk ˜ Mšœ˜M˜Mšœ˜——šœŸœŸ œ˜(MšŸ˜MšŸœŸœŸœ˜šœŸœŸœ˜Mšœ Ÿœ˜Mšœ Ÿœ˜Mšœ Ÿ˜M˜—š$œŸœ Ÿœ ŸœŸœ Ÿœ ŸœŸœŸœŸœŸœŸœŸœŸœŸœ Ÿœ9ŸœŸœ˜§Mšœ\™\M™MšœΔ™Δ—š œŸœŸœ ŸœŸœ˜EM™‚—Icode˜š œŸœ ŸœŸœŸœ˜FMšœ†Ÿœ‡™—N˜MšŸœ˜—N™—…—‚Ό