-- Copyright (C) 1987 by Xerox Corporation. All rights reserved. -- Stub file was translated on March 25, 1987 3:05:52 pm PST by Lupine of January 22, 1987 5:37:32 pm PST -- Source interface AlpineFile came from file AlpineFile.bcd, which was created on March 25, 1987 12:09:49 pm PST with version stamp 257#330#25514770454 from source of June 16, 1986 10:44:04 am PDT. -- The RPC stub modules for AlpineFile are: -- AlpineFileRpcControl.mesa; -- AlpineFileRpcClientImpl.mesa; -- AlpineFileRpcBinderImpl.mesa; -- AlpineFileRpcServerImpl.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 AlpineFile, AlpineFileRpcControl USING [ImportInterface, InterfaceRecord, InterfaceRecordObject], RPC USING [InterfaceName, Zones], RPCLupine --USING SOME OF [ImportInterfaceWithHost, noHost, RPCHost]--; AlpineFileRpcBinderImpl: MONITOR IMPORTS AlpineFile, RpcControl: AlpineFileRpcControl, RpcPrivate: RPCLupine EXPORTS AlpineFileRpcControl SHARES AlpineFile, AlpineFileRpcControl = 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. -- AlpineFileRpcBinderImpl.