Method code for $ctext_frob.append()

[Turn off line numbering]

---

  1: arg this, new, @br;
  2: var data, tmp, vars;
  3: 
  4: data = this[1];
  5: vars = this[2];
  6: if (br) {
  7:     switch (br[1]) {
  8:         case "p":
  9:             data += [(<$format, ["p", [], [], 'do_p]>)];
 10:         case "br":
 11:             data += [(<$format, ["br", [], [], 'do_br]>)];
 12:         default:
 13:             data += [$format.new_tag(br[1], [], [])];
 14:     }
 15: }
 16: if (type(new) == 'list) {
 17:     data += new;
 18: } else if (type(new) == 'frob && class(new) == $ctext_frob) {
 19:     data += new._ctext();
 20:     vars = dict_union(vars, new.vars());
 21: } else {
 22:     data += [new];
 23: }
 24: return (<this(), [data, vars]>);

---

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