Method code for $ctext_frob.append()

[Turn on line numbering]

---

arg this, new, @br;
var data, tmp, vars;

data = this[1];
vars = this[2];
if (br) {
    switch (br[1]) {
        case "p":
            data += [(<$format, ["p", [], [], 'do_p]>)];
        case "br":
            data += [(<$format, ["br", [], [], 'do_br]>)];
        default:
            data += [$format.new_tag(br[1], [], [])];
    }
}
if (type(new) == 'list) {
    data += new;
} else if (type(new) == 'frob && class(new) == $ctext_frob) {
    data += new._ctext();
    vars = dict_union(vars, new.vars());
} else {
    data += [new];
}
return (<this(), [data, vars]>);

---

// Created 17-Jul-1996 as a part of ColdCore, see: @help Credit