<> <> DIRECTORY ExplicitExport, Log, NamesGV, Rope, RPC, RPCBinding, RPCLupine ; ExplicitExportImpl: CEDAR PROGRAM IMPORTS Log, NamesGV, RPCBinding EXPORTS ExplicitExport SHARES RPCBinding = { ExportExplicitly: PUBLIC PROC[interfaceType: Rope.ROPE, instance: Rope.ROPE, versionRange: RPC.VersionRange, stubRange: RPC.VersionRange, dispatcher: RPCLupine.Dispatcher] = TRUSTED { explicitInstance: Rope.ROPE _ NamesGV.GVGetAttribute[ rName: instance, attribute: $connect, default: NIL]; IF explicitInstance=NIL THEN { []_Log.Problem["Trouble in ExportExplicitly",$System]; RETURN; }; []_RPCBinding.AddToExportTable[[interfaceType, explicitInstance, versionRange], dispatcher, stubRange]; }; }.