1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
|
/* Method object implementation */
#include "allobjects.h"
#include "token.h"
typedef struct {
OB_HEAD
char *m_name;
method m_meth;
object *m_self;
} methodobject;
object *
newmethodobject(name, meth, self)
char *name; /* static string */
method meth;
object *self;
{
methodobject *op = NEWOBJ(methodobject, &Methodtype);
if (op != NULL) {
op->m_name = name;
op->m_meth = meth;
if (self != NULL)
INCREF(self);
op->m_self = self;
}
return (object *)op;
}
method
getmethod(op)
object *op;
{
if (!is_methodobject(op)) {
err_badcall();
return NULL;
}
return ((methodobject *)op) -> m_meth;
}
object *
getself(op)
object *op;
{
if (!is_methodobject(op)) {
err_badcall();
return NULL;
}
return ((methodobject *)op) -> m_self;
}
/* Methods (the standard built-in methods, that is) */
static void
meth_dealloc(m)
methodobject *m;
{
if (m->m_self != NULL)
DECREF(m->m_self);
free((char *)m);
}
static void
meth_print(m, fp, flags)
methodobject *m;
FILE *fp;
int flags;
{
if (m->m_self == NULL)
fprintf(fp, "<built-in function '%s'>", m->m_name);
else
fprintf(fp, "<built-in method '%s' of some %s object>",
m->m_name, m->m_self->ob_type->tp_name);
}
static object *
meth_repr(m)
methodobject *m;
{
char buf[200];
if (m->m_self == NULL)
sprintf(buf, "<built-in function '%.80s'>", m->m_name);
else
sprintf(buf,
"<built-in method '%.80s' of some %.80s object>",
m->m_name, m->m_self->ob_type->tp_name);
return newstringobject(buf);
}
typeobject Methodtype = {
OB_HEAD_INIT(&Typetype)
0,
"method",
sizeof(methodobject),
0,
meth_dealloc, /*tp_dealloc*/
meth_print, /*tp_print*/
0, /*tp_getattr*/
0, /*tp_setattr*/
0, /*tp_compare*/
meth_repr, /*tp_repr*/
0, /*tp_as_number*/
0, /*tp_as_sequence*/
0, /*tp_as_mapping*/
};
/* Find a method in a module's method table.
Usually called from an object's getattr method. */
object *
findmethod(ml, op, name)
struct methodlist *ml;
object *op;
char *name;
{
for (; ml->ml_name != NULL; ml++) {
if (strcmp(name, ml->ml_name) == 0)
return newmethodobject(ml->ml_name, ml->ml_meth, op);
}
err_setstr(NameError, name);
return NULL;
}
|
