parent $root_evaluator
object $uncompile_evaluator

var $root dbref 'uncompile_evaluator
var $root child_index 0
var $root fertile 0
var $root manager $uncompile_evaluator
var $root owned [$uncompile_evaluator]
var $root owners [$]
var $root writable []
var $root readable ['parameters, 'methods, 'code]
var $root inited 1

method eval_ctext
    arg args;
    var output, line, a, result;
    
    output = [];
    catch ~methodnf {
        catch ~range {
            result = .(args[1])(args[2]);
        } with handler {
            result = [];
        }
        output = output.join(result);
    } with handler {
        line = "{" + tostr(args[1]);
        if ("_stmt" in line)
            line = substr(line, 1, ("_stmt" in line) - 1);
        output = output.join(line);
        for a in (args[2])
            output = (output.join(" ")).join(.eval_ctext(a));
        output = output.join("}");
    }
    return output;
.

method get_stmt
    arg args;
    
    return (["%"].join(((.eval_ctext(args[1]))[1]).strip("\""))).join([";"]);
.

method string_type
    arg args;
    
    return ("\"" + args) + "\"";
.

method text_stmt
    arg args;
    var output, t, result;
    
    output = ["\""];
    for t in (args) {
        if ((t[1]) == 'string_type)
            output = output.join(t[2]);
        else
            output = output.join(.eval_ctext(t));
    }
    output = output.join("\"");
    return output;
.

method force_stmt
    arg args;
    
    return ($list.join("(force ", .eval_ctext(args[1]))).join(")");
.

method list_type
    arg args;
    var t, output, result;
    
    output = ["["];
    for t in (args) {
        result = .eval_ctext(t);
        output = output.join(result);
    }
    return output.join("]");
.

method _line_stmt
    arg args;
    
    return ["", ""];
.

method dbref_type
    arg term;
    
    return [term.dbref()];
.

method br_stmt
    arg args;
    
    return ["{br}", ""];
.

method p_stmt
    arg args;
    
    return ["{p}", "", ""];
.

method ul_stmt
    arg args;
    var output, l;
    
    output = [""];
    for l in (args)
        output = output.join((.eval_ctext(l)).join(["", ""]));
    args = ["{ul"];
    for l in (output)
        args = [@args, "   " + l];
    return (args.chop()).join("}");
.

method dfn_stmt
    arg args;
    var output, a, result;
    
    output = [""];
    for a in (sublist(args, 2))
        output = output.join((.eval_ctext(a)).join(["", ""]));
    args = ["{dfn " + ((.eval_ctext(args[1]))[1])];
    for a in (output)
        args = [@args, "  " + a];
    return (args.chop()).join("}");
.

method integer_type
    arg args;
    
    return tostr(args);
.