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. ή 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 Κ¨•NewlineDelimiter –(cedarcode) style™codešœ™K™Kšœ Οeœ7™BK™±K™2—K˜šΟk ˜ Kšžœžœ˜Kšœ˜K˜—KšΟnœžœž œ˜'Kšž˜K˜Kšœžœžœ˜(K˜Kšœžœžœ˜2K˜šœžœžœ˜&Kšœ žœžœ˜K˜(Kšœžœž œ+žœ˜pKšœžœž œ+žœ˜tKšœžœž œ+žœX˜­Kš œžœž œ+žœ/žœ(žœžœ˜ΛKšœžœžœ˜—K˜šœ žœžœ˜Kšœžœžœ˜Kšœžœžœ˜Kšœžœžœ˜—K˜Kšœ ˜ K˜Kšžœ˜—…—š