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.
836 lines
19 KiB
836 lines
19 KiB
|
|
/* 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 */ |
|
};
|
|
|