[Turn off line numbering]
1: arg code, name, @evalonly;
2: var l, m, line, errs;
3:
4: (> .perms(sender()) <);
5: if (evalonly && caller() in [$root, $sys, $programmer])
6: (> $sys.touch('lockok) <);
7: else
8: (> $sys.touch() <);
9:
10: // check for a few things only admins can do
11: if (!sender().is($admin)) {
12: for l in [1 .. listlen(code)] {
13: line = code[l];
14: if ((m = line.match_regexp("[^a-z0-9_.]anticipate_assignment\("))) {
15: (> sender().tell($code_lib.point_to_line("ERROR: call to anticipate_assignment()", m[1][1] + 2, m[1][2] - 2, l, line)) <);
16: throw(~perm, "anticipate_assignment() may only be used by an administrator.");
17: }
18: }
19: }
20: errs = (> add_method(code, name) <);
21: if ('core in .flags())
22: $changelog.log("ADD-METHOD: " + this() + "." + name + " by " + sender());
23: for l in [1 .. listlen(errs)] {
24: line = errs[l];
25: if (match_regexp(line, "Line [0-9]+: Unknown function length.")) {
26: line = substr(line, 1, strlen(line) - 1);
27: errs = replace(errs, l, line + "(), try listlen(), strlen() or buflen()");
28: }
29: }
30: return errs;
["// Created as a part of ColdCore, see: @help Credit"]