<<>> <> <> <> <<-- 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.>> <> 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.