DIRECTORYAmHerDict,AmHerDictRpcControl,Commander,IO,Rope USING [Length, ROPE],UserCredentials USING [Get];AmHerDictTest: CEDAR PROGRAMIMPORTS AmHerDictRpcControl, Commander, IO, Rope, UserCredentials~ BEGINinterface: REF AmHerDictRpcControl.InterfaceRecordObject _ NIL;dictionary: ATOM _ NIL;GetDefinition: PROC [cmd: Commander.Handle] RETURNS [result: REF _ NIL, msg: Rope.ROPE _ NIL] ~ {word: Rope.ROPE;commandLineStream: IO.STREAM _ IO.RIS[cmd.commandLine];word _ IO.GetTokenRope[commandLineStream !IO.EndOfStream => CONTINUE].token;IF interface=NIL THEN interface _ AmHerDictRpcControl.ImportNewInterface[interfaceName: [instance: "DictServer"]];IF dictionary = NIL THEN dictionary _ AmHerDictRpcControl.Dictionaries[interface, UserCredentials.Get[].name].first;IF word.Length[] # 0 THEN result _ AmHerDictRpcControl.GetDefinition[interface, word, dictionary ! interface.LispError => {cmd.out.PutRope["error in remote server: "]; cmd.out.PutRope[error]; cmd.out.PutChar['\n]; CONTINUE}].definition;IF result # NIL THEN {cmd.out.PutRope[NARROW[result, Rope.ROPE]];cmd.out.PutChar['\n];RETURN[$Success]}ELSE RETURN [$Failure];};Commander.Register[key: "Definition", proc: GetDefinition, doc: "retrieves definitions from the American Heritage Dictionary"];END.   N  AmHerDictTest.mesaEdited by: John Maxwell April 16, 1986 3:22:59 pm  ‌ت’  ک Icode™K™2K™ ڑدk	ک	Kڑœ
ک
KڑœکKک
Kڑ‌œکKڑœ‌œ	‌œکKڑœ‌œکKک —Kڑدlœ‌œ‌کKڑ‌œ!‌œکAڑœ‌کKک Kڑœ‌œ-‌œک?Kڑœ‌œ‌œکKک ڑدnœ‌œ‌œ
‌œ‌œ‌œ‌œکaKڑœ‌œکKڑ	œ‌œ‌œ‌œ‌œک7Kڑœ‌œ!‌œ‌œکLKڑ‌œ‌œ‌œ]کrKڑ‌œ‌œ‌œ\کtKڑ‌œ‌œ½‌œکىڑ‌œ
‌œ‌œکKڑœ‌œ‌œک+KڑœکKڑ‌œکKڑ‌œ‌œک—Kک—Kک Kک—Kک Kڑ‌œک— …—      î  