DIRECTORY Commander USING [ CommandProc, Register ], CommandTool USING [ NextArgument ], LupineRuntime USING [ BindingError ], NamesGVImpExp, NamesGVRpcControl USING [ ExportInterface, UnexportInterface ], IO, ProcessProps USING [ GetProp ], Rope USING [ ROPE ], RPC USING [ ExportFailed, matchAllVersions ], UserProfile USING [ Token ], VoiceUtils USING [ CurrentRName, CurrentPasskey, MakeRName, Problem, ReportFR ] ; NamesGVExportImpl: CEDAR PROGRAM IMPORTS Commander, CommandTool, IO, LupineRuntime, NamesGVRpcControl, ProcessProps, RPC, UserProfile, VoiceUtils EXPORTS NamesGVImpExp = { OPEN IO; ROPE: TYPE= Rope.ROPE; gvWorkingDirectory: PUBLIC ROPE_NIL; GVExport: PUBLIC PROC [instance: ROPE_NIL] RETURNS [success: BOOL] = { ENABLE RPC.ExportFailed => { VoiceUtils.Problem["Couldn't export NamesGV.Lark"]; CONTINUE; }; gvWorkingDirectory _ NARROW[ProcessProps.GetProp[$WorkingDirectory]]; IF instance=NIL THEN instance _ UserProfile.Token[key: "ThrushServerInstance", default: "Strowger.Lark"]; instance _ VoiceUtils.MakeRName[instance, rName]; NamesGVRpcControl.UnexportInterface[!LupineRuntime.BindingError=> CONTINUE]; NamesGVRpcControl.ExportInterface [ interfaceName: [ type: "NamesGV.Lark", instance: instance ], user: VoiceUtils.CurrentRName[], password: VoiceUtils.CurrentPasskey[] ]; VoiceUtils.ReportFR[remark: "ExportInterface[NamesGV.Lark, %s]", a1: rope[instance], where: $System]; }; CmdGVExport: Commander.CommandProc = { []_GVExport[CommandTool.NextArgument[cmd]]; }; Commander.Register["GVExport", CmdGVExport, "Supply a remote NamesGV."]; }. ΖNamesGVExportImpl.Mesa Copyright c 1985 by Xerox Corporation. All rights reserved. Last modified by Swinehart, May 18, 1986 4:30:36 pm PDT Data Import Procedure User command Initialization Κϊ˜šœ™Icodešœ Οmœ1™