SynthesizerServerSunRPCToSynthesizerServer.mesa
Copyright Ó 1990, 1992 by Xerox Corporation. All rights reserved.
Pier, May 18, 1990 5:23:40 pm PDT
Polle Zellweger (PTZ) October 29, 1990 3:45:41 pm PST
Exports SynthesizerServerSunRPCServer, which is called by SynthesizerServerSunRPCServerStub, and calls the real SynthesizerServer routines.
DIRECTORY
SynthesizerServer,
SynthesizerServerSunRPC,
SynthesizerServerSunRPCServer,
Thrush,
ThrushSunRPC,
ThrushSunRPCConvert;
SynthesizerServerSunRPCToSynthesizerServer:
CEDAR
PROGRAM
IMPORTS SynthesizerServer, ThrushSunRPCConvert
EXPORTS SynthesizerServerSunRPCServer
~ {
OPEN SynthesizerServerSunRPC, SynthesizerServerSunRPCServer, ThrushSunRPCConvert;
GetSynthesizerSpecifications:
PUBLIC GetSynthesizerSpecificationsType = {
thNB: Thrush.NB;
thSM, thsV: ATOM;
[thNB, thSM, thsV] ¬ SynthesizerServer.GetSynthesizerSpecifications[shhh: Thrush.none, serviceID: serviceID];
nb ¬ ATOMToSr[thNB];
synthesizerModel ¬ ATOMToSr[thSM];
synthesizerVersion ¬ ATOMToSr[thsV];
};
StopSpeech:
PUBLIC StopSpeechType = {
thNB: Thrush.NB;
thNB ¬ SynthesizerServer.StopSpeech[shhh: Thrush.none, credentials: SrToCredentials[credentials], serviceID: serviceID, reset: reset];
nb ¬ ATOMToSr[thNB];
};
TextToSpeech:
PUBLIC TextToSpeechType = {
thNB: Thrush.NB;
thNB ¬ SynthesizerServer.TextToSpeech[shhh: Thrush.none, credentials: SrToCredentials[credentials], serviceID: serviceID, textToSpeak: SrToROPE[textToSpeak], actionID: actionID, filter: filter, queueIt: queueIt];
nb ¬ ATOMToSr[thNB];
};
}.
Polle Zellweger (PTZ) October 29, 1990 3:45:30 pm PST
Allow detection of NIL ropes across a SunRPC connection.
changes to: TextToSpeech