ComputeServer.mesa
The Compute Server interface for the Summoner. This interface is between the Client and the Server and Controller, and is thus an RPC interface.
Last Edited by: Bob Hagmann, May 13, 1985 3:42:55 pm PDT
Copyright © 1984 by Xerox Corporation. All rights reserved.
DIRECTORY
ComputeServerClient,
PupDefs,
Rope,
RPC;
ComputeServer:
CEDAR
DEFINITIONS =
BEGIN
AskResponce: TYPE = {notFound, foundOK, foundButTooBusy};
AskForService: PROC [service: Rope.ROPE, version: RPC.ShortROPE, clientMachineName: RPC.ShortROPE, streamPupAddress: PupDefs.PupAddress, needListener: BOOL] RETURNS [found: AskResponce, serverPupAddress: PupDefs.PupAddress, errMsg: Rope.ROPE];
DoService: PROC [serverPupAddress: PupDefs.PupAddress, clientNetAddressRope: RPC.ShortROPE, commandLine: Rope.ROPE, WorkingDirectory: Rope.ROPE, needRemoteInStream: BOOL, needRemoteOutStream: BOOL] RETURNS [success: ComputeServerClient.RemoteSuccess, msg: Rope.ROPE ← NIL];
AskForAbort: PROC [serverPupAddress: PupDefs.PupAddress];
END.