Method code for $root._get_method_info()

[Turn off line numbering]

---

  1: arg anc, method;
  2: var code, lines, dis_flag, meth_args, flags, first_comment;
  3: 
  4: code = anc.list_method(method);
  5: lines = code.length();
  6: if (lines > 5)
  7:     code = code.subrange(1, 5);
  8: flags = anc.method_flags(method);
  9: if (code) {
 10:     meth_args = regexp(code[1], "arg ([^;]);");
 11:     if (meth_args) {
 12:         meth_args = meth_args[1];
 13:         code = code.delete(1);
 14:     } else {
 15:         meth_args = "";
 16:     }
 17:     if (code && (!code[1] || code[1][1] == "v"))
 18:         code = code.delete(1);
 19:     if (code && (!code[1] || code[1][1] == "v"))
 20:         code = code.delete(1);
 21:     first_comment = code ? code[1] + " " : " ";
 22:     first_comment = first_comment[1] == "/" || first_comment[1] == "r" ? first_comment : "";
 23: } else {
 24:     meth_args = "";
 25:     first_comment = "";
 26: }
 27: return [anc, method, meth_args, flags, lines, first_comment];

---

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