/*    /lib/verb.c
 *    From the Dead Souls Object Library
 *    An inheritable for creating verbs
 *    Created by Descartes of Borg 960116
 *    Version: @(#) verb.c 1.2@(#)
 *    Last modified: 96/12/17
 */

#include <lib.h>
#include "include/verb.h"

inherit LIB_DAEMON;
inherit LIB_HELP;

private string Verb, ErrorMessage;
private string *Synonyms, *Rules;

static void create() {
    daemon::create();
    SetNoClean(1);
    parse_init();
    Verb = 0;
    ErrorMessage = 0;
    Rules = ({});
    Synonyms = ({});
}

static string SetErrorMessage(string str) { return (ErrorMessage = str); }

string GetErrorMessage() { return ErrorMessage; }

varargs static string *SetRules(mixed *args...) {
    if( sizeof(Rules) ) error("Cannot reset rules list.");
    foreach(mixed arg in args) {
	if( stringp(arg) ) Rules += ({ arg });
	else Rules += arg;
    }
    if( Verb ) {
	foreach(string rule in Rules) parse_add_rule(Verb, rule);
	if( sizeof(Synonyms) ) 
	    foreach(string cmd in Synonyms) parse_add_synonym(cmd, Verb);
    }
    return Rules;
}

string *GetRules() { return copy(Rules); }

varargs static string *SetSynonyms(mixed *args...) {
    if( sizeof(Synonyms) ) error("Cannot reset synonym list.\n");
    foreach(mixed arg in args) {
	if( stringp(arg) ) Synonyms += ({ arg });
	else Synonyms += arg;
    }
    if( Verb && sizeof(Rules) )
	foreach(string cmd in Synonyms) parse_add_synonym(cmd, Verb);
    return Synonyms;
}

string *GetSynonyms() { return copy(Synonyms); }

static string SetVerb(string str) {
    if( !stringp(str) ) error("Bad argument 1 to SetVerb().\n");
    Verb = str;
    if( sizeof(Rules) )
	foreach(string rule in Rules) parse_add_rule(Verb, rule);
    if( sizeof(Synonyms) )
	foreach(string cmd in Synonyms) parse_add_synonym(cmd, Verb);
    return Verb;
}

string GetVerb() { return Verb; }

string *GetVerbs() { return ({ Verb }); }