You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
837 lines
19 KiB
837 lines
19 KiB
14 years ago
|
|
||
|
/* Tuple object implementation */
|
||
|
|
||
|
#include "Python.h"
|
||
|
|
||
|
/* Speed optimization to avoid frequent malloc/free of small tuples */
|
||
|
#ifndef MAXSAVESIZE
|
||
|
#define MAXSAVESIZE 20 /* Largest tuple to save on free list */
|
||
|
#endif
|
||
|
#ifndef MAXSAVEDTUPLES
|
||
|
#define MAXSAVEDTUPLES 2000 /* Maximum number of tuples of each size to save */
|
||
|
#endif
|
||
|
|
||
|
#if MAXSAVESIZE > 0
|
||
|
/* Entries 1 up to MAXSAVESIZE are free lists, entry 0 is the empty
|
||
|
tuple () of which at most one instance will be allocated.
|
||
|
*/
|
||
|
static PyTupleObject *free_tuples[MAXSAVESIZE];
|
||
|
static int num_free_tuples[MAXSAVESIZE];
|
||
|
#endif
|
||
|
#ifdef COUNT_ALLOCS
|
||
|
int fast_tuple_allocs;
|
||
|
int tuple_zero_allocs;
|
||
|
#endif
|
||
|
|
||
|
PyObject *
|
||
|
PyTuple_New(register int size)
|
||
|
{
|
||
|
register PyTupleObject *op;
|
||
|
if (size < 0) {
|
||
|
PyErr_BadInternalCall();
|
||
|
return NULL;
|
||
|
}
|
||
|
#if MAXSAVESIZE > 0
|
||
|
if (size == 0 && free_tuples[0]) {
|
||
|
op = free_tuples[0];
|
||
|
Py_INCREF(op);
|
||
|
#ifdef COUNT_ALLOCS
|
||
|
tuple_zero_allocs++;
|
||
|
#endif
|
||
|
return (PyObject *) op;
|
||
|
}
|
||
|
if (0 < size && size < MAXSAVESIZE &&
|
||
|
(op = free_tuples[size]) != NULL)
|
||
|
{
|
||
|
free_tuples[size] = (PyTupleObject *) op->ob_item[0];
|
||
|
num_free_tuples[size]--;
|
||
|
#ifdef COUNT_ALLOCS
|
||
|
fast_tuple_allocs++;
|
||
|
#endif
|
||
|
/* Inline PyObject_InitVar */
|
||
|
#ifdef Py_TRACE_REFS
|
||
|
op->ob_size = size;
|
||
|
op->ob_type = &PyTuple_Type;
|
||
|
#endif
|
||
|
_Py_NewReference((PyObject *)op);
|
||
|
}
|
||
|
else
|
||
|
#endif
|
||
|
{
|
||
|
int nbytes = size * sizeof(PyObject *);
|
||
|
/* Check for overflow */
|
||
|
if (nbytes / sizeof(PyObject *) != (size_t)size ||
|
||
|
(nbytes += sizeof(PyTupleObject) - sizeof(PyObject *))
|
||
|
<= 0)
|
||
|
{
|
||
|
return PyErr_NoMemory();
|
||
|
}
|
||
|
op = PyObject_GC_NewVar(PyTupleObject, &PyTuple_Type, size);
|
||
|
if (op == NULL)
|
||
|
return NULL;
|
||
|
}
|
||
|
memset(op->ob_item, 0, sizeof(*op->ob_item) * size);
|
||
|
#if MAXSAVESIZE > 0
|
||
|
if (size == 0) {
|
||
|
free_tuples[0] = op;
|
||
|
++num_free_tuples[0];
|
||
|
Py_INCREF(op); /* extra INCREF so that this is never freed */
|
||
|
}
|
||
|
#endif
|
||
|
_PyObject_GC_TRACK(op);
|
||
|
return (PyObject *) op;
|
||
|
}
|
||
|
|
||
|
int
|
||
|
PyTuple_Size(register PyObject *op)
|
||
|
{
|
||
|
if (!PyTuple_Check(op)) {
|
||
|
PyErr_BadInternalCall();
|
||
|
return -1;
|
||
|
}
|
||
|
else
|
||
|
return ((PyTupleObject *)op)->ob_size;
|
||
|
}
|
||
|
|
||
|
PyObject *
|
||
|
PyTuple_GetItem(register PyObject *op, register int i)
|
||
|
{
|
||
|
if (!PyTuple_Check(op)) {
|
||
|
PyErr_BadInternalCall();
|
||
|
return NULL;
|
||
|
}
|
||
|
if (i < 0 || i >= ((PyTupleObject *)op) -> ob_size) {
|
||
|
PyErr_SetString(PyExc_IndexError, "tuple index out of range");
|
||
|
return NULL;
|
||
|
}
|
||
|
return ((PyTupleObject *)op) -> ob_item[i];
|
||
|
}
|
||
|
|
||
|
int
|
||
|
PyTuple_SetItem(register PyObject *op, register int i, PyObject *newitem)
|
||
|
{
|
||
|
register PyObject *olditem;
|
||
|
register PyObject **p;
|
||
|
if (!PyTuple_Check(op) || op->ob_refcnt != 1) {
|
||
|
Py_XDECREF(newitem);
|
||
|
PyErr_BadInternalCall();
|
||
|
return -1;
|
||
|
}
|
||
|
if (i < 0 || i >= ((PyTupleObject *)op) -> ob_size) {
|
||
|
Py_XDECREF(newitem);
|
||
|
PyErr_SetString(PyExc_IndexError,
|
||
|
"tuple assignment index out of range");
|
||
|
return -1;
|
||
|
}
|
||
|
p = ((PyTupleObject *)op) -> ob_item + i;
|
||
|
olditem = *p;
|
||
|
*p = newitem;
|
||
|
Py_XDECREF(olditem);
|
||
|
return 0;
|
||
|
}
|
||
|
|
||
|
/* Methods */
|
||
|
|
||
|
static void
|
||
|
tupledealloc(register PyTupleObject *op)
|
||
|
{
|
||
|
register int i;
|
||
|
register int len = op->ob_size;
|
||
|
PyObject_GC_UnTrack(op);
|
||
|
Py_TRASHCAN_SAFE_BEGIN(op)
|
||
|
if (len > 0) {
|
||
|
i = len;
|
||
|
while (--i >= 0)
|
||
|
Py_XDECREF(op->ob_item[i]);
|
||
|
#if MAXSAVESIZE > 0
|
||
|
if (len < MAXSAVESIZE &&
|
||
|
num_free_tuples[len] < MAXSAVEDTUPLES &&
|
||
|
op->ob_type == &PyTuple_Type)
|
||
|
{
|
||
|
op->ob_item[0] = (PyObject *) free_tuples[len];
|
||
|
num_free_tuples[len]++;
|
||
|
free_tuples[len] = op;
|
||
|
goto done; /* return */
|
||
|
}
|
||
|
#endif
|
||
|
}
|
||
|
op->ob_type->tp_free((PyObject *)op);
|
||
|
done:
|
||
|
Py_TRASHCAN_SAFE_END(op)
|
||
|
}
|
||
|
|
||
|
static int
|
||
|
tupleprint(PyTupleObject *op, FILE *fp, int flags)
|
||
|
{
|
||
|
int i;
|
||
|
fprintf(fp, "(");
|
||
|
for (i = 0; i < op->ob_size; i++) {
|
||
|
if (i > 0)
|
||
|
fprintf(fp, ", ");
|
||
|
if (PyObject_Print(op->ob_item[i], fp, 0) != 0)
|
||
|
return -1;
|
||
|
}
|
||
|
if (op->ob_size == 1)
|
||
|
fprintf(fp, ",");
|
||
|
fprintf(fp, ")");
|
||
|
return 0;
|
||
|
}
|
||
|
|
||
|
static PyObject *
|
||
|
tuplerepr(PyTupleObject *v)
|
||
|
{
|
||
|
int i, n;
|
||
|
PyObject *s, *temp;
|
||
|
PyObject *pieces, *result = NULL;
|
||
|
|
||
|
n = v->ob_size;
|
||
|
if (n == 0)
|
||
|
return PyString_FromString("()");
|
||
|
|
||
|
pieces = PyTuple_New(n);
|
||
|
if (pieces == NULL)
|
||
|
return NULL;
|
||
|
|
||
|
/* Do repr() on each element. */
|
||
|
for (i = 0; i < n; ++i) {
|
||
|
s = PyObject_Repr(v->ob_item[i]);
|
||
|
if (s == NULL)
|
||
|
goto Done;
|
||
|
PyTuple_SET_ITEM(pieces, i, s);
|
||
|
}
|
||
|
|
||
|
/* Add "()" decorations to the first and last items. */
|
||
|
assert(n > 0);
|
||
|
s = PyString_FromString("(");
|
||
|
if (s == NULL)
|
||
|
goto Done;
|
||
|
temp = PyTuple_GET_ITEM(pieces, 0);
|
||
|
PyString_ConcatAndDel(&s, temp);
|
||
|
PyTuple_SET_ITEM(pieces, 0, s);
|
||
|
if (s == NULL)
|
||
|
goto Done;
|
||
|
|
||
|
s = PyString_FromString(n == 1 ? ",)" : ")");
|
||
|
if (s == NULL)
|
||
|
goto Done;
|
||
|
temp = PyTuple_GET_ITEM(pieces, n-1);
|
||
|
PyString_ConcatAndDel(&temp, s);
|
||
|
PyTuple_SET_ITEM(pieces, n-1, temp);
|
||
|
if (temp == NULL)
|
||
|
goto Done;
|
||
|
|
||
|
/* Paste them all together with ", " between. */
|
||
|
s = PyString_FromString(", ");
|
||
|
if (s == NULL)
|
||
|
goto Done;
|
||
|
result = _PyString_Join(s, pieces);
|
||
|
Py_DECREF(s);
|
||
|
|
||
|
Done:
|
||
|
Py_DECREF(pieces);
|
||
|
return result;
|
||
|
}
|
||
|
|
||
|
static long
|
||
|
tuplehash(PyTupleObject *v)
|
||
|
{
|
||
|
register long x, y;
|
||
|
register int len = v->ob_size;
|
||
|
register PyObject **p;
|
||
|
x = 0x345678L;
|
||
|
p = v->ob_item;
|
||
|
while (--len >= 0) {
|
||
|
y = PyObject_Hash(*p++);
|
||
|
if (y == -1)
|
||
|
return -1;
|
||
|
x = (1000003*x) ^ y;
|
||
|
}
|
||
|
x ^= v->ob_size;
|
||
|
if (x == -1)
|
||
|
x = -2;
|
||
|
return x;
|
||
|
}
|
||
|
|
||
|
static int
|
||
|
tuplelength(PyTupleObject *a)
|
||
|
{
|
||
|
return a->ob_size;
|
||
|
}
|
||
|
|
||
|
static int
|
||
|
tuplecontains(PyTupleObject *a, PyObject *el)
|
||
|
{
|
||
|
int i, cmp;
|
||
|
|
||
|
for (i = 0, cmp = 0 ; cmp == 0 && i < a->ob_size; ++i)
|
||
|
cmp = PyObject_RichCompareBool(el, PyTuple_GET_ITEM(a, i),
|
||
|
Py_EQ);
|
||
|
return cmp;
|
||
|
}
|
||
|
|
||
|
static PyObject *
|
||
|
tupleitem(register PyTupleObject *a, register int i)
|
||
|
{
|
||
|
if (i < 0 || i >= a->ob_size) {
|
||
|
PyErr_SetString(PyExc_IndexError, "tuple index out of range");
|
||
|
return NULL;
|
||
|
}
|
||
|
Py_INCREF(a->ob_item[i]);
|
||
|
return a->ob_item[i];
|
||
|
}
|
||
|
|
||
|
static PyObject *
|
||
|
tupleslice(register PyTupleObject *a, register int ilow, register int ihigh)
|
||
|
{
|
||
|
register PyTupleObject *np;
|
||
|
register int i;
|
||
|
if (ilow < 0)
|
||
|
ilow = 0;
|
||
|
if (ihigh > a->ob_size)
|
||
|
ihigh = a->ob_size;
|
||
|
if (ihigh < ilow)
|
||
|
ihigh = ilow;
|
||
|
if (ilow == 0 && ihigh == a->ob_size && PyTuple_CheckExact(a)) {
|
||
|
Py_INCREF(a);
|
||
|
return (PyObject *)a;
|
||
|
}
|
||
|
np = (PyTupleObject *)PyTuple_New(ihigh - ilow);
|
||
|
if (np == NULL)
|
||
|
return NULL;
|
||
|
for (i = ilow; i < ihigh; i++) {
|
||
|
PyObject *v = a->ob_item[i];
|
||
|
Py_INCREF(v);
|
||
|
np->ob_item[i - ilow] = v;
|
||
|
}
|
||
|
return (PyObject *)np;
|
||
|
}
|
||
|
|
||
|
PyObject *
|
||
|
PyTuple_GetSlice(PyObject *op, int i, int j)
|
||
|
{
|
||
|
if (op == NULL || !PyTuple_Check(op)) {
|
||
|
PyErr_BadInternalCall();
|
||
|
return NULL;
|
||
|
}
|
||
|
return tupleslice((PyTupleObject *)op, i, j);
|
||
|
}
|
||
|
|
||
|
static PyObject *
|
||
|
tupleconcat(register PyTupleObject *a, register PyObject *bb)
|
||
|
{
|
||
|
register int size;
|
||
|
register int i;
|
||
|
PyTupleObject *np;
|
||
|
if (!PyTuple_Check(bb)) {
|
||
|
PyErr_Format(PyExc_TypeError,
|
||
|
"can only concatenate tuple (not \"%.200s\") to tuple",
|
||
|
bb->ob_type->tp_name);
|
||
|
return NULL;
|
||
|
}
|
||
|
#define b ((PyTupleObject *)bb)
|
||
|
size = a->ob_size + b->ob_size;
|
||
|
if (size < 0)
|
||
|
return PyErr_NoMemory();
|
||
|
np = (PyTupleObject *) PyTuple_New(size);
|
||
|
if (np == NULL) {
|
||
|
return NULL;
|
||
|
}
|
||
|
for (i = 0; i < a->ob_size; i++) {
|
||
|
PyObject *v = a->ob_item[i];
|
||
|
Py_INCREF(v);
|
||
|
np->ob_item[i] = v;
|
||
|
}
|
||
|
for (i = 0; i < b->ob_size; i++) {
|
||
|
PyObject *v = b->ob_item[i];
|
||
|
Py_INCREF(v);
|
||
|
np->ob_item[i + a->ob_size] = v;
|
||
|
}
|
||
|
return (PyObject *)np;
|
||
|
#undef b
|
||
|
}
|
||
|
|
||
|
static PyObject *
|
||
|
tuplerepeat(PyTupleObject *a, int n)
|
||
|
{
|
||
|
int i, j;
|
||
|
int size;
|
||
|
PyTupleObject *np;
|
||
|
PyObject **p;
|
||
|
if (n < 0)
|
||
|
n = 0;
|
||
|
if (a->ob_size == 0 || n == 1) {
|
||
|
if (PyTuple_CheckExact(a)) {
|
||
|
/* Since tuples are immutable, we can return a shared
|
||
|
copy in this case */
|
||
|
Py_INCREF(a);
|
||
|
return (PyObject *)a;
|
||
|
}
|
||
|
if (a->ob_size == 0)
|
||
|
return PyTuple_New(0);
|
||
|
}
|
||
|
size = a->ob_size * n;
|
||
|
if (size/a->ob_size != n)
|
||
|
return PyErr_NoMemory();
|
||
|
np = (PyTupleObject *) PyTuple_New(size);
|
||
|
if (np == NULL)
|
||
|
return NULL;
|
||
|
p = np->ob_item;
|
||
|
for (i = 0; i < n; i++) {
|
||
|
for (j = 0; j < a->ob_size; j++) {
|
||
|
*p = a->ob_item[j];
|
||
|
Py_INCREF(*p);
|
||
|
p++;
|
||
|
}
|
||
|
}
|
||
|
return (PyObject *) np;
|
||
|
}
|
||
|
|
||
|
static int
|
||
|
tupletraverse(PyTupleObject *o, visitproc visit, void *arg)
|
||
|
{
|
||
|
int i, err;
|
||
|
PyObject *x;
|
||
|
|
||
|
for (i = o->ob_size; --i >= 0; ) {
|
||
|
x = o->ob_item[i];
|
||
|
if (x != NULL) {
|
||
|
err = visit(x, arg);
|
||
|
if (err)
|
||
|
return err;
|
||
|
}
|
||
|
}
|
||
|
return 0;
|
||
|
}
|
||
|
|
||
|
static PyObject *
|
||
|
tuplerichcompare(PyObject *v, PyObject *w, int op)
|
||
|
{
|
||
|
PyTupleObject *vt, *wt;
|
||
|
int i;
|
||
|
int vlen, wlen;
|
||
|
|
||
|
if (!PyTuple_Check(v) || !PyTuple_Check(w)) {
|
||
|
Py_INCREF(Py_NotImplemented);
|
||
|
return Py_NotImplemented;
|
||
|
}
|
||
|
|
||
|
vt = (PyTupleObject *)v;
|
||
|
wt = (PyTupleObject *)w;
|
||
|
|
||
|
vlen = vt->ob_size;
|
||
|
wlen = wt->ob_size;
|
||
|
|
||
|
/* Note: the corresponding code for lists has an "early out" test
|
||
|
* here when op is EQ or NE and the lengths differ. That pays there,
|
||
|
* but Tim was unable to find any real code where EQ/NE tuple
|
||
|
* compares don't have the same length, so testing for it here would
|
||
|
* have cost without benefit.
|
||
|
*/
|
||
|
|
||
|
/* Search for the first index where items are different.
|
||
|
* Note that because tuples are immutable, it's safe to reuse
|
||
|
* vlen and wlen across the comparison calls.
|
||
|
*/
|
||
|
for (i = 0; i < vlen && i < wlen; i++) {
|
||
|
int k = PyObject_RichCompareBool(vt->ob_item[i],
|
||
|
wt->ob_item[i], Py_EQ);
|
||
|
if (k < 0)
|
||
|
return NULL;
|
||
|
if (!k)
|
||
|
break;
|
||
|
}
|
||
|
|
||
|
if (i >= vlen || i >= wlen) {
|
||
|
/* No more items to compare -- compare sizes */
|
||
|
int cmp;
|
||
|
PyObject *res;
|
||
|
switch (op) {
|
||
|
case Py_LT: cmp = vlen < wlen; break;
|
||
|
case Py_LE: cmp = vlen <= wlen; break;
|
||
|
case Py_EQ: cmp = vlen == wlen; break;
|
||
|
case Py_NE: cmp = vlen != wlen; break;
|
||
|
case Py_GT: cmp = vlen > wlen; break;
|
||
|
case Py_GE: cmp = vlen >= wlen; break;
|
||
|
default: return NULL; /* cannot happen */
|
||
|
}
|
||
|
if (cmp)
|
||
|
res = Py_True;
|
||
|
else
|
||
|
res = Py_False;
|
||
|
Py_INCREF(res);
|
||
|
return res;
|
||
|
}
|
||
|
|
||
|
/* We have an item that differs -- shortcuts for EQ/NE */
|
||
|
if (op == Py_EQ) {
|
||
|
Py_INCREF(Py_False);
|
||
|
return Py_False;
|
||
|
}
|
||
|
if (op == Py_NE) {
|
||
|
Py_INCREF(Py_True);
|
||
|
return Py_True;
|
||
|
}
|
||
|
|
||
|
/* Compare the final item again using the proper operator */
|
||
|
return PyObject_RichCompare(vt->ob_item[i], wt->ob_item[i], op);
|
||
|
}
|
||
|
|
||
|
static PyObject *
|
||
|
tuple_subtype_new(PyTypeObject *type, PyObject *args, PyObject *kwds);
|
||
|
|
||
|
static PyObject *
|
||
|
tuple_new(PyTypeObject *type, PyObject *args, PyObject *kwds)
|
||
|
{
|
||
|
PyObject *arg = NULL;
|
||
|
static char *kwlist[] = {"sequence", 0};
|
||
|
|
||
|
if (type != &PyTuple_Type)
|
||
|
return tuple_subtype_new(type, args, kwds);
|
||
|
if (!PyArg_ParseTupleAndKeywords(args, kwds, "|O:tuple", kwlist, &arg))
|
||
|
return NULL;
|
||
|
|
||
|
if (arg == NULL)
|
||
|
return PyTuple_New(0);
|
||
|
else
|
||
|
return PySequence_Tuple(arg);
|
||
|
}
|
||
|
|
||
|
static PyObject *
|
||
|
tuple_subtype_new(PyTypeObject *type, PyObject *args, PyObject *kwds)
|
||
|
{
|
||
|
PyObject *tmp, *new, *item;
|
||
|
int i, n;
|
||
|
|
||
|
assert(PyType_IsSubtype(type, &PyTuple_Type));
|
||
|
tmp = tuple_new(&PyTuple_Type, args, kwds);
|
||
|
if (tmp == NULL)
|
||
|
return NULL;
|
||
|
assert(PyTuple_Check(tmp));
|
||
|
new = type->tp_alloc(type, n = PyTuple_GET_SIZE(tmp));
|
||
|
if (new == NULL)
|
||
|
return NULL;
|
||
|
for (i = 0; i < n; i++) {
|
||
|
item = PyTuple_GET_ITEM(tmp, i);
|
||
|
Py_INCREF(item);
|
||
|
PyTuple_SET_ITEM(new, i, item);
|
||
|
}
|
||
|
Py_DECREF(tmp);
|
||
|
return new;
|
||
|
}
|
||
|
|
||
|
PyDoc_STRVAR(tuple_doc,
|
||
|
"tuple() -> an empty tuple\n"
|
||
|
"tuple(sequence) -> tuple initialized from sequence's items\n"
|
||
|
"\n"
|
||
|
"If the argument is a tuple, the return value is the same object.");
|
||
|
|
||
|
static PySequenceMethods tuple_as_sequence = {
|
||
|
(inquiry)tuplelength, /* sq_length */
|
||
|
(binaryfunc)tupleconcat, /* sq_concat */
|
||
|
(intargfunc)tuplerepeat, /* sq_repeat */
|
||
|
(intargfunc)tupleitem, /* sq_item */
|
||
|
(intintargfunc)tupleslice, /* sq_slice */
|
||
|
0, /* sq_ass_item */
|
||
|
0, /* sq_ass_slice */
|
||
|
(objobjproc)tuplecontains, /* sq_contains */
|
||
|
};
|
||
|
|
||
|
static PyObject*
|
||
|
tuplesubscript(PyTupleObject* self, PyObject* item)
|
||
|
{
|
||
|
if (PyInt_Check(item)) {
|
||
|
long i = PyInt_AS_LONG(item);
|
||
|
if (i < 0)
|
||
|
i += PyTuple_GET_SIZE(self);
|
||
|
return tupleitem(self, i);
|
||
|
}
|
||
|
else if (PyLong_Check(item)) {
|
||
|
long i = PyLong_AsLong(item);
|
||
|
if (i == -1 && PyErr_Occurred())
|
||
|
return NULL;
|
||
|
if (i < 0)
|
||
|
i += PyTuple_GET_SIZE(self);
|
||
|
return tupleitem(self, i);
|
||
|
}
|
||
|
else if (PySlice_Check(item)) {
|
||
|
int start, stop, step, slicelength, cur, i;
|
||
|
PyObject* result;
|
||
|
PyObject* it;
|
||
|
|
||
|
if (PySlice_GetIndicesEx((PySliceObject*)item,
|
||
|
PyTuple_GET_SIZE(self),
|
||
|
&start, &stop, &step, &slicelength) < 0) {
|
||
|
return NULL;
|
||
|
}
|
||
|
|
||
|
if (slicelength <= 0) {
|
||
|
return PyTuple_New(0);
|
||
|
}
|
||
|
else {
|
||
|
result = PyTuple_New(slicelength);
|
||
|
|
||
|
for (cur = start, i = 0; i < slicelength;
|
||
|
cur += step, i++) {
|
||
|
it = PyTuple_GET_ITEM(self, cur);
|
||
|
Py_INCREF(it);
|
||
|
PyTuple_SET_ITEM(result, i, it);
|
||
|
}
|
||
|
|
||
|
return result;
|
||
|
}
|
||
|
}
|
||
|
else {
|
||
|
PyErr_SetString(PyExc_TypeError,
|
||
|
"tuple indices must be integers");
|
||
|
return NULL;
|
||
|
}
|
||
|
}
|
||
|
|
||
|
static PyObject *
|
||
|
tuple_getnewargs(PyTupleObject *v)
|
||
|
{
|
||
|
return Py_BuildValue("(N)", tupleslice(v, 0, v->ob_size));
|
||
|
|
||
|
}
|
||
|
|
||
|
static PyMethodDef tuple_methods[] = {
|
||
|
{"__getnewargs__", (PyCFunction)tuple_getnewargs, METH_NOARGS},
|
||
|
{NULL, NULL} /* sentinel */
|
||
|
};
|
||
|
|
||
|
static PyMappingMethods tuple_as_mapping = {
|
||
|
(inquiry)tuplelength,
|
||
|
(binaryfunc)tuplesubscript,
|
||
|
0
|
||
|
};
|
||
|
|
||
|
static PyObject *tuple_iter(PyObject *seq);
|
||
|
|
||
|
PyTypeObject PyTuple_Type = {
|
||
|
PyObject_HEAD_INIT(&PyType_Type)
|
||
|
0,
|
||
|
"tuple",
|
||
|
sizeof(PyTupleObject) - sizeof(PyObject *),
|
||
|
sizeof(PyObject *),
|
||
|
(destructor)tupledealloc, /* tp_dealloc */
|
||
|
(printfunc)tupleprint, /* tp_print */
|
||
|
0, /* tp_getattr */
|
||
|
0, /* tp_setattr */
|
||
|
0, /* tp_compare */
|
||
|
(reprfunc)tuplerepr, /* tp_repr */
|
||
|
0, /* tp_as_number */
|
||
|
&tuple_as_sequence, /* tp_as_sequence */
|
||
|
&tuple_as_mapping, /* tp_as_mapping */
|
||
|
(hashfunc)tuplehash, /* tp_hash */
|
||
|
0, /* tp_call */
|
||
|
0, /* tp_str */
|
||
|
PyObject_GenericGetAttr, /* tp_getattro */
|
||
|
0, /* tp_setattro */
|
||
|
0, /* tp_as_buffer */
|
||
|
Py_TPFLAGS_DEFAULT | Py_TPFLAGS_HAVE_GC |
|
||
|
Py_TPFLAGS_BASETYPE, /* tp_flags */
|
||
|
tuple_doc, /* tp_doc */
|
||
|
(traverseproc)tupletraverse, /* tp_traverse */
|
||
|
0, /* tp_clear */
|
||
|
tuplerichcompare, /* tp_richcompare */
|
||
|
0, /* tp_weaklistoffset */
|
||
|
tuple_iter, /* tp_iter */
|
||
|
0, /* tp_iternext */
|
||
|
tuple_methods, /* 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 */
|
||
|
tuple_new, /* tp_new */
|
||
|
PyObject_GC_Del, /* tp_free */
|
||
|
};
|
||
|
|
||
|
/* The following function breaks the notion that tuples are immutable:
|
||
|
it changes the size of a tuple. We get away with this only if there
|
||
|
is only one module referencing the object. You can also think of it
|
||
|
as creating a new tuple object and destroying the old one, only more
|
||
|
efficiently. In any case, don't use this if the tuple may already be
|
||
|
known to some other part of the code. */
|
||
|
|
||
|
int
|
||
|
_PyTuple_Resize(PyObject **pv, int newsize)
|
||
|
{
|
||
|
register PyTupleObject *v;
|
||
|
register PyTupleObject *sv;
|
||
|
int i;
|
||
|
int oldsize;
|
||
|
|
||
|
v = (PyTupleObject *) *pv;
|
||
|
if (v == NULL || v->ob_type != &PyTuple_Type ||
|
||
|
(v->ob_size != 0 && v->ob_refcnt != 1)) {
|
||
|
*pv = 0;
|
||
|
Py_XDECREF(v);
|
||
|
PyErr_BadInternalCall();
|
||
|
return -1;
|
||
|
}
|
||
|
oldsize = v->ob_size;
|
||
|
if (oldsize == newsize)
|
||
|
return 0;
|
||
|
|
||
|
if (oldsize == 0) {
|
||
|
/* Empty tuples are often shared, so we should never
|
||
|
resize them in-place even if we do own the only
|
||
|
(current) reference */
|
||
|
Py_DECREF(v);
|
||
|
*pv = PyTuple_New(newsize);
|
||
|
return *pv == NULL ? -1 : 0;
|
||
|
}
|
||
|
|
||
|
/* XXX UNREF/NEWREF interface should be more symmetrical */
|
||
|
_Py_DEC_REFTOTAL;
|
||
|
_PyObject_GC_UNTRACK(v);
|
||
|
_Py_ForgetReference((PyObject *) v);
|
||
|
/* DECREF items deleted by shrinkage */
|
||
|
for (i = newsize; i < oldsize; i++) {
|
||
|
Py_XDECREF(v->ob_item[i]);
|
||
|
v->ob_item[i] = NULL;
|
||
|
}
|
||
|
sv = PyObject_GC_Resize(PyTupleObject, v, newsize);
|
||
|
if (sv == NULL) {
|
||
|
*pv = NULL;
|
||
|
PyObject_GC_Del(v);
|
||
|
return -1;
|
||
|
}
|
||
|
_Py_NewReference((PyObject *) sv);
|
||
|
/* Zero out items added by growing */
|
||
|
if (newsize > oldsize)
|
||
|
memset(&sv->ob_item[oldsize], 0,
|
||
|
sizeof(*sv->ob_item) * (newsize - oldsize));
|
||
|
*pv = (PyObject *) sv;
|
||
|
_PyObject_GC_TRACK(sv);
|
||
|
return 0;
|
||
|
}
|
||
|
|
||
|
void
|
||
|
PyTuple_Fini(void)
|
||
|
{
|
||
|
#if MAXSAVESIZE > 0
|
||
|
int i;
|
||
|
|
||
|
Py_XDECREF(free_tuples[0]);
|
||
|
free_tuples[0] = NULL;
|
||
|
|
||
|
for (i = 1; i < MAXSAVESIZE; i++) {
|
||
|
PyTupleObject *p, *q;
|
||
|
p = free_tuples[i];
|
||
|
free_tuples[i] = NULL;
|
||
|
while (p) {
|
||
|
q = p;
|
||
|
p = (PyTupleObject *)(p->ob_item[0]);
|
||
|
PyObject_GC_Del(q);
|
||
|
}
|
||
|
}
|
||
|
#endif
|
||
|
}
|
||
|
|
||
|
/*********************** Tuple Iterator **************************/
|
||
|
|
||
|
typedef struct {
|
||
|
PyObject_HEAD
|
||
|
long it_index;
|
||
|
PyTupleObject *it_seq; /* Set to NULL when iterator is exhausted */
|
||
|
} tupleiterobject;
|
||
|
|
||
|
PyTypeObject PyTupleIter_Type;
|
||
|
|
||
|
static PyObject *
|
||
|
tuple_iter(PyObject *seq)
|
||
|
{
|
||
|
tupleiterobject *it;
|
||
|
|
||
|
if (!PyTuple_Check(seq)) {
|
||
|
PyErr_BadInternalCall();
|
||
|
return NULL;
|
||
|
}
|
||
|
it = PyObject_GC_New(tupleiterobject, &PyTupleIter_Type);
|
||
|
if (it == NULL)
|
||
|
return NULL;
|
||
|
it->it_index = 0;
|
||
|
Py_INCREF(seq);
|
||
|
it->it_seq = (PyTupleObject *)seq;
|
||
|
_PyObject_GC_TRACK(it);
|
||
|
return (PyObject *)it;
|
||
|
}
|
||
|
|
||
|
static void
|
||
|
tupleiter_dealloc(tupleiterobject *it)
|
||
|
{
|
||
|
_PyObject_GC_UNTRACK(it);
|
||
|
Py_XDECREF(it->it_seq);
|
||
|
PyObject_GC_Del(it);
|
||
|
}
|
||
|
|
||
|
static int
|
||
|
tupleiter_traverse(tupleiterobject *it, visitproc visit, void *arg)
|
||
|
{
|
||
|
if (it->it_seq == NULL)
|
||
|
return 0;
|
||
|
return visit((PyObject *)it->it_seq, arg);
|
||
|
}
|
||
|
|
||
|
static PyObject *
|
||
|
tupleiter_next(tupleiterobject *it)
|
||
|
{
|
||
|
PyTupleObject *seq;
|
||
|
PyObject *item;
|
||
|
|
||
|
assert(it != NULL);
|
||
|
seq = it->it_seq;
|
||
|
if (seq == NULL)
|
||
|
return NULL;
|
||
|
assert(PyTuple_Check(seq));
|
||
|
|
||
|
if (it->it_index < PyTuple_GET_SIZE(seq)) {
|
||
|
item = PyTuple_GET_ITEM(seq, it->it_index);
|
||
|
++it->it_index;
|
||
|
Py_INCREF(item);
|
||
|
return item;
|
||
|
}
|
||
|
|
||
|
Py_DECREF(seq);
|
||
|
it->it_seq = NULL;
|
||
|
return NULL;
|
||
|
}
|
||
|
|
||
|
PyTypeObject PyTupleIter_Type = {
|
||
|
PyObject_HEAD_INIT(&PyType_Type)
|
||
|
0, /* ob_size */
|
||
|
"tupleiterator", /* tp_name */
|
||
|
sizeof(tupleiterobject), /* tp_basicsize */
|
||
|
0, /* tp_itemsize */
|
||
|
/* methods */
|
||
|
(destructor)tupleiter_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 */
|
||
|
0, /* 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 */
|
||
|
0, /* tp_doc */
|
||
|
(traverseproc)tupleiter_traverse, /* tp_traverse */
|
||
|
0, /* tp_clear */
|
||
|
0, /* tp_richcompare */
|
||
|
0, /* tp_weaklistoffset */
|
||
|
PyObject_SelfIter, /* tp_iter */
|
||
|
(iternextfunc)tupleiter_next, /* tp_iternext */
|
||
|
};
|