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