DIRECTORY SunRPC, ThrushSunRPC, SRPCCalls, SynthesizerServerSunRPC, SynthesizerServerSunRPCClient; SynthesizerServerSunRPCClientStub: CEDAR PROGRAM IMPORTS SunRPC, SRPCCalls EXPORTS SynthesizerServerSunRPCClient ~ { OPEN SynthesizerServerSunRPC, SRPCCalls; Handle: TYPE ~ SunRPC.Handle; GetError: SunRPCGetErrorProc ~ { }; GetSynthesizerSpecifications: PUBLIC GetSynthesizerSpecificationsType ~ { PutArgs: SunRPCPutArgsProc ~ { SunRPC.PutCard32[h, shhh]; SunRPC.PutCard32[h, serviceID]; }; GetResults: SunRPCGetResultsProc ~ { nb _ SunRPC.GetRope[h]; synthesizerModel _ SunRPC.GetRope[h]; synthesizerVersion _ SunRPC.GetRope[h]; }; SunRPCCall[h~h, remoteProc~3 , putArgs~PutArgs, getResults~GetResults, getError~GetError]; }; StopSpeech: PUBLIC StopSpeechType ~ { PutArgs: SunRPCPutArgsProc ~ { SunRPC.PutCard32[h, shhh]; SunRPC.PutCard32[h, credentials.partyID]; SunRPC.PutCard32[h, credentials.smartsID]; SunRPC.PutCard32[h, credentials.convID]; SunRPC.PutCard32[h, ORD[credentials.state]]; SunRPC.PutCard32[h, credentials.stateID]; SunRPC.PutCard32[h, serviceID]; SunRPCPutBool[h, reset]; }; GetResults: SunRPCGetResultsProc ~ { nb _ SunRPC.GetRope[h]; }; SunRPCCall[h~h, remoteProc~2 , putArgs~PutArgs, getResults~GetResults, getError~GetError]; }; TextToSpeech: PUBLIC TextToSpeechType ~ { PutArgs: SunRPCPutArgsProc ~ { SunRPC.PutCard32[h, shhh]; SunRPC.PutCard32[h, credentials.partyID]; SunRPC.PutCard32[h, credentials.smartsID]; SunRPC.PutCard32[h, credentials.convID]; SunRPC.PutCard32[h, ORD[credentials.state]]; SunRPC.PutCard32[h, credentials.stateID]; SunRPC.PutCard32[h, serviceID]; SunRPC.PutRope[h, textToSpeak]; SunRPC.PutCard32[h, actionID]; SunRPCPutBool[h, filter]; SunRPCPutBool[h, queueIt]; }; GetResults: SunRPCGetResultsProc ~ { nb _ SunRPC.GetRope[h]; }; SunRPCCall[h~h, remoteProc~1 , putArgs~PutArgs, getResults~GetResults, getError~GetError]; }; SunRPCCall: PROC [h: Handle, remoteProc: CARD, putArgs: SunRPCPutArgsProc, getResults: SunRPCGetResultsProc, getError: SunRPCGetErrorProc] ~ { SunRPCProgramCall[h: h, remoteProc: remoteProc, putArgs: putArgs, getResults: getResults, getError: getError]; }; }... NSynthesizerServerSunRPCClientStub.mesa Copyright Σ 1990 by Xerox Corporation. All rights reserved. Derived from SynthesizerServerP911V1ClientImpl.mesa Generated by Pier.pa at May 24, 1990 2:43:30 pm PDT using Sirocco [2.0] of February 10, 1989 6:26:26 pm PST Swinehart, September 16, 1990 12:42:31 pm PDT Remote Procedures -- Κ˜šœ&™&Jšœ<™