DIRECTORY Log, Names, Rope, RPC, RPCBinding, RPCLupine, ThPartyRpcControl, ThPartyRpcServerImpl, ThVersions, UserProfile ; ThExportOtherImpl: PROGRAM IMPORTS Log, Names, 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"]; details: Names.GVDetails; results: Names.Results; thVR: RPC.VersionRange = ThVersions.ThrushVR; [results, details] _ Names.GetGVDetails[rName: instance, mode: ok, behavior: lookupFirst]; IF results#ok OR ~details.valid THEN { []_Log.Problem["Trouble in ExportExplicitInstances",$System]; RETURN; }; explicitInstance_details.connect; 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[]; }. VThExportOtherImpl.mesa Last modified by D. Swinehart, December 28, 1983 9:13 pm ÊD˜Jšœ™Jšœ8™8J˜šÏ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˜J˜-J˜Zšœ œœ˜&Jšœ>œ˜H—J˜!J˜LJšœ1˜1J˜—J˜šžœœœ œ4˜oJšœe˜eJ˜J˜——Jšœ#˜#Jšœ˜J˜—…—Þx