/* Do not remove the headers from this file! see /USAGE for more info. */

//treefor
//By Beek - derived from codefor, which was derived from eval

//:COMMAND
//USAGE: treefor <lpc expression>
//
//Shows the driver's internal representation of the expression.
//
//>treefor int x; int y; return x+y;
//
//(return ("binary op" "+" ("opcode_1" "local" 0)("opcode_1" "local" 1)))

inherit CMD;

#define SYNTAX "USAGE:  treefor <lpc expression>\n"

private void ind(int indent) {
    outf("%*-' 's", indent, "");
}

private int dump(mixed *value, int indent, int flag) {
    mixed val;
    int subindent;
//LBUG(value);
    if (!sizeof(value))
	return flag;
    if(!stringp(value[0]))
        return flag;

    switch (value[0]) {
    case "two values":
	if (flag) {
	    outf("\n");
	    subindent = indent + 4;
	} else
	    subindent = indent;

	if (dump(value[1], subindent, 0))
	    outf("\n");

	if (dump(value[2], subindent, 0));
	    outf("\n");

	return 0;
    case "efun":
	if (!flag)
	    ind(indent);
	outf("(efun %O (", value[1]);
	flag = 1;

	foreach (val in value[2]) {
	    if (arrayp(val)) {
		if (flag)
		    outf(" ");
		flag = dump(val, indent + 2, flag);
	    } else {
		if (!flag)
		    ind(indent);
		outf(" %O", val);
		flag = 1;
	    }
	}

	if (!flag)
	    ind(indent);
	outf(" )");
	flag = 1;

	foreach (val in value[3..]) {
	    if (arrayp(val)) {
		if (flag)
		    outf(" ");
		flag = dump(val, indent + 2, flag);
	    } else {
		if (!flag)
		    ind(indent);
		outf(" %O", val);
		flag = 1;
	    }
	}
	if (!flag)
	    ind(indent);
	outf(")");
	return 1;
    default:
	if (!flag)
	    ind(indent);
	outf("(%O", value[0]);
	flag = 1;

	foreach (val in value[1..]) {
	    if (arrayp(val)) {
		if (flag)
		    outf(" ");
		flag = dump(val, indent + 2, flag);
	    } else {
		if (!flag)
		    ind(indent);
		outf(" %O", val);
		flag = 1;
	    }
	}
	if (!flag)
	    ind(indent);
	outf(")");
	return 1;
    }
}

void main(string str)
{
    string tmp_file;
    string initial_write_to_file;
    mixed ret;
    object o;

    initial_write_to_file =
        "#include <mudlib.h> \n"
        "#include <daemons.h>\n"
        "#include <config.h>\n"
        "mixed eval_function(){\n return __TREE__{";
    tmp_file = "/tmp/EVAL.c";
    rm(tmp_file);
    if(o = find_object(tmp_file)) destruct(o);
    if(!write_file(tmp_file,initial_write_to_file)) {
        out("eval: Unable to write to "+tmp_file+". \n");  //shouldn't happen.
            return 0;
    }
    write_file(tmp_file,str+"; };\n");
    write_file(tmp_file,"}\n");

    if (ret = find_object(tmp_file))
      destruct(ret);
    ret = tmp_file->eval_function();
    rm( tmp_file );

    destruct(find_object(tmp_file));
    dump(ret, 0, 0);
    outf("\n");
    return;
}