488 lines
14 KiB
C
488 lines
14 KiB
C
|
|
#include "Python.h"
|
|
|
|
PyDoc_STRVAR(operator_doc,
|
|
"Operator interface.\n\
|
|
\n\
|
|
This module exports a set of functions implemented in C corresponding\n\
|
|
to the intrinsic operators of Python. For example, operator.add(x, y)\n\
|
|
is equivalent to the expression x+y. The function names are those\n\
|
|
used for special class methods; variants without leading and trailing\n\
|
|
'__' are also provided for convenience.");
|
|
|
|
#define spam1(OP,AOP) static PyObject *OP(PyObject *s, PyObject *a1) { \
|
|
return AOP(a1); }
|
|
|
|
#define spam2(OP,AOP) static PyObject *OP(PyObject *s, PyObject *a) { \
|
|
PyObject *a1, *a2; \
|
|
if(! PyArg_UnpackTuple(a,#OP,2,2,&a1,&a2)) return NULL; \
|
|
return AOP(a1,a2); }
|
|
|
|
#define spamoi(OP,AOP) static PyObject *OP(PyObject *s, PyObject *a) { \
|
|
PyObject *a1; int a2; \
|
|
if(! PyArg_ParseTuple(a,"Oi:" #OP,&a1,&a2)) return NULL; \
|
|
return AOP(a1,a2); }
|
|
|
|
#define spam2n(OP,AOP) static PyObject *OP(PyObject *s, PyObject *a) { \
|
|
PyObject *a1, *a2; \
|
|
if(! PyArg_UnpackTuple(a,#OP,2,2,&a1,&a2)) return NULL; \
|
|
if(-1 == AOP(a1,a2)) return NULL; \
|
|
Py_INCREF(Py_None); \
|
|
return Py_None; }
|
|
|
|
#define spam3n(OP,AOP) static PyObject *OP(PyObject *s, PyObject *a) { \
|
|
PyObject *a1, *a2, *a3; \
|
|
if(! PyArg_UnpackTuple(a,#OP,3,3,&a1,&a2,&a3)) return NULL; \
|
|
if(-1 == AOP(a1,a2,a3)) return NULL; \
|
|
Py_INCREF(Py_None); \
|
|
return Py_None; }
|
|
|
|
#define spami(OP,AOP) static PyObject *OP(PyObject *s, PyObject *a1) { \
|
|
long r; \
|
|
if(-1 == (r=AOP(a1))) return NULL; \
|
|
return PyBool_FromLong(r); }
|
|
|
|
#define spami2(OP,AOP) static PyObject *OP(PyObject *s, PyObject *a) { \
|
|
PyObject *a1, *a2; long r; \
|
|
if(! PyArg_UnpackTuple(a,#OP,2,2,&a1,&a2)) return NULL; \
|
|
if(-1 == (r=AOP(a1,a2))) return NULL; \
|
|
return PyInt_FromLong(r); }
|
|
|
|
#define spami2b(OP,AOP) static PyObject *OP(PyObject *s, PyObject *a) { \
|
|
PyObject *a1, *a2; long r; \
|
|
if(! PyArg_UnpackTuple(a,#OP,2,2,&a1,&a2)) return NULL; \
|
|
if(-1 == (r=AOP(a1,a2))) return NULL; \
|
|
return PyBool_FromLong(r); }
|
|
|
|
#define spamrc(OP,A) static PyObject *OP(PyObject *s, PyObject *a) { \
|
|
PyObject *a1, *a2; \
|
|
if(! PyArg_UnpackTuple(a,#OP,2,2,&a1,&a2)) return NULL; \
|
|
return PyObject_RichCompare(a1,a2,A); }
|
|
|
|
spami(isCallable , PyCallable_Check)
|
|
spami(isNumberType , PyNumber_Check)
|
|
spami(truth , PyObject_IsTrue)
|
|
spam2(op_add , PyNumber_Add)
|
|
spam2(op_sub , PyNumber_Subtract)
|
|
spam2(op_mul , PyNumber_Multiply)
|
|
spam2(op_div , PyNumber_Divide)
|
|
spam2(op_floordiv , PyNumber_FloorDivide)
|
|
spam2(op_truediv , PyNumber_TrueDivide)
|
|
spam2(op_mod , PyNumber_Remainder)
|
|
spam1(op_neg , PyNumber_Negative)
|
|
spam1(op_pos , PyNumber_Positive)
|
|
spam1(op_abs , PyNumber_Absolute)
|
|
spam1(op_inv , PyNumber_Invert)
|
|
spam1(op_invert , PyNumber_Invert)
|
|
spam2(op_lshift , PyNumber_Lshift)
|
|
spam2(op_rshift , PyNumber_Rshift)
|
|
spami(op_not_ , PyObject_Not)
|
|
spam2(op_and_ , PyNumber_And)
|
|
spam2(op_xor , PyNumber_Xor)
|
|
spam2(op_or_ , PyNumber_Or)
|
|
spami(isSequenceType , PySequence_Check)
|
|
spam2(op_concat , PySequence_Concat)
|
|
spamoi(op_repeat , PySequence_Repeat)
|
|
spami2b(op_contains , PySequence_Contains)
|
|
spami2b(sequenceIncludes, PySequence_Contains)
|
|
spami2(indexOf , PySequence_Index)
|
|
spami2(countOf , PySequence_Count)
|
|
spami(isMappingType , PyMapping_Check)
|
|
spam2(op_getitem , PyObject_GetItem)
|
|
spam2n(op_delitem , PyObject_DelItem)
|
|
spam3n(op_setitem , PyObject_SetItem)
|
|
spamrc(op_lt , Py_LT)
|
|
spamrc(op_le , Py_LE)
|
|
spamrc(op_eq , Py_EQ)
|
|
spamrc(op_ne , Py_NE)
|
|
spamrc(op_gt , Py_GT)
|
|
spamrc(op_ge , Py_GE)
|
|
|
|
static PyObject*
|
|
op_pow(PyObject *s, PyObject *a)
|
|
{
|
|
PyObject *a1, *a2;
|
|
if (PyArg_UnpackTuple(a,"pow", 2, 2, &a1, &a2))
|
|
return PyNumber_Power(a1, a2, Py_None);
|
|
return NULL;
|
|
}
|
|
|
|
static PyObject*
|
|
is_(PyObject *s, PyObject *a)
|
|
{
|
|
PyObject *a1, *a2, *result = NULL;
|
|
if (PyArg_UnpackTuple(a,"is_", 2, 2, &a1, &a2)) {
|
|
result = (a1 == a2) ? Py_True : Py_False;
|
|
Py_INCREF(result);
|
|
}
|
|
return result;
|
|
}
|
|
|
|
static PyObject*
|
|
is_not(PyObject *s, PyObject *a)
|
|
{
|
|
PyObject *a1, *a2, *result = NULL;
|
|
if (PyArg_UnpackTuple(a,"is_not", 2, 2, &a1, &a2)) {
|
|
result = (a1 != a2) ? Py_True : Py_False;
|
|
Py_INCREF(result);
|
|
}
|
|
return result;
|
|
}
|
|
|
|
static PyObject*
|
|
op_getslice(PyObject *s, PyObject *a)
|
|
{
|
|
PyObject *a1;
|
|
int a2,a3;
|
|
|
|
if (!PyArg_ParseTuple(a,"Oii:getslice",&a1,&a2,&a3))
|
|
return NULL;
|
|
return PySequence_GetSlice(a1,a2,a3);
|
|
}
|
|
|
|
static PyObject*
|
|
op_setslice(PyObject *s, PyObject *a)
|
|
{
|
|
PyObject *a1, *a4;
|
|
int a2,a3;
|
|
|
|
if (!PyArg_ParseTuple(a,"OiiO:setslice",&a1,&a2,&a3,&a4))
|
|
return NULL;
|
|
|
|
if (-1 == PySequence_SetSlice(a1,a2,a3,a4))
|
|
return NULL;
|
|
|
|
Py_INCREF(Py_None);
|
|
return Py_None;
|
|
}
|
|
|
|
static PyObject*
|
|
op_delslice(PyObject *s, PyObject *a)
|
|
{
|
|
PyObject *a1;
|
|
int a2,a3;
|
|
|
|
if(! PyArg_ParseTuple(a,"Oii:delslice",&a1,&a2,&a3))
|
|
return NULL;
|
|
|
|
if (-1 == PySequence_DelSlice(a1,a2,a3))
|
|
return NULL;
|
|
|
|
Py_INCREF(Py_None);
|
|
return Py_None;
|
|
}
|
|
|
|
#undef spam1
|
|
#undef spam2
|
|
#undef spam1o
|
|
#undef spam1o
|
|
#define spam1(OP,DOC) {#OP, OP, METH_VARARGS, PyDoc_STR(DOC)},
|
|
#define spam2(OP,ALTOP,DOC) {#OP, op_##OP, METH_VARARGS, DOC}, \
|
|
{#ALTOP, op_##OP, METH_VARARGS, PyDoc_STR(DOC)},
|
|
#define spam1o(OP,DOC) {#OP, OP, METH_O, PyDoc_STR(DOC)},
|
|
#define spam2o(OP,ALTOP,DOC) {#OP, op_##OP, METH_O, DOC}, \
|
|
{#ALTOP, op_##OP, METH_O, PyDoc_STR(DOC)},
|
|
|
|
static struct PyMethodDef operator_methods[] = {
|
|
|
|
spam1o(isCallable,
|
|
"isCallable(a) -- Same as callable(a).")
|
|
spam1o(isNumberType,
|
|
"isNumberType(a) -- Return True if a has a numeric type, False otherwise.")
|
|
spam1o(isSequenceType,
|
|
"isSequenceType(a) -- Return True if a has a sequence type, False otherwise.")
|
|
spam1o(truth,
|
|
"truth(a) -- Return True if a is true, False otherwise.")
|
|
spam2(contains,__contains__,
|
|
"contains(a, b) -- Same as b in a (note reversed operands).")
|
|
spam1(sequenceIncludes,
|
|
"sequenceIncludes(a, b) -- Same as b in a (note reversed operands; deprecated).")
|
|
spam1(indexOf,
|
|
"indexOf(a, b) -- Return the first index of b in a.")
|
|
spam1(countOf,
|
|
"countOf(a, b) -- Return the number of times b occurs in a.")
|
|
spam1o(isMappingType,
|
|
"isMappingType(a) -- Return True if a has a mapping type, False otherwise.")
|
|
|
|
spam1(is_, "is_(a, b) -- Same as a is b.")
|
|
spam1(is_not, "is_not(a, b) -- Same as a is not b.")
|
|
spam2(add,__add__, "add(a, b) -- Same as a + b.")
|
|
spam2(sub,__sub__, "sub(a, b) -- Same as a - b.")
|
|
spam2(mul,__mul__, "mul(a, b) -- Same as a * b.")
|
|
spam2(div,__div__, "div(a, b) -- Same as a / b when __future__.division is not in effect.")
|
|
spam2(floordiv,__floordiv__, "floordiv(a, b) -- Same as a // b.")
|
|
spam2(truediv,__truediv__, "truediv(a, b) -- Same as a / b when __future__.division is in effect.")
|
|
spam2(mod,__mod__, "mod(a, b) -- Same as a % b.")
|
|
spam2o(neg,__neg__, "neg(a) -- Same as -a.")
|
|
spam2o(pos,__pos__, "pos(a) -- Same as +a.")
|
|
spam2o(abs,__abs__, "abs(a) -- Same as abs(a).")
|
|
spam2o(inv,__inv__, "inv(a) -- Same as ~a.")
|
|
spam2o(invert,__invert__, "invert(a) -- Same as ~a.")
|
|
spam2(lshift,__lshift__, "lshift(a, b) -- Same as a << b.")
|
|
spam2(rshift,__rshift__, "rshift(a, b) -- Same as a >> b.")
|
|
spam2o(not_,__not__, "not_(a) -- Same as not a.")
|
|
spam2(and_,__and__, "and_(a, b) -- Same as a & b.")
|
|
spam2(xor,__xor__, "xor(a, b) -- Same as a ^ b.")
|
|
spam2(or_,__or__, "or_(a, b) -- Same as a | b.")
|
|
spam2(concat,__concat__,
|
|
"concat(a, b) -- Same as a + b, for a and b sequences.")
|
|
spam2(repeat,__repeat__,
|
|
"repeat(a, b) -- Return a * b, where a is a sequence, and b is an integer.")
|
|
spam2(getitem,__getitem__,
|
|
"getitem(a, b) -- Same as a[b].")
|
|
spam2(setitem,__setitem__,
|
|
"setitem(a, b, c) -- Same as a[b] = c.")
|
|
spam2(delitem,__delitem__,
|
|
"delitem(a, b) -- Same as del a[b].")
|
|
spam2(pow,__pow__, "pow(a, b) -- Same as a**b.")
|
|
spam2(getslice,__getslice__,
|
|
"getslice(a, b, c) -- Same as a[b:c].")
|
|
spam2(setslice,__setslice__,
|
|
"setslice(a, b, c, d) -- Same as a[b:c] = d.")
|
|
spam2(delslice,__delslice__,
|
|
"delslice(a, b, c) -- Same as del a[b:c].")
|
|
spam2(lt,__lt__, "lt(a, b) -- Same as a<b.")
|
|
spam2(le,__le__, "le(a, b) -- Same as a<=b.")
|
|
spam2(eq,__eq__, "eq(a, b) -- Same as a==b.")
|
|
spam2(ne,__ne__, "ne(a, b) -- Same as a!=b.")
|
|
spam2(gt,__gt__, "gt(a, b) -- Same as a>b.")
|
|
spam2(ge,__ge__, "ge(a, b) -- Same as a>=b.")
|
|
|
|
{NULL, NULL} /* sentinel */
|
|
|
|
};
|
|
|
|
/* itemgetter object **********************************************************/
|
|
|
|
typedef struct {
|
|
PyObject_HEAD
|
|
PyObject *item;
|
|
} itemgetterobject;
|
|
|
|
static PyTypeObject itemgetter_type;
|
|
|
|
static PyObject *
|
|
itemgetter_new(PyTypeObject *type, PyObject *args, PyObject *kwds)
|
|
{
|
|
itemgetterobject *ig;
|
|
PyObject *item;
|
|
|
|
if (!PyArg_UnpackTuple(args, "itemgetter", 1, 1, &item))
|
|
return NULL;
|
|
|
|
/* create itemgetterobject structure */
|
|
ig = PyObject_GC_New(itemgetterobject, &itemgetter_type);
|
|
if (ig == NULL)
|
|
return NULL;
|
|
|
|
Py_INCREF(item);
|
|
ig->item = item;
|
|
|
|
PyObject_GC_Track(ig);
|
|
return (PyObject *)ig;
|
|
}
|
|
|
|
static void
|
|
itemgetter_dealloc(itemgetterobject *ig)
|
|
{
|
|
PyObject_GC_UnTrack(ig);
|
|
Py_XDECREF(ig->item);
|
|
PyObject_GC_Del(ig);
|
|
}
|
|
|
|
static int
|
|
itemgetter_traverse(itemgetterobject *ig, visitproc visit, void *arg)
|
|
{
|
|
if (ig->item)
|
|
return visit(ig->item, arg);
|
|
return 0;
|
|
}
|
|
|
|
static PyObject *
|
|
itemgetter_call(itemgetterobject *ig, PyObject *args, PyObject *kw)
|
|
{
|
|
PyObject * obj;
|
|
|
|
if (!PyArg_UnpackTuple(args, "itemgetter", 1, 1, &obj))
|
|
return NULL;
|
|
return PyObject_GetItem(obj, ig->item);
|
|
}
|
|
|
|
PyDoc_STRVAR(itemgetter_doc,
|
|
"itemgetter(item) --> itemgetter object\n\
|
|
\n\
|
|
Return a callable object that fetches the given item from its operand.\n\
|
|
After, f=itemgetter(2), the call f(b) returns b[2].");
|
|
|
|
static PyTypeObject itemgetter_type = {
|
|
PyObject_HEAD_INIT(NULL)
|
|
0, /* ob_size */
|
|
"itertools.itemgetter", /* tp_name */
|
|
sizeof(itemgetterobject), /* tp_basicsize */
|
|
0, /* tp_itemsize */
|
|
/* methods */
|
|
(destructor)itemgetter_dealloc, /* tp_dealloc */
|
|
0, /* tp_print */
|
|
0, /* tp_getattr */
|
|
0, /* tp_setattr */
|
|
0, /* tp_compare */
|
|
0, /* tp_repr */
|
|
0, /* tp_as_number */
|
|
0, /* tp_as_sequence */
|
|
0, /* tp_as_mapping */
|
|
0, /* tp_hash */
|
|
(ternaryfunc)itemgetter_call, /* tp_call */
|
|
0, /* tp_str */
|
|
PyObject_GenericGetAttr, /* tp_getattro */
|
|
0, /* tp_setattro */
|
|
0, /* tp_as_buffer */
|
|
Py_TPFLAGS_DEFAULT | Py_TPFLAGS_HAVE_GC, /* tp_flags */
|
|
itemgetter_doc, /* tp_doc */
|
|
(traverseproc)itemgetter_traverse, /* tp_traverse */
|
|
0, /* tp_clear */
|
|
0, /* tp_richcompare */
|
|
0, /* tp_weaklistoffset */
|
|
0, /* tp_iter */
|
|
0, /* tp_iternext */
|
|
0, /* tp_methods */
|
|
0, /* tp_members */
|
|
0, /* tp_getset */
|
|
0, /* tp_base */
|
|
0, /* tp_dict */
|
|
0, /* tp_descr_get */
|
|
0, /* tp_descr_set */
|
|
0, /* tp_dictoffset */
|
|
0, /* tp_init */
|
|
0, /* tp_alloc */
|
|
itemgetter_new, /* tp_new */
|
|
0, /* tp_free */
|
|
};
|
|
|
|
|
|
/* attrgetter object **********************************************************/
|
|
|
|
typedef struct {
|
|
PyObject_HEAD
|
|
PyObject *attr;
|
|
} attrgetterobject;
|
|
|
|
static PyTypeObject attrgetter_type;
|
|
|
|
static PyObject *
|
|
attrgetter_new(PyTypeObject *type, PyObject *args, PyObject *kwds)
|
|
{
|
|
attrgetterobject *ag;
|
|
PyObject *attr;
|
|
|
|
if (!PyArg_UnpackTuple(args, "attrgetter", 1, 1, &attr))
|
|
return NULL;
|
|
|
|
/* create attrgetterobject structure */
|
|
ag = PyObject_GC_New(attrgetterobject, &attrgetter_type);
|
|
if (ag == NULL)
|
|
return NULL;
|
|
|
|
Py_INCREF(attr);
|
|
ag->attr = attr;
|
|
|
|
PyObject_GC_Track(ag);
|
|
return (PyObject *)ag;
|
|
}
|
|
|
|
static void
|
|
attrgetter_dealloc(attrgetterobject *ag)
|
|
{
|
|
PyObject_GC_UnTrack(ag);
|
|
Py_XDECREF(ag->attr);
|
|
PyObject_GC_Del(ag);
|
|
}
|
|
|
|
static int
|
|
attrgetter_traverse(attrgetterobject *ag, visitproc visit, void *arg)
|
|
{
|
|
if (ag->attr)
|
|
return visit(ag->attr, arg);
|
|
return 0;
|
|
}
|
|
|
|
static PyObject *
|
|
attrgetter_call(attrgetterobject *ag, PyObject *args, PyObject *kw)
|
|
{
|
|
PyObject * obj;
|
|
|
|
if (!PyArg_UnpackTuple(args, "attrgetter", 1, 1, &obj))
|
|
return NULL;
|
|
return PyObject_GetAttr(obj, ag->attr);
|
|
}
|
|
|
|
PyDoc_STRVAR(attrgetter_doc,
|
|
"attrgetter(attr) --> attrgetter object\n\
|
|
\n\
|
|
Return a callable object that fetches the given attribute from its operand.\n\
|
|
After, f=attrgetter('name'), the call f(b) returns b.name.");
|
|
|
|
static PyTypeObject attrgetter_type = {
|
|
PyObject_HEAD_INIT(NULL)
|
|
0, /* ob_size */
|
|
"itertools.attrgetter", /* tp_name */
|
|
sizeof(attrgetterobject), /* tp_basicsize */
|
|
0, /* tp_itemsize */
|
|
/* methods */
|
|
(destructor)attrgetter_dealloc, /* tp_dealloc */
|
|
0, /* tp_print */
|
|
0, /* tp_getattr */
|
|
0, /* tp_setattr */
|
|
0, /* tp_compare */
|
|
0, /* tp_repr */
|
|
0, /* tp_as_number */
|
|
0, /* tp_as_sequence */
|
|
0, /* tp_as_mapping */
|
|
0, /* tp_hash */
|
|
(ternaryfunc)attrgetter_call, /* tp_call */
|
|
0, /* tp_str */
|
|
PyObject_GenericGetAttr, /* tp_getattro */
|
|
0, /* tp_setattro */
|
|
0, /* tp_as_buffer */
|
|
Py_TPFLAGS_DEFAULT | Py_TPFLAGS_HAVE_GC, /* tp_flags */
|
|
attrgetter_doc, /* tp_doc */
|
|
(traverseproc)attrgetter_traverse, /* tp_traverse */
|
|
0, /* tp_clear */
|
|
0, /* tp_richcompare */
|
|
0, /* tp_weaklistoffset */
|
|
0, /* tp_iter */
|
|
0, /* tp_iternext */
|
|
0, /* tp_methods */
|
|
0, /* tp_members */
|
|
0, /* tp_getset */
|
|
0, /* tp_base */
|
|
0, /* tp_dict */
|
|
0, /* tp_descr_get */
|
|
0, /* tp_descr_set */
|
|
0, /* tp_dictoffset */
|
|
0, /* tp_init */
|
|
0, /* tp_alloc */
|
|
attrgetter_new, /* tp_new */
|
|
0, /* tp_free */
|
|
};
|
|
/* Initialization function for the module (*must* be called initoperator) */
|
|
|
|
PyMODINIT_FUNC
|
|
initoperator(void)
|
|
{
|
|
PyObject *m;
|
|
|
|
/* Create the module and add the functions */
|
|
m = Py_InitModule4("operator", operator_methods, operator_doc,
|
|
(PyObject*)NULL, PYTHON_API_VERSION);
|
|
|
|
if (PyType_Ready(&itemgetter_type) < 0)
|
|
return;
|
|
Py_INCREF(&itemgetter_type);
|
|
PyModule_AddObject(m, "itemgetter", (PyObject *)&itemgetter_type);
|
|
|
|
if (PyType_Ready(&attrgetter_type) < 0)
|
|
return;
|
|
Py_INCREF(&attrgetter_type);
|
|
PyModule_AddObject(m, "attrgetter", (PyObject *)&attrgetter_type);
|
|
}
|