<> <> <> <> 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. <> <> <<>>