/* /adm/simul_efun/english.c
* from Dead Souls
* efuns for dealing with the oddity we know as the English language
* created by Descartes of Borg 940207
* Version: @(#) english.c 1.5@(#)
* Last modified: 97/01/01
*/
#ifndef SEFUN_PLURALIZE
#define SEFUN_PLURALIZE 1
#endif
#include <daemons.h>
string *localcmds;
varargs mixed match_command(string verb, int subs){
string *local_arr;
localcmds = ({});
filter(this_player()->GetCommands(), (: localcmds += ({ $1[0] }) :));
foreach(mixed path in this_player()->GetSearchPath()){
localcmds += CMD_D->GetCommands(path);
}
localcmds += keys(VERBS_D->GetVerbs());
if(member_array(verb,localcmds) == -1){
if(alphap(verb)) local_arr = regexp(localcmds,"^"+verb);
if(sizeof(local_arr)){
if(!subs){
return local_arr[0];
}
else return local_arr;
}
}
else {
if(subs) return ({ verb });
else return verb;
}
return "";
}
varargs string add_article(string str, int def) {
if( !stringp(str) ) {
error("Bad argument 1 to add_article().\n");
}
if( def ) {
str = remove_article(str);
return "the " + str;
}
if( !strlen(str) ) {
return str;
}
switch(str[0]) {
case 'a': case 'e': case 'i': case 'o': case 'u':
case 'A': case 'E': case 'I': case 'O': case 'U':
return "an " + str;
default:
return "a " + str;
}
}
string remove_article(string str) {
string tmp;
if( !stringp(str) ) return("");
if( sscanf(str, "the %s", tmp) ) return tmp;
if( sscanf(str, "a %s", tmp) ) return tmp;
if( sscanf(str, "an %s", tmp) ) return tmp;
return str;
}
string array explode_list(string list) {
string array items;
string one, two;
list = lower_case(list);
if( sscanf(list, "%s and %s", one, two) == 2 ) {
items = explode(one, ",") + explode(two, ",");
}
else {
items = explode(list, ",");
}
items = map(items, function(string str) {
if( !str ) {
return 0;
}
str = trim(str);
if( strlen(str) > 4 && str[0..3] == "and " ) {
str = str[4..];
}
str = remove_article(str);
if( strlen(str) > 3 && str[0..2] == "my " ) {
str = str[3..];
}
return str;
});
return filter(items, (: $1 && $1 != "" :));
}
varargs string item_list(mixed array items...) {
mapping list = ([]);
string str;
int maxi;
if( !sizeof(items) ){
error("Bad argument 1 to item_list().\n");
}
if( arrayp(items[0]) ) {
if( !sizeof(items[0]) ) {
return "";
}
items = items[0];
}
foreach(mixed value in items) {
if( objectp(value) ) {
if( living(value) ) {
value = value->GetName();
}
else {
value = value->GetShort();
}
}
if( !value ) {
continue;
}
if( !list[value] ) {
list[value] = 1;
}
else {
list[value]++;
}
}
maxi = sizeof(items = keys(list));
if( maxi < 1 ) {
return "";
}
str = consolidate(list[items[0]], items[0]);
if( maxi == 1 ) {
return str;
}
if( maxi > 2 ) {
str += ",";
}
for(int i=1; i<maxi; i++) {
if( i == maxi-1 ) {
str += " and ";
}
else {
str += " ";
}
str += consolidate(list[items[i]], items[i]);
if( i < maxi-1 ) {
str += ",";
}
}
return str;
}
string possessive_noun(mixed val) {
if(!val) return "its";
if(objectp(val)) val = (string)val->GetName();
else if(!stringp(val)) error("Bad argument 1 to possessive_noun().\n");
switch(val[strlen(val)-1]) {
case 'x': case 'z': case 's': return sprintf("%s'", val);
default: return sprintf("%s's", val);
}
}
string possessive(mixed val) {
switch(objectp(val) ? (string)val->GetGender() : (string)val) {
case "male": return "his";
case "female": return "her";
case "neutral": return "hir";
default: return "its";
}
}
string strip_article(mixed val) {
int x;
if( objectp(val) ) val = (string)val->GetShort();
x = strlen(val);
if( x <= 2 ) return val;
if( val[0..1] == "a " || val[0..1] == "A " ) return val[2..];
if( x <= 3 ) return val;
if( val[0..2] == "an " || val[0..2] == "An " ) return val[3..];
if( x <= 4 ) return val;
if( val[0..3] == "the " || val[0..3] == "The " ) return val[4..];
return val;
}
string nominative(mixed val) {
switch(objectp(val) ? (string)val->GetGender() : (string)val) {
case "male": return "he";
case "female": return "she";
case "neutral": return "sie";
default: return "it";
}
}
string objective(mixed val) {
switch(objectp(val) ? (string)val->GetGender() : (string)val) {
case "male": return "him";
case "female": return "her";
case "neutral": return "hir";
default: return "it";
}
}
string reflexive(mixed val) { return sprintf("%sself", objective(val)); }
#if SEFUN_PLURALIZE
#define VOWELS ({"a","e","i","o","u"})
#define ABNORMAL ([ "moose":"moose", "mouse":"mice", "die":"dice", "index":"indices", "human":"humans", "sheep":"sheep", "fish":"fish", "child":"children", "ox":"oxen", "tooth":"teeth", "deer":"deer", "sphinx":"sphinges" ])
string pluralize(mixed single) {
int x, i, y, ind;
string str, tmp, tmp1;
string *words;
string ret = "";
int reset = 0;
string clean_str = "";
string modulo = "";
if(last(single,9) == "%^RESET%^"){
reset = 1;
single = truncate(single,9);
}
if(objectp(single)) {
if(str = (string)single->query_plural_name()){
return str;
}
else str = (string)single->GetKeyName();
}
else if(stringp(single)) str = (string)single;
else error("Bad argument 1 to pluralize()");
if(!str){
return str;
}
clean_str = strip_colours(str);
modulo = replace_string(str, clean_str, "");
x = strlen(clean_str);
if(ABNORMAL[strip_colours(str)]){
if(reset){
ret = ABNORMAL[clean_str];
ret = modulo + ret + "%^RESET%^";
}
else ret = ABNORMAL[strip_colours(str)];
return ret;
}
if(x > 1) {
tmp = clean_str[x-2..x-1];
switch(tmp) {
case "ch": case "sh":
ret = sprintf("%ses", clean_str);
break;
case "ff": case "fe":
ret = sprintf("%sves", clean_str[0..x-3]);
break;
case "us":
ret = sprintf("%si", clean_str[0..x-3]);
break;
case "um":
ret = sprintf("%sa", clean_str[0..x-3]);
break;
case "ef":
ret = sprintf("%ss", clean_str);
break;
}
}
tmp = clean_str[x-1..x-1];
switch(tmp) {
case "o": case "x": case "s":
ret = sprintf("%ses", clean_str);
break;
case "f":
ret = sprintf("%sves", clean_str[0..x-2]);
break;
case "y":
if(member_array(clean_str[x-2..x-2],VOWELS)!=-1)
ret = sprintf("%ss",clean_str);
else
ret = sprintf("%sies", clean_str[0..x-2]);
break;
}
if(sizeof(ret)){
if(reset){
ret = modulo + ret + "%^RESET%^";
}
return ret;
}
ret = sprintf("%ss", clean_str);
if(reset){
ret = modulo + ret + "%^RESET%^";
}
return ret;
}
#endif
#ifndef __FLUFFOS__
string cardinal(int x) {
string tmp;
int a;
if(!x) return "zero";
if(x < 0) {
tmp = "negative ";
x = absolute_value(x);
}
else tmp = "";
switch(x) {
case 1: return tmp+"one";
case 2: return tmp+"two";
case 3: return tmp+"three";
case 4: return tmp+"four";
case 5: return tmp+"five";
case 6: return tmp+"six";
case 7: return tmp+"seven";
case 8: return tmp+"eight";
case 9: return tmp+"nine";
case 10: return tmp+"ten";
case 11: return tmp+"eleven";
case 12: return tmp+"twelve";
case 13: return tmp+"thirteen";
case 14: return tmp+"fourteen";
case 15: return tmp+"fifteen";
case 16: return tmp+"sixteen";
case 17: return tmp+"seventeen";
case 18: return tmp+"eighteen";
case 19: return tmp+"nineteen";
case 20: return tmp+"twenty";
default:
if(x > 1000000000) return "over a billion";
else if(a = x /1000000) {
if(x = x %1000000)
return sprintf("%s million %s", cardinal(a), cardinal(x));
else return sprintf("%s million", cardinal(a));
}
else if(a = x / 1000) {
if(x = x % 1000)
return sprintf("%s thousand %s", cardinal(a), cardinal(x));
else return sprintf("%s thousand", cardinal(a));
}
else if(a = x / 100) {
if(x = x % 100)
return sprintf("%s hundred %s", cardinal(a), cardinal(x));
else return sprintf("%s hundred", cardinal(a));
}
else {
a = x / 10;
if(x = x % 10) tmp = "-"+cardinal(x);
else tmp = "";
switch(a) {
case 2: return "twenty"+tmp;
case 3: return "thirty"+tmp;
case 4: return "forty"+tmp;
case 5: return "fifty"+tmp;
case 6: return "sixty"+tmp;
case 7: return "seventy"+tmp;
case 8: return "eighty"+tmp;
case 9: return "ninety"+tmp;
default: return "error";
}
}
}
}
#else
string cardinal(int x){
return query_num(x);
}
#endif
varargs string conjunction(mixed expressions, string coordinator) {
int size;
string tmp;
if(!expressions) error("Bad argument 1 to conjunction().\n");
else if(stringp(expressions)) expressions = ({ expressions });
else if(!pointerp(expressions))
error("Bad argument 1 to conjunction().\n");
size = sizeof(expressions);
if(size < 2) return expressions[0];
// Form the conjunction.
if(!coordinator) coordinator = "and";
tmp = "";
for(int i = 0; i < size; i++) {
tmp += expressions[i];
if(i < size - 2) tmp += ", ";
else return tmp + ", " + coordinator + " " + expressions[size - 1];
}
}
string consolidate(int x, string str) {
string array words;
string tmp;
if( x == 1 || !sizeof(str) ) return str;
words = explode(str, " ");
if( sscanf(words[<1], "(%s)", tmp) ) {
if( sizeof(words) == 1 )
return "(" + consolidate(x, tmp) + ")";
else return consolidate(x, implode(words[0..<2], " ")) +
" (" + tmp + ")";
}
if( sscanf(words[<1], "[%s]", tmp) ) {
if( sizeof(words) == 1 )
return "[" + consolidate(x, tmp) + "]";
else return consolidate(x, implode(words[0..<2], " ")) +
" [" + tmp + "]";
}
if( words[0][0..1] == "%^" ) {
string array parts;
string part, colour = "";
int i = 0;
parts = explode(words[0], "%^");
if( sizeof(parts) == 1 ) {
if( sizeof(words) == 1 ) return words[0];
else return words[0] + consolidate(x, implode(words[1..], " "));
}
foreach(part in parts) {
if( sizeof(part) && !sizeof(strip_colours("%^" + part + "%^")) )
colour += ("%^" + part + "%^");
else return colour + consolidate(x,
(implode(parts[i..], "%^")) + " " +
(implode(words[1..], " ")) );
i++;
}
return words[0] + " " + consolidate(x, implode(words[1..], " "));
}
if( member_array(lower_case(strip_colours(words[0])),
({"a", "an", "the", "one"}) ) > -1 ) words = words[1..];
return (cardinal(x) + " " + pluralize(implode(words, " ")));
}
varargs int ordinalp(string str, int parseflag){
string *ords = ({ "first", "second", "third", "fourth", "fifth",
"sixth", "seventh", "eighth", "ninth", "tenth", "twelfth" });
string *suffs = ({ "eenth", "ieth", "edth", "andth", "ionth" }) + ords;
if(parseflag){
ords += ({ "my", "any", "other", "a", "an" });
}
if(!str || !stringp(str)) return 0;
if(member_array(str, ords) != -1) return 1;
foreach(string element in suffs){
if(sizeof(str) >= sizeof(element) &&
str[<sizeof(element)..] == element)
return 1;
}
return 0;
}
