/*    /daemon/verbs.c
 *    from the Dead Souls Object Library
 *    handles the loading and rehashing of verbs
 *    created by Descartes of Borg 951016
 */

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

inherit LIB_DAEMON;

private mapping Verbs;

static void create() {
    daemon::create();
    Verbs = ([]);
    SetNoClean(1);
    eventReloadVerbs();
}

varargs void eventReloadVerbs(mixed val) {
    string *verbs = 0;
    string verb;
    int i;

    if( arrayp(val) ) verbs = filter(val, (: GetValidVerb($1) :));
    else if( stringp(val) ) {
        if( strlen(val) > 2 && val[<2..] == ".c" ) val = val[0..<3];
        if( file_exists(val + ".c") && GetValidVerb(val) ) verbs = ({ val });
        else {
            string cwd, tmp;

            if( this_player() && cwd = (string)this_player()->query_cwd() ) {
                tmp = absolute_path(cwd, val);
                if( file_exists(tmp + ".c") && GetValidVerb(tmp)  ) 
                    verbs = ({ tmp });
            }
            if( !verbs ) {
                if( file_size(tmp) == -2 && GetValidVerb(tmp) ) 
                    verbs = map(get_dir(tmp+"/*.c"), (: $(tmp) + "/" + $1 :));
            }
            else {
                string dir;

                foreach(dir in get_dir(DIR_VERBS + "/")) {
                    dir = DIR_VERBS + "/" + dir;
                    if( file_size(dir) != -2 ) continue;
                    if( file_exists( dir + "/" + val + ".c") ) {
                        verbs = ({ dir + "/" + val });
                        break;
                    }
                }
                foreach(dir in get_dir(DIR_SECURE_VERBS + "/")) {
                    dir = DIR_SECURE_VERBS + "/" + dir;
                    if( file_size(dir) != -2 ) continue;
                    if( file_exists( dir + "/" + val + ".c") ) {
                        verbs = ({ dir + "/" + val });
                        break;
                    }
                }
                if( !verbs ) return;
            }
        }
    }
    else {
        string dir;

        verbs = ({});
        foreach(dir in get_dir(DIR_VERBS + "/")) { 
            dir = DIR_VERBS + "/" + dir;
            if( file_size(dir) == -2 ) 
                verbs += map(get_dir(dir + "/*.c"), (: $(dir) + "/" + $1 :));
        }
        foreach(dir in get_dir(DIR_SECURE_VERBS + "/")) {
            dir = DIR_SECURE_VERBS + "/" + dir;
            if( file_size(dir) == -2 )
                verbs += map(get_dir(dir + "/*.c"), (: $(dir) + "/" + $1 :));
        }
    }
    i = 0;
    foreach(verb in verbs) {
        object ob;
        string *verb_list;

        receive("receive");
        message(1,"message",this_object(),({}));

        if( ob = find_object(verb) ) ob->eventDestruct();
        if( ob = load_object(verb) ) {
            i++;
            if( !(verb_list = (string *)ob->GetVerbs()) ) 
                verb_list = ({ explode(verb, "/")[<1][0..<3] });
            else if(verb_list && ob->GetSynonyms()) {
                verb_list += (string *)ob->GetSynonyms();
                //if(sizeof(verb_list)) verb_list = distinct_array(map(verb_list,
                //   (: explode($1," ")[0] :)));
            }
            Verbs += expand_keys(([ verb_list : verb ]));
        }
    }
    return;
}

string GetErrorMessage(string verb) {
    if( !Verbs[verb] ) return 0;
    else return (string)Verbs[verb]->GetErrorMessage();
}

int GetValidVerb(string verb) {
    if(!strsrch(verb, DIR_VERBS) || !strsrch(verb, DIR_VERBS)) return 1;
    else return 0;
}

mapping GetVerbs() { return copy(Verbs); }