DIRECTORY
Commander USING [CommandProc, Register],
Convert USING [RopeFromAtom],
Dictionary,
IO USING [PutF1, PutRope, rope, STREAM],
Rope USING [ROPE],
SystemNames USING [UserName];

DictionaryTestImpl: CEDAR MONITOR
IMPORTS Commander, Convert, Dictionary, IO, SystemNames ~ {
ROPE: TYPE ~ Rope.ROPE;

DictionariesCmd: Commander.CommandProc ~ {
stdout: IO.STREAM ~ cmd.out;
user: ROPE ~ SystemNames.UserName[];
list: LIST OF Dictionary.Dictionary ~ Dictionary.Dictionaries[user];
stdout.PutRope["Dictionaries:\n"];
FOR tail: LIST OF Dictionary.Dictionary ¬ list, tail.rest WHILE ( tail # NIL ) DO
this: ROPE ~ Convert.RopeFromAtom[tail.first];
stdout.PutF1["  %g\n", IO.rope[this] ];
ENDLOOP;
};

LanguagesCmd: Commander.CommandProc ~ {
stdout: IO.STREAM ~ cmd.out;
user: ROPE ~ SystemNames.UserName[];
list: LIST OF Dictionary.Language ~ Dictionary.Languages[user];
stdout.PutRope["Languages:\n"];
FOR tail: LIST OF Dictionary.Language ¬ list, tail.rest WHILE ( tail # NIL ) DO
this: ROPE ~ Convert.RopeFromAtom[tail.first];
stdout.PutF1["  %g\n", IO.rope[this] ];
ENDLOOP;
};

StatusCmd: Commander.CommandProc ~ {
stdout: IO.STREAM ~ cmd.out;
status: ROPE ~ Dictionary.Status[];
stdout.PutF1["status: %g\n", IO.rope[status] ];
};

Commander.Register["Dictionary.Dictionaries", DictionariesCmd];
Commander.Register["Dictionary.Languages", LanguagesCmd];
Commander.Register["Dictionary.Status", StatusCmd];
}.

   ´  
DictionaryTestImpl.mesa
Copyright Ó 1990, 1992 by Xerox Corporation.  All rights reserved.
Bill Jackson (bj), March 7, 1990 2:20 am PST
Willie-s, May 22, 1992 2:14 pm PDT


Ê*  –(cedarcode) style•NewlineDelimiter
™ šœ™Jšœ
Ïeœ7™BJ™,J™"J™ —codešÏk	˜	Kšœ
žœ˜(Kšœžœ˜Kšœ˜Kšžœžœžœ˜(Kšœžœžœ˜Kšœžœ˜K˜ —šÏnœžœž˜!Kšžœ!žœ˜;Kšžœžœžœ˜K˜ šŸœ˜*Kšœžœžœ˜Kšœžœ˜$Kšœžœžœ7˜DK˜"šžœžœžœ)žœ
žœž˜QKšœžœ$˜.Kšœžœ˜'Kšžœ˜—K˜K˜ —šŸœ˜'Kšœžœžœ˜Kšœžœ˜$Kšœžœžœ2˜?K˜šžœžœžœ'žœ
žœž˜OKšœžœ$˜.Kšœžœ˜'Kšžœ˜—K˜K˜ —šŸ	œ˜$Kšœžœžœ˜Kšœžœ˜#Kšœžœ˜/K˜K˜ —Kšœ?˜?Kšœ9˜9Kšœ3˜3K˜K˜ —J™ — …—    „  b  