DIRECTORY Commander USING [ CommandProc, Register ], CommandToolExtras USING [ NumArgs, ArgN ], ExplicitExport USING [ ExportExplicitly ], NamesGVImpExp, NamesGVRpcControl USING [ ExportInterface ], NamesGVRpcServerImpl USING [ ServerDispatcher ], IO, Log USING [ Problem, ReportFR ], Names USING [ CurrentRName, CurrentPasskey, ROPE ], RPC USING [ ExportFailed, matchAllVersions ], UserProfile USING [ Token ] ; NamesGVExportImpl: CEDAR PROGRAM IMPORTS Commander, CommandToolExtras, ExplicitExport, IO, Log, RPC, Names, NamesGVRpcControl, NamesGVRpcServerImpl, UserProfile EXPORTS NamesGVImpExp SHARES NamesGVRpcServerImpl = { OPEN IO; ROPE: TYPE= Names.ROPE; exported: BOOL_FALSE; GVExport: PUBLIC PROC [instance: ROPE_NIL] RETURNS [success: BOOL] = { ENABLE RPC.ExportFailed => { Log.Problem["Couldn't export NamesGV.Lark"]; CONTINUE; }; IF instance=NIL THEN instance _ UserProfile.Token[key: "ThrushServerInstance", default: "Morley.Lark"]; IF exported THEN { Log.ReportFR[remark: "ExportInterface[NamesGV.Lark, %s] already done", where: $System, a1: rope[instance]]; RETURN; }; NamesGVRpcControl.ExportInterface [ interfaceName: [ type: "NamesGV.Lark", instance: instance ], user: Names.CurrentRName[], password: Names.CurrentPasskey[] ]; ExplicitExport.ExportExplicitly["NamesGV.Lark", instance, RPC.matchAllVersions, RPC.matchAllVersions, NamesGVRpcServerImpl.ServerDispatcher]; exported _ TRUE; Log.ReportFR[remark: "ExportInterface[NamesGV.Lark, %s]", a1: rope[instance], where: $System]; }; CmdGVExport: Commander.CommandProc = { []_GVExport[IF CommandToolExtras.NumArgs[cmd]#0 THEN CommandToolExtras.ArgN[cmd,1] ELSE NIL]; }; Commander.Register["GVExport", CmdGVExport, "Supply a remote NamesGV."]; }. ŠNamesGVExportImpl.Mesa Last modified by Swinehart, March 5, 1985 5:25:31 pm PST Data Import Procedure User command Initialization Ê˜Jšœ™Jšœ8™8J˜šÏk ˜ Jšœ œ˜+Jšœœ˜*J˜*Jšœ˜Jšœœ˜,Jšœœ˜0Jšœ˜Jšœœ˜ Jšœœ!œ˜3Jšœœ$˜-Jšœ œ ˜J˜J˜—šœœ˜ Jšœ/œœ=˜Jšœ˜šœ˜Jšœœ˜J˜——™J˜Jšœœœ˜Jšœ œœ˜J˜—J™˜šÏnœœœ œœœ œ˜Fš˜Jšœ@œ˜O—šœ œ˜J˜R—šœ œ˜Jšœk˜kJšœ˜Jšœ˜—šœ#˜#˜J˜J˜J˜—J˜J˜ J˜—J˜Jšœ œ˜Jšœ^˜^J˜——J˜™ J˜šž œ˜&Jš œ œ"œœœ˜]Jšœ˜—J˜—J˜™J™JšœH˜H—J˜J˜—…—Ÿ X