DIRECTORYCommander USING [ CommandProc, Register ], CommandTool USING [ NextArgument ],LoganBerryRpcControl USING [ ExportInterface ],IO,RPC USING [ ExportFailed, matchAllVersions, ShortROPE ],UserProfile USING [ Token ],VoiceUtils USING [ CurrentRName, CurrentPasskey, Problem, ReportFR ];LoganBerryExportImpl: CEDAR PROGRAMIMPORTS Commander, CommandTool, IO, RPC, LoganBerryRpcControl, UserProfile, VoiceUtils= {OPEN IO;ROPE: TYPE= RPC.ShortROPE;exported: BOOL_FALSE;LBExport: PROC [instance: ROPE_NIL] RETURNS [success: BOOL] = {ENABLERPC.ExportFailed => { VoiceUtils.Problem["Couldn't export LoganBerry.Lark"]; CONTINUE; };IF instance=NIL THENinstance _ UserProfile.Token[key: "ThrushServerInstance", default: "Morley.Lark"];IF exported THEN {VoiceUtils.ReportFR[remark: "ExportInterface[LoganBerry.Lark, %s] already done", where: $System, a1: rope[instance]];RETURN;};LoganBerryRpcControl.ExportInterface [interfaceName: [type: "LoganBerry.Lark",instance: instance],user: VoiceUtils.CurrentRName[],password: VoiceUtils.CurrentPasskey[]];exported _ TRUE;VoiceUtils.ReportFR[remark: "ExportInterface[LoganBerry.Lark, %s]", a1: rope[instance], where: $System];};CmdLBExport: Commander.CommandProc = { []_LBExport[CommandTool.NextArgument[cmd]]; };Commander.Register["ExportLoganBerry", CmdLBExport, "ExportLoganBerry [Instance]\nSupply a remote LoganBerry."];}.    LoganBerryExportImpl.MesaCopyright c 1985, 1986 by Xerox Corporation.  All rights reserved.Last modified by Swinehart, May 16, 1986 3:06:13 pm PDTExplicitExport USING [ ExportExplicitly ],LoganBerryRpcServerImpl USING [ ServerDispatcher ],ExplicitExport, NamesGVRpcServerImplSHARES LoganBerryRpcServerImplDataImport ProcedureExplicitExport.ExportExplicitly["LoganBerry.Lark", instance, RPC.matchAllVersions, RPC.matchAllVersions, LoganBerryRpcServerImpl.ServerDispatcher];User commandInitialization Ê   ˜ šœ™Icodešœ
Ïmœ7™BJšœ7™7—J˜ šÏk	˜	Jšœ
žœ˜+Jšœžœ˜#J™*Jšœžœ˜/Jšœžœ™3Jšžœ˜Jšžœžœ/˜8Jšœžœ˜Jšœžœ4˜DJ˜J˜ —šœžœž˜#Jšžœžœžœ/˜VJšœ$™$Jšœ™šœ˜Jšžœžœ˜J˜ ——™J˜ Jšžœžœžœ˜Jšœ
žœžœ˜J˜ —J™˜ šÏnœžœžœžœžœžœ˜?šž˜JšžœJžœ˜Y—šžœ
žœž˜J˜R—šžœ
žœ˜Jšœu˜uJšžœ˜Jšœ˜—šœ&˜&˜Jšœ˜J˜J˜—Jšœ ˜ Jšœ%˜%J˜—J™“Jšœžœ˜šœ˜JšœT˜T—J˜——J˜ ™J˜ JšŸœJ˜UJ˜ —J˜ ™J™ Jšœp˜p—J˜J˜ — …—    †  	Œ  