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.