DIRECTORY ExplicitExport, NamesGV, Rope, RPC, RPCInternalExtras, RPCLupine, VoiceUtils ; ExplicitExportImpl: CEDAR PROGRAM IMPORTS NamesGV, RPCInternalExtras, VoiceUtils 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 { []_VoiceUtils.Problem["Trouble in ExportExplicitly",$System]; RETURN; }; []_RPCInternalExtras.AddToExportTable[[interfaceType, explicitInstance, versionRange], dispatcher, stubRange]; }; }. šExplicitExportImpl.mesa Copyright c 1985 by Xerox Corporation. All rights reserved. Last modified by D. Swinehart, October 24, 1985 4:02:28 pm PDT Êÿ˜šœ™Icodešœ Ïmœ1™™>—J˜šÏk ˜ J˜J˜J˜J˜J˜J˜ J˜ J˜J˜—šœž ˜!šž˜J˜J˜J˜ —Jšžœ˜—Jšœ˜˜šÏnœžœžœžœžœžœžœ3žœ˜·šœžœ˜5Jšœ/žœ˜4—šžœžœžœ˜Jšœ>žœ˜H—Jšœn˜nJ˜——Jšœ˜J˜—…—Êc