<> <> <> DIRECTORY ExplicitExport, Log, NamesGV, Rope, RPC, RPCInternalExtras, RPCLupine ; ExplicitExportImpl: CEDAR PROGRAM IMPORTS Log, NamesGV, RPCInternalExtras EXPORTS ExplicitExport = { 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; }; []_RPCInternalExtras.AddToExportTable[[interfaceType, explicitInstance, versionRange], dispatcher, stubRange]; }; }.