Method code for $object_lib.format_method_header()

[Turn on line numbering]

---

arg obj, method, opt, flags, access;
var f;

if (access) {
    // shorten it a little
    access = tostr(access);
    access = strsub(access, "protected", "prot");
    access = strsub(access, "public", "pub");
    opt += (opt ? " " : "") + "+access=" + access;
}
f = flags.join(",");

// shorten it a little
f = strsub(f, "nooverride", "noover");
if (f)
    opt += (opt ? " " : "") + "+flags=" + f;
return "@program " + obj + "." + method + "() " + opt;

---

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