LarkFeepRpcControl.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,
Thrush;
LarkFeepRpcControl: CEDAR DEFINITIONS =
BEGIN
InterfaceName: TYPE = RPC.InterfaceName;
InterfaceRecord: TYPE = REF InterfaceRecordObject;
InterfaceRecordObject: TYPE = RECORD [
myInterface: REF ¬ NIL,
paramZones: RpcZones ¬ RpcStandardZones,
clientStubFeep: SAFE PROCEDURE [interface: InterfaceRecord,
shhh: Thrush.SHHH, serviceID: RefID.ID, convID: Thrush.ConversationID, requestingParty: Thrush.PartyID, number: Rope.ROPE, noisy: BOOLEAN, on, off: CARDINAL]
RETURNS [nb: Thrush.NB],
clientStubFlash: SAFE PROCEDURE [interface: InterfaceRecord,
shhh: Thrush.SHHH, serviceID: RefID.ID, convID: Thrush.ConversationID, requestingParty: Thrush.PartyID, actionID: Thrush.ActionID, extraTime: CARDINAL]
RETURNS [nb: Thrush.NB],
bound: BOOL ¬ FALSE];
RpcZones: TYPE = RECORD [
gc: REF ¬ NIL,
heap: REF ¬ NIL,
mds: REF ¬ NIL ];
RpcStandardZones: RpcZones = [];
END.