DIRECTORYCommander USING [ CommandProc, Register ],IO,LarkControl USING [ BootLark, GetLark, LarkData ],LarkRemoteControl,LarkRemoteControlRpcControl,LupineRuntime USING [ BindingError ],Pup USING [ Address ],Rope USING [ ROPE ],RPC USING [ ExportFailed, matchAllVersions ],VoiceUtils USING [ CmdOrToken, CurrentRName, CurrentPasskey, MakeRName, Problem, ReportFR ];LarkRemoteControlServerImpl: CEDAR PROGRAMIMPORTS Commander, IO, LarkControl, LarkRemoteControlRpcControl, LupineRuntime, RPC, VoiceUtilsEXPORTS LarkRemoteControl = {OPEN IO;BootLark: PUBLIC PROC[lark: Pup.Address] RETURNS [outcome: BOOL_TRUE] ={larkData: LarkControl.LarkData = LarkControl.GetLark[lark];IF larkData=NIL THEN RETURN[FALSE];LarkControl.BootLark[larkData];};ExptCmd: Commander.CommandProc = {ENABLERPC.ExportFailed => {VoiceUtils.Problem["Couldn't export LarkRemoteControl.Lark"]; CONTINUE; };instance: Rope.ROPE _ VoiceUtils.MakeRName[VoiceUtils.CmdOrToken[cmd, "ThrushServerInstance", "Morley.Lark"], rName];LarkRemoteControlRpcControl.UnexportInterface [!LupineRuntime.BindingError=>CONTINUE];LarkRemoteControlRpcControl.ExportInterface [interfaceName: [type: "LarkRemoteControl.Lark",instance: instance],user: VoiceUtils.CurrentRName[],password: VoiceUtils.CurrentPasskey[]];VoiceUtils.ReportFR[remark: "ExportInterface[LarkRemoteControl.Lark, %s]", a1: rope[instance], where: $System];};Commander.Register["ExportLarkRemote", ExptCmd, "ExportLarkRemote <instance[Strowger]>\nMakes the LarkRemoteControl interface available."];}.  š  LarkRemoteControlServerImpl.mesaCopyright c 1985 by Xerox Corporation.  All rights reserved.Last Edited by: Swinehart, May 16, 1986 11:22:55 am PDT[cmd: Commander.Handle] RETURNS [result: REF ANY _ NIL, msg: ROPE _ NIL]Swinehart, September 9, 1985 10:47:13 am PDTCreated -- allows rudimentary control of larks by end-user RPC command.Expect this to grow.changes to: DIRECTORY, LarkRemoteControl Ê"  ˜ šœ ™ Icodešœ
Ïmœ1™<J™7—J˜ šÏk	˜	Jšœ
žœ˜*Jšžœ˜J˜2J˜Jšœ˜Jšœžœ˜%Jšœžœ˜Jšœžœžœ˜Jšžœžœ$˜-Jšœ[˜[J˜—J˜ šœžœž˜*Jšžœžœ9žœ˜_Jšžœ˜Jšžœžœ˜J˜ šÏnœžœžœžœžœžœ˜HJ˜;Jš
žœ
žœžœžœžœ˜#J˜J˜—J˜ •StartOfExpansionL -- [cmd: Commander.Handle] RETURNS [result: REF ANY _ NIL, msg: ROPE _ NIL]šŸœ˜"JšÐckH™Hšž˜šžœ˜Jšœ>žœ˜J——šœžœ˜+JšœJ˜J—JšœLžœ˜Všœ-˜-˜Jšœ˜J˜J˜—J˜ J˜%J˜—Jšœo˜oJ˜J˜ —J˜‹Jšœ˜J˜ —™,™GK™—KšœÏr™(—K™ J˜ — …—      	Ö  