-- Copyright (C) 1987 by Xerox Corporation. All rights reserved. -- Stub file was translated on March 25, 1987 3:06:16 pm PST by Lupine of January 22, 1987 5:37:32 pm PST -- Source interface AlpineOwner came from file AlpineOwner.bcd, which was created on March 25, 1987 12:09:44 pm PST with version stamp 301#374#17634606554 from source of July 19, 1985 9:13:26 am PDT. -- The RPC stub modules for AlpineOwner are: -- AlpineOwnerRpcControl.mesa; -- AlpineOwnerRpcClientImpl.mesa; -- AlpineOwnerRpcBinderImpl.mesa; -- AlpineOwnerRpcServerImpl.mesa. -- The parameters for this translation are: -- Target language = Cedar -- Default parameter passing = VALUE -- Deallocate server heap arguments = TRUE -- Inline RpcServerImpl dispatcher stubs = FALSE -- 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 AlpineOwner, AlpineOwnerRpcControl USING [ImportInterface, InterfaceRecord, InterfaceRecordObject], RPC USING [InterfaceName, Zones], RPCLupine --USING SOME OF [ImportInterfaceWithHost, noHost, RPCHost]--; AlpineOwnerRpcBinderImpl: MONITOR IMPORTS AlpineOwner, RpcControl: AlpineOwnerRpcControl, RpcPrivate: RPCLupine EXPORTS AlpineOwnerRpcControl SHARES AlpineOwner, AlpineOwnerRpcControl = 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. -- AlpineOwnerRpcBinderImpl.