/*    /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();
}

static int ScheduledVerbLoad(string *cache){
    foreach(string verb in cache){
        object ob;
        string *verb_list;
        if( ob = find_object(verb) ) catch(ob->eventDestruct());
        if( !catch(ob = load_object(verb)) && ob ) {
            //tc(verb,"green");
            if( !(verb_list = (string *)ob->GetVerbs()) )
                verb_list = ({ explode(verb, "/")[<1][0..<3] });
            else if(verb_list && ob->GetSynonyms()) {
                verb_list += (string *)ob->GetSynonyms();
            }
            Verbs += expand_keys(([ verb_list : verb ]));
        }
        //else tc(verb,"red");
    }
}

varargs void eventReloadVerbs(mixed val) {
    string *cache, *verbs = 0;
    string verb;

    if( arrayp(val) ) verbs = filter(val, (: GetValidVerb($1) :));
    else if( stringp(val) ) {
        if( strlen(val) > 2 && val[<2..] == ".c" ) val = val[0..<3];
        if( GetValidVerb(val) ) verbs = ({ val });
        if( !verbs ) return;
    }
    else {
        string dir;
        verbs = ({});
        foreach(dir in get_dir(DIR_VERBS + "/")) { 
            dir = DIR_VERBS + "/" + dir;
            //tc("dir: "+dir);
            if( file_size(dir) == -2 ) 
                verbs += map(get_dir(dir + "/*.c"), (: $(dir) + "/" + $1 :));
            //foreach(string v in verbs) tc("Verb: "+v,"blue");
        }
        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 :));
            //foreach(string v in verbs) tc("Verb: "+v,"blue");
        }
    }
    cache = ({});
    foreach(verb in verbs){
        object ob;
        string *verb_list;
        cache += ({ verb });
        verbs -= ({ verb });
        if(sizeof(cache) > 9 || !sizeof(verbs)){
            call_out("ScheduledVerbLoad", 1, copy(cache));
            //foreach(string v in cache) tc("Verb: "+v,"blue");
            cache = ({});
        }
    }
    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); }
mixed GetVerb(string str) { return Verbs[str]; }