#include <lib.h>
private static string source;

mixed *findobs(mixed arg){
    object target;
    object *targets = ({});

    if(objectp(arg)) target = arg;
    if(stringp(arg) ) {
        if(grepp(arg,"/")){
            if(!file_exists(arg)) arg += ".c";
            if(!file_exists(arg)) return ({});
            if(!target = find_object(arg)) return ({});
        }
        else {
            foreach(object ob in objects()){
                if(answers_to(arg,ob)) targets += ({ ob });
            }
        }
    }
    if(target){
        foreach(object ob in objects()){
            if(base_name(ob) == base_name(target)) targets += ({ ob });
        }
    }
    return targets;
}

mixed find_inheritors(mixed arg){
    object *targets = ({});
    if(objectp(arg)) source = base_name(arg);
    else {
        if(!stringp(arg)) return -2;
        if(!file_exists(arg)) arg += ".c";
        if(!file_exists(arg)) return -1;
        source = truncate(arg,2);
    }
    targets = filter(objects(), (: inherits(source, $1) :) );
    if(sizeof(targets)) return targets;
    else return ({});
}

mixed find_deep_inheritors(mixed arg){
    object *targets = ({});
    if(objectp(arg)) source = base_name(arg)+".c";
    else {
        if(!stringp(arg)) return -2;
        if(!file_exists(arg)) arg += ".c";
        if(!file_exists(arg)) return -1;
        source = arg;
    }

    targets = filter(objects(), (: member_array(source, deep_inherit_list($1)) != -1 :) );
    if(sizeof(targets)) return targets;
    else return ({});
}