SynthesizerServerSunRPCClientStub.mesa
Copyright Ó 1990, 1992 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
DIRECTORY
SunRPC,
ThrushSunRPC,
SRPCCalls,
SynthesizerServerSunRPC,
SynthesizerServerSunRPCClient;
SynthesizerServerSunRPCClientStub: CEDAR PROGRAM
IMPORTS SunRPC, SRPCCalls
EXPORTS SynthesizerServerSunRPCClient ~ {
OPEN SynthesizerServerSunRPC, SRPCCalls;
Handle: TYPE ~ SunRPC.Handle;
GetError: SunRPCGetErrorProc ~ {
};
Remote Procedures --
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];
};
}...