[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 26-Mar-1995 as a part of ColdCore, see: @help Credit"]