-- Stub file was translated on September 14, 1983 9:14 am by Lupine of September 14, 1983 9:07 am -- Source interface Target came from file Target.bcd, which was created on September 14, 1983 9:06 am with version stamp 234#314#6453236363 from source of September 14, 1983 9:06 am. -- The RPC stub modules for Target are: -- TargetRpcControl.mesa; -- TargetRpcClientImpl.mesa; -- TargetRpcBinderImpl.mesa; -- TargetRpcServerImpl.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 Target, TargetRpcControl USING [InterfaceRecord, InterfaceRecordObject], TargetRpcClientImpl, RPC USING [InterfaceName, Zones], SafeStorage USING [EnableFinalization, EstablishFinalization, FinalizationQueue, FQEmpty, FQNext, NewFQ]; TargetRpcBinderImpl: MONITOR IMPORTS ClientPrototype: TargetRpcClientImpl, RTT: SafeStorage EXPORTS TargetRpcControl SHARES Target, TargetRpcControl = BEGIN OPEN RpcControl: TargetRpcControl, RpcPublic: RPC; -- Dynamic instantiation and binding routines. ImportNewInterface: PUBLIC SAFE PROCEDURE [ interfaceName: RpcPublic.InterfaceName, parameterStorage: RpcPublic.Zones ] RETURNS [interfaceRecord: RpcControl.InterfaceRecord] = TRUSTED BEGIN interfaceRecord ← NewInterface[]; LupineDetails[interfaceRecord].module.ImportInterface [ interfaceName: interfaceName, parameterStorage: parameterStorage ! UNWIND => FreeInterface[interfaceRecord] ]; END; UnimportNewInterface: SAFE PROCEDURE [ interfaceRecord: RpcControl.InterfaceRecord ] = TRUSTED BEGIN LupineDetails[interfaceRecord].module.UnimportInterface[]; FreeInterface[interfaceRecord]; END; -- Utility routines for interface instantiation and caching. ConcreteLupineDetails: TYPE = REF LupineDetailsObject; LupineDetailsObject: PUBLIC TYPE = RECORD [ module: ClientModule←NIL, list: RpcControl.InterfaceRecord←NIL, --package reference next: RpcControl.InterfaceRecord←NIL --free list -- ]; LupineDetails: PROCEDURE [abstractInterface: RpcControl.InterfaceRecord] RETURNS [ConcreteLupineDetails] = INLINE {RETURN[abstractInterface.lupineDetails]}; ClientModule: TYPE = POINTER TO FRAME[TargetRpcClientImpl]; clientInterfaceCache: RpcControl.InterfaceRecord ← NIL; -- free interface -- records clientInterfaceList: RpcControl.InterfaceRecord ← NIL; -- all interface -- records NewInterfaceRecord: PUBLIC SAFE PROCEDURE RETURNS [interfaceRecord: RpcControl.InterfaceRecord] = TRUSTED BEGIN interfaceRecord ← NEW[RpcControl.InterfaceRecordObject]; END; NewInterface: PROCEDURE RETURNS [interface: RpcControl.InterfaceRecord]= BEGIN GetCachedInterface: ENTRY PROCEDURE RETURNS [cachedIR: RpcControl.InterfaceRecord] = INLINE BEGIN ENABLE UNWIND => NULL; IF (cachedIR←clientInterfaceCache) # NIL THEN clientInterfaceCache ← LupineDetails[clientInterfaceCache].next; END; ReclaimInterfaces[]; IF (interface ← GetCachedInterface[]) = NIL THEN BEGIN ChainNewInterface: ENTRY PROCEDURE = INLINE BEGIN ENABLE UNWIND => NULL; interface.lupineDetails ← NEW[ LupineDetailsObject ← [module: module, list: clientInterfaceList]]; clientInterfaceList ← interface; END; -- ChainNewInterface. module: ClientModule = NEW ClientPrototype; interface ← NewInterfaceRecord[]; interface↑ ← [ Basic: module.Basic, Simple: module.Simple, Exception: module.Exception, Consultation: module.Consultation]; ChainNewInterface[]; END; RTT.EnableFinalization[interface]; END; FreeInterface: ENTRY PROCEDURE [interface: RpcControl.InterfaceRecord]= INLINE BEGIN ENABLE UNWIND => NULL; LupineDetails[interface].next ← clientInterfaceCache; clientInterfaceCache ← interface; END; -- Finalization for dynamic interfaces. Just cache and reuse for now. freedInterfaces: RTT.FinalizationQueue = RTT.NewFQ[20]; ReclaimInterfaces: PROCEDURE = INLINE BEGIN WHILE ~RTT.FQEmpty[freedInterfaces] DO interface: RpcControl.InterfaceRecord = NARROW[RTT.FQNext[freedInterfaces]]; IF interface.lupineDetails # NIL THEN UnimportNewInterface[interface]; ENDLOOP; END; -- Module initialization. RTT.EstablishFinalization[ type: CODE[RpcControl.InterfaceRecordObject], npr: 1, fq: freedInterfaces ]; END. -- TargetRpcBinderImpl.