ThSmartsRpcControl.mesa
Stub for use by Finch.
Copyright Ó 1990, 1992 by Xerox Corporation. All rights reserved.
-- Stub file was translated on February 20, 1988 4:24:13 pm PST by Lupine of January 22, 1987 5:37:32 pm PST
-- Source interface ThSmarts came from file ThSmarts.bcd, which was created on February 20, 1988 4:24:04 pm PST with version stamp 206#16#37372555256 from source of August 9, 1987 4:50:30 pm PDT.
Polle Zellweger (PTZ) July 25, 1990 7:31:14 pm PDT
DIRECTORY
RPC USING [ InterfaceName ],
Thrush;
ThSmartsRpcControl: CEDAR DEFINITIONS =
BEGIN
InterfaceName: TYPE = RPC.InterfaceName;
InterfaceRecord: TYPE = REF InterfaceRecordObject;
InterfaceRecordObject:
TYPE =
RECORD [
myInterface: REF ¬ NIL,
paramZones: RpcZones ¬ RpcStandardZones,
clientStubProgress: SAFE PROCEDURE [interface: InterfaceRecord,
shh: Thrush.SHHH, convEvent: Thrush.ConvEvent],
clientStubReportAction: SAFE PROCEDURE [interface: InterfaceRecord,
shh: Thrush.SHHH, report: Thrush.ActionReport],
clientStubSubstitution: SAFE PROCEDURE [interface: InterfaceRecord,
shh: Thrush.SHHH, convEvent: Thrush.ConvEvent, oldPartyID: Thrush.PartyID,
newPartyID: Thrush.PartyID],
clientStubCheckIn: SAFE PROCEDURE [interface: InterfaceRecord,
shh: Thrush.SHHH, credentials: Thrush.Credentials, voicePath:
BOOL, reason: Thrush.Reason, remark: Thrush.ROPE, nextScheduledCheck:
INT],
bound: BOOL ¬ FALSE];
RpcZones:
TYPE =
RECORD [
gc: REF ¬ NIL,
heap: REF ¬ NIL,
mds: REF ¬ NIL ];
RpcStandardZones: RpcZones = [];
END.