DIRECTORY Log, NamesGV, Rope, RPC, RPCBinding, RPCLupine, ThPartyRpcControl, ThPartyRpcServerImpl, ThVersions, UserProfile ; ThExportOtherImpl: PROGRAM IMPORTS Log, NamesGV, RPCBinding, ThPartyRpcServerImpl, ThVersions, UserProfile SHARES RPCBinding, ThPartyRpcServerImpl = { stubProtocol: RPC.VersionRange = ThPartyRpcControl.LupineProtocolVersion; explicitInstance: Rope.ROPE; ExportThingsWithExplicitInstance: PUBLIC PROC = { instance: Rope.ROPE = UserProfile.Token[key: "ThrushServerInstance", default: "Morley.Lark"]; thVR: RPC.VersionRange = ThVersions.ThrushVR; explicitInstance _ NamesGV.GVGetAttribute[ rName: instance, attribute: $connect, default: NIL]; IF explicitInstance=NIL THEN { []_Log.Problem["Trouble in ExportExplicitInstances",$System]; RETURN; }; ExportOneOther["ThParty.Lark", thVR, ThPartyRpcServerImpl.ServerDispatcher]; Log.Report["ExportExplicitInstances[]", $System]; }; ExportOneOther: PROC[interfaceType: Rope.ROPE, version: RPC.VersionRange, dispatcher: RPCLupine.Dispatcher] = { []_RPCBinding.AddToExportTable[[interfaceType, explicitInstance, version], dispatcher, stubProtocol]; }; ExportThingsWithExplicitInstance[]; }. ZThExportOtherImpl.mesa Last modified by D. Swinehart, June 19, 1984 7:53:03 am PDT ÊK˜Jšœ™Jšœ;™;J˜šÏk ˜ J˜J˜J˜J˜J˜ J˜ Jšœ˜Jšœ˜J˜ J˜ J˜J˜—šœ˜š˜J˜J˜Jšœ ˜ Jšœ˜J˜ J˜ —š˜Jšœ ˜ ——Jšœ˜˜J˜IJšœœ˜J˜šÏn œœœ˜1JšœœJ˜]J˜-šœ*˜*Jšœ/œ˜4—šœœœ˜Jšœ>œ˜H—J˜LJšœ1˜1J˜—J˜šžœœœ œ4˜oJšœe˜eJ˜J˜——Jšœ#˜#Jšœ˜J˜—…—Œ1