-- Copyright (C) 1987 by Xerox Corporation. All rights reserved. -- Stub file was translated on March 25, 1987 3:05:33 pm PST by Lupine of January 22, 1987 5:37:32 pm PST -- Source interface AlpineTransaction came from file AlpineTransaction.bcd, which was created on March 25, 1987 12:09:56 pm PST with version stamp 241#325#34113501335 from source of May 2, 1986 10:10:03 am PDT. -- The RPC stub modules for AlpineTransaction are: -- AlpineTransactionRpcControl.mesa; -- AlpineTransactionRpcClientImpl.mesa; -- AlpineTransactionRpcBinderImpl.mesa; -- AlpineTransactionRpcServerImpl.mesa. -- The parameters for this translation are: -- Target language = Cedar -- Default parameter passing = VALUE -- Deallocate server heap arguments = TRUE -- Inline RpcServerImpl dispatcher stubs = TRUE -- Declare signals = FALSE -- Warn about short POINTER ("MDS") allocations = TRUE -- Maximum number of dynamic heap NEWs = 50, MDS NEWs = 50 -- Acceptable parameter protocols = VersionRange[1..1]. -- NOTE: Discard this module unless you use dynamic client binding. DIRECTORY AlpineTransaction, AlpineTransactionRpcControl USING [ImportInterface, InterfaceRecord, InterfaceRecordObject], RPC USING [InterfaceName, Zones], RPCLupine --USING SOME OF [ImportInterfaceWithHost, noHost, RPCHost]--; AlpineTransactionRpcBinderImpl: MONITOR IMPORTS AlpineTransaction, RpcControl: AlpineTransactionRpcControl, RpcPrivate: RPCLupine EXPORTS AlpineTransactionRpcControl SHARES AlpineTransaction, AlpineTransactionRpcControl = BEGIN OPEN RpcPublic: RPC; -- Dynamic instantiation and binding routines. ImportNewInterface: PUBLIC SAFE PROCEDURE [ interfaceName: RpcPublic.InterfaceName, parameterStorage: RpcPublic.Zones, hostHint: RpcPrivate.RPCHost←RpcPrivate.noHost ] RETURNS [interfaceRecord: RpcControl.InterfaceRecord] = TRUSTED BEGIN interfaceRecord ← NewInterfaceRecord[]; RpcControl.ImportInterface[ interface: interfaceRecord, interfaceName: interfaceName, hostHint: hostHint, parameterStorage: parameterStorage]; END; -- Utility routines for interface instantiation and caching. NewInterfaceRecord: PUBLIC SAFE PROCEDURE RETURNS [interfaceRecord: RpcControl.InterfaceRecord] = TRUSTED BEGIN interfaceRecord ← NEW[RpcControl.InterfaceRecordObject]; END; -- No module initialization. END. -- AlpineTransactionRpcBinderImpl.