/*    /cmds/creator/showtree.c
 *    idea borrowed from LIMA for Nightmare IVr2
 *    shows information about an object
 *    created by Beek@Nightmare
 */

#include <lib.h>
#include "include/showtree.h"

inherit LIB_DAEMON;

private string Error;

mixed cmd(string str) {
    string func, file;

    if( !str || str == "" )
      return "Syntax: <showtree FILE> or <showtree FUNCTION in FILE>";
    if( sscanf(str, "%s in %s", func, file) != 2 ) {
	if( sscanf(str, "%s %s", func, file) != 2 ) {
	    func = 0;
	    file = str;
	}
    }	
    file = absolute_path((string)this_player()->query_cwd(), file);
    str = ShowTree(file, func, 0);
    if( !str ) return Error;
    this_player()->eventPage(explode(str, "\n"), "system");
    return 1;
}

string ShowTree(string file, string func, int indent) {
    object ob;
    string str;
    int found;
    
    if( strlen(file) > 2 && file[<2..] == ".c" ) file = file[0..<3];
    if( file[0] != '/' ) file = "/" + file;
    if( !(ob = load_object(file)) ) {
	Error = "Error in loading " + file + ".";
	return 0;
    }
    str = sprintf("%*-' 's" + file, indent*4, "");
    if( func && (function_exists(func, ob) == file) )
	str += " (" + func + " defined)\n";
    else str += "\n";
    if( !func || function_exists(func, ob) ) found = 1;
    indent++;
    foreach(file in inherit_list(ob)) {
	string tmp;

	tmp = ShowTree(file, func, indent);
	if( tmp && tmp != "" ) {
	    str += tmp;
	    found = 1;
	}
	else if( !tmp ) return 0;
    }
    return (found ? str : "");
}

string GetHelp(string str) {
    return ("Syntax: <showtree FILE>\n"
	    "        <showtree FUNC in FILE>\n\n"
	    "In its first version, shows you the full inheritance "
	    "tree for the named object.  In its second form, it shows "
	    "you all files in the inheritance tree which contain the "
	    "function you name, specifically noting those objects which "
	    "have definitions for the function.\n\n"
	    "See also: help");
}