diff options
Diffstat (limited to 'Objects')
| -rw-r--r-- | Objects/methodobject.c | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/Objects/methodobject.c b/Objects/methodobject.c index 46a2f86..d306587 100644 --- a/Objects/methodobject.c +++ b/Objects/methodobject.c @@ -130,6 +130,31 @@ typeobject Methodtype = { 0, /*tp_as_mapping*/ }; +object *listmethods PROTO((struct methodlist *)); /* Forward */ + +static object * +listmethods(ml) + struct methodlist *ml; +{ + int i, n; + object *v; + for (n = 0; ml[n].ml_name != NULL; n++) + ; + v = newlistobject(n); + if (v != NULL) { + for (i = 0; i < n; i++) + setlistitem(v, i, newstringobject(ml[i].ml_name)); + if (err_occurred()) { + DECREF(v); + v = NULL; + } + else { + sortlist(v); + } + } + return v; +} + /* Find a method in a module's method table. Usually called from an object's getattr method. */ @@ -139,6 +164,8 @@ findmethod(ml, op, name) object *op; char *name; { + if (strcmp(name, "__methods__") == 0) + return listmethods(ml); for (; ml->ml_name != NULL; ml++) { if (strcmp(name, ml->ml_name) == 0) return newmethodobject(ml->ml_name, ml->ml_meth, op); |