<> <> <> <> <> DIRECTORY ComputeServerClient, Pup USING [Address], Rope, RPC; ComputeServer: CEDAR DEFINITIONS = BEGIN Request: TYPE = RECORD [ service: Rope.ROPE, serverPupAddress: Pup.Address, userName: RPC.ShortROPE ]; AskForService: PROC [service: Rope.ROPE, version: RPC.ShortROPE, clientMachineName: RPC.ShortROPE, userName: RPC.ShortROPE] RETURNS [found: ATOM, serverPupAddress: Pup.Address, errMsg: Rope.ROPE]; <> <> <> <> DoService: PROC [serverPupAddress: Pup.Address, clientNetAddressRope: RPC.ShortROPE, commandLine: Rope.ROPE, WorkingDirectory: Rope.ROPE, needRemoteInStream: BOOL, needRemoteOutStream: BOOL] RETURNS [success: ComputeServerClient.RemoteSuccess, msg: Rope.ROPE _ NIL]; AskForAbort: PROC [serverPupAddress: Pup.Address]; GenericClientToServer: PROC [requestCode: ATOM, requestString: Rope.ROPE] RETURNS [resultCode: ATOM, resultString: Rope.ROPE]; -- generic call to allow for expansion without RPC interface recompilation END. <> <> <> <> <<>> <<>>