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