/*    /lib/touch.c
 *    from the Dead Souls Object Library
 *    for touching things 
 *    created by Descartes of Borg 951008
 *    Version: @(#) touch.c 1.8@(#)
 *    Last modified: 96/12/31
 */

#include <function.h>

static private mixed Touch     = 0;
static private mapping Touches = ([]);

// abstract methods
string GetShort();
// end abstract methods

varargs string GetTouch(string str, object who) {
    mixed val;

    if( !str || str == "default" ) {
        val = Touch;
    }
    else {
        val = Touches[str];
    }
    if( !val ) {
        return 0;
    }
    if( functionp(val) ) {
        if( functionp(val) & FP_OWNER_DESTED ) {
            return "An error occured in a function pointer.";
        }
        return evaluate(val, who, str);
    }
    else if( arrayp(val) ) {
        return val[query_night()];
    }
    else return val;
}

string array GetTouches() {
    return keys(Touches);
}

mapping RemoveTouch(string item) {
    if( !item || item == "default" ) {
        Touch = 0;
    }
    else {
        map_delete(Touches, item);
    }
    return Touches;
}

varargs mixed SetTouch(mixed array args...) {
    if( sizeof(args) == 1 ) {
        if( mapp(args[0]) ) {
            if( args[0]["default"] ) {
                Touch = args[0]["default"];
                map_delete(args[0], "default");
            }
            return (Touches = expand_keys(args[0]));
        }
        else {
            Touch = args[0];
        }
        return args[0];
    }
    else if( sizeof(args) == 2 ) {
        if( !args[1] ) {
            return SetTouch(args[0]);
        }
        else if( arrayp(args[0]) ) {
            foreach(string item in args[0]) {
                SetTouch(item, args[1]);
            }
            return args[1];
        }
        else {
            if( !args[0] || args[0] == "default" ) {
                Touch = args[1];
                return Touch;
            }
            else {
                Touches[args[0]] = args[1];
                return Touches[args[0]];
            }
        }
    }
    else {
        error("Wrong number of arguments to SetTouch():\n\t"
          "Expected 1 or 2, got " + sizeof(args) + "\n");
    }
}

varargs mixed eventTouch(object who, string str) {
    str = GetTouch(str, who);
    if( !str ) {
        who->eventPrint("There is nothing to touch.");
        return 1;
    }
    environment(who)->eventPrint(who->GetName() + " touches " + GetShort() +
      ".", who);
    who->eventPrint(str);
    return 1;
}

static void create() {
    Touches = ([]);
}

mixed direct_touch_obj() {
    if( !Touch ) {
        return 0;
    }
    else {
        return 1;
    }
}

mixed direct_touch_str_word_obj(string str) {
    str = remove_article(lower_case(str));
    if( !Touches[str] ) {
        return 0;
    }
    else {
        return 1;
    }
}