/* -*- LPC -*- */ /* * $Locker: $ * $Id: random_name.c,v 1.2 2000/10/20 18:45:32 pinkfish Exp $ * $Log: random_name.c,v $ * Revision 1.2 2000/10/20 18:45:32 pinkfish * Add in a method to generate names from test languages. * * Revision 1.1 1998/01/06 05:25:41 ceres * Initial revision * */ #include <random_names.h> inherit "/cmds/base"; string lang_list; void create() { lang_list = implode(RANDOM_NAME_GENERATOR->query_languages() + RANDOM_NAME_GENERATOR->query_test_languages(), "|"); } /* create() */ mixed cmd(string pattern, string my_lang) { string *langs; int i; if (pattern == "") { write("Generating one word from each language. To generate more " "words in a particular language, specify the language on the " "command line.\n"); langs = (string *)RANDOM_NAME_GENERATOR->query_languages() + RANDOM_NAME_GENERATOR->query_test_languages(); for (i=0;i<sizeof(langs);i++) { write(capitalize(langs[i])+": "+ (string)RANDOM_NAME_GENERATOR->random_name(langs[i])+"\n"); } return 1; } write("Generateing 10 names in "+my_lang+"\n\n"); for (i=0;i<10;i++) { write( (string)RANDOM_NAME_GENERATOR->random_name(my_lang)+"\n"); } return 1; } /* cmd() */ mixed *query_patterns() { return ({ "", (: cmd($5, "") :), "{"+lang_list+"}", (: cmd($5, $4[0]) :) }); } /* query_patterns() */