new object $cml_lib: $libraries;

var $cml_lib br = <$format, ["br", [], [], 'do_br]>;
var $cml_lib hr = <$format, ["hr", [], [], 'do_hr]>;
var $cml_lib p = <$format, ["p", [], [], 'do_p]>;
var $cml_lib sep = <$format, ["hr", [["sep", "3"]], [], 'do_hr]>;
var $dmi_data descriptions = #[];
var $root created_on = 863748283;
var $root flags = ['variables, 'methods, 'code, 'core];
var $root inited = 1;
var $root managed = [$cml_lib];
var $root manager = $cml_lib;

public method .format_br_tag() {
    return br;
};

public method .format_hr_tag() {
    return hr;
};

public method .format_invoke_tag() {
    arg object, method, name;
    
    return (<$format, ["invoke", [["object", object], ["method", method]], [name], 'do_invoke]>);
};

public method .format_obj_tag() {
    arg context, object, name, @options;
    
    if (options)
        return (<$format, ["obj", [["context", context], ["options", options[1]], ["name", name]], [object], 'do_obj]>);
    else
        return (<$format, ["obj", [["context", context], ["name", name]], [object], 'do_obj]>);
};

public method .format_p_tag() {
    return p;
};

public method .format_pre_tag() {
    arg args;
    
    return (<$format, ["pre", [], [args], 'do_pre]>);
};

public method .format_sep_tag() {
    return sep;
};

public method .format_subj_tag() {
    arg text, @level;
    
    [(level ?= 4)] = level;
    return (<$format, ["subj", [["level", level]], [text], 'do_subj]>);
};

public method .format_table_tag() {
    arg cols, @contents;
    
    return (<$format, ["table", [["cols", cols]], contents, 'do_table]>);
};

public method .format_td_tag() {
    arg contents, @spanning;
    var span;
    
    return (<$format, ["td", spanning, [contents], 'do_td]>);
};

public method .format_tr_tag() {
    arg @contents;
    
    return (<$format, ["tr", [], contents, 'do_tr]>);
};

public method .generate_english_tag() {
    arg list;
    
    return (<$generator, ["english", [], list, 'gen_english]>);
};

public method .generate_join_tag() {
    arg list, @sep;
    
    [(sep ?= ", ")] = sep;
    return (<$generator, ["join", [["separator", sep]], list, 'gen_join]>);
};