Guido van Rossum | f70e43a | 1991-02-19 12:39:46 +0000 | [diff] [blame] | 1 | /*********************************************************** |
| 2 | Copyright 1991 by Stichting Mathematisch Centrum, Amsterdam, The |
| 3 | Netherlands. |
| 4 | |
| 5 | All Rights Reserved |
| 6 | |
| 7 | Permission to use, copy, modify, and distribute this software and its |
| 8 | documentation for any purpose and without fee is hereby granted, |
| 9 | provided that the above copyright notice appear in all copies and that |
| 10 | both that copyright notice and this permission notice appear in |
| 11 | supporting documentation, and that the names of Stichting Mathematisch |
| 12 | Centrum or CWI not be used in advertising or publicity pertaining to |
| 13 | distribution of the software without specific, written prior permission. |
| 14 | |
| 15 | STICHTING MATHEMATISCH CENTRUM DISCLAIMS ALL WARRANTIES WITH REGARD TO |
| 16 | THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND |
| 17 | FITNESS, IN NO EVENT SHALL STICHTING MATHEMATISCH CENTRUM BE LIABLE |
| 18 | FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES |
| 19 | WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN |
| 20 | ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT |
| 21 | OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. |
| 22 | |
| 23 | ******************************************************************/ |
| 24 | |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 25 | /* Class object implementation */ |
| 26 | |
Guido van Rossum | 3f5da24 | 1990-12-20 15:06:42 +0000 | [diff] [blame] | 27 | #include "allobjects.h" |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 28 | |
Guido van Rossum | 3f5da24 | 1990-12-20 15:06:42 +0000 | [diff] [blame] | 29 | #include "structmember.h" |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 30 | |
| 31 | typedef struct { |
| 32 | OB_HEAD |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 33 | object *cl_bases; /* A tuple */ |
| 34 | object *cl_methods; /* A dictionary */ |
Guido van Rossum | 9430839 | 1991-10-20 20:11:48 +0000 | [diff] [blame] | 35 | object *cl_name; /* A string */ |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 36 | } classobject; |
| 37 | |
| 38 | object * |
Guido van Rossum | 9430839 | 1991-10-20 20:11:48 +0000 | [diff] [blame] | 39 | newclassobject(bases, methods, name) |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 40 | object *bases; /* NULL or tuple of classobjects! */ |
| 41 | object *methods; |
Guido van Rossum | 9430839 | 1991-10-20 20:11:48 +0000 | [diff] [blame] | 42 | object *name; /* String; NULL if unknown */ |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 43 | { |
| 44 | classobject *op; |
Guido van Rossum | e2966a6 | 1991-12-10 13:53:23 +0000 | [diff] [blame] | 45 | if (bases == NULL) { |
| 46 | bases = newtupleobject(0); |
| 47 | if (bases == NULL) |
| 48 | return err_nomem(); |
| 49 | } |
| 50 | else |
| 51 | INCREF(bases); |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 52 | op = NEWOBJ(classobject, &Classtype); |
Guido van Rossum | e2966a6 | 1991-12-10 13:53:23 +0000 | [diff] [blame] | 53 | if (op == NULL) { |
| 54 | DECREF(bases); |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 55 | return NULL; |
Guido van Rossum | e2966a6 | 1991-12-10 13:53:23 +0000 | [diff] [blame] | 56 | } |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 57 | op->cl_bases = bases; |
| 58 | INCREF(methods); |
| 59 | op->cl_methods = methods; |
Guido van Rossum | 9430839 | 1991-10-20 20:11:48 +0000 | [diff] [blame] | 60 | XINCREF(name); |
| 61 | op->cl_name = name; |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 62 | return (object *) op; |
| 63 | } |
| 64 | |
| 65 | /* Class methods */ |
| 66 | |
| 67 | static void |
| 68 | class_dealloc(op) |
| 69 | classobject *op; |
| 70 | { |
Guido van Rossum | e2966a6 | 1991-12-10 13:53:23 +0000 | [diff] [blame] | 71 | int i; |
| 72 | DECREF(op->cl_bases); |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 73 | DECREF(op->cl_methods); |
Guido van Rossum | 9430839 | 1991-10-20 20:11:48 +0000 | [diff] [blame] | 74 | XDECREF(op->cl_name); |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 75 | free((ANY *)op); |
| 76 | } |
| 77 | |
| 78 | static object * |
| 79 | class_getattr(op, name) |
| 80 | register classobject *op; |
| 81 | register char *name; |
| 82 | { |
| 83 | register object *v; |
Guido van Rossum | 9430839 | 1991-10-20 20:11:48 +0000 | [diff] [blame] | 84 | if (strcmp(name, "__dict__") == 0) { |
| 85 | INCREF(op->cl_methods); |
| 86 | return op->cl_methods; |
| 87 | } |
| 88 | if (strcmp(name, "__bases__") == 0) { |
Guido van Rossum | 9430839 | 1991-10-20 20:11:48 +0000 | [diff] [blame] | 89 | INCREF(op->cl_bases); |
| 90 | return op->cl_bases; |
| 91 | } |
| 92 | if (strcmp(name, "__name__") == 0) { |
| 93 | if (op->cl_name == NULL) |
| 94 | v = None; |
| 95 | else |
| 96 | v = op->cl_name; |
| 97 | INCREF(v); |
| 98 | return v; |
| 99 | } |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 100 | v = dictlookup(op->cl_methods, name); |
| 101 | if (v != NULL) { |
| 102 | INCREF(v); |
| 103 | return v; |
| 104 | } |
Guido van Rossum | e2966a6 | 1991-12-10 13:53:23 +0000 | [diff] [blame] | 105 | { |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 106 | int n = gettuplesize(op->cl_bases); |
| 107 | int i; |
| 108 | for (i = 0; i < n; i++) { |
| 109 | v = class_getattr(gettupleitem(op->cl_bases, i), name); |
| 110 | if (v != NULL) |
| 111 | return v; |
Guido van Rossum | 3f5da24 | 1990-12-20 15:06:42 +0000 | [diff] [blame] | 112 | err_clear(); |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 113 | } |
| 114 | } |
Guido van Rossum | e2966a6 | 1991-12-10 13:53:23 +0000 | [diff] [blame] | 115 | err_setstr(AttributeError, name); |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 116 | return NULL; |
| 117 | } |
| 118 | |
Guido van Rossum | 9430839 | 1991-10-20 20:11:48 +0000 | [diff] [blame] | 119 | static int |
| 120 | class_setattr(op, name, v) |
| 121 | classobject *op; |
| 122 | char *name; |
| 123 | object *v; |
| 124 | { |
| 125 | if (v == NULL) |
| 126 | return dictremove(op->cl_methods, name); |
| 127 | else |
| 128 | return dictinsert(op->cl_methods, name, v); |
| 129 | } |
| 130 | |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 131 | typeobject Classtype = { |
| 132 | OB_HEAD_INIT(&Typetype) |
| 133 | 0, |
| 134 | "class", |
| 135 | sizeof(classobject), |
| 136 | 0, |
| 137 | class_dealloc, /*tp_dealloc*/ |
| 138 | 0, /*tp_print*/ |
| 139 | class_getattr, /*tp_getattr*/ |
Guido van Rossum | 9430839 | 1991-10-20 20:11:48 +0000 | [diff] [blame] | 140 | class_setattr, /*tp_setattr*/ |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 141 | 0, /*tp_compare*/ |
| 142 | 0, /*tp_repr*/ |
| 143 | 0, /*tp_as_number*/ |
| 144 | 0, /*tp_as_sequence*/ |
| 145 | 0, /*tp_as_mapping*/ |
| 146 | }; |
| 147 | |
| 148 | |
Guido van Rossum | 21ed88c | 1991-04-04 10:42:10 +0000 | [diff] [blame] | 149 | /* We're not done yet: next, we define instance objects... */ |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 150 | |
| 151 | typedef struct { |
| 152 | OB_HEAD |
Guido van Rossum | e8122f1 | 1991-05-05 20:03:07 +0000 | [diff] [blame] | 153 | classobject *in_class; /* The class object */ |
| 154 | object *in_attr; /* A dictionary */ |
Guido van Rossum | 21ed88c | 1991-04-04 10:42:10 +0000 | [diff] [blame] | 155 | } instanceobject; |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 156 | |
| 157 | object * |
Guido van Rossum | 21ed88c | 1991-04-04 10:42:10 +0000 | [diff] [blame] | 158 | newinstanceobject(class) |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 159 | register object *class; |
| 160 | { |
Guido van Rossum | e8122f1 | 1991-05-05 20:03:07 +0000 | [diff] [blame] | 161 | register instanceobject *inst; |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 162 | if (!is_classobject(class)) { |
Guido van Rossum | 2a9096b | 1990-10-21 22:15:08 +0000 | [diff] [blame] | 163 | err_badcall(); |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 164 | return NULL; |
| 165 | } |
Guido van Rossum | e8122f1 | 1991-05-05 20:03:07 +0000 | [diff] [blame] | 166 | inst = NEWOBJ(instanceobject, &Instancetype); |
| 167 | if (inst == NULL) |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 168 | return NULL; |
| 169 | INCREF(class); |
Guido van Rossum | e8122f1 | 1991-05-05 20:03:07 +0000 | [diff] [blame] | 170 | inst->in_class = (classobject *)class; |
| 171 | inst->in_attr = newdictobject(); |
| 172 | if (inst->in_attr == NULL) { |
| 173 | DECREF(inst); |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 174 | return NULL; |
| 175 | } |
Guido van Rossum | e8122f1 | 1991-05-05 20:03:07 +0000 | [diff] [blame] | 176 | return (object *)inst; |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 177 | } |
| 178 | |
Guido van Rossum | 21ed88c | 1991-04-04 10:42:10 +0000 | [diff] [blame] | 179 | /* Instance methods */ |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 180 | |
| 181 | static void |
Guido van Rossum | e8122f1 | 1991-05-05 20:03:07 +0000 | [diff] [blame] | 182 | instance_dealloc(inst) |
| 183 | register instanceobject *inst; |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 184 | { |
Guido van Rossum | e8122f1 | 1991-05-05 20:03:07 +0000 | [diff] [blame] | 185 | DECREF(inst->in_class); |
| 186 | if (inst->in_attr != NULL) |
| 187 | DECREF(inst->in_attr); |
| 188 | free((ANY *)inst); |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 189 | } |
| 190 | |
| 191 | static object * |
Guido van Rossum | e8122f1 | 1991-05-05 20:03:07 +0000 | [diff] [blame] | 192 | instance_getattr(inst, name) |
| 193 | register instanceobject *inst; |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 194 | register char *name; |
| 195 | { |
Guido van Rossum | 9430839 | 1991-10-20 20:11:48 +0000 | [diff] [blame] | 196 | register object *v; |
| 197 | if (strcmp(name, "__dict__") == 0) { |
| 198 | INCREF(inst->in_attr); |
| 199 | return inst->in_attr; |
| 200 | } |
| 201 | if (strcmp(name, "__class__") == 0) { |
| 202 | INCREF(inst->in_class); |
| 203 | return (object *)inst->in_class; |
| 204 | } |
| 205 | v = dictlookup(inst->in_attr, name); |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 206 | if (v != NULL) { |
| 207 | INCREF(v); |
| 208 | return v; |
| 209 | } |
Guido van Rossum | e8122f1 | 1991-05-05 20:03:07 +0000 | [diff] [blame] | 210 | v = class_getattr(inst->in_class, name); |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 211 | if (v == NULL) |
Guido van Rossum | 2a9096b | 1990-10-21 22:15:08 +0000 | [diff] [blame] | 212 | return v; /* class_getattr() has set the error */ |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 213 | if (is_funcobject(v)) { |
Guido van Rossum | e8122f1 | 1991-05-05 20:03:07 +0000 | [diff] [blame] | 214 | object *w = newinstancemethodobject(v, (object *)inst); |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 215 | DECREF(v); |
| 216 | return w; |
| 217 | } |
| 218 | DECREF(v); |
Guido van Rossum | e2966a6 | 1991-12-10 13:53:23 +0000 | [diff] [blame] | 219 | err_setstr(AttributeError, name); |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 220 | return NULL; |
| 221 | } |
| 222 | |
| 223 | static int |
Guido van Rossum | e8122f1 | 1991-05-05 20:03:07 +0000 | [diff] [blame] | 224 | instance_setattr(inst, name, v) |
| 225 | instanceobject *inst; |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 226 | char *name; |
| 227 | object *v; |
| 228 | { |
| 229 | if (v == NULL) |
Guido van Rossum | e8122f1 | 1991-05-05 20:03:07 +0000 | [diff] [blame] | 230 | return dictremove(inst->in_attr, name); |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 231 | else |
Guido van Rossum | e8122f1 | 1991-05-05 20:03:07 +0000 | [diff] [blame] | 232 | return dictinsert(inst->in_attr, name, v); |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 233 | } |
| 234 | |
Guido van Rossum | 21ed88c | 1991-04-04 10:42:10 +0000 | [diff] [blame] | 235 | typeobject Instancetype = { |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 236 | OB_HEAD_INIT(&Typetype) |
| 237 | 0, |
Guido van Rossum | 21ed88c | 1991-04-04 10:42:10 +0000 | [diff] [blame] | 238 | "instance", |
| 239 | sizeof(instanceobject), |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 240 | 0, |
Guido van Rossum | 21ed88c | 1991-04-04 10:42:10 +0000 | [diff] [blame] | 241 | instance_dealloc, /*tp_dealloc*/ |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 242 | 0, /*tp_print*/ |
Guido van Rossum | 21ed88c | 1991-04-04 10:42:10 +0000 | [diff] [blame] | 243 | instance_getattr, /*tp_getattr*/ |
| 244 | instance_setattr, /*tp_setattr*/ |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 245 | 0, /*tp_compare*/ |
| 246 | 0, /*tp_repr*/ |
| 247 | 0, /*tp_as_number*/ |
| 248 | 0, /*tp_as_sequence*/ |
| 249 | 0, /*tp_as_mapping*/ |
| 250 | }; |
| 251 | |
| 252 | |
Guido van Rossum | 9430839 | 1991-10-20 20:11:48 +0000 | [diff] [blame] | 253 | /* And finally, here are instance method objects */ |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 254 | |
| 255 | typedef struct { |
| 256 | OB_HEAD |
Guido van Rossum | e8122f1 | 1991-05-05 20:03:07 +0000 | [diff] [blame] | 257 | object *im_func; /* The method function */ |
| 258 | object *im_self; /* The object to which this applies */ |
| 259 | } instancemethodobject; |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 260 | |
| 261 | object * |
Guido van Rossum | e8122f1 | 1991-05-05 20:03:07 +0000 | [diff] [blame] | 262 | newinstancemethodobject(func, self) |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 263 | object *func; |
| 264 | object *self; |
| 265 | { |
Guido van Rossum | e8122f1 | 1991-05-05 20:03:07 +0000 | [diff] [blame] | 266 | register instancemethodobject *im; |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 267 | if (!is_funcobject(func)) { |
Guido van Rossum | 2a9096b | 1990-10-21 22:15:08 +0000 | [diff] [blame] | 268 | err_badcall(); |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 269 | return NULL; |
| 270 | } |
Guido van Rossum | e8122f1 | 1991-05-05 20:03:07 +0000 | [diff] [blame] | 271 | im = NEWOBJ(instancemethodobject, &Instancemethodtype); |
| 272 | if (im == NULL) |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 273 | return NULL; |
| 274 | INCREF(func); |
Guido van Rossum | e8122f1 | 1991-05-05 20:03:07 +0000 | [diff] [blame] | 275 | im->im_func = func; |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 276 | INCREF(self); |
Guido van Rossum | e8122f1 | 1991-05-05 20:03:07 +0000 | [diff] [blame] | 277 | im->im_self = self; |
| 278 | return (object *)im; |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 279 | } |
| 280 | |
| 281 | object * |
Guido van Rossum | e8122f1 | 1991-05-05 20:03:07 +0000 | [diff] [blame] | 282 | instancemethodgetfunc(im) |
| 283 | register object *im; |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 284 | { |
Guido van Rossum | e8122f1 | 1991-05-05 20:03:07 +0000 | [diff] [blame] | 285 | if (!is_instancemethodobject(im)) { |
Guido van Rossum | 2a9096b | 1990-10-21 22:15:08 +0000 | [diff] [blame] | 286 | err_badcall(); |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 287 | return NULL; |
| 288 | } |
Guido van Rossum | e8122f1 | 1991-05-05 20:03:07 +0000 | [diff] [blame] | 289 | return ((instancemethodobject *)im)->im_func; |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 290 | } |
| 291 | |
| 292 | object * |
Guido van Rossum | e8122f1 | 1991-05-05 20:03:07 +0000 | [diff] [blame] | 293 | instancemethodgetself(im) |
| 294 | register object *im; |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 295 | { |
Guido van Rossum | e8122f1 | 1991-05-05 20:03:07 +0000 | [diff] [blame] | 296 | if (!is_instancemethodobject(im)) { |
Guido van Rossum | 2a9096b | 1990-10-21 22:15:08 +0000 | [diff] [blame] | 297 | err_badcall(); |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 298 | return NULL; |
| 299 | } |
Guido van Rossum | e8122f1 | 1991-05-05 20:03:07 +0000 | [diff] [blame] | 300 | return ((instancemethodobject *)im)->im_self; |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 301 | } |
| 302 | |
| 303 | /* Class method methods */ |
| 304 | |
Guido van Rossum | e8122f1 | 1991-05-05 20:03:07 +0000 | [diff] [blame] | 305 | #define OFF(x) offsetof(instancemethodobject, x) |
Guido van Rossum | 3f5da24 | 1990-12-20 15:06:42 +0000 | [diff] [blame] | 306 | |
Guido van Rossum | e8122f1 | 1991-05-05 20:03:07 +0000 | [diff] [blame] | 307 | static struct memberlist instancemethod_memberlist[] = { |
| 308 | {"im_func", T_OBJECT, OFF(im_func)}, |
| 309 | {"im_self", T_OBJECT, OFF(im_self)}, |
Guido van Rossum | 3f5da24 | 1990-12-20 15:06:42 +0000 | [diff] [blame] | 310 | {NULL} /* Sentinel */ |
| 311 | }; |
| 312 | |
| 313 | static object * |
Guido van Rossum | e8122f1 | 1991-05-05 20:03:07 +0000 | [diff] [blame] | 314 | instancemethod_getattr(im, name) |
| 315 | register instancemethodobject *im; |
Guido van Rossum | 3f5da24 | 1990-12-20 15:06:42 +0000 | [diff] [blame] | 316 | char *name; |
| 317 | { |
Guido van Rossum | e8122f1 | 1991-05-05 20:03:07 +0000 | [diff] [blame] | 318 | return getmember((char *)im, instancemethod_memberlist, name); |
Guido van Rossum | 3f5da24 | 1990-12-20 15:06:42 +0000 | [diff] [blame] | 319 | } |
| 320 | |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 321 | static void |
Guido van Rossum | e8122f1 | 1991-05-05 20:03:07 +0000 | [diff] [blame] | 322 | instancemethod_dealloc(im) |
| 323 | register instancemethodobject *im; |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 324 | { |
Guido van Rossum | e8122f1 | 1991-05-05 20:03:07 +0000 | [diff] [blame] | 325 | DECREF(im->im_func); |
| 326 | DECREF(im->im_self); |
| 327 | free((ANY *)im); |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 328 | } |
| 329 | |
Guido van Rossum | e8122f1 | 1991-05-05 20:03:07 +0000 | [diff] [blame] | 330 | typeobject Instancemethodtype = { |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 331 | OB_HEAD_INIT(&Typetype) |
| 332 | 0, |
Guido van Rossum | 569fce7 | 1991-04-16 08:38:43 +0000 | [diff] [blame] | 333 | "instance method", |
Guido van Rossum | e8122f1 | 1991-05-05 20:03:07 +0000 | [diff] [blame] | 334 | sizeof(instancemethodobject), |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 335 | 0, |
Guido van Rossum | e8122f1 | 1991-05-05 20:03:07 +0000 | [diff] [blame] | 336 | instancemethod_dealloc, /*tp_dealloc*/ |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 337 | 0, /*tp_print*/ |
Guido van Rossum | e8122f1 | 1991-05-05 20:03:07 +0000 | [diff] [blame] | 338 | instancemethod_getattr, /*tp_getattr*/ |
Guido van Rossum | 85a5fbb | 1990-10-14 12:07:46 +0000 | [diff] [blame] | 339 | 0, /*tp_setattr*/ |
| 340 | 0, /*tp_compare*/ |
| 341 | 0, /*tp_repr*/ |
| 342 | 0, /*tp_as_number*/ |
| 343 | 0, /*tp_as_sequence*/ |
| 344 | 0, /*tp_as_mapping*/ |
| 345 | }; |