/*   /secure/sefun/to_object.c
 *   from the Dead Souls.4 Library
 *   recreated by Blitz@Dead Souls
 *
 *   Purpose: Parse passed string argument and
 *            return a matching object pointer
 *            if one is found.
 *
 *   Usage Examples:
 *     sword           (1st sword in inv or env)
 *     sword@here      (find sword in local env)
 *     sword#4         (find 4th sword)
 *     sword#2@foo     (find 2nd sword on player foo)
 *     sword@bag#2@foo (find 1st sword in foo's 2nd bag)
 *     ---------------
 *     /path/filename  (find or load filename)
 *     /path/file#999  (find unique cloned object)
 *     %foo            (explicitly find player foo)
 *     $foo            (explicitly find npc foo)
 *     @foo            (return foo's environment)
 *     
 *     tokens: me, here, sefun
 */

#include <global.h>

object to_object(mixed var) {
    object env, ob, *obs;
    string tmp, where;
    int i, char;

    if( objectp(var) ) return var;
    else if( !stringp(var) || !sizeof(var) ) return 0;
    if( sscanf(var, "%s@%s", tmp, where) == 2 ) {
        var = tmp;
        if( !env = to_object(where) ) return 0;
        if( !sizeof(var) ) return environment(env);
    }
    switch(var) {
        case "here" : return environment(this_player());
        case "me" : return this_player();
        case "sefun" : return find_object(SEFUN);
    }
    if( sscanf(var, "%s#%d", tmp, i) == 2 ) {
        if( ob = find_object(var) ) return ob;
        else var = tmp;
    }
    else i = 1;
    if( i < 1 ) return 0;
    if( member_array(var[0], ({ '/', '$', '%', }) ) > -1 ) {
        char = var[0];
        var = var[1..];
    }
    switch( char ) {
        case '/' :
            if( var[<2..] != ".c" ) var += ".c";
            if( !file_exists(var) ) return 0;
            return load_object(var);
            break;
        case '%' :
            if( !(ob = find_player(var)) ) return 0;
            else return ob;
            break;
        case '$' :
            if( env )  {
                obs = filter(all_inventory(env),
                        (: living($1) && !interactive($1) && $1->id($(var)) :));
                if( sizeof(obs) < i ) return 0;
                else return obs[i - 1];
            }
            if( (ob = find_living(var)) && !interactive(ob) ) return ob;
            else return 0;
            break;
        default:
            if( !env ) {
                env = this_player();
            }
            if( i > 1 ) {
                obs = filter(all_inventory(env), (: $1->id($(var)) :));
                if( sizeof(obs) < i ) {
                    if( !env = environment(env) ) {
                        ob = 0;
                    }
                    else {
                        obs = filter(all_inventory(env), (: $1->id($(var)) :));
                        if( sizeof(obs) < i ) {
                            ob = 0;
                        }
                        else {
                            ob = obs[i - 1];
                        }
                    }
                }
                else {
                    ob = obs[i-1];
                }
                if( ob ) {
                    return ob;
                }
            }
            else {
                ob = present(var, env);
                if( ob ) return ob;
                else if( env = environment(env) ) {
                    ob = present(var, env);
                    if( ob ) return ob;
                }
                if( ob = find_player(var) ) return ob;
                if( ob = find_living(var) ) return ob;
                if( !this_player() ) {
                    return 0;
                }
                var = absolute_path(this_player()->query_cwd(), var);
                if(!file_exists(var)) var += ".c";
                if(!file_exists(var)) var = "";
                if( sizeof(var) && ob = load_object(var) ) {
                    return ob;
                }
            }
            return 0;
    }
    return 0;
}