Method code for $code_lib._debug_listing()

[Turn off line numbering]

---

  1: arg list;
  2: var indent, i, out, t, j;
  3: 
  4: indent = "";
  5: out = [" Tick#  Event", " -----  -----------------------------"];
  6: t = 0;
  7: for i in (list) {
  8:     if (type(i) == 'integer) {
  9:         if (indent)
 10:             indent = indent.subrange(3);
 11:         out += [strfmt("%6r  %lreturn", i - t, indent)];
 12:     } else {
 13:         if (!t)
 14:             t = i[1];
 15:         j = strfmt("%6r  %l%l(%l)", i[1] - t, indent, ._show_ref(i).replace("()", ""), (toliteral(i[5]).match_pattern("[*]"))[1]);
 16:         out += [j];
 17:         indent += "  ";
 18:     }
 19:     refresh();
 20: }
 21: return out;

---

// Created 27-Mar-1995 as a part of ColdCore, see: @help Credit