270 lines
8.9 KiB
C
270 lines
8.9 KiB
C
static char 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.\n\
|
|
";
|
|
|
|
/*
|
|
|
|
Copyright
|
|
|
|
Copyright 1996 Digital Creations, L.C., 910 Princess Anne
|
|
Street, Suite 300, Fredericksburg, Virginia 22401 U.S.A. All
|
|
rights reserved. Copyright in this software is owned by DCLC,
|
|
unless otherwise indicated. Permission to use, copy and
|
|
distribute this software is hereby granted, provided that the
|
|
above copyright notice appear in all copies and that both that
|
|
copyright notice and this permission notice appear. Note that
|
|
any product, process or technology described in this software
|
|
may be the subject of other Intellectual Property rights
|
|
reserved by Digital Creations, L.C. and are not licensed
|
|
hereunder.
|
|
|
|
Trademarks
|
|
|
|
Digital Creations & DCLC, are trademarks of Digital Creations, L.C..
|
|
All other trademarks are owned by their respective companies.
|
|
|
|
No Warranty
|
|
|
|
The software is provided "as is" without warranty of any kind,
|
|
either express or implied, including, but not limited to, the
|
|
implied warranties of merchantability, fitness for a particular
|
|
purpose, or non-infringement. This software could include
|
|
technical inaccuracies or typographical errors. Changes are
|
|
periodically made to the software; these changes will be
|
|
incorporated in new editions of the software. DCLC may make
|
|
improvements and/or changes in this software at any time
|
|
without notice.
|
|
|
|
Limitation Of Liability
|
|
|
|
In no event will DCLC be liable for direct, indirect, special,
|
|
incidental, economic, cover, or consequential damages arising
|
|
out of the use of or inability to use this software even if
|
|
advised of the possibility of such damages. Some states do not
|
|
allow the exclusion or limitation of implied warranties or
|
|
limitation of liability for incidental or consequential
|
|
damages, so the above limitation or exclusion may not apply to
|
|
you.
|
|
|
|
|
|
If you have questions regarding this software,
|
|
contact:
|
|
|
|
Jim Fulton, jim@digicool.com
|
|
Digital Creations L.C.
|
|
|
|
(540) 371-6909
|
|
|
|
Modifications
|
|
|
|
Renamed and slightly rearranged by Guido van Rossum
|
|
|
|
*/
|
|
|
|
#include "Python.h"
|
|
|
|
#define spam1(OP,AOP) static PyObject *OP(s,a) PyObject *s, *a; { \
|
|
PyObject *a1; \
|
|
if(! PyArg_ParseTuple(a,"O",&a1)) return NULL; \
|
|
return AOP(a1); }
|
|
|
|
#define spam2(OP,AOP) static PyObject *OP(s,a) PyObject *s, *a; { \
|
|
PyObject *a1, *a2; \
|
|
if(! PyArg_ParseTuple(a,"OO",&a1,&a2)) return NULL; \
|
|
return AOP(a1,a2); }
|
|
|
|
#define spamoi(OP,AOP) static PyObject *OP(s,a) PyObject *s, *a; { \
|
|
PyObject *a1; int a2; \
|
|
if(! PyArg_ParseTuple(a,"Oi",&a1,&a2)) return NULL; \
|
|
return AOP(a1,a2); }
|
|
|
|
#define spam2n(OP,AOP) static PyObject *OP(s,a) PyObject *s, *a; { \
|
|
PyObject *a1, *a2; \
|
|
if(! PyArg_ParseTuple(a,"OO",&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(s,a) PyObject *s, *a; { \
|
|
PyObject *a1, *a2, *a3; \
|
|
if(! PyArg_ParseTuple(a,"OOO",&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(s,a) PyObject *s, *a; { \
|
|
PyObject *a1; long r; \
|
|
if(! PyArg_ParseTuple(a,"O",&a1)) return NULL; \
|
|
if(-1 == (r=AOP(a1))) return NULL; \
|
|
return PyInt_FromLong(r); }
|
|
|
|
#define spami2(OP,AOP) static PyObject *OP(s,a) PyObject *s, *a; { \
|
|
PyObject *a1, *a2; long r; \
|
|
if(! PyArg_ParseTuple(a,"OO",&a1,&a2)) return NULL; \
|
|
if(-1 == (r=AOP(a1,a2))) return NULL; \
|
|
return PyInt_FromLong(r); }
|
|
|
|
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_mod , PyNumber_Remainder)
|
|
spam1(op_neg , PyNumber_Negative)
|
|
spam1(op_pos , PyNumber_Positive)
|
|
spam1(op_abs , PyNumber_Absolute)
|
|
spam1(op_inv , PyNumber_Invert)
|
|
spam2(op_lshift , PyNumber_Lshift)
|
|
spam2(op_rshift , PyNumber_Rshift)
|
|
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)
|
|
spami2(sequenceIncludes, PySequence_In)
|
|
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)
|
|
|
|
static PyObject*
|
|
op_getslice(s,a)
|
|
PyObject *s, *a;
|
|
{
|
|
PyObject *a1;
|
|
long a2,a3;
|
|
|
|
if(! PyArg_ParseTuple(a,"Oii",&a1,&a2,&a3)) return NULL;
|
|
|
|
return PySequence_GetSlice(a1,a2,a3);
|
|
}
|
|
|
|
static PyObject*
|
|
op_setslice(s,a)
|
|
PyObject *s, *a;
|
|
{
|
|
PyObject *a1, *a4;
|
|
long a2,a3;
|
|
|
|
if(! PyArg_ParseTuple(a,"OiiO",&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(s,a)
|
|
PyObject *s, *a;
|
|
{
|
|
PyObject *a1;
|
|
long a2,a3;
|
|
|
|
if(! PyArg_ParseTuple(a,"Oii",&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
|
|
#ifdef HAVE_OLD_CPP
|
|
#define spam1(OP,DOC) {"OP", OP, 1, DOC},
|
|
#define spam2(OP,ALTOP,DOC) {"OP", op_/**/OP, 1, DOC}, \
|
|
{"ALTOP", op_/**/OP, 1, DOC},
|
|
#else
|
|
#define spam1(OP,DOC) {#OP, OP, 1, DOC},
|
|
#define spam2(OP,ALTOP,DOC) {#OP, op_##OP, 1, DOC}, \
|
|
{#ALTOP, op_##OP, 1, DOC},
|
|
#endif
|
|
|
|
static struct PyMethodDef operator_methods[] = {
|
|
|
|
spam1(isCallable,
|
|
"isCallable(o) -- Return 1 if o is callable, and zero otherwise.")
|
|
spam1(isNumberType,
|
|
"isNumberType(o) -- Return 1 if o has a numeric type, and zero otherwise.")
|
|
spam1(isSequenceType,
|
|
"isSequenceType(o) -- Return 1 if o has a sequence type, and zero otherwise.")
|
|
spam1(truth,
|
|
"truth(o) -- Return 1 if o is true, and 0 otherwise.")
|
|
spam1(sequenceIncludes,
|
|
"sequenceIncludes(a, b) -- Return 1 is a includes b, and 0 otherwise.")
|
|
spam1(indexOf,
|
|
"indexOf(a, b) -- Return the index of b in a.")
|
|
spam1(countOf,
|
|
"countOf(a, b) -- Return the number of times b occurs in a.")
|
|
spam1(isMappingType,
|
|
"isMappingType(o) -- Return 1 if o has a mapping type, and zero otherwise.")
|
|
|
|
spam2(add,__add__, "add(a, b) -- Return a + b, for a and b numbers.")
|
|
spam2(sub,__sub__, "sub(a, b) -- Return a - b.")
|
|
spam2(mul,__mul__, "mul(a, b) -- Return a * b, for a and b numbers.")
|
|
spam2(div,__div__, "div(a, b) -- Return a / b.")
|
|
spam2(mod,__mod__, "mod(a, b) -- Return a % b.")
|
|
spam2(neg,__neg__, "neg(o) -- Return o negated.")
|
|
spam2(pos,__pos__, "pos(o) -- Return o positive.")
|
|
spam2(abs,__abs__, "abs(o) -- Return the absolute value of o.")
|
|
spam2(inv,__inv__, "inv(o) -- Return the inverse of o.")
|
|
spam2(lshift,__lshift__, "lshift(a, b) -- Return a shifted left by b.")
|
|
spam2(rshift,__rshift__, "rshift(a, b) -- Return a shifted right by b.")
|
|
spam2(and_,__and__, "and_(a, b) -- Return the bitwise and of a and b.")
|
|
spam2(xor,__xor__, "xor(a, b) -- Return the bitwise exclusive-or of a and b.")
|
|
spam2(or_,__or__, "or_(a, b) -- Return the bitwise or of a and b.")
|
|
spam2(concat,__concat__,
|
|
"concat(a, b) -- Return 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) -- Return the value of a at index b.")
|
|
spam2(setitem,__setitem__,
|
|
"setitem(a, b, c) -- Set the value of a at b to c.")
|
|
spam2(delitem,__delitem__,
|
|
"delitem(a, b) -- Delete the value of a at b.")
|
|
spam2(getslice,__getslice__,
|
|
"getslice(a, b, c) -- Return the slice of a from b to c-1.")
|
|
spam2(setslice,__setslice__,
|
|
"setslice(a, b, c, v) -- Set the slice of a from b to c-1 to the sequence v.")
|
|
spam2(delslice,__delslice__,
|
|
"delslice(a, b, c) -- Delete the slice of a from b to c-1.")
|
|
|
|
{NULL, NULL} /* sentinel */
|
|
|
|
};
|
|
|
|
|
|
/* Initialization function for the module (*must* be called initoperator) */
|
|
|
|
void
|
|
initoperator()
|
|
{
|
|
PyObject *m, *d;
|
|
|
|
/* Create the module and add the functions */
|
|
m = Py_InitModule4("operator", operator_methods,
|
|
operator_doc,
|
|
(PyObject*)NULL,PYTHON_API_VERSION);
|
|
|
|
/* Add some symbolic constants to the module */
|
|
d = PyModule_GetDict(m);
|
|
PyDict_SetItemString(d, "__version__",PyString_FromString("$Rev$"));
|
|
|
|
/* Check for errors */
|
|
if (PyErr_Occurred())
|
|
Py_FatalError("can't initialize module operator");
|
|
}
|