-- Copyright (C) 1987 by Xerox Corporation. All rights reserved. -- Stub file was translated on February 6, 1987 11:05:03 am PST by Lupine of February 22, 1986 5:15:54 pm PST -- Source interface LarkFeep came from file LarkFeep.bcd, which was created on February 6, 1987 11:04:53 am PST with version stamp 52#216#4433301430 from source of February 6, 1987 11:04:05 am PST. -- The RPC stub modules for LarkFeep are: -- LarkFeepRpcControl.mesa; -- LarkFeepRpcClientImpl.mesa; -- LarkFeepRpcBinderImpl.mesa; -- LarkFeepRpcServerImpl.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 = TRUE -- 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 LarkFeep, LarkFeepRpcControl USING [ImportInterface, InterfaceRecord, InterfaceRecordObject], RPC USING [InterfaceName, Zones], RPCLupineExtras --USING SOME OF [ImportInterfaceWithHost, noHost, -- RPCHost]--; LarkFeepRpcBinderImpl: MONITOR IMPORTS RpcControl: LarkFeepRpcControl, RpcPrivateExtras: RPCLupineExtras EXPORTS LarkFeepRpcControl SHARES LarkFeep, LarkFeepRpcControl = BEGIN OPEN RpcPublic: RPC; -- Dynamic instantiation and binding routines. ImportNewInterface: PUBLIC SAFE PROCEDURE [ interfaceName: RpcPublic.InterfaceName, parameterStorage: RpcPublic.Zones, hostHint: RpcPrivateExtras.RPCHost_RpcPrivateExtras.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. -- LarkFeepRpcBinderImpl.