DIRECTORY Commander, Log, Names, NamesGV, Rope, RPC, RPCBinding, RPCLupine, ThPartyRpcControl, ThPartyRpcServerImpl, ThVersions ; ThExportOtherImpl: CEDAR PROGRAM IMPORTS Commander, Log, Names, NamesGV, RPCBinding, ThPartyRpcServerImpl, ThVersions SHARES RPCBinding, ThPartyRpcServerImpl = { stubProtocol: RPC.VersionRange = ThPartyRpcControl.LupineProtocolVersion; explicitInstance: Rope.ROPE; explicitlyExported: BOOL_FALSE; ExportThingsWithExplicitInstance: Commander.CommandProc = { instance: Rope.ROPE = Names.CmdOrToken[cmd: cmd, key: "ThrushServerInstance", default: "Morley.Lark"]; thVR: RPC.VersionRange = ThVersions.ThrushVR; IF explicitlyExported THEN RETURN; 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]; explicitlyExported _ TRUE; }; ExportOneOther: PROC[interfaceType: Rope.ROPE, version: RPC.VersionRange, dispatcher: RPCLupine.Dispatcher] = TRUSTED { []_RPCBinding.AddToExportTable[[interfaceType, explicitInstance, version], dispatcher, stubProtocol]; }; Commander.Register["ExportOthers", ExportThingsWithExplicitInstance, "ExportOthers -- Export with host-based instances for fast binding."]; }. ^ThExportOtherImpl.mesa Last modified by D. Swinehart, November 24, 1984 4:15:52 pm PST Ê~˜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šœ ˜ ——Jšœ˜˜J˜IJšœœ˜Jšœœœ˜J˜šÏn œ˜;JšœœS˜fJ˜-Jšœœœ˜"šœ*˜*Jšœ/œ˜4—šœœœ˜Jšœ>œ˜H—J˜LJšœ1˜1Jšœœ˜J˜—J˜š žœœœ œ3œ˜wJšœe˜eJ˜J˜——Jšœ ˜ Jšœ˜J˜—…—’n