Method code for $code_lib._debug_listing()

[Turn on line numbering]

---

arg list;
var indent, i, out, t, j;

indent = "";
out = [" Tick#  Event", " -----  -----------------------------"];
t = 0;
for i in (list) {
    if (type(i) == 'integer) {
        if (indent)
            indent = indent.subrange(3);
        out += [strfmt("%6r  %lreturn", i - t, indent)];
    } else {
        if (!t)
            t = i[1];
        j = strfmt("%6r  %l%l(%l)", i[1] - t, indent, ._show_ref(i).replace("()", ""), (toliteral(i[5]).match_pattern("[*]"))[1]);
        out += [j];
        indent += "  ";
    }
    refresh();
}
return out;

// $#Edited: 03 Aug 97 13:53 $miro

---

["// Created 26-Mar-1995 as a part of ColdCore, see: @help Credit"]