Method code for $object_lib.format_method_header()

[Turn off line numbering]

---

  1: arg obj, method, opt, flags, access;
  2: var f;
  3: 
  4: if (access) {
  5:     // shorten it a little
  6:     access = tostr(access);
  7:     access = strsub(access, "protected", "prot");
  8:     access = strsub(access, "public", "pub");
  9:     opt += (opt ? " " : "") + "+access=" + access;
 10: }
 11: f = flags.join(",");
 12: 
 13: // shorten it a little
 14: f = strsub(f, "nooverride", "noover");
 15: if (f)
 16:     opt += (opt ? " " : "") + "+flags=" + f;
 17: return "@program " + obj + "." + method + "() " + opt;

---

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