Method code for $root.debug()

[Turn off line numbering]

---

  1: arg @stuff;
  2: var x, line, mngr, meth, stack, out, ref;
  3: 
  4: stack = stack();
  5: meth = (| stack[2][3] + "() line " + stack[2][4] |);
  6: 
  7: // dont even bother
  8: mngr = .manager();
  9: if (!(| mngr.find_method('tell) |))
 10:     return;
 11: if (sender() != caller())
 12:     ref = sender() + "<" + caller() + ">";
 13: else
 14:     ref = sender();
 15: if (meth)
 16:     line = "DEBUG " + ref + "." + meth + ":";
 17: else
 18:     line = "DEBUG " + ref + ":";
 19: mngr.tell(line);
 20: for x in (stuff) {
 21:     refresh();
 22:     mngr.tell($data_lib.unparse_indent(x).prefix("DEBUG    "));
 23: }

---

// Created as a part of ColdCore, see: @help Credit