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]>); };