SynthesizerServerRpcControl.mesa
Stub for use by Finch.
Copyright Ó 1990, 1992 by Xerox Corporation. All rights reserved.
Polle Zellweger (PTZ) July 25, 1990 7:31:14 pm PDT
DIRECTORY
RPC USING [ InterfaceName ],
RefID,
Rope,
Synthesizer,
Thrush;
SynthesizerServerRpcControl: CEDAR DEFINITIONS =
BEGIN
InterfaceName: TYPE = RPC.InterfaceName;
InterfaceRecord: TYPE = REF InterfaceRecordObject;
InterfaceRecordObject: TYPE = RECORD [
myInterface: REF ¬ NIL,
paramZones: RpcZones ¬ RpcStandardZones,
clientStubTextToSpeech: SAFE PROCEDURE [interface: InterfaceRecord,
shhh: Thrush.SHHH, credentials: Thrush.Credentials, serviceID: RefID.ID, textToSpeak: Rope.ROPE, actionID: Synthesizer.ActionID, filter: BOOL, queueIt: BOOL]
RETURNS [nb: Thrush.NB],
clientStubStopSpeech: SAFE PROCEDURE [interface: InterfaceRecord,
shhh: Thrush.SHHH, credentials: Thrush.Credentials, serviceID: RefID.ID, reset: BOOL]
RETURNS [nb: Thrush.NB],
clientStubGetSynthesizerSpecifications: SAFE PROCEDURE [interface: InterfaceRecord,
shhh: Thrush.SHHH, serviceID: RefID.ID]
RETURNS [nb: Thrush.NB, synthesizerModel: ATOM, synthesizerVersion: ATOM],
bound: BOOL ¬ FALSE];
RpcZones: TYPE = RECORD [
gc: REF ¬ NIL,
heap: REF ¬ NIL,
mds: REF ¬ NIL ];
RpcStandardZones: RpcZones = [];
END.