Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 1 | /* Abstract Object Interface (many thanks to Jim Fulton) */ |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 2 | |
Neil Schemenauer | 5a1f015 | 2001-01-04 01:39:06 +0000 | [diff] [blame] | 3 | |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 4 | #include "Python.h" |
Guido van Rossum | fa0b6ab | 1998-05-22 15:23:36 +0000 | [diff] [blame] | 5 | #include <ctype.h> |
Neil Schemenauer | 5a1f015 | 2001-01-04 01:39:06 +0000 | [diff] [blame] | 6 | #include "structmember.h" /* we need the offsetof() macro from there */ |
| 7 | |
| 8 | #define NEW_STYLE_NUMBER(o) PyType_HasFeature((o)->ob_type, \ |
Guido van Rossum | c318969 | 2001-01-17 15:29:42 +0000 | [diff] [blame] | 9 | Py_TPFLAGS_CHECKTYPES) |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 10 | |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 11 | /* Shorthands to return certain errors */ |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 12 | |
| 13 | static PyObject * |
Fred Drake | 4201b9e | 2000-07-09 04:34:13 +0000 | [diff] [blame] | 14 | type_error(const char *msg) |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 15 | { |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 16 | PyErr_SetString(PyExc_TypeError, msg); |
| 17 | return NULL; |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 18 | } |
| 19 | |
Guido van Rossum | 052b7e1 | 1996-11-11 15:08:19 +0000 | [diff] [blame] | 20 | static PyObject * |
Fred Drake | 7991247 | 2000-07-09 04:06:11 +0000 | [diff] [blame] | 21 | null_error(void) |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 22 | { |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 23 | if (!PyErr_Occurred()) |
| 24 | PyErr_SetString(PyExc_SystemError, |
| 25 | "null argument to internal routine"); |
| 26 | return NULL; |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 27 | } |
| 28 | |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 29 | /* Operations on any object */ |
| 30 | |
| 31 | int |
Fred Drake | 7991247 | 2000-07-09 04:06:11 +0000 | [diff] [blame] | 32 | PyObject_Cmp(PyObject *o1, PyObject *o2, int *result) |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 33 | { |
| 34 | int r; |
| 35 | |
| 36 | if (o1 == NULL || o2 == NULL) { |
| 37 | null_error(); |
| 38 | return -1; |
| 39 | } |
| 40 | r = PyObject_Compare(o1, o2); |
| 41 | if (PyErr_Occurred()) |
| 42 | return -1; |
| 43 | *result = r; |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 44 | return 0; |
| 45 | } |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 46 | |
| 47 | PyObject * |
Fred Drake | 7991247 | 2000-07-09 04:06:11 +0000 | [diff] [blame] | 48 | PyObject_Type(PyObject *o) |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 49 | { |
| 50 | PyObject *v; |
| 51 | |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 52 | if (o == NULL) |
| 53 | return null_error(); |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 54 | v = (PyObject *)o->ob_type; |
| 55 | Py_INCREF(v); |
| 56 | return v; |
| 57 | } |
| 58 | |
| 59 | int |
Jeremy Hylton | 6253f83 | 2000-07-12 12:56:19 +0000 | [diff] [blame] | 60 | PyObject_Size(PyObject *o) |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 61 | { |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 62 | PySequenceMethods *m; |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 63 | |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 64 | if (o == NULL) { |
| 65 | null_error(); |
| 66 | return -1; |
| 67 | } |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 68 | |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 69 | m = o->ob_type->tp_as_sequence; |
| 70 | if (m && m->sq_length) |
| 71 | return m->sq_length(o); |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 72 | |
Jeremy Hylton | 6253f83 | 2000-07-12 12:56:19 +0000 | [diff] [blame] | 73 | return PyMapping_Size(o); |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 74 | } |
| 75 | |
Marc-André Lemburg | cf5f358 | 2000-07-17 09:22:55 +0000 | [diff] [blame] | 76 | #undef PyObject_Length |
| 77 | int |
| 78 | PyObject_Length(PyObject *o) |
| 79 | { |
| 80 | return PyObject_Size(o); |
| 81 | } |
| 82 | #define PyObject_Length PyObject_Size |
| 83 | |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 84 | PyObject * |
Fred Drake | 7991247 | 2000-07-09 04:06:11 +0000 | [diff] [blame] | 85 | PyObject_GetItem(PyObject *o, PyObject *key) |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 86 | { |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 87 | PyMappingMethods *m; |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 88 | |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 89 | if (o == NULL || key == NULL) |
| 90 | return null_error(); |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 91 | |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 92 | m = o->ob_type->tp_as_mapping; |
| 93 | if (m && m->mp_subscript) |
| 94 | return m->mp_subscript(o, key); |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 95 | |
Guido van Rossum | 2130824 | 1998-08-13 16:44:44 +0000 | [diff] [blame] | 96 | if (o->ob_type->tp_as_sequence) { |
| 97 | if (PyInt_Check(key)) |
| 98 | return PySequence_GetItem(o, PyInt_AsLong(key)); |
Andrew M. Kuchling | 0f223d2 | 2000-02-23 22:21:50 +0000 | [diff] [blame] | 99 | else if (PyLong_Check(key)) { |
| 100 | long key_value = PyLong_AsLong(key); |
| 101 | if (key_value == -1 && PyErr_Occurred()) |
| 102 | return NULL; |
| 103 | return PySequence_GetItem(o, key_value); |
| 104 | } |
Guido van Rossum | 2130824 | 1998-08-13 16:44:44 +0000 | [diff] [blame] | 105 | return type_error("sequence index must be integer"); |
| 106 | } |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 107 | |
| 108 | return type_error("unsubscriptable object"); |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 109 | } |
| 110 | |
| 111 | int |
Fred Drake | 7991247 | 2000-07-09 04:06:11 +0000 | [diff] [blame] | 112 | PyObject_SetItem(PyObject *o, PyObject *key, PyObject *value) |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 113 | { |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 114 | PyMappingMethods *m; |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 115 | |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 116 | if (o == NULL || key == NULL || value == NULL) { |
| 117 | null_error(); |
| 118 | return -1; |
| 119 | } |
| 120 | m = o->ob_type->tp_as_mapping; |
| 121 | if (m && m->mp_ass_subscript) |
| 122 | return m->mp_ass_subscript(o, key, value); |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 123 | |
Guido van Rossum | 2130824 | 1998-08-13 16:44:44 +0000 | [diff] [blame] | 124 | if (o->ob_type->tp_as_sequence) { |
| 125 | if (PyInt_Check(key)) |
| 126 | return PySequence_SetItem(o, PyInt_AsLong(key), value); |
Andrew M. Kuchling | 0f223d2 | 2000-02-23 22:21:50 +0000 | [diff] [blame] | 127 | else if (PyLong_Check(key)) { |
| 128 | long key_value = PyLong_AsLong(key); |
| 129 | if (key_value == -1 && PyErr_Occurred()) |
| 130 | return -1; |
| 131 | return PySequence_SetItem(o, key_value, value); |
| 132 | } |
Guido van Rossum | 2130824 | 1998-08-13 16:44:44 +0000 | [diff] [blame] | 133 | type_error("sequence index must be integer"); |
| 134 | return -1; |
| 135 | } |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 136 | |
| 137 | type_error("object does not support item assignment"); |
| 138 | return -1; |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 139 | } |
| 140 | |
Guido van Rossum | 6cdc6f4 | 1996-08-21 17:41:54 +0000 | [diff] [blame] | 141 | int |
Fred Drake | 7991247 | 2000-07-09 04:06:11 +0000 | [diff] [blame] | 142 | PyObject_DelItem(PyObject *o, PyObject *key) |
Guido van Rossum | 6cdc6f4 | 1996-08-21 17:41:54 +0000 | [diff] [blame] | 143 | { |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 144 | PyMappingMethods *m; |
Guido van Rossum | 6cdc6f4 | 1996-08-21 17:41:54 +0000 | [diff] [blame] | 145 | |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 146 | if (o == NULL || key == NULL) { |
| 147 | null_error(); |
| 148 | return -1; |
| 149 | } |
| 150 | m = o->ob_type->tp_as_mapping; |
| 151 | if (m && m->mp_ass_subscript) |
| 152 | return m->mp_ass_subscript(o, key, (PyObject*)NULL); |
Guido van Rossum | 6cdc6f4 | 1996-08-21 17:41:54 +0000 | [diff] [blame] | 153 | |
Guido van Rossum | 2130824 | 1998-08-13 16:44:44 +0000 | [diff] [blame] | 154 | if (o->ob_type->tp_as_sequence) { |
| 155 | if (PyInt_Check(key)) |
| 156 | return PySequence_DelItem(o, PyInt_AsLong(key)); |
Andrew M. Kuchling | 0f223d2 | 2000-02-23 22:21:50 +0000 | [diff] [blame] | 157 | else if (PyLong_Check(key)) { |
| 158 | long key_value = PyLong_AsLong(key); |
| 159 | if (key_value == -1 && PyErr_Occurred()) |
| 160 | return -1; |
| 161 | return PySequence_DelItem(o, key_value); |
| 162 | } |
Guido van Rossum | 2130824 | 1998-08-13 16:44:44 +0000 | [diff] [blame] | 163 | type_error("sequence index must be integer"); |
| 164 | return -1; |
| 165 | } |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 166 | |
| 167 | type_error("object does not support item deletion"); |
| 168 | return -1; |
Guido van Rossum | 6cdc6f4 | 1996-08-21 17:41:54 +0000 | [diff] [blame] | 169 | } |
| 170 | |
Guido van Rossum | 4c08d55 | 2000-03-10 22:55:18 +0000 | [diff] [blame] | 171 | int PyObject_AsCharBuffer(PyObject *obj, |
| 172 | const char **buffer, |
| 173 | int *buffer_len) |
| 174 | { |
| 175 | PyBufferProcs *pb; |
| 176 | const char *pp; |
| 177 | int len; |
| 178 | |
| 179 | if (obj == NULL || buffer == NULL || buffer_len == NULL) { |
| 180 | null_error(); |
| 181 | return -1; |
| 182 | } |
| 183 | pb = obj->ob_type->tp_as_buffer; |
| 184 | if ( pb == NULL || |
| 185 | pb->bf_getcharbuffer == NULL || |
| 186 | pb->bf_getsegcount == NULL ) { |
| 187 | PyErr_SetString(PyExc_TypeError, |
| 188 | "expected a character buffer object"); |
| 189 | goto onError; |
| 190 | } |
| 191 | if ( (*pb->bf_getsegcount)(obj,NULL) != 1 ) { |
| 192 | PyErr_SetString(PyExc_TypeError, |
| 193 | "expected a single-segment buffer object"); |
| 194 | goto onError; |
| 195 | } |
| 196 | len = (*pb->bf_getcharbuffer)(obj,0,&pp); |
| 197 | if (len < 0) |
| 198 | goto onError; |
| 199 | *buffer = pp; |
| 200 | *buffer_len = len; |
| 201 | return 0; |
| 202 | |
| 203 | onError: |
| 204 | return -1; |
| 205 | } |
| 206 | |
| 207 | int PyObject_AsReadBuffer(PyObject *obj, |
| 208 | const void **buffer, |
| 209 | int *buffer_len) |
| 210 | { |
| 211 | PyBufferProcs *pb; |
| 212 | void *pp; |
| 213 | int len; |
| 214 | |
| 215 | if (obj == NULL || buffer == NULL || buffer_len == NULL) { |
| 216 | null_error(); |
| 217 | return -1; |
| 218 | } |
| 219 | pb = obj->ob_type->tp_as_buffer; |
| 220 | if ( pb == NULL || |
| 221 | pb->bf_getreadbuffer == NULL || |
| 222 | pb->bf_getsegcount == NULL ) { |
| 223 | PyErr_SetString(PyExc_TypeError, |
| 224 | "expected a readable buffer object"); |
| 225 | goto onError; |
| 226 | } |
| 227 | if ( (*pb->bf_getsegcount)(obj,NULL) != 1 ) { |
| 228 | PyErr_SetString(PyExc_TypeError, |
| 229 | "expected a single-segment buffer object"); |
| 230 | goto onError; |
| 231 | } |
| 232 | len = (*pb->bf_getreadbuffer)(obj,0,&pp); |
| 233 | if (len < 0) |
| 234 | goto onError; |
| 235 | *buffer = pp; |
| 236 | *buffer_len = len; |
| 237 | return 0; |
| 238 | |
| 239 | onError: |
| 240 | return -1; |
| 241 | } |
| 242 | |
| 243 | int PyObject_AsWriteBuffer(PyObject *obj, |
| 244 | void **buffer, |
| 245 | int *buffer_len) |
| 246 | { |
| 247 | PyBufferProcs *pb; |
| 248 | void*pp; |
| 249 | int len; |
| 250 | |
| 251 | if (obj == NULL || buffer == NULL || buffer_len == NULL) { |
| 252 | null_error(); |
| 253 | return -1; |
| 254 | } |
| 255 | pb = obj->ob_type->tp_as_buffer; |
| 256 | if ( pb == NULL || |
| 257 | pb->bf_getwritebuffer == NULL || |
| 258 | pb->bf_getsegcount == NULL ) { |
| 259 | PyErr_SetString(PyExc_TypeError, |
| 260 | "expected a writeable buffer object"); |
| 261 | goto onError; |
| 262 | } |
| 263 | if ( (*pb->bf_getsegcount)(obj,NULL) != 1 ) { |
| 264 | PyErr_SetString(PyExc_TypeError, |
| 265 | "expected a single-segment buffer object"); |
| 266 | goto onError; |
| 267 | } |
| 268 | len = (*pb->bf_getwritebuffer)(obj,0,&pp); |
| 269 | if (len < 0) |
| 270 | goto onError; |
| 271 | *buffer = pp; |
| 272 | *buffer_len = len; |
| 273 | return 0; |
| 274 | |
| 275 | onError: |
| 276 | return -1; |
| 277 | } |
| 278 | |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 279 | /* Operations on numbers */ |
| 280 | |
| 281 | int |
Fred Drake | 7991247 | 2000-07-09 04:06:11 +0000 | [diff] [blame] | 282 | PyNumber_Check(PyObject *o) |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 283 | { |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 284 | return o && o->ob_type->tp_as_number; |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 285 | } |
| 286 | |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 287 | /* Binary operators */ |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 288 | |
Neil Schemenauer | 5a1f015 | 2001-01-04 01:39:06 +0000 | [diff] [blame] | 289 | /* New style number protocol support */ |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 290 | |
Neil Schemenauer | 5a1f015 | 2001-01-04 01:39:06 +0000 | [diff] [blame] | 291 | #define NB_SLOT(x) offsetof(PyNumberMethods, x) |
| 292 | #define NB_BINOP(nb_methods, slot) \ |
| 293 | ((binaryfunc*)(& ((char*)nb_methods)[slot] )) |
| 294 | #define NB_TERNOP(nb_methods, slot) \ |
| 295 | ((ternaryfunc*)(& ((char*)nb_methods)[slot] )) |
| 296 | |
| 297 | /* |
| 298 | Calling scheme used for binary operations: |
| 299 | |
| 300 | v w Action |
| 301 | ------------------------------------------------------------------- |
| 302 | new new v.op(v,w), w.op(v,w) |
| 303 | new old v.op(v,w), coerce(v,w), v.op(v,w) |
| 304 | old new w.op(v,w), coerce(v,w), v.op(v,w) |
| 305 | old old coerce(v,w), v.op(v,w) |
| 306 | |
| 307 | Legend: |
| 308 | ------- |
| 309 | * new == new style number |
| 310 | * old == old style number |
| 311 | * Action indicates the order in which operations are tried until either |
| 312 | a valid result is produced or an error occurs. |
| 313 | |
| 314 | */ |
| 315 | |
| 316 | static PyObject * |
| 317 | binary_op1(PyObject *v, PyObject *w, const int op_slot) |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 318 | { |
Neil Schemenauer | 5a1f015 | 2001-01-04 01:39:06 +0000 | [diff] [blame] | 319 | PyObject *x; |
| 320 | binaryfunc *slot; |
| 321 | if (v->ob_type->tp_as_number != NULL && NEW_STYLE_NUMBER(v)) { |
| 322 | slot = NB_BINOP(v->ob_type->tp_as_number, op_slot); |
| 323 | if (*slot) { |
| 324 | x = (*slot)(v, w); |
| 325 | if (x != Py_NotImplemented) { |
| 326 | return x; |
| 327 | } |
| 328 | Py_DECREF(x); /* can't do it */ |
| 329 | } |
| 330 | if (v->ob_type == w->ob_type) { |
| 331 | goto binop_error; |
| 332 | } |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 333 | } |
Neil Schemenauer | 5a1f015 | 2001-01-04 01:39:06 +0000 | [diff] [blame] | 334 | if (w->ob_type->tp_as_number != NULL && NEW_STYLE_NUMBER(w)) { |
| 335 | slot = NB_BINOP(w->ob_type->tp_as_number, op_slot); |
| 336 | if (*slot) { |
| 337 | x = (*slot)(v, w); |
| 338 | if (x != Py_NotImplemented) { |
| 339 | return x; |
| 340 | } |
| 341 | Py_DECREF(x); /* can't do it */ |
| 342 | } |
| 343 | } |
| 344 | if (!NEW_STYLE_NUMBER(v) || !NEW_STYLE_NUMBER(w)) { |
| 345 | int err = PyNumber_CoerceEx(&v, &w); |
| 346 | if (err < 0) { |
| 347 | return NULL; |
| 348 | } |
| 349 | if (err == 0) { |
| 350 | PyNumberMethods *mv = v->ob_type->tp_as_number; |
| 351 | if (mv) { |
| 352 | slot = NB_BINOP(mv, op_slot); |
| 353 | if (*slot) { |
| 354 | PyObject *x = (*slot)(v, w); |
| 355 | Py_DECREF(v); |
| 356 | Py_DECREF(w); |
| 357 | return x; |
| 358 | } |
| 359 | } |
| 360 | /* CoerceEx incremented the reference counts */ |
| 361 | Py_DECREF(v); |
| 362 | Py_DECREF(w); |
| 363 | } |
| 364 | } |
| 365 | binop_error: |
| 366 | Py_INCREF(Py_NotImplemented); |
| 367 | return Py_NotImplemented; |
| 368 | } |
| 369 | |
| 370 | static PyObject * |
| 371 | binary_op(PyObject *v, PyObject *w, const int op_slot, const char *op_name) |
| 372 | { |
| 373 | PyObject *result = binary_op1(v, w, op_slot); |
| 374 | if (result == Py_NotImplemented) { |
| 375 | Py_DECREF(Py_NotImplemented); |
| 376 | PyErr_Format(PyExc_TypeError, |
| 377 | "unsupported operand type(s) for %s", op_name); |
| 378 | return NULL; |
| 379 | } |
| 380 | return result; |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 381 | } |
| 382 | |
Neil Schemenauer | 5a1f015 | 2001-01-04 01:39:06 +0000 | [diff] [blame] | 383 | |
| 384 | /* |
| 385 | Calling scheme used for ternary operations: |
| 386 | |
| 387 | v w z Action |
| 388 | ------------------------------------------------------------------- |
| 389 | new new new v.op(v,w,z), w.op(v,w,z), z.op(v,w,z) |
| 390 | new old new v.op(v,w,z), z.op(v,w,z), coerce(v,w,z), v.op(v,w,z) |
| 391 | old new new w.op(v,w,z), z.op(v,w,z), coerce(v,w,z), v.op(v,w,z) |
| 392 | old old new z.op(v,w,z), coerce(v,w,z), v.op(v,w,z) |
| 393 | new new old v.op(v,w,z), w.op(v,w,z), coerce(v,w,z), v.op(v,w,z) |
| 394 | new old old v.op(v,w,z), coerce(v,w,z), v.op(v,w,z) |
| 395 | old new old w.op(v,w,z), coerce(v,w,z), v.op(v,w,z) |
| 396 | old old old coerce(v,w,z), v.op(v,w,z) |
| 397 | |
| 398 | Legend: |
| 399 | ------- |
| 400 | * new == new style number |
| 401 | * old == old style number |
| 402 | * Action indicates the order in which operations are tried until either |
| 403 | a valid result is produced or an error occurs. |
| 404 | * coerce(v,w,z) actually does: coerce(v,w), coerce(v,z), coerce(w,z) and |
| 405 | only if z != Py_None; if z == Py_None, then it is treated as absent |
| 406 | variable and only coerce(v,w) is tried. |
| 407 | |
| 408 | */ |
| 409 | |
| 410 | static PyObject * |
| 411 | ternary_op(PyObject *v, |
| 412 | PyObject *w, |
| 413 | PyObject *z, |
| 414 | const int op_slot, |
| 415 | const char *op_name) |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 416 | { |
Neil Schemenauer | 5a1f015 | 2001-01-04 01:39:06 +0000 | [diff] [blame] | 417 | PyNumberMethods *mv, *mw, *mz; |
| 418 | register PyObject *x = NULL; |
| 419 | register ternaryfunc *slot; |
| 420 | |
| 421 | mv = v->ob_type->tp_as_number; |
| 422 | if (mv != NULL && NEW_STYLE_NUMBER(v)) { |
| 423 | /* try v.op(v,w,z) */ |
| 424 | slot = NB_TERNOP(mv, op_slot); |
| 425 | if (*slot) { |
| 426 | x = (*slot)(v, w, z); |
| 427 | if (x != Py_NotImplemented) |
| 428 | return x; |
| 429 | /* Can't do it... fall through */ |
| 430 | Py_DECREF(x); |
| 431 | } |
| 432 | if (v->ob_type == w->ob_type && |
| 433 | (z == Py_None || z->ob_type == v->ob_type)) { |
| 434 | goto ternary_error; |
| 435 | } |
| 436 | } |
| 437 | mw = w->ob_type->tp_as_number; |
| 438 | if (mw != NULL && NEW_STYLE_NUMBER(w)) { |
| 439 | /* try w.op(v,w,z) */ |
| 440 | slot = NB_TERNOP(mw,op_slot); |
| 441 | if (*slot) { |
| 442 | x = (*slot)(v, w, z); |
| 443 | if (x != Py_NotImplemented) |
| 444 | return x; |
| 445 | /* Can't do it... fall through */ |
| 446 | Py_DECREF(x); |
| 447 | } |
| 448 | if (NEW_STYLE_NUMBER(v) && |
| 449 | (z == Py_None || z->ob_type == v->ob_type)) { |
| 450 | goto ternary_error; |
| 451 | } |
| 452 | } |
| 453 | mz = z->ob_type->tp_as_number; |
| 454 | if (mz != NULL && NEW_STYLE_NUMBER(z)) { |
| 455 | /* try: z.op(v,w,z) */ |
| 456 | slot = NB_TERNOP(mz, op_slot); |
| 457 | if (*slot) { |
| 458 | x = (*slot)(v, w, z); |
| 459 | if (x != Py_NotImplemented) |
| 460 | return x; |
| 461 | /* Can't do it... fall through */ |
| 462 | Py_DECREF(x); |
| 463 | } |
| 464 | } |
| 465 | |
| 466 | if (!NEW_STYLE_NUMBER(v) || !NEW_STYLE_NUMBER(w) || |
| 467 | (z != Py_None && !NEW_STYLE_NUMBER(z))) { |
| 468 | /* we have an old style operand, coerce */ |
| 469 | PyObject *v1, *z1, *w2, *z2; |
| 470 | int c; |
| 471 | |
| 472 | c = PyNumber_Coerce(&v, &w); |
| 473 | if (c != 0) |
| 474 | goto error3; |
| 475 | |
| 476 | /* Special case: if the third argument is None, it is |
| 477 | treated as absent argument and not coerced. */ |
| 478 | if (z == Py_None) { |
| 479 | if (v->ob_type->tp_as_number) { |
| 480 | slot = NB_TERNOP(v->ob_type->tp_as_number, |
| 481 | op_slot); |
| 482 | if (*slot) |
| 483 | x = (*slot)(v, w, z); |
| 484 | else |
| 485 | c = -1; |
| 486 | } |
| 487 | else |
| 488 | c = -1; |
| 489 | goto error2; |
| 490 | } |
| 491 | v1 = v; |
| 492 | z1 = z; |
| 493 | c = PyNumber_Coerce(&v1, &z1); |
| 494 | if (c != 0) |
| 495 | goto error2; |
| 496 | w2 = w; |
| 497 | z2 = z1; |
| 498 | c = PyNumber_Coerce(&w2, &z2); |
| 499 | if (c != 0) |
| 500 | goto error1; |
| 501 | |
| 502 | if (v1->ob_type->tp_as_number != NULL) { |
| 503 | slot = NB_TERNOP(v1->ob_type->tp_as_number, |
| 504 | op_slot); |
| 505 | if (*slot) |
| 506 | x = (*slot)(v1, w2, z2); |
| 507 | else |
| 508 | c = -1; |
| 509 | } |
| 510 | else |
| 511 | c = -1; |
| 512 | |
| 513 | Py_DECREF(w2); |
| 514 | Py_DECREF(z2); |
| 515 | error1: |
| 516 | Py_DECREF(v1); |
| 517 | Py_DECREF(z1); |
| 518 | error2: |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 519 | Py_DECREF(v); |
| 520 | Py_DECREF(w); |
Neil Schemenauer | 5a1f015 | 2001-01-04 01:39:06 +0000 | [diff] [blame] | 521 | error3: |
| 522 | if (c >= 0) |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 523 | return x; |
| 524 | } |
Neil Schemenauer | 5a1f015 | 2001-01-04 01:39:06 +0000 | [diff] [blame] | 525 | |
| 526 | ternary_error: |
| 527 | PyErr_Format(PyExc_TypeError, "unsupported operand type(s) for %s", |
| 528 | op_name); |
| 529 | return NULL; |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 530 | } |
| 531 | |
Neil Schemenauer | 5a1f015 | 2001-01-04 01:39:06 +0000 | [diff] [blame] | 532 | #define BINARY_FUNC(func, op, op_name) \ |
| 533 | PyObject * \ |
| 534 | func(PyObject *v, PyObject *w) { \ |
| 535 | return binary_op(v, w, NB_SLOT(op), op_name); \ |
| 536 | } |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 537 | |
Neil Schemenauer | 5a1f015 | 2001-01-04 01:39:06 +0000 | [diff] [blame] | 538 | BINARY_FUNC(PyNumber_Or, nb_or, "|") |
| 539 | BINARY_FUNC(PyNumber_Xor, nb_xor, "^") |
| 540 | BINARY_FUNC(PyNumber_And, nb_and, "&") |
| 541 | BINARY_FUNC(PyNumber_Lshift, nb_lshift, "<<") |
| 542 | BINARY_FUNC(PyNumber_Rshift, nb_rshift, ">>") |
| 543 | BINARY_FUNC(PyNumber_Subtract, nb_subtract, "-") |
| 544 | BINARY_FUNC(PyNumber_Multiply, nb_multiply, "*") |
| 545 | BINARY_FUNC(PyNumber_Divide, nb_divide, "/") |
| 546 | BINARY_FUNC(PyNumber_Divmod, nb_divmod, "divmod()") |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 547 | |
| 548 | PyObject * |
Fred Drake | 7991247 | 2000-07-09 04:06:11 +0000 | [diff] [blame] | 549 | PyNumber_Add(PyObject *v, PyObject *w) |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 550 | { |
Neil Schemenauer | 5a1f015 | 2001-01-04 01:39:06 +0000 | [diff] [blame] | 551 | PyObject *result = binary_op1(v, w, NB_SLOT(nb_add)); |
| 552 | if (result == Py_NotImplemented) { |
| 553 | PySequenceMethods *m = v->ob_type->tp_as_sequence; |
| 554 | Py_DECREF(Py_NotImplemented); |
| 555 | if (m && m->sq_concat) { |
| 556 | result = (*m->sq_concat)(v, w); |
Andrew M. Kuchling | 1991ddc | 2000-02-14 22:22:04 +0000 | [diff] [blame] | 557 | } |
Neil Schemenauer | 5a1f015 | 2001-01-04 01:39:06 +0000 | [diff] [blame] | 558 | else { |
| 559 | PyErr_SetString(PyExc_TypeError, |
| 560 | "unsupported operand types for +"); |
| 561 | result = NULL; |
| 562 | } |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 563 | } |
Neil Schemenauer | 5a1f015 | 2001-01-04 01:39:06 +0000 | [diff] [blame] | 564 | return result; |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 565 | } |
| 566 | |
| 567 | PyObject * |
Fred Drake | 7991247 | 2000-07-09 04:06:11 +0000 | [diff] [blame] | 568 | PyNumber_Remainder(PyObject *v, PyObject *w) |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 569 | { |
Guido van Rossum | fa0b6ab | 1998-05-22 15:23:36 +0000 | [diff] [blame] | 570 | if (PyString_Check(v)) |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 571 | return PyString_Format(v, w); |
Guido van Rossum | 4c08d55 | 2000-03-10 22:55:18 +0000 | [diff] [blame] | 572 | else if (PyUnicode_Check(v)) |
| 573 | return PyUnicode_Format(v, w); |
Neil Schemenauer | 5a1f015 | 2001-01-04 01:39:06 +0000 | [diff] [blame] | 574 | return binary_op(v, w, NB_SLOT(nb_remainder), "%"); |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 575 | } |
| 576 | |
| 577 | PyObject * |
Fred Drake | 7991247 | 2000-07-09 04:06:11 +0000 | [diff] [blame] | 578 | PyNumber_Power(PyObject *v, PyObject *w, PyObject *z) |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 579 | { |
Neil Schemenauer | 5a1f015 | 2001-01-04 01:39:06 +0000 | [diff] [blame] | 580 | return ternary_op(v, w, z, NB_SLOT(nb_power), "** or pow()"); |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 581 | } |
| 582 | |
Thomas Wouters | e289e0b | 2000-08-24 20:08:19 +0000 | [diff] [blame] | 583 | /* Binary in-place operators */ |
| 584 | |
| 585 | /* The in-place operators are defined to fall back to the 'normal', |
Neil Schemenauer | 5a1f015 | 2001-01-04 01:39:06 +0000 | [diff] [blame] | 586 | non in-place operations, if the in-place methods are not in place. |
Thomas Wouters | e289e0b | 2000-08-24 20:08:19 +0000 | [diff] [blame] | 587 | |
Neil Schemenauer | 5a1f015 | 2001-01-04 01:39:06 +0000 | [diff] [blame] | 588 | - If the left hand object has the appropriate struct members, and |
| 589 | they are filled, call the appropriate function and return the |
| 590 | result. No coercion is done on the arguments; the left-hand object |
| 591 | is the one the operation is performed on, and it's up to the |
| 592 | function to deal with the right-hand object. |
Thomas Wouters | e289e0b | 2000-08-24 20:08:19 +0000 | [diff] [blame] | 593 | |
| 594 | - Otherwise, in-place modification is not supported. Handle it exactly as |
Neil Schemenauer | 5a1f015 | 2001-01-04 01:39:06 +0000 | [diff] [blame] | 595 | a non in-place operation of the same kind. |
Thomas Wouters | e289e0b | 2000-08-24 20:08:19 +0000 | [diff] [blame] | 596 | |
| 597 | */ |
| 598 | |
| 599 | #define HASINPLACE(t) PyType_HasFeature((t)->ob_type, Py_TPFLAGS_HAVE_INPLACEOPS) |
| 600 | |
Neil Schemenauer | 5a1f015 | 2001-01-04 01:39:06 +0000 | [diff] [blame] | 601 | static PyObject * |
| 602 | binary_iop(PyObject *v, PyObject *w, const int iop_slot, const int op_slot, |
| 603 | const char *op_name) |
Thomas Wouters | e289e0b | 2000-08-24 20:08:19 +0000 | [diff] [blame] | 604 | { |
Neil Schemenauer | 5a1f015 | 2001-01-04 01:39:06 +0000 | [diff] [blame] | 605 | PyNumberMethods *mv = v->ob_type->tp_as_number; |
| 606 | if (mv != NULL && HASINPLACE(v)) { |
| 607 | binaryfunc *slot = NB_BINOP(mv, iop_slot); |
| 608 | if (*slot) { |
| 609 | PyObject *x = (*slot)(v, w); |
| 610 | if (x != Py_NotImplemented) { |
| 611 | return x; |
| 612 | } |
| 613 | Py_DECREF(x); |
| 614 | } |
Thomas Wouters | f2b332d | 2000-09-02 08:34:40 +0000 | [diff] [blame] | 615 | } |
Neil Schemenauer | 5a1f015 | 2001-01-04 01:39:06 +0000 | [diff] [blame] | 616 | return binary_op(v, w, op_slot, op_name); |
Thomas Wouters | e289e0b | 2000-08-24 20:08:19 +0000 | [diff] [blame] | 617 | } |
| 618 | |
Neil Schemenauer | 5a1f015 | 2001-01-04 01:39:06 +0000 | [diff] [blame] | 619 | #define INPLACE_BINOP(func, iop, op, op_name) \ |
| 620 | PyObject * \ |
| 621 | func(PyObject *v, PyObject *w) { \ |
| 622 | return binary_iop(v, w, NB_SLOT(iop), NB_SLOT(op), op_name); \ |
Thomas Wouters | e289e0b | 2000-08-24 20:08:19 +0000 | [diff] [blame] | 623 | } |
| 624 | |
Neil Schemenauer | 5a1f015 | 2001-01-04 01:39:06 +0000 | [diff] [blame] | 625 | INPLACE_BINOP(PyNumber_InPlaceOr, nb_inplace_or, nb_or, "|=") |
| 626 | INPLACE_BINOP(PyNumber_InPlaceXor, nb_inplace_xor, nb_xor, "^=") |
| 627 | INPLACE_BINOP(PyNumber_InPlaceAnd, nb_inplace_and, nb_and, "&=") |
| 628 | INPLACE_BINOP(PyNumber_InPlaceLshift, nb_inplace_lshift, nb_lshift, "<<=") |
| 629 | INPLACE_BINOP(PyNumber_InPlaceRshift, nb_inplace_rshift, nb_rshift, ">>=") |
| 630 | INPLACE_BINOP(PyNumber_InPlaceSubtract, nb_inplace_subtract, nb_subtract, "-=") |
| 631 | INPLACE_BINOP(PyNumber_InPlaceDivide, nb_inplace_divide, nb_divide, "/=") |
Thomas Wouters | e289e0b | 2000-08-24 20:08:19 +0000 | [diff] [blame] | 632 | |
| 633 | PyObject * |
| 634 | PyNumber_InPlaceAdd(PyObject *v, PyObject *w) |
| 635 | { |
Neil Schemenauer | 5a1f015 | 2001-01-04 01:39:06 +0000 | [diff] [blame] | 636 | binaryfunc f = NULL; |
Thomas Wouters | e289e0b | 2000-08-24 20:08:19 +0000 | [diff] [blame] | 637 | |
Guido van Rossum | bb8be93 | 2000-09-01 23:27:32 +0000 | [diff] [blame] | 638 | if (v->ob_type->tp_as_sequence != NULL) { |
Neil Schemenauer | 5a1f015 | 2001-01-04 01:39:06 +0000 | [diff] [blame] | 639 | if (HASINPLACE(v)) |
| 640 | f = v->ob_type->tp_as_sequence->sq_inplace_concat; |
| 641 | if (f == NULL) |
| 642 | f = v->ob_type->tp_as_sequence->sq_concat; |
Guido van Rossum | bb8be93 | 2000-09-01 23:27:32 +0000 | [diff] [blame] | 643 | if (f != NULL) |
| 644 | return (*f)(v, w); |
| 645 | } |
Neil Schemenauer | 5a1f015 | 2001-01-04 01:39:06 +0000 | [diff] [blame] | 646 | return binary_iop(v, w, NB_SLOT(nb_inplace_add), NB_SLOT(nb_add), "+="); |
Thomas Wouters | e289e0b | 2000-08-24 20:08:19 +0000 | [diff] [blame] | 647 | } |
| 648 | |
| 649 | PyObject * |
| 650 | PyNumber_InPlaceMultiply(PyObject *v, PyObject *w) |
| 651 | { |
Thomas Wouters | f2b332d | 2000-09-02 08:34:40 +0000 | [diff] [blame] | 652 | PyObject * (*g)(PyObject *, int) = NULL; |
Neil Schemenauer | 5a1f015 | 2001-01-04 01:39:06 +0000 | [diff] [blame] | 653 | if (HASINPLACE(v) && v->ob_type->tp_as_sequence && |
| 654 | (g = v->ob_type->tp_as_sequence->sq_inplace_repeat)) { |
| 655 | long n; |
Thomas Wouters | e289e0b | 2000-08-24 20:08:19 +0000 | [diff] [blame] | 656 | if (PyInt_Check(w)) { |
Neil Schemenauer | 5a1f015 | 2001-01-04 01:39:06 +0000 | [diff] [blame] | 657 | n = PyInt_AsLong(w); |
Thomas Wouters | e289e0b | 2000-08-24 20:08:19 +0000 | [diff] [blame] | 658 | } |
| 659 | else if (PyLong_Check(w)) { |
Neil Schemenauer | 5a1f015 | 2001-01-04 01:39:06 +0000 | [diff] [blame] | 660 | n = PyLong_AsLong(w); |
| 661 | if (n == -1 && PyErr_Occurred()) |
| 662 | return NULL; |
Thomas Wouters | e289e0b | 2000-08-24 20:08:19 +0000 | [diff] [blame] | 663 | } |
| 664 | else { |
Neil Schemenauer | 5a1f015 | 2001-01-04 01:39:06 +0000 | [diff] [blame] | 665 | return type_error("can't multiply sequence to non-int"); |
Thomas Wouters | e289e0b | 2000-08-24 20:08:19 +0000 | [diff] [blame] | 666 | } |
Neil Schemenauer | 5a1f015 | 2001-01-04 01:39:06 +0000 | [diff] [blame] | 667 | return (*g)(v, (int)n); |
Thomas Wouters | e289e0b | 2000-08-24 20:08:19 +0000 | [diff] [blame] | 668 | } |
Neil Schemenauer | 5a1f015 | 2001-01-04 01:39:06 +0000 | [diff] [blame] | 669 | return binary_iop(v, w, NB_SLOT(nb_inplace_multiply), |
| 670 | NB_SLOT(nb_multiply), "*="); |
Thomas Wouters | e289e0b | 2000-08-24 20:08:19 +0000 | [diff] [blame] | 671 | } |
| 672 | |
Thomas Wouters | e289e0b | 2000-08-24 20:08:19 +0000 | [diff] [blame] | 673 | |
Thomas Wouters | e289e0b | 2000-08-24 20:08:19 +0000 | [diff] [blame] | 674 | |
| 675 | PyObject * |
| 676 | PyNumber_InPlaceRemainder(PyObject *v, PyObject *w) |
| 677 | { |
Thomas Wouters | e289e0b | 2000-08-24 20:08:19 +0000 | [diff] [blame] | 678 | if (PyString_Check(v)) |
| 679 | return PyString_Format(v, w); |
| 680 | else if (PyUnicode_Check(v)) |
| 681 | return PyUnicode_Format(v, w); |
Thomas Wouters | e289e0b | 2000-08-24 20:08:19 +0000 | [diff] [blame] | 682 | else |
Neil Schemenauer | 5a1f015 | 2001-01-04 01:39:06 +0000 | [diff] [blame] | 683 | return binary_iop(v, w, NB_SLOT(nb_inplace_remainder), |
| 684 | NB_SLOT(nb_remainder), "%="); |
Thomas Wouters | e289e0b | 2000-08-24 20:08:19 +0000 | [diff] [blame] | 685 | } |
| 686 | |
Neil Schemenauer | 5a1f015 | 2001-01-04 01:39:06 +0000 | [diff] [blame] | 687 | |
Thomas Wouters | e289e0b | 2000-08-24 20:08:19 +0000 | [diff] [blame] | 688 | PyObject * |
| 689 | PyNumber_InPlacePower(PyObject *v, PyObject *w, PyObject *z) |
| 690 | { |
Neil Schemenauer | 5a1f015 | 2001-01-04 01:39:06 +0000 | [diff] [blame] | 691 | if (HASINPLACE(v) && v->ob_type->tp_as_number && |
| 692 | v->ob_type->tp_as_number->nb_inplace_power != NULL) { |
| 693 | return ternary_op(v, w, z, NB_SLOT(nb_inplace_power), "**="); |
Thomas Wouters | e289e0b | 2000-08-24 20:08:19 +0000 | [diff] [blame] | 694 | } |
Neil Schemenauer | 5a1f015 | 2001-01-04 01:39:06 +0000 | [diff] [blame] | 695 | else { |
| 696 | return ternary_op(v, w, z, NB_SLOT(nb_power), "**="); |
| 697 | } |
Thomas Wouters | e289e0b | 2000-08-24 20:08:19 +0000 | [diff] [blame] | 698 | } |
| 699 | |
| 700 | |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 701 | /* Unary operators and functions */ |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 702 | |
| 703 | PyObject * |
Fred Drake | 7991247 | 2000-07-09 04:06:11 +0000 | [diff] [blame] | 704 | PyNumber_Negative(PyObject *o) |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 705 | { |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 706 | PyNumberMethods *m; |
| 707 | |
| 708 | if (o == NULL) |
| 709 | return null_error(); |
| 710 | m = o->ob_type->tp_as_number; |
| 711 | if (m && m->nb_negative) |
| 712 | return (*m->nb_negative)(o); |
| 713 | |
| 714 | return type_error("bad operand type for unary -"); |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 715 | } |
| 716 | |
| 717 | PyObject * |
Fred Drake | 7991247 | 2000-07-09 04:06:11 +0000 | [diff] [blame] | 718 | PyNumber_Positive(PyObject *o) |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 719 | { |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 720 | PyNumberMethods *m; |
| 721 | |
| 722 | if (o == NULL) |
| 723 | return null_error(); |
| 724 | m = o->ob_type->tp_as_number; |
| 725 | if (m && m->nb_positive) |
| 726 | return (*m->nb_positive)(o); |
| 727 | |
| 728 | return type_error("bad operand type for unary +"); |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 729 | } |
| 730 | |
| 731 | PyObject * |
Fred Drake | 7991247 | 2000-07-09 04:06:11 +0000 | [diff] [blame] | 732 | PyNumber_Invert(PyObject *o) |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 733 | { |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 734 | PyNumberMethods *m; |
| 735 | |
| 736 | if (o == NULL) |
| 737 | return null_error(); |
| 738 | m = o->ob_type->tp_as_number; |
| 739 | if (m && m->nb_invert) |
| 740 | return (*m->nb_invert)(o); |
| 741 | |
| 742 | return type_error("bad operand type for unary ~"); |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 743 | } |
| 744 | |
| 745 | PyObject * |
Fred Drake | 7991247 | 2000-07-09 04:06:11 +0000 | [diff] [blame] | 746 | PyNumber_Absolute(PyObject *o) |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 747 | { |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 748 | PyNumberMethods *m; |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 749 | |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 750 | if (o == NULL) |
| 751 | return null_error(); |
| 752 | m = o->ob_type->tp_as_number; |
| 753 | if (m && m->nb_absolute) |
| 754 | return m->nb_absolute(o); |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 755 | |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 756 | return type_error("bad operand type for abs()"); |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 757 | } |
| 758 | |
Guido van Rossum | 9e896b3 | 2000-04-05 20:11:21 +0000 | [diff] [blame] | 759 | /* Add a check for embedded NULL-bytes in the argument. */ |
| 760 | static PyObject * |
Fred Drake | 7991247 | 2000-07-09 04:06:11 +0000 | [diff] [blame] | 761 | int_from_string(const char *s, int len) |
Guido van Rossum | 9e896b3 | 2000-04-05 20:11:21 +0000 | [diff] [blame] | 762 | { |
| 763 | char *end; |
| 764 | PyObject *x; |
| 765 | |
| 766 | x = PyInt_FromString((char*)s, &end, 10); |
| 767 | if (x == NULL) |
| 768 | return NULL; |
| 769 | if (end != s + len) { |
| 770 | PyErr_SetString(PyExc_ValueError, |
| 771 | "null byte in argument for int()"); |
| 772 | Py_DECREF(x); |
| 773 | return NULL; |
| 774 | } |
| 775 | return x; |
| 776 | } |
| 777 | |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 778 | PyObject * |
Fred Drake | 7991247 | 2000-07-09 04:06:11 +0000 | [diff] [blame] | 779 | PyNumber_Int(PyObject *o) |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 780 | { |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 781 | PyNumberMethods *m; |
Guido van Rossum | 4c08d55 | 2000-03-10 22:55:18 +0000 | [diff] [blame] | 782 | const char *buffer; |
| 783 | int buffer_len; |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 784 | |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 785 | if (o == NULL) |
| 786 | return null_error(); |
Guido van Rossum | 9e896b3 | 2000-04-05 20:11:21 +0000 | [diff] [blame] | 787 | if (PyInt_Check(o)) { |
| 788 | Py_INCREF(o); |
| 789 | return o; |
| 790 | } |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 791 | if (PyString_Check(o)) |
Guido van Rossum | 9e896b3 | 2000-04-05 20:11:21 +0000 | [diff] [blame] | 792 | return int_from_string(PyString_AS_STRING(o), |
| 793 | PyString_GET_SIZE(o)); |
| 794 | if (PyUnicode_Check(o)) |
| 795 | return PyInt_FromUnicode(PyUnicode_AS_UNICODE(o), |
| 796 | PyUnicode_GET_SIZE(o), |
| 797 | 10); |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 798 | m = o->ob_type->tp_as_number; |
| 799 | if (m && m->nb_int) |
| 800 | return m->nb_int(o); |
Guido van Rossum | 4c08d55 | 2000-03-10 22:55:18 +0000 | [diff] [blame] | 801 | if (!PyObject_AsCharBuffer(o, &buffer, &buffer_len)) |
Guido van Rossum | 9e896b3 | 2000-04-05 20:11:21 +0000 | [diff] [blame] | 802 | return int_from_string((char*)buffer, buffer_len); |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 803 | |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 804 | return type_error("object can't be converted to int"); |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 805 | } |
| 806 | |
Guido van Rossum | 9e896b3 | 2000-04-05 20:11:21 +0000 | [diff] [blame] | 807 | /* Add a check for embedded NULL-bytes in the argument. */ |
Barry Warsaw | 226ae6c | 1999-10-12 19:54:53 +0000 | [diff] [blame] | 808 | static PyObject * |
Fred Drake | 7991247 | 2000-07-09 04:06:11 +0000 | [diff] [blame] | 809 | long_from_string(const char *s, int len) |
Barry Warsaw | 226ae6c | 1999-10-12 19:54:53 +0000 | [diff] [blame] | 810 | { |
Guido van Rossum | 4c08d55 | 2000-03-10 22:55:18 +0000 | [diff] [blame] | 811 | char *end; |
Barry Warsaw | 226ae6c | 1999-10-12 19:54:53 +0000 | [diff] [blame] | 812 | PyObject *x; |
Barry Warsaw | 226ae6c | 1999-10-12 19:54:53 +0000 | [diff] [blame] | 813 | |
Guido van Rossum | 4c08d55 | 2000-03-10 22:55:18 +0000 | [diff] [blame] | 814 | x = PyLong_FromString((char*)s, &end, 10); |
Guido van Rossum | 9e896b3 | 2000-04-05 20:11:21 +0000 | [diff] [blame] | 815 | if (x == NULL) |
Barry Warsaw | 226ae6c | 1999-10-12 19:54:53 +0000 | [diff] [blame] | 816 | return NULL; |
Guido van Rossum | 9e896b3 | 2000-04-05 20:11:21 +0000 | [diff] [blame] | 817 | if (end != s + len) { |
Barry Warsaw | 226ae6c | 1999-10-12 19:54:53 +0000 | [diff] [blame] | 818 | PyErr_SetString(PyExc_ValueError, |
| 819 | "null byte in argument for long()"); |
Guido van Rossum | 9e896b3 | 2000-04-05 20:11:21 +0000 | [diff] [blame] | 820 | Py_DECREF(x); |
Barry Warsaw | 226ae6c | 1999-10-12 19:54:53 +0000 | [diff] [blame] | 821 | return NULL; |
| 822 | } |
| 823 | return x; |
| 824 | } |
| 825 | |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 826 | PyObject * |
Fred Drake | 7991247 | 2000-07-09 04:06:11 +0000 | [diff] [blame] | 827 | PyNumber_Long(PyObject *o) |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 828 | { |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 829 | PyNumberMethods *m; |
Guido van Rossum | 4c08d55 | 2000-03-10 22:55:18 +0000 | [diff] [blame] | 830 | const char *buffer; |
| 831 | int buffer_len; |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 832 | |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 833 | if (o == NULL) |
| 834 | return null_error(); |
Guido van Rossum | 9e896b3 | 2000-04-05 20:11:21 +0000 | [diff] [blame] | 835 | if (PyLong_Check(o)) { |
| 836 | Py_INCREF(o); |
| 837 | return o; |
| 838 | } |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 839 | if (PyString_Check(o)) |
Barry Warsaw | 226ae6c | 1999-10-12 19:54:53 +0000 | [diff] [blame] | 840 | /* need to do extra error checking that PyLong_FromString() |
| 841 | * doesn't do. In particular long('9.5') must raise an |
| 842 | * exception, not truncate the float. |
| 843 | */ |
Guido van Rossum | 4c08d55 | 2000-03-10 22:55:18 +0000 | [diff] [blame] | 844 | return long_from_string(PyString_AS_STRING(o), |
| 845 | PyString_GET_SIZE(o)); |
Guido van Rossum | 9e896b3 | 2000-04-05 20:11:21 +0000 | [diff] [blame] | 846 | if (PyUnicode_Check(o)) |
| 847 | /* The above check is done in PyLong_FromUnicode(). */ |
| 848 | return PyLong_FromUnicode(PyUnicode_AS_UNICODE(o), |
| 849 | PyUnicode_GET_SIZE(o), |
| 850 | 10); |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 851 | m = o->ob_type->tp_as_number; |
| 852 | if (m && m->nb_long) |
| 853 | return m->nb_long(o); |
Guido van Rossum | 4c08d55 | 2000-03-10 22:55:18 +0000 | [diff] [blame] | 854 | if (!PyObject_AsCharBuffer(o, &buffer, &buffer_len)) |
| 855 | return long_from_string(buffer, buffer_len); |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 856 | |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 857 | return type_error("object can't be converted to long"); |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 858 | } |
| 859 | |
| 860 | PyObject * |
Fred Drake | 7991247 | 2000-07-09 04:06:11 +0000 | [diff] [blame] | 861 | PyNumber_Float(PyObject *o) |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 862 | { |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 863 | PyNumberMethods *m; |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 864 | |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 865 | if (o == NULL) |
| 866 | return null_error(); |
Guido van Rossum | 9e896b3 | 2000-04-05 20:11:21 +0000 | [diff] [blame] | 867 | if (PyFloat_Check(o)) { |
| 868 | Py_INCREF(o); |
| 869 | return o; |
| 870 | } |
Guido van Rossum | 4c08d55 | 2000-03-10 22:55:18 +0000 | [diff] [blame] | 871 | if (!PyString_Check(o)) { |
| 872 | m = o->ob_type->tp_as_number; |
| 873 | if (m && m->nb_float) |
| 874 | return m->nb_float(o); |
| 875 | } |
| 876 | return PyFloat_FromString(o, NULL); |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 877 | } |
| 878 | |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 879 | /* Operations on sequences */ |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 880 | |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 881 | int |
Fred Drake | 7991247 | 2000-07-09 04:06:11 +0000 | [diff] [blame] | 882 | PySequence_Check(PyObject *s) |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 883 | { |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 884 | return s != NULL && s->ob_type->tp_as_sequence; |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 885 | } |
| 886 | |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 887 | int |
Jeremy Hylton | 6253f83 | 2000-07-12 12:56:19 +0000 | [diff] [blame] | 888 | PySequence_Size(PyObject *s) |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 889 | { |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 890 | PySequenceMethods *m; |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 891 | |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 892 | if (s == NULL) { |
| 893 | null_error(); |
| 894 | return -1; |
| 895 | } |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 896 | |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 897 | m = s->ob_type->tp_as_sequence; |
| 898 | if (m && m->sq_length) |
| 899 | return m->sq_length(s); |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 900 | |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 901 | type_error("len() of unsized object"); |
| 902 | return -1; |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 903 | } |
| 904 | |
Marc-André Lemburg | cf5f358 | 2000-07-17 09:22:55 +0000 | [diff] [blame] | 905 | #undef PySequence_Length |
| 906 | int |
| 907 | PySequence_Length(PyObject *s) |
| 908 | { |
| 909 | return PySequence_Size(s); |
| 910 | } |
| 911 | #define PySequence_Length PySequence_Size |
| 912 | |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 913 | PyObject * |
Fred Drake | 7991247 | 2000-07-09 04:06:11 +0000 | [diff] [blame] | 914 | PySequence_Concat(PyObject *s, PyObject *o) |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 915 | { |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 916 | PySequenceMethods *m; |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 917 | |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 918 | if (s == NULL || o == NULL) |
| 919 | return null_error(); |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 920 | |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 921 | m = s->ob_type->tp_as_sequence; |
| 922 | if (m && m->sq_concat) |
| 923 | return m->sq_concat(s, o); |
| 924 | |
| 925 | return type_error("object can't be concatenated"); |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 926 | } |
| 927 | |
| 928 | PyObject * |
Fred Drake | 7991247 | 2000-07-09 04:06:11 +0000 | [diff] [blame] | 929 | PySequence_Repeat(PyObject *o, int count) |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 930 | { |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 931 | PySequenceMethods *m; |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 932 | |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 933 | if (o == NULL) |
| 934 | return null_error(); |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 935 | |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 936 | m = o->ob_type->tp_as_sequence; |
| 937 | if (m && m->sq_repeat) |
| 938 | return m->sq_repeat(o, count); |
| 939 | |
| 940 | return type_error("object can't be repeated"); |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 941 | } |
| 942 | |
| 943 | PyObject * |
Thomas Wouters | e289e0b | 2000-08-24 20:08:19 +0000 | [diff] [blame] | 944 | PySequence_InPlaceConcat(PyObject *s, PyObject *o) |
| 945 | { |
| 946 | PySequenceMethods *m; |
| 947 | |
| 948 | if (s == NULL || o == NULL) |
| 949 | return null_error(); |
| 950 | |
| 951 | m = s->ob_type->tp_as_sequence; |
| 952 | if (m && HASINPLACE(s) && m->sq_inplace_concat) |
| 953 | return m->sq_inplace_concat(s, o); |
| 954 | if (m && m->sq_concat) |
| 955 | return m->sq_concat(s, o); |
| 956 | |
| 957 | return type_error("object can't be concatenated"); |
| 958 | } |
| 959 | |
| 960 | PyObject * |
| 961 | PySequence_InPlaceRepeat(PyObject *o, int count) |
| 962 | { |
| 963 | PySequenceMethods *m; |
| 964 | |
| 965 | if (o == NULL) |
| 966 | return null_error(); |
| 967 | |
| 968 | m = o->ob_type->tp_as_sequence; |
| 969 | if (m && HASINPLACE(o) && m->sq_inplace_repeat) |
| 970 | return m->sq_inplace_repeat(o, count); |
| 971 | if (m && m->sq_repeat) |
| 972 | return m->sq_repeat(o, count); |
| 973 | |
| 974 | return type_error("object can't be repeated"); |
| 975 | } |
| 976 | |
| 977 | PyObject * |
Fred Drake | 7991247 | 2000-07-09 04:06:11 +0000 | [diff] [blame] | 978 | PySequence_GetItem(PyObject *s, int i) |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 979 | { |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 980 | PySequenceMethods *m; |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 981 | |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 982 | if (s == NULL) |
| 983 | return null_error(); |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 984 | |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 985 | m = s->ob_type->tp_as_sequence; |
| 986 | if (m && m->sq_item) { |
| 987 | if (i < 0) { |
| 988 | if (m->sq_length) { |
| 989 | int l = (*m->sq_length)(s); |
| 990 | if (l < 0) |
| 991 | return NULL; |
| 992 | i += l; |
| 993 | } |
| 994 | } |
| 995 | return m->sq_item(s, i); |
| 996 | } |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 997 | |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 998 | return type_error("unindexable object"); |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 999 | } |
| 1000 | |
Thomas Wouters | 1d75a79 | 2000-08-17 22:37:32 +0000 | [diff] [blame] | 1001 | static PyObject * |
| 1002 | sliceobj_from_intint(int i, int j) |
| 1003 | { |
| 1004 | PyObject *start, *end, *slice; |
| 1005 | start = PyInt_FromLong((long)i); |
| 1006 | if (!start) |
| 1007 | return NULL; |
| 1008 | end = PyInt_FromLong((long)j); |
| 1009 | if (!end) { |
| 1010 | Py_DECREF(start); |
| 1011 | return NULL; |
| 1012 | } |
| 1013 | slice = PySlice_New(start, end, NULL); |
| 1014 | Py_DECREF(start); |
| 1015 | Py_DECREF(end); |
| 1016 | return slice; |
| 1017 | } |
| 1018 | |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 1019 | PyObject * |
Fred Drake | 7991247 | 2000-07-09 04:06:11 +0000 | [diff] [blame] | 1020 | PySequence_GetSlice(PyObject *s, int i1, int i2) |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 1021 | { |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1022 | PySequenceMethods *m; |
Thomas Wouters | 1d75a79 | 2000-08-17 22:37:32 +0000 | [diff] [blame] | 1023 | PyMappingMethods *mp; |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 1024 | |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1025 | if (!s) return null_error(); |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 1026 | |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1027 | m = s->ob_type->tp_as_sequence; |
| 1028 | if (m && m->sq_slice) { |
| 1029 | if (i1 < 0 || i2 < 0) { |
| 1030 | if (m->sq_length) { |
| 1031 | int l = (*m->sq_length)(s); |
| 1032 | if (l < 0) |
| 1033 | return NULL; |
| 1034 | if (i1 < 0) |
| 1035 | i1 += l; |
| 1036 | if (i2 < 0) |
| 1037 | i2 += l; |
| 1038 | } |
| 1039 | } |
| 1040 | return m->sq_slice(s, i1, i2); |
Thomas Wouters | 1d75a79 | 2000-08-17 22:37:32 +0000 | [diff] [blame] | 1041 | } else if ((mp = s->ob_type->tp_as_mapping) && mp->mp_subscript) { |
| 1042 | PyObject *res; |
| 1043 | PyObject *slice = sliceobj_from_intint(i1, i2); |
| 1044 | if (!slice) |
| 1045 | return NULL; |
| 1046 | res = mp->mp_subscript(s, slice); |
| 1047 | Py_DECREF(slice); |
| 1048 | return res; |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1049 | } |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 1050 | |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1051 | return type_error("unsliceable object"); |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 1052 | } |
| 1053 | |
| 1054 | int |
Fred Drake | 7991247 | 2000-07-09 04:06:11 +0000 | [diff] [blame] | 1055 | PySequence_SetItem(PyObject *s, int i, PyObject *o) |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 1056 | { |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1057 | PySequenceMethods *m; |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 1058 | |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1059 | if (s == NULL) { |
| 1060 | null_error(); |
| 1061 | return -1; |
| 1062 | } |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 1063 | |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1064 | m = s->ob_type->tp_as_sequence; |
| 1065 | if (m && m->sq_ass_item) { |
| 1066 | if (i < 0) { |
| 1067 | if (m->sq_length) { |
| 1068 | int l = (*m->sq_length)(s); |
| 1069 | if (l < 0) |
Guido van Rossum | ed6219b | 1998-05-29 02:59:33 +0000 | [diff] [blame] | 1070 | return -1; |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1071 | i += l; |
| 1072 | } |
| 1073 | } |
| 1074 | return m->sq_ass_item(s, i, o); |
| 1075 | } |
| 1076 | |
| 1077 | type_error("object doesn't support item assignment"); |
| 1078 | return -1; |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 1079 | } |
| 1080 | |
Guido van Rossum | 6cdc6f4 | 1996-08-21 17:41:54 +0000 | [diff] [blame] | 1081 | int |
Fred Drake | 7991247 | 2000-07-09 04:06:11 +0000 | [diff] [blame] | 1082 | PySequence_DelItem(PyObject *s, int i) |
Guido van Rossum | 6cdc6f4 | 1996-08-21 17:41:54 +0000 | [diff] [blame] | 1083 | { |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1084 | PySequenceMethods *m; |
Guido van Rossum | 6cdc6f4 | 1996-08-21 17:41:54 +0000 | [diff] [blame] | 1085 | |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1086 | if (s == NULL) { |
| 1087 | null_error(); |
| 1088 | return -1; |
| 1089 | } |
Guido van Rossum | 6cdc6f4 | 1996-08-21 17:41:54 +0000 | [diff] [blame] | 1090 | |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1091 | m = s->ob_type->tp_as_sequence; |
| 1092 | if (m && m->sq_ass_item) { |
| 1093 | if (i < 0) { |
| 1094 | if (m->sq_length) { |
| 1095 | int l = (*m->sq_length)(s); |
| 1096 | if (l < 0) |
Guido van Rossum | ed6219b | 1998-05-29 02:59:33 +0000 | [diff] [blame] | 1097 | return -1; |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1098 | i += l; |
| 1099 | } |
| 1100 | } |
| 1101 | return m->sq_ass_item(s, i, (PyObject *)NULL); |
| 1102 | } |
| 1103 | |
| 1104 | type_error("object doesn't support item deletion"); |
| 1105 | return -1; |
Guido van Rossum | 6cdc6f4 | 1996-08-21 17:41:54 +0000 | [diff] [blame] | 1106 | } |
| 1107 | |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1108 | int |
Fred Drake | 7991247 | 2000-07-09 04:06:11 +0000 | [diff] [blame] | 1109 | PySequence_SetSlice(PyObject *s, int i1, int i2, PyObject *o) |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 1110 | { |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1111 | PySequenceMethods *m; |
Thomas Wouters | 1d75a79 | 2000-08-17 22:37:32 +0000 | [diff] [blame] | 1112 | PyMappingMethods *mp; |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 1113 | |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1114 | if (s == NULL) { |
| 1115 | null_error(); |
| 1116 | return -1; |
| 1117 | } |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 1118 | |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1119 | m = s->ob_type->tp_as_sequence; |
| 1120 | if (m && m->sq_ass_slice) { |
| 1121 | if (i1 < 0 || i2 < 0) { |
| 1122 | if (m->sq_length) { |
| 1123 | int l = (*m->sq_length)(s); |
| 1124 | if (l < 0) |
Guido van Rossum | ed6219b | 1998-05-29 02:59:33 +0000 | [diff] [blame] | 1125 | return -1; |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1126 | if (i1 < 0) |
| 1127 | i1 += l; |
| 1128 | if (i2 < 0) |
| 1129 | i2 += l; |
| 1130 | } |
| 1131 | } |
| 1132 | return m->sq_ass_slice(s, i1, i2, o); |
Thomas Wouters | 1d75a79 | 2000-08-17 22:37:32 +0000 | [diff] [blame] | 1133 | } else if ((mp = s->ob_type->tp_as_mapping) && mp->mp_ass_subscript) { |
| 1134 | int res; |
| 1135 | PyObject *slice = sliceobj_from_intint(i1, i2); |
| 1136 | if (!slice) |
| 1137 | return -1; |
| 1138 | res = mp->mp_ass_subscript(s, slice, o); |
| 1139 | Py_DECREF(slice); |
| 1140 | return res; |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1141 | } |
Thomas Wouters | 1d75a79 | 2000-08-17 22:37:32 +0000 | [diff] [blame] | 1142 | |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1143 | type_error("object doesn't support slice assignment"); |
| 1144 | return -1; |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 1145 | } |
| 1146 | |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1147 | int |
Fred Drake | 7991247 | 2000-07-09 04:06:11 +0000 | [diff] [blame] | 1148 | PySequence_DelSlice(PyObject *s, int i1, int i2) |
Guido van Rossum | 6cdc6f4 | 1996-08-21 17:41:54 +0000 | [diff] [blame] | 1149 | { |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1150 | PySequenceMethods *m; |
Guido van Rossum | 6cdc6f4 | 1996-08-21 17:41:54 +0000 | [diff] [blame] | 1151 | |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1152 | if (s == NULL) { |
| 1153 | null_error(); |
| 1154 | return -1; |
| 1155 | } |
Guido van Rossum | 6cdc6f4 | 1996-08-21 17:41:54 +0000 | [diff] [blame] | 1156 | |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1157 | m = s->ob_type->tp_as_sequence; |
| 1158 | if (m && m->sq_ass_slice) { |
| 1159 | if (i1 < 0 || i2 < 0) { |
| 1160 | if (m->sq_length) { |
| 1161 | int l = (*m->sq_length)(s); |
| 1162 | if (l < 0) |
Guido van Rossum | ed6219b | 1998-05-29 02:59:33 +0000 | [diff] [blame] | 1163 | return -1; |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1164 | if (i1 < 0) |
| 1165 | i1 += l; |
| 1166 | if (i2 < 0) |
| 1167 | i2 += l; |
| 1168 | } |
| 1169 | } |
| 1170 | return m->sq_ass_slice(s, i1, i2, (PyObject *)NULL); |
| 1171 | } |
| 1172 | type_error("object doesn't support slice deletion"); |
| 1173 | return -1; |
Guido van Rossum | 6cdc6f4 | 1996-08-21 17:41:54 +0000 | [diff] [blame] | 1174 | } |
| 1175 | |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 1176 | PyObject * |
Fred Drake | 7991247 | 2000-07-09 04:06:11 +0000 | [diff] [blame] | 1177 | PySequence_Tuple(PyObject *v) |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 1178 | { |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1179 | PySequenceMethods *m; |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 1180 | |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1181 | if (v == NULL) |
| 1182 | return null_error(); |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 1183 | |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1184 | if (PyTuple_Check(v)) { |
| 1185 | Py_INCREF(v); |
| 1186 | return v; |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 1187 | } |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1188 | |
| 1189 | if (PyList_Check(v)) |
| 1190 | return PyList_AsTuple(v); |
| 1191 | |
Guido van Rossum | bfc725b | 1998-07-10 16:22:44 +0000 | [diff] [blame] | 1192 | /* There used to be code for strings here, but tuplifying strings is |
| 1193 | not a common activity, so I nuked it. Down with code bloat! */ |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1194 | |
| 1195 | /* Generic sequence object */ |
| 1196 | m = v->ob_type->tp_as_sequence; |
| 1197 | if (m && m->sq_item) { |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1198 | int i; |
| 1199 | PyObject *t; |
Jeremy Hylton | 6253f83 | 2000-07-12 12:56:19 +0000 | [diff] [blame] | 1200 | int n = PySequence_Size(v); |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1201 | if (n < 0) |
| 1202 | return NULL; |
| 1203 | t = PyTuple_New(n); |
| 1204 | if (t == NULL) |
| 1205 | return NULL; |
Guido van Rossum | bfc725b | 1998-07-10 16:22:44 +0000 | [diff] [blame] | 1206 | for (i = 0; ; i++) { |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1207 | PyObject *item = (*m->sq_item)(v, i); |
| 1208 | if (item == NULL) { |
Guido van Rossum | bfc725b | 1998-07-10 16:22:44 +0000 | [diff] [blame] | 1209 | if (PyErr_ExceptionMatches(PyExc_IndexError)) |
| 1210 | PyErr_Clear(); |
| 1211 | else { |
| 1212 | Py_DECREF(t); |
| 1213 | t = NULL; |
| 1214 | } |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1215 | break; |
| 1216 | } |
Guido van Rossum | bfc725b | 1998-07-10 16:22:44 +0000 | [diff] [blame] | 1217 | if (i >= n) { |
| 1218 | if (n < 500) |
| 1219 | n += 10; |
| 1220 | else |
| 1221 | n += 100; |
| 1222 | if (_PyTuple_Resize(&t, n, 0) != 0) |
| 1223 | break; |
| 1224 | } |
| 1225 | PyTuple_SET_ITEM(t, i, item); |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1226 | } |
Guido van Rossum | bfc725b | 1998-07-10 16:22:44 +0000 | [diff] [blame] | 1227 | if (i < n && t != NULL) |
| 1228 | _PyTuple_Resize(&t, i, 0); |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1229 | return t; |
| 1230 | } |
| 1231 | |
| 1232 | /* None of the above */ |
| 1233 | return type_error("tuple() argument must be a sequence"); |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 1234 | } |
| 1235 | |
Guido van Rossum | 3c5936a | 1996-12-05 21:51:24 +0000 | [diff] [blame] | 1236 | PyObject * |
Fred Drake | 7991247 | 2000-07-09 04:06:11 +0000 | [diff] [blame] | 1237 | PySequence_List(PyObject *v) |
Guido van Rossum | 3c5936a | 1996-12-05 21:51:24 +0000 | [diff] [blame] | 1238 | { |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1239 | PySequenceMethods *m; |
Guido van Rossum | 4669fb4 | 1997-04-02 05:31:09 +0000 | [diff] [blame] | 1240 | |
Guido van Rossum | 5dba9e8 | 1998-07-10 18:03:50 +0000 | [diff] [blame] | 1241 | if (v == NULL) |
| 1242 | return null_error(); |
| 1243 | |
| 1244 | if (PyList_Check(v)) |
| 1245 | return PyList_GetSlice(v, 0, PyList_GET_SIZE(v)); |
| 1246 | |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1247 | m = v->ob_type->tp_as_sequence; |
| 1248 | if (m && m->sq_item) { |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1249 | int i; |
| 1250 | PyObject *l; |
Jeremy Hylton | 6253f83 | 2000-07-12 12:56:19 +0000 | [diff] [blame] | 1251 | int n = PySequence_Size(v); |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1252 | if (n < 0) |
| 1253 | return NULL; |
| 1254 | l = PyList_New(n); |
| 1255 | if (l == NULL) |
| 1256 | return NULL; |
Guido van Rossum | bfc725b | 1998-07-10 16:22:44 +0000 | [diff] [blame] | 1257 | for (i = 0; ; i++) { |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1258 | PyObject *item = (*m->sq_item)(v, i); |
| 1259 | if (item == NULL) { |
Guido van Rossum | bfc725b | 1998-07-10 16:22:44 +0000 | [diff] [blame] | 1260 | if (PyErr_ExceptionMatches(PyExc_IndexError)) |
| 1261 | PyErr_Clear(); |
| 1262 | else { |
| 1263 | Py_DECREF(l); |
| 1264 | l = NULL; |
| 1265 | } |
| 1266 | break; |
| 1267 | } |
| 1268 | if (i < n) |
| 1269 | PyList_SET_ITEM(l, i, item); |
| 1270 | else if (PyList_Append(l, item) < 0) { |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1271 | Py_DECREF(l); |
| 1272 | l = NULL; |
| 1273 | break; |
| 1274 | } |
Guido van Rossum | bfc725b | 1998-07-10 16:22:44 +0000 | [diff] [blame] | 1275 | } |
| 1276 | if (i < n && l != NULL) { |
| 1277 | if (PyList_SetSlice(l, i, n, (PyObject *)NULL) != 0) { |
| 1278 | Py_DECREF(l); |
| 1279 | l = NULL; |
| 1280 | } |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1281 | } |
| 1282 | return l; |
Guido van Rossum | 4669fb4 | 1997-04-02 05:31:09 +0000 | [diff] [blame] | 1283 | } |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1284 | return type_error("list() argument must be a sequence"); |
Guido van Rossum | 3c5936a | 1996-12-05 21:51:24 +0000 | [diff] [blame] | 1285 | } |
| 1286 | |
Andrew M. Kuchling | 74042d6 | 2000-06-18 18:43:14 +0000 | [diff] [blame] | 1287 | PyObject * |
Fred Drake | 7991247 | 2000-07-09 04:06:11 +0000 | [diff] [blame] | 1288 | PySequence_Fast(PyObject *v, const char *m) |
Andrew M. Kuchling | 74042d6 | 2000-06-18 18:43:14 +0000 | [diff] [blame] | 1289 | { |
| 1290 | if (v == NULL) |
| 1291 | return null_error(); |
| 1292 | |
| 1293 | if (PyList_Check(v) || PyTuple_Check(v)) { |
| 1294 | Py_INCREF(v); |
| 1295 | return v; |
| 1296 | } |
| 1297 | |
| 1298 | v = PySequence_Tuple(v); |
| 1299 | if (v == NULL && PyErr_ExceptionMatches(PyExc_TypeError)) |
| 1300 | return type_error(m); |
| 1301 | |
| 1302 | return v; |
| 1303 | } |
| 1304 | |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1305 | int |
Fred Drake | 7991247 | 2000-07-09 04:06:11 +0000 | [diff] [blame] | 1306 | PySequence_Count(PyObject *s, PyObject *o) |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 1307 | { |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1308 | int l, i, n, cmp, err; |
| 1309 | PyObject *item; |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 1310 | |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1311 | if (s == NULL || o == NULL) { |
| 1312 | null_error(); |
| 1313 | return -1; |
| 1314 | } |
| 1315 | |
Jeremy Hylton | 6253f83 | 2000-07-12 12:56:19 +0000 | [diff] [blame] | 1316 | l = PySequence_Size(s); |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1317 | if (l < 0) |
| 1318 | return -1; |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 1319 | |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1320 | n = 0; |
| 1321 | for (i = 0; i < l; i++) { |
| 1322 | item = PySequence_GetItem(s, i); |
| 1323 | if (item == NULL) |
| 1324 | return -1; |
| 1325 | err = PyObject_Cmp(item, o, &cmp); |
| 1326 | Py_DECREF(item); |
| 1327 | if (err < 0) |
| 1328 | return err; |
| 1329 | if (cmp == 0) |
| 1330 | n++; |
| 1331 | } |
| 1332 | return n; |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 1333 | } |
| 1334 | |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1335 | int |
Fred Drake | 7991247 | 2000-07-09 04:06:11 +0000 | [diff] [blame] | 1336 | PySequence_Contains(PyObject *w, PyObject *v) /* v in w */ |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 1337 | { |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1338 | int i, cmp; |
| 1339 | PyObject *x; |
| 1340 | PySequenceMethods *sq; |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 1341 | |
Guido van Rossum | 46c6b20 | 2000-02-28 15:01:46 +0000 | [diff] [blame] | 1342 | if(PyType_HasFeature(w->ob_type, Py_TPFLAGS_HAVE_SEQUENCE_IN)) { |
| 1343 | sq = w->ob_type->tp_as_sequence; |
| 1344 | if(sq != NULL && sq->sq_contains != NULL) |
| 1345 | return (*sq->sq_contains)(w, v); |
| 1346 | } |
| 1347 | |
| 1348 | /* If there is no better way to check whether an item is is contained, |
| 1349 | do it the hard way */ |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1350 | sq = w->ob_type->tp_as_sequence; |
| 1351 | if (sq == NULL || sq->sq_item == NULL) { |
| 1352 | PyErr_SetString(PyExc_TypeError, |
| 1353 | "'in' or 'not in' needs sequence right argument"); |
| 1354 | return -1; |
| 1355 | } |
| 1356 | |
| 1357 | for (i = 0; ; i++) { |
| 1358 | x = (*sq->sq_item)(w, i); |
| 1359 | if (x == NULL) { |
Guido van Rossum | 08570de | 1998-05-28 19:24:35 +0000 | [diff] [blame] | 1360 | if (PyErr_ExceptionMatches(PyExc_IndexError)) { |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1361 | PyErr_Clear(); |
| 1362 | break; |
| 1363 | } |
| 1364 | return -1; |
| 1365 | } |
Guido van Rossum | c318969 | 2001-01-17 15:29:42 +0000 | [diff] [blame] | 1366 | cmp = PyObject_RichCompareBool(v, x, Py_EQ); |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1367 | Py_XDECREF(x); |
Guido van Rossum | c318969 | 2001-01-17 15:29:42 +0000 | [diff] [blame] | 1368 | if (cmp > 0) |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1369 | return 1; |
Guido van Rossum | c318969 | 2001-01-17 15:29:42 +0000 | [diff] [blame] | 1370 | if (cmp < 0) |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1371 | return -1; |
| 1372 | } |
| 1373 | |
| 1374 | return 0; |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 1375 | } |
| 1376 | |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1377 | /* Backwards compatibility */ |
| 1378 | #undef PySequence_In |
| 1379 | int |
Fred Drake | 7991247 | 2000-07-09 04:06:11 +0000 | [diff] [blame] | 1380 | PySequence_In(PyObject *w, PyObject *v) |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1381 | { |
| 1382 | return PySequence_Contains(w, v); |
| 1383 | } |
| 1384 | |
| 1385 | int |
Fred Drake | 7991247 | 2000-07-09 04:06:11 +0000 | [diff] [blame] | 1386 | PySequence_Index(PyObject *s, PyObject *o) |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 1387 | { |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1388 | int l, i, cmp, err; |
| 1389 | PyObject *item; |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 1390 | |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1391 | if (s == NULL || o == NULL) { |
| 1392 | null_error(); |
| 1393 | return -1; |
| 1394 | } |
| 1395 | |
Jeremy Hylton | 6253f83 | 2000-07-12 12:56:19 +0000 | [diff] [blame] | 1396 | l = PySequence_Size(s); |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1397 | if (l < 0) |
| 1398 | return -1; |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 1399 | |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1400 | for (i = 0; i < l; i++) { |
| 1401 | item = PySequence_GetItem(s, i); |
| 1402 | if (item == NULL) |
| 1403 | return -1; |
| 1404 | err = PyObject_Cmp(item, o, &cmp); |
| 1405 | Py_DECREF(item); |
| 1406 | if (err < 0) |
| 1407 | return err; |
| 1408 | if (cmp == 0) |
| 1409 | return i; |
| 1410 | } |
| 1411 | |
| 1412 | PyErr_SetString(PyExc_ValueError, "sequence.index(x): x not in list"); |
| 1413 | return -1; |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 1414 | } |
| 1415 | |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1416 | /* Operations on mappings */ |
| 1417 | |
| 1418 | int |
Fred Drake | 7991247 | 2000-07-09 04:06:11 +0000 | [diff] [blame] | 1419 | PyMapping_Check(PyObject *o) |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 1420 | { |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1421 | return o && o->ob_type->tp_as_mapping; |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 1422 | } |
| 1423 | |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1424 | int |
Jeremy Hylton | 6253f83 | 2000-07-12 12:56:19 +0000 | [diff] [blame] | 1425 | PyMapping_Size(PyObject *o) |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 1426 | { |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1427 | PyMappingMethods *m; |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 1428 | |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1429 | if (o == NULL) { |
| 1430 | null_error(); |
| 1431 | return -1; |
| 1432 | } |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 1433 | |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1434 | m = o->ob_type->tp_as_mapping; |
| 1435 | if (m && m->mp_length) |
| 1436 | return m->mp_length(o); |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 1437 | |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1438 | type_error("len() of unsized object"); |
| 1439 | return -1; |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 1440 | } |
| 1441 | |
Marc-André Lemburg | cf5f358 | 2000-07-17 09:22:55 +0000 | [diff] [blame] | 1442 | #undef PyMapping_Length |
| 1443 | int |
| 1444 | PyMapping_Length(PyObject *o) |
| 1445 | { |
| 1446 | return PyMapping_Size(o); |
| 1447 | } |
| 1448 | #define PyMapping_Length PyMapping_Size |
| 1449 | |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1450 | PyObject * |
Fred Drake | 7991247 | 2000-07-09 04:06:11 +0000 | [diff] [blame] | 1451 | PyMapping_GetItemString(PyObject *o, char *key) |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1452 | { |
| 1453 | PyObject *okey, *r; |
| 1454 | |
| 1455 | if (key == NULL) |
| 1456 | return null_error(); |
| 1457 | |
| 1458 | okey = PyString_FromString(key); |
| 1459 | if (okey == NULL) |
| 1460 | return NULL; |
| 1461 | r = PyObject_GetItem(o, okey); |
| 1462 | Py_DECREF(okey); |
| 1463 | return r; |
| 1464 | } |
| 1465 | |
| 1466 | int |
Fred Drake | 7991247 | 2000-07-09 04:06:11 +0000 | [diff] [blame] | 1467 | PyMapping_SetItemString(PyObject *o, char *key, PyObject *value) |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1468 | { |
| 1469 | PyObject *okey; |
| 1470 | int r; |
| 1471 | |
| 1472 | if (key == NULL) { |
| 1473 | null_error(); |
| 1474 | return -1; |
| 1475 | } |
| 1476 | |
| 1477 | okey = PyString_FromString(key); |
| 1478 | if (okey == NULL) |
Guido van Rossum | ed6219b | 1998-05-29 02:59:33 +0000 | [diff] [blame] | 1479 | return -1; |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1480 | r = PyObject_SetItem(o, okey, value); |
| 1481 | Py_DECREF(okey); |
| 1482 | return r; |
| 1483 | } |
| 1484 | |
| 1485 | int |
Fred Drake | 7991247 | 2000-07-09 04:06:11 +0000 | [diff] [blame] | 1486 | PyMapping_HasKeyString(PyObject *o, char *key) |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 1487 | { |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1488 | PyObject *v; |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 1489 | |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1490 | v = PyMapping_GetItemString(o, key); |
| 1491 | if (v) { |
| 1492 | Py_DECREF(v); |
| 1493 | return 1; |
| 1494 | } |
| 1495 | PyErr_Clear(); |
| 1496 | return 0; |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 1497 | } |
| 1498 | |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1499 | int |
Fred Drake | 7991247 | 2000-07-09 04:06:11 +0000 | [diff] [blame] | 1500 | PyMapping_HasKey(PyObject *o, PyObject *key) |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 1501 | { |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1502 | PyObject *v; |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 1503 | |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1504 | v = PyObject_GetItem(o, key); |
| 1505 | if (v) { |
| 1506 | Py_DECREF(v); |
| 1507 | return 1; |
| 1508 | } |
| 1509 | PyErr_Clear(); |
| 1510 | return 0; |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 1511 | } |
| 1512 | |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1513 | /* Operations on callable objects */ |
| 1514 | |
| 1515 | /* XXX PyCallable_Check() is in object.c */ |
| 1516 | |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 1517 | PyObject * |
Fred Drake | 7991247 | 2000-07-09 04:06:11 +0000 | [diff] [blame] | 1518 | PyObject_CallObject(PyObject *o, PyObject *a) |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 1519 | { |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1520 | PyObject *r; |
| 1521 | PyObject *args = a; |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 1522 | |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1523 | if (args == NULL) { |
| 1524 | args = PyTuple_New(0); |
| 1525 | if (args == NULL) |
| 1526 | return NULL; |
| 1527 | } |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 1528 | |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1529 | r = PyEval_CallObject(o, args); |
| 1530 | |
Guido van Rossum | fa0b6ab | 1998-05-22 15:23:36 +0000 | [diff] [blame] | 1531 | if (args != a) { |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1532 | Py_DECREF(args); |
Guido van Rossum | fa0b6ab | 1998-05-22 15:23:36 +0000 | [diff] [blame] | 1533 | } |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1534 | |
| 1535 | return r; |
| 1536 | } |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 1537 | |
| 1538 | PyObject * |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1539 | PyObject_CallFunction(PyObject *callable, char *format, ...) |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 1540 | { |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1541 | va_list va; |
| 1542 | PyObject *args, *retval; |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1543 | va_start(va, format); |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 1544 | |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1545 | if (callable == NULL) { |
| 1546 | va_end(va); |
| 1547 | return null_error(); |
| 1548 | } |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 1549 | |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1550 | if (format) |
| 1551 | args = Py_VaBuildValue(format, va); |
| 1552 | else |
| 1553 | args = PyTuple_New(0); |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 1554 | |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1555 | va_end(va); |
| 1556 | |
| 1557 | if (args == NULL) |
| 1558 | return NULL; |
| 1559 | |
| 1560 | if (!PyTuple_Check(args)) { |
| 1561 | PyObject *a; |
| 1562 | |
| 1563 | a = PyTuple_New(1); |
| 1564 | if (a == NULL) |
| 1565 | return NULL; |
| 1566 | if (PyTuple_SetItem(a, 0, args) < 0) |
| 1567 | return NULL; |
| 1568 | args = a; |
| 1569 | } |
| 1570 | retval = PyObject_CallObject(callable, args); |
| 1571 | |
| 1572 | Py_DECREF(args); |
| 1573 | |
| 1574 | return retval; |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 1575 | } |
| 1576 | |
| 1577 | PyObject * |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 1578 | PyObject_CallMethod(PyObject *o, char *name, char *format, ...) |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 1579 | { |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1580 | va_list va; |
| 1581 | PyObject *args, *func = 0, *retval; |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1582 | va_start(va, format); |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 1583 | |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1584 | if (o == NULL || name == NULL) { |
| 1585 | va_end(va); |
| 1586 | return null_error(); |
| 1587 | } |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 1588 | |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1589 | func = PyObject_GetAttrString(o, name); |
| 1590 | if (func == NULL) { |
| 1591 | va_end(va); |
| 1592 | PyErr_SetString(PyExc_AttributeError, name); |
| 1593 | return 0; |
| 1594 | } |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 1595 | |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1596 | if (!PyCallable_Check(func)) { |
| 1597 | va_end(va); |
| 1598 | return type_error("call of non-callable attribute"); |
| 1599 | } |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 1600 | |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1601 | if (format && *format) |
| 1602 | args = Py_VaBuildValue(format, va); |
| 1603 | else |
| 1604 | args = PyTuple_New(0); |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 1605 | |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1606 | va_end(va); |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 1607 | |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1608 | if (!args) |
| 1609 | return NULL; |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 1610 | |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1611 | if (!PyTuple_Check(args)) { |
| 1612 | PyObject *a; |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 1613 | |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1614 | a = PyTuple_New(1); |
| 1615 | if (a == NULL) |
| 1616 | return NULL; |
| 1617 | if (PyTuple_SetItem(a, 0, args) < 0) |
| 1618 | return NULL; |
| 1619 | args = a; |
| 1620 | } |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 1621 | |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1622 | retval = PyObject_CallObject(func, args); |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 1623 | |
Guido van Rossum | cea1c8c | 1998-05-22 00:47:05 +0000 | [diff] [blame] | 1624 | Py_DECREF(args); |
| 1625 | Py_DECREF(func); |
| 1626 | |
| 1627 | return retval; |
Guido van Rossum | e15dee5 | 1995-07-18 14:12:02 +0000 | [diff] [blame] | 1628 | } |