Modules/operator.c

   1
   2 #include "Python.h"
   3
   4 PyDoc_STRVAR(operator_doc,
   5 "Operator interface.\n\
   6 \n\
   7 This module exports a set of functions implemented in C corresponding\n\
   8 to the intrinsic operators of Python.  For example, operator.add(x, y)\n\
   9 is equivalent to the expression x+y.  The function names are those\n\
  10 used for special class methods; variants without leading and trailing\n\
  11 '__' are also provided for convenience.");
  12
  13 #define spam1(OP,AOP) static PyObject *OP(PyObject *s, PyObject *a1) { \
  14   return AOP(a1); }
  15
  16 #define spam2(OP,AOP) static PyObject *OP(PyObject *s, PyObject *a) { \
  17   PyObject *a1, *a2; \
  18   if(! PyArg_UnpackTuple(a,#OP,2,2,&a1,&a2)) return NULL; \
  19   return AOP(a1,a2); }
  20
  21 #define spamoi(OP,AOP) static PyObject *OP(PyObject *s, PyObject *a) { \
  22   PyObject *a1; int a2; \
  23   if(! PyArg_ParseTuple(a,"Oi:" #OP,&a1,&a2)) return NULL; \
  24   return AOP(a1,a2); }
  25
  26 #define spam2n(OP,AOP) static PyObject *OP(PyObject *s, PyObject *a) { \
  27   PyObject *a1, *a2; \
  28   if(! PyArg_UnpackTuple(a,#OP,2,2,&a1,&a2)) return NULL; \
  29   if(-1 == AOP(a1,a2)) return NULL; \
  30   Py_INCREF(Py_None); \
  31   return Py_None; }
  32
  33 #define spam3n(OP,AOP) static PyObject *OP(PyObject *s, PyObject *a) { \
  34   PyObject *a1, *a2, *a3; \
  35   if(! PyArg_UnpackTuple(a,#OP,3,3,&a1,&a2,&a3)) return NULL; \
  36   if(-1 == AOP(a1,a2,a3)) return NULL; \
  37   Py_INCREF(Py_None); \
  38   return Py_None; }
  39
  40 #define spami(OP,AOP) static PyObject *OP(PyObject *s, PyObject *a1) { \
  41   long r; \
  42   if(-1 == (r=AOP(a1))) return NULL; \
  43   return PyBool_FromLong(r); }
  44
  45 #define spami2(OP,AOP) static PyObject *OP(PyObject *s, PyObject *a) { \
  46   PyObject *a1, *a2; long r; \
  47   if(! PyArg_UnpackTuple(a,#OP,2,2,&a1,&a2)) return NULL; \
  48   if(-1 == (r=AOP(a1,a2))) return NULL; \
  49   return PyInt_FromLong(r); }
  50
  51 #define spamn2(OP,AOP) static PyObject *OP(PyObject *s, PyObject *a) { \
  52   PyObject *a1, *a2; Py_ssize_t r; \
  53   if(! PyArg_UnpackTuple(a,#OP,2,2,&a1,&a2)) return NULL; \
  54   if(-1 == (r=AOP(a1,a2))) return NULL; \
  55   return PyInt_FromSsize_t(r); }
  56
  57 #define spami2b(OP,AOP) static PyObject *OP(PyObject *s, PyObject *a) { \
  58   PyObject *a1, *a2; long r; \
  59   if(! PyArg_UnpackTuple(a,#OP,2,2,&a1,&a2)) return NULL; \
  60   if(-1 == (r=AOP(a1,a2))) return NULL; \
  61   return PyBool_FromLong(r); }
  62
  63 #define spamrc(OP,A) static PyObject *OP(PyObject *s, PyObject *a) { \
  64   PyObject *a1, *a2; \
  65   if(! PyArg_UnpackTuple(a,#OP,2,2,&a1,&a2)) return NULL; \
  66   return PyObject_RichCompare(a1,a2,A); }
  67
  68 spami(isCallable       , PyCallable_Check)
  69 spami(isNumberType     , PyNumber_Check)
  70 spami(truth            , PyObject_IsTrue)
  71 spam2(op_add           , PyNumber_Add)
  72 spam2(op_sub           , PyNumber_Subtract)
  73 spam2(op_mul           , PyNumber_Multiply)
  74 spam2(op_div           , PyNumber_Divide)
  75 spam2(op_floordiv      , PyNumber_FloorDivide)
  76 spam2(op_truediv       , PyNumber_TrueDivide)
  77 spam2(op_mod           , PyNumber_Remainder)
  78 spam1(op_neg           , PyNumber_Negative)
  79 spam1(op_pos           , PyNumber_Positive)
  80 spam1(op_abs           , PyNumber_Absolute)
  81 spam1(op_inv           , PyNumber_Invert)
  82 spam1(op_invert        , PyNumber_Invert)
  83 spam2(op_lshift        , PyNumber_Lshift)
  84 spam2(op_rshift        , PyNumber_Rshift)
  85 spami(op_not_          , PyObject_Not)
  86 spam2(op_and_          , PyNumber_And)
  87 spam2(op_xor           , PyNumber_Xor)
  88 spam2(op_or_           , PyNumber_Or)
  89 spam2(op_iadd          , PyNumber_InPlaceAdd)
  90 spam2(op_isub          , PyNumber_InPlaceSubtract)
  91 spam2(op_imul          , PyNumber_InPlaceMultiply)
  92 spam2(op_idiv          , PyNumber_InPlaceDivide)
  93 spam2(op_ifloordiv     , PyNumber_InPlaceFloorDivide)
  94 spam2(op_itruediv      , PyNumber_InPlaceTrueDivide)
  95 spam2(op_imod          , PyNumber_InPlaceRemainder)
  96 spam2(op_ilshift       , PyNumber_InPlaceLshift)
  97 spam2(op_irshift       , PyNumber_InPlaceRshift)
  98 spam2(op_iand          , PyNumber_InPlaceAnd)
  99 spam2(op_ixor          , PyNumber_InPlaceXor)
 100 spam2(op_ior           , PyNumber_InPlaceOr)
 101 spami(isSequenceType   , PySequence_Check)
 102 spam2(op_concat        , PySequence_Concat)
 103 spamoi(op_repeat       , PySequence_Repeat)
 104 spam2(op_iconcat       , PySequence_InPlaceConcat)
 105 spamoi(op_irepeat      , PySequence_InPlaceRepeat)
 106 spami2b(op_contains     , PySequence_Contains)
 107 spami2b(sequenceIncludes, PySequence_Contains)
 108 spamn2(indexOf         , PySequence_Index)
 109 spamn2(countOf         , PySequence_Count)
 110 spami(isMappingType    , PyMapping_Check)
 111 spam2(op_getitem       , PyObject_GetItem)
 112 spam2n(op_delitem       , PyObject_DelItem)
 113 spam3n(op_setitem      , PyObject_SetItem)
 114 spamrc(op_lt           , Py_LT)
 115 spamrc(op_le           , Py_LE)
 116 spamrc(op_eq           , Py_EQ)
 117 spamrc(op_ne           , Py_NE)
 118 spamrc(op_gt           , Py_GT)
 119 spamrc(op_ge           , Py_GE)
 120
 121 static PyObject*
 122 op_pow(PyObject *s, PyObject *a)
 123 {
 124         PyObject *a1, *a2;
 125         if (PyArg_UnpackTuple(a,"pow", 2, 2, &a1, &a2))
 126                 return PyNumber_Power(a1, a2, Py_None);
 127         return NULL;
 128 }
 129
 130 static PyObject*
 131 op_ipow(PyObject *s, PyObject *a)
 132 {
 133         PyObject *a1, *a2;
 134         if (PyArg_UnpackTuple(a,"ipow", 2, 2, &a1, &a2))
 135                 return PyNumber_InPlacePower(a1, a2, Py_None);
 136         return NULL;
 137 }
 138
 139 static PyObject *
 140 op_index(PyObject *s, PyObject *a)
 141 {
 142         return PyNumber_Index(a);
 143 }
 144
 145 static PyObject*
 146 is_(PyObject *s, PyObject *a)
 147 {
 148         PyObject *a1, *a2, *result = NULL;
 149         if (PyArg_UnpackTuple(a,"is_", 2, 2, &a1, &a2)) {
 150                 result = (a1 == a2) ? Py_True : Py_False;
 151                 Py_INCREF(result);
 152         }
 153         return result;
 154 }
 155
 156 static PyObject*
 157 is_not(PyObject *s, PyObject *a)
 158 {
 159         PyObject *a1, *a2, *result = NULL;
 160         if (PyArg_UnpackTuple(a,"is_not", 2, 2, &a1, &a2)) {
 161                 result = (a1 != a2) ? Py_True : Py_False;
 162                 Py_INCREF(result);
 163         }
 164         return result;
 165 }
 166
 167 static PyObject*
 168 op_getslice(PyObject *s, PyObject *a)
 169 {
 170         PyObject *a1;
 171         Py_ssize_t a2, a3;
 172
 173         if (!PyArg_ParseTuple(a, "Onn:getslice", &a1, &a2, &a3))
 174                 return NULL;
 175         return PySequence_GetSlice(a1, a2, a3);
 176 }
 177
 178 static PyObject*
 179 op_setslice(PyObject *s, PyObject *a)
 180 {
 181         PyObject *a1, *a4;
 182         Py_ssize_t a2, a3;
 183
 184         if (!PyArg_ParseTuple(a, "OnnO:setslice", &a1, &a2, &a3, &a4))
 185                 return NULL;
 186
 187         if (-1 == PySequence_SetSlice(a1, a2, a3, a4))
 188                 return NULL;
 189
 190         Py_RETURN_NONE;
 191 }
 192
 193 static PyObject*
 194 op_delslice(PyObject *s, PyObject *a)
 195 {
 196         PyObject *a1;
 197         Py_ssize_t a2, a3;
 198
 199         if (!PyArg_ParseTuple(a, "Onn:delslice", &a1, &a2, &a3))
 200                 return NULL;
 201
 202         if (-1 == PySequence_DelSlice(a1, a2, a3))
 203                 return NULL;
 204
 205         Py_RETURN_NONE;
 206 }
 207
 208 #undef spam1
 209 #undef spam2
 210 #undef spam1o
 211 #undef spam1o
 212 #define spam1(OP,DOC) {#OP, OP, METH_VARARGS, PyDoc_STR(DOC)},
 213 #define spam2(OP,ALTOP,DOC) {#OP, op_##OP, METH_VARARGS, PyDoc_STR(DOC)}, \
 214                            {#ALTOP, op_##OP, METH_VARARGS, PyDoc_STR(DOC)},
 215 #define spam1o(OP,DOC) {#OP, OP, METH_O, PyDoc_STR(DOC)},
 216 #define spam2o(OP,ALTOP,DOC) {#OP, op_##OP, METH_O, PyDoc_STR(DOC)}, \
 217                            {#ALTOP, op_##OP, METH_O, PyDoc_STR(DOC)},
 218
 219 static struct PyMethodDef operator_methods[] = {
 220
 221 spam1o(isCallable,
 222  "isCallable(a) -- Same as callable(a).")
 223 spam1o(isNumberType,
 224  "isNumberType(a) -- Return True if a has a numeric type, False otherwise.")
 225 spam1o(isSequenceType,
 226  "isSequenceType(a) -- Return True if a has a sequence type, False otherwise.")
 227 spam1o(truth,
 228  "truth(a) -- Return True if a is true, False otherwise.")
 229 spam2(contains,__contains__,
 230  "contains(a, b) -- Same as b in a (note reversed operands).")
 231 spam1(sequenceIncludes,
 232  "sequenceIncludes(a, b) -- Same as b in a (note reversed operands; deprecated).")
 233 spam1(indexOf,
 234  "indexOf(a, b) -- Return the first index of b in a.")
 235 spam1(countOf,
 236  "countOf(a, b) -- Return the number of times b occurs in a.")
 237 spam1o(isMappingType,
 238  "isMappingType(a) -- Return True if a has a mapping type, False otherwise.")
 239
 240 spam1(is_, "is_(a, b) -- Same as a is b.")
 241 spam1(is_not, "is_not(a, b) -- Same as a is not b.")
 242 spam2o(index, __index__, "index(a) -- Same as a.__index__()")
 243 spam2(add,__add__, "add(a, b) -- Same as a + b.")
 244 spam2(sub,__sub__, "sub(a, b) -- Same as a - b.")
 245 spam2(mul,__mul__, "mul(a, b) -- Same as a * b.")
 246 spam2(div,__div__, "div(a, b) -- Same as a / b when __future__.division is not in effect.")
 247 spam2(floordiv,__floordiv__, "floordiv(a, b) -- Same as a // b.")
 248 spam2(truediv,__truediv__, "truediv(a, b) -- Same as a / b when __future__.division is in effect.")
 249 spam2(mod,__mod__, "mod(a, b) -- Same as a % b.")
 250 spam2o(neg,__neg__, "neg(a) -- Same as -a.")
 251 spam2o(pos,__pos__, "pos(a) -- Same as +a.")
 252 spam2o(abs,__abs__, "abs(a) -- Same as abs(a).")
 253 spam2o(inv,__inv__, "inv(a) -- Same as ~a.")
 254 spam2o(invert,__invert__, "invert(a) -- Same as ~a.")
 255 spam2(lshift,__lshift__, "lshift(a, b) -- Same as a << b.")
 256 spam2(rshift,__rshift__, "rshift(a, b) -- Same as a >> b.")
 257 spam2o(not_,__not__, "not_(a) -- Same as not a.")
 258 spam2(and_,__and__, "and_(a, b) -- Same as a & b.")
 259 spam2(xor,__xor__, "xor(a, b) -- Same as a ^ b.")
 260 spam2(or_,__or__, "or_(a, b) -- Same as a | b.")
 261 spam2(iadd,__iadd__, "iadd(a, b) -- Same as a += b.")
 262 spam2(isub,__isub__, "isub(a, b) -- Same as a -= b.")
 263 spam2(imul,__imul__, "imul(a, b) -- Same as a *= b.")
 264 spam2(idiv,__idiv__, "idiv(a, b) -- Same as a /= b when __future__.division is not in effect.")
 265 spam2(ifloordiv,__ifloordiv__, "ifloordiv(a, b) -- Same as a //= b.")
 266 spam2(itruediv,__itruediv__, "itruediv(a, b) -- Same as a /= b when __future__.division is in effect.")
 267 spam2(imod,__imod__, "imod(a, b) -- Same as a %= b.")
 268 spam2(ilshift,__ilshift__, "ilshift(a, b) -- Same as a <<= b.")
 269 spam2(irshift,__irshift__, "irshift(a, b) -- Same as a >>= b.")
 270 spam2(iand,__iand__, "iand(a, b) -- Same as a &= b.")
 271 spam2(ixor,__ixor__, "ixor(a, b) -- Same as a ^= b.")
 272 spam2(ior,__ior__, "ior(a, b) -- Same as a |= b.")
 273 spam2(concat,__concat__,
 274  "concat(a, b) -- Same as a + b, for a and b sequences.")
 275 spam2(repeat,__repeat__,
 276  "repeat(a, b) -- Return a * b, where a is a sequence, and b is an integer.")
 277 spam2(iconcat,__iconcat__,
 278  "iconcat(a, b) -- Same as a += b, for a and b sequences.")
 279 spam2(irepeat,__irepeat__,
 280  "irepeat(a, b) -- Same as a *= b, where a is a sequence, and b is an integer.")
 281 spam2(getitem,__getitem__,
 282  "getitem(a, b) -- Same as a[b].")
 283 spam2(setitem,__setitem__,
 284  "setitem(a, b, c) -- Same as a[b] = c.")
 285 spam2(delitem,__delitem__,
 286  "delitem(a, b) -- Same as del a[b].")
 287 spam2(pow,__pow__, "pow(a, b) -- Same as a ** b.")
 288 spam2(ipow,__ipow__, "ipow(a, b) -- Same as a **= b.")
 289 spam2(getslice,__getslice__,
 290  "getslice(a, b, c) -- Same as a[b:c].")
 291 spam2(setslice,__setslice__,
 292 "setslice(a, b, c, d) -- Same as a[b:c] = d.")
 293 spam2(delslice,__delslice__,
 294 "delslice(a, b, c) -- Same as del a[b:c].")
 295 spam2(lt,__lt__, "lt(a, b) -- Same as a<b.")
 296 spam2(le,__le__, "le(a, b) -- Same as a<=b.")
 297 spam2(eq,__eq__, "eq(a, b) -- Same as a==b.")
 298 spam2(ne,__ne__, "ne(a, b) -- Same as a!=b.")
 299 spam2(gt,__gt__, "gt(a, b) -- Same as a>b.")
 300 spam2(ge,__ge__, "ge(a, b) -- Same as a>=b.")
 301
 302         {NULL,          NULL}           /* sentinel */
 303
 304 };
 305
 306 /* itemgetter object **********************************************************/
 307
 308 typedef struct {
 309         PyObject_HEAD
 310         Py_ssize_t nitems;
 311         PyObject *item;
 312 } itemgetterobject;
 313
 314 static PyTypeObject itemgetter_type;
 315
 316 static PyObject *
 317 itemgetter_new(PyTypeObject *type, PyObject *args, PyObject *kwds)
 318 {
 319         itemgetterobject *ig;
 320         PyObject *item;
 321         Py_ssize_t nitems;
 322
 323         if (!_PyArg_NoKeywords("itemgetter()", kwds))
 324                 return NULL;
 325
 326         nitems = PyTuple_GET_SIZE(args);
 327         if (nitems <= 1) {
 328                 if (!PyArg_UnpackTuple(args, "itemgetter", 1, 1, &item))
 329                         return NULL;
 330         } else
 331                 item = args;
 332
 333         /* create itemgetterobject structure */
 334         ig = PyObject_GC_New(itemgetterobject, &itemgetter_type);
 335         if (ig == NULL)
 336                 return NULL;
 337
 338         Py_INCREF(item);
 339         ig->item = item;
 340         ig->nitems = nitems;
 341
 342         PyObject_GC_Track(ig);
 343         return (PyObject *)ig;
 344 }
 345
 346 static void
 347 itemgetter_dealloc(itemgetterobject *ig)
 348 {
 349         PyObject_GC_UnTrack(ig);
 350         Py_XDECREF(ig->item);
 351         PyObject_GC_Del(ig);
 352 }
 353
 354 static int
 355 itemgetter_traverse(itemgetterobject *ig, visitproc visit, void *arg)
 356 {
 357         Py_VISIT(ig->item);
 358         return 0;
 359 }
 360
 361 static PyObject *
 362 itemgetter_call(itemgetterobject *ig, PyObject *args, PyObject *kw)
 363 {
 364         PyObject *obj, *result;
 365         Py_ssize_t i, nitems=ig->nitems;
 366
 367         if (!PyArg_UnpackTuple(args, "itemgetter", 1, 1, &obj))
 368                 return NULL;
 369         if (nitems == 1)
 370                 return PyObject_GetItem(obj, ig->item);
 371
 372         assert(PyTuple_Check(ig->item));
 373         assert(PyTuple_GET_SIZE(ig->item) == nitems);
 374
 375         result = PyTuple_New(nitems);
 376         if (result == NULL)
 377                 return NULL;
 378
 379         for (i=0 ; i < nitems ; i++) {
 380                 PyObject *item, *val;
 381                 item = PyTuple_GET_ITEM(ig->item, i);
 382                 val = PyObject_GetItem(obj, item);
 383                 if (val == NULL) {
 384                         Py_DECREF(result);
 385                         return NULL;
 386                 }
 387                 PyTuple_SET_ITEM(result, i, val);
 388         }
 389         return result;
 390 }
 391
 392 PyDoc_STRVAR(itemgetter_doc,
 393 "itemgetter(item, ...) --> itemgetter object\n\
 394 \n\
 395 Return a callable object that fetches the given item(s) from its operand.\n\
 396 After, f=itemgetter(2), the call f(r) returns r[2].\n\
 397 After, g=itemgetter(2,5,3), the call g(r) returns (r[2], r[5], r[3])");
 398
 399 static PyTypeObject itemgetter_type = {
 400         PyVarObject_HEAD_INIT(NULL, 0)
 401         "operator.itemgetter",          /* tp_name */
 402         sizeof(itemgetterobject),       /* tp_basicsize */
 403         0,                              /* tp_itemsize */
 404         /* methods */
 405         (destructor)itemgetter_dealloc, /* tp_dealloc */
 406         0,                              /* tp_print */
 407         0,                              /* tp_getattr */
 408         0,                              /* tp_setattr */
 409         0,                              /* tp_compare */
 410         0,                              /* tp_repr */
 411         0,                              /* tp_as_number */
 412         0,                              /* tp_as_sequence */
 413         0,                              /* tp_as_mapping */
 414         0,                              /* tp_hash */
 415         (ternaryfunc)itemgetter_call,   /* tp_call */
 416         0,                              /* tp_str */
 417         PyObject_GenericGetAttr,        /* tp_getattro */
 418         0,                              /* tp_setattro */
 419         0,                              /* tp_as_buffer */
 420         Py_TPFLAGS_DEFAULT | Py_TPFLAGS_HAVE_GC,        /* tp_flags */
 421         itemgetter_doc,                 /* tp_doc */
 422         (traverseproc)itemgetter_traverse,      /* tp_traverse */
 423         0,                              /* tp_clear */
 424         0,                              /* tp_richcompare */
 425         0,                              /* tp_weaklistoffset */
 426         0,                              /* tp_iter */
 427         0,                              /* tp_iternext */
 428         0,                              /* tp_methods */
 429         0,                              /* tp_members */
 430         0,                              /* tp_getset */
 431         0,                              /* tp_base */
 432         0,                              /* tp_dict */
 433         0,                              /* tp_descr_get */
 434         0,                              /* tp_descr_set */
 435         0,                              /* tp_dictoffset */
 436         0,                              /* tp_init */
 437         0,                              /* tp_alloc */
 438         itemgetter_new,                 /* tp_new */
 439         0,                              /* tp_free */
 440 };
 441
 442
 443 /* attrgetter object **********************************************************/
 444
 445 typedef struct {
 446         PyObject_HEAD
 447         Py_ssize_t nattrs;
 448         PyObject *attr;
 449 } attrgetterobject;
 450
 451 static PyTypeObject attrgetter_type;
 452
 453 static PyObject *
 454 attrgetter_new(PyTypeObject *type, PyObject *args, PyObject *kwds)
 455 {
 456         attrgetterobject *ag;
 457         PyObject *attr;
 458         Py_ssize_t nattrs;
 459
 460         if (!_PyArg_NoKeywords("attrgetter()", kwds))
 461                 return NULL;
 462
 463         nattrs = PyTuple_GET_SIZE(args);
 464         if (nattrs <= 1) {
 465                 if (!PyArg_UnpackTuple(args, "attrgetter", 1, 1, &attr))
 466                         return NULL;
 467         } else
 468                 attr = args;
 469
 470         /* create attrgetterobject structure */
 471         ag = PyObject_GC_New(attrgetterobject, &attrgetter_type);
 472         if (ag == NULL)
 473                 return NULL;
 474
 475         Py_INCREF(attr);
 476         ag->attr = attr;
 477         ag->nattrs = nattrs;
 478
 479         PyObject_GC_Track(ag);
 480         return (PyObject *)ag;
 481 }
 482
 483 static void
 484 attrgetter_dealloc(attrgetterobject *ag)
 485 {
 486         PyObject_GC_UnTrack(ag);
 487         Py_XDECREF(ag->attr);
 488         PyObject_GC_Del(ag);
 489 }
 490
 491 static int
 492 attrgetter_traverse(attrgetterobject *ag, visitproc visit, void *arg)
 493 {
 494         Py_VISIT(ag->attr);
 495         return 0;
 496 }
 497
 498 static PyObject *
 499 dotted_getattr(PyObject *obj, PyObject *attr)
 500 {
 501         char *s, *p;
 502
 503 #ifdef Py_USING_UNICODE
 504         if (PyUnicode_Check(attr)) {
 505                 attr = _PyUnicode_AsDefaultEncodedString(attr, NULL);
 506                 if (attr == NULL)
 507                         return NULL;
 508         }
 509 #endif
 510
 511         if (!PyString_Check(attr)) {
 512                 PyErr_SetString(PyExc_TypeError,
 513                                 "attribute name must be a string");
 514                 return NULL;
 515         }
 516
 517         s = PyString_AS_STRING(attr);
 518         Py_INCREF(obj);
 519         for (;;) {
 520                 PyObject *newobj, *str;
 521                 p = strchr(s, '.');
 522                 str = p ? PyString_FromStringAndSize(s, (p-s)) :
 523                           PyString_FromString(s);
 524                 if (str == NULL) {
 525                         Py_DECREF(obj);
 526                         return NULL;
 527                 }
 528                 newobj = PyObject_GetAttr(obj, str);
 529                 Py_DECREF(str);
 530                 Py_DECREF(obj);
 531                 if (newobj == NULL)
 532                         return NULL;
 533                 obj = newobj;
 534                 if (p == NULL) break;
 535                 s = p+1;
 536         }
 537
 538         return obj;
 539 }
 540
 541 static PyObject *
 542 attrgetter_call(attrgetterobject *ag, PyObject *args, PyObject *kw)
 543 {
 544         PyObject *obj, *result;
 545         Py_ssize_t i, nattrs=ag->nattrs;
 546
 547         if (!PyArg_UnpackTuple(args, "attrgetter", 1, 1, &obj))
 548                 return NULL;
 549         if (ag->nattrs == 1)
 550                 return dotted_getattr(obj, ag->attr);
 551
 552         assert(PyTuple_Check(ag->attr));
 553         assert(PyTuple_GET_SIZE(ag->attr) == nattrs);
 554
 555         result = PyTuple_New(nattrs);
 556         if (result == NULL)
 557                 return NULL;
 558
 559         for (i=0 ; i < nattrs ; i++) {
 560                 PyObject *attr, *val;
 561                 attr = PyTuple_GET_ITEM(ag->attr, i);
 562                 val = dotted_getattr(obj, attr);
 563                 if (val == NULL) {
 564                         Py_DECREF(result);
 565                         return NULL;
 566                 }
 567                 PyTuple_SET_ITEM(result, i, val);
 568         }
 569         return result;
 570 }
 571
 572 PyDoc_STRVAR(attrgetter_doc,
 573 "attrgetter(attr, ...) --> attrgetter object\n\
 574 \n\
 575 Return a callable object that fetches the given attribute(s) from its operand.\n\
 576 After, f=attrgetter('name'), the call f(r) returns r.name.\n\
 577 After, g=attrgetter('name', 'date'), the call g(r) returns (r.name, r.date).\n\
 578 After, h=attrgetter('name.first', 'name.last'), the call h(r) returns\n\
 579 (r.name.first, r.name.last).");
 580
 581 static PyTypeObject attrgetter_type = {
 582         PyVarObject_HEAD_INIT(NULL, 0)
 583         "operator.attrgetter",          /* tp_name */
 584         sizeof(attrgetterobject),       /* tp_basicsize */
 585         0,                              /* tp_itemsize */
 586         /* methods */
 587         (destructor)attrgetter_dealloc, /* tp_dealloc */
 588         0,                              /* tp_print */
 589         0,                              /* tp_getattr */
 590         0,                              /* tp_setattr */
 591         0,                              /* tp_compare */
 592         0,                              /* tp_repr */
 593         0,                              /* tp_as_number */
 594         0,                              /* tp_as_sequence */
 595         0,                              /* tp_as_mapping */
 596         0,                              /* tp_hash */
 597         (ternaryfunc)attrgetter_call,   /* tp_call */
 598         0,                              /* tp_str */
 599         PyObject_GenericGetAttr,        /* tp_getattro */
 600         0,                              /* tp_setattro */
 601         0,                              /* tp_as_buffer */
 602         Py_TPFLAGS_DEFAULT | Py_TPFLAGS_HAVE_GC,        /* tp_flags */
 603         attrgetter_doc,                 /* tp_doc */
 604         (traverseproc)attrgetter_traverse,      /* tp_traverse */
 605         0,                              /* tp_clear */
 606         0,                              /* tp_richcompare */
 607         0,                              /* tp_weaklistoffset */
 608         0,                              /* tp_iter */
 609         0,                              /* tp_iternext */
 610         0,                              /* tp_methods */
 611         0,                              /* tp_members */
 612         0,                              /* tp_getset */
 613         0,                              /* tp_base */
 614         0,                              /* tp_dict */
 615         0,                              /* tp_descr_get */
 616         0,                              /* tp_descr_set */
 617         0,                              /* tp_dictoffset */
 618         0,                              /* tp_init */
 619         0,                              /* tp_alloc */
 620         attrgetter_new,                 /* tp_new */
 621         0,                              /* tp_free */
 622 };
 623
 624
 625 /* methodcaller object **********************************************************/
 626
 627 typedef struct {
 628         PyObject_HEAD
 629         PyObject *name;
 630         PyObject *args;
 631         PyObject *kwds;
 632 } methodcallerobject;
 633
 634 static PyTypeObject methodcaller_type;
 635
 636 static PyObject *
 637 methodcaller_new(PyTypeObject *type, PyObject *args, PyObject *kwds)
 638 {
 639         methodcallerobject *mc;
 640         PyObject *name, *newargs;
 641
 642         if (PyTuple_GET_SIZE(args) < 1) {
 643                 PyErr_SetString(PyExc_TypeError, "methodcaller needs at least "
 644                                 "one argument, the method name");
 645                 return NULL;
 646         }
 647
 648         /* create methodcallerobject structure */
 649         mc = PyObject_GC_New(methodcallerobject, &methodcaller_type);
 650         if (mc == NULL)
 651                 return NULL;
 652
 653         newargs = PyTuple_GetSlice(args, 1, PyTuple_GET_SIZE(args));
 654         if (newargs == NULL) {
 655                 Py_DECREF(mc);
 656                 return NULL;
 657         }
 658         mc->args = newargs;
 659
 660         name = PyTuple_GET_ITEM(args, 0);
 661         Py_INCREF(name);
 662         mc->name = name;
 663
 664         Py_XINCREF(kwds);
 665         mc->kwds = kwds;
 666
 667         PyObject_GC_Track(mc);
 668         return (PyObject *)mc;
 669 }
 670
 671 static void
 672 methodcaller_dealloc(methodcallerobject *mc)
 673 {
 674         PyObject_GC_UnTrack(mc);
 675         Py_XDECREF(mc->name);
 676         Py_XDECREF(mc->args);
 677         Py_XDECREF(mc->kwds);
 678         PyObject_GC_Del(mc);
 679 }
 680
 681 static int
 682 methodcaller_traverse(methodcallerobject *mc, visitproc visit, void *arg)
 683 {
 684         Py_VISIT(mc->args);
 685         Py_VISIT(mc->kwds);
 686         return 0;
 687 }
 688
 689 static PyObject *
 690 methodcaller_call(methodcallerobject *mc, PyObject *args, PyObject *kw)
 691 {
 692         PyObject *method, *obj, *result;
 693
 694         if (!PyArg_UnpackTuple(args, "methodcaller", 1, 1, &obj))
 695                 return NULL;
 696         method = PyObject_GetAttr(obj, mc->name);
 697         if (method == NULL)
 698                 return NULL;
 699         result = PyObject_Call(method, mc->args, mc->kwds);
 700         Py_DECREF(method);
 701         return result;
 702 }
 703
 704 PyDoc_STRVAR(methodcaller_doc,
 705 "methodcaller(name, ...) --> methodcaller object\n\
 706 \n\
 707 Return a callable object that calls the given method on its operand.\n\
 708 After, f = methodcaller('name'), the call f(r) returns r.name().\n\
 709 After, g = methodcaller('name', 'date', foo=1), the call g(r) returns\n\
 710 r.name('date', foo=1).");
 711
 712 static PyTypeObject methodcaller_type = {
 713         PyVarObject_HEAD_INIT(NULL, 0)
 714         "operator.methodcaller",        /* tp_name */
 715         sizeof(methodcallerobject),     /* tp_basicsize */
 716         0,                              /* tp_itemsize */
 717         /* methods */
 718         (destructor)methodcaller_dealloc, /* tp_dealloc */
 719         0,                              /* tp_print */
 720         0,                              /* tp_getattr */
 721         0,                              /* tp_setattr */
 722         0,                              /* tp_compare */
 723         0,                              /* tp_repr */
 724         0,                              /* tp_as_number */
 725         0,                              /* tp_as_sequence */
 726         0,                              /* tp_as_mapping */
 727         0,                              /* tp_hash */
 728         (ternaryfunc)methodcaller_call, /* tp_call */
 729         0,                              /* tp_str */
 730         PyObject_GenericGetAttr,        /* tp_getattro */
 731         0,                              /* tp_setattro */
 732         0,                              /* tp_as_buffer */
 733         Py_TPFLAGS_DEFAULT | Py_TPFLAGS_HAVE_GC,/* tp_flags */
 734         methodcaller_doc,                       /* tp_doc */
 735         (traverseproc)methodcaller_traverse,    /* tp_traverse */
 736         0,                              /* tp_clear */
 737         0,                              /* tp_richcompare */
 738         0,                              /* tp_weaklistoffset */
 739         0,                              /* tp_iter */
 740         0,                              /* tp_iternext */
 741         0,                              /* tp_methods */
 742         0,                              /* tp_members */
 743         0,                              /* tp_getset */
 744         0,                              /* tp_base */
 745         0,                              /* tp_dict */
 746         0,                              /* tp_descr_get */
 747         0,                              /* tp_descr_set */
 748         0,                              /* tp_dictoffset */
 749         0,                              /* tp_init */
 750         0,                              /* tp_alloc */
 751         methodcaller_new,               /* tp_new */
 752         0,                              /* tp_free */
 753 };
 754
 755
 756 /* Initialization function for the module (*must* be called initoperator) */
 757
 758 PyMODINIT_FUNC
 759 initoperator(void)
 760 {
 761         PyObject *m;
 762
 763         /* Create the module and add the functions */
 764         m = Py_InitModule4("operator", operator_methods, operator_doc,
 765                        (PyObject*)NULL, PYTHON_API_VERSION);
 766         if (m == NULL)
 767                 return;
 768
 769         if (PyType_Ready(&itemgetter_type) < 0)
 770                 return;
 771         Py_INCREF(&itemgetter_type);
 772         PyModule_AddObject(m, "itemgetter", (PyObject *)&itemgetter_type);
 773
 774         if (PyType_Ready(&attrgetter_type) < 0)
 775                 return;
 776         Py_INCREF(&attrgetter_type);
 777         PyModule_AddObject(m, "attrgetter", (PyObject *)&attrgetter_type);
 778
 779         if (PyType_Ready(&methodcaller_type) < 0)
 780                 return;
 781         Py_INCREF(&methodcaller_type);
 782         PyModule_AddObject(m, "methodcaller", (PyObject *)&methodcaller_type);
 783 }