1993-02-19 15:55:02 +00:00
|
|
|
/***********************************************************
|
1995-01-04 19:10:35 +00:00
|
|
|
Copyright 1991-1995 by Stichting Mathematisch Centrum, Amsterdam,
|
|
|
|
The Netherlands.
|
1993-02-19 15:55:02 +00:00
|
|
|
|
|
|
|
All Rights Reserved
|
|
|
|
|
1996-10-25 14:44:06 +00:00
|
|
|
Permission to use, copy, modify, and distribute this software and its
|
|
|
|
documentation for any purpose and without fee is hereby granted,
|
1993-02-19 15:55:02 +00:00
|
|
|
provided that the above copyright notice appear in all copies and that
|
1996-10-25 14:44:06 +00:00
|
|
|
both that copyright notice and this permission notice appear in
|
1993-02-19 15:55:02 +00:00
|
|
|
supporting documentation, and that the names of Stichting Mathematisch
|
1996-10-25 14:44:06 +00:00
|
|
|
Centrum or CWI or Corporation for National Research Initiatives or
|
|
|
|
CNRI not be used in advertising or publicity pertaining to
|
|
|
|
distribution of the software without specific, written prior
|
|
|
|
permission.
|
|
|
|
|
|
|
|
While CWI is the initial source for this software, a modified version
|
|
|
|
is made available by the Corporation for National Research Initiatives
|
|
|
|
(CNRI) at the Internet address ftp://ftp.python.org.
|
|
|
|
|
|
|
|
STICHTING MATHEMATISCH CENTRUM AND CNRI DISCLAIM ALL WARRANTIES WITH
|
|
|
|
REGARD TO THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF
|
|
|
|
MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL STICHTING MATHEMATISCH
|
|
|
|
CENTRUM OR CNRI BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL
|
|
|
|
DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR
|
|
|
|
PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER
|
|
|
|
TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
|
|
|
|
PERFORMANCE OF THIS SOFTWARE.
|
1993-02-19 15:55:02 +00:00
|
|
|
|
|
|
|
******************************************************************/
|
|
|
|
|
|
|
|
/* Array object implementation */
|
|
|
|
|
|
|
|
/* An array is a uniform list -- all items have the same type.
|
|
|
|
The item type is restricted to simple C types like int or float */
|
|
|
|
|
1996-12-09 20:10:36 +00:00
|
|
|
#include "Python.h"
|
1996-12-09 22:24:19 +00:00
|
|
|
|
1994-08-19 12:01:32 +00:00
|
|
|
#ifdef STDC_HEADERS
|
|
|
|
#include <stddef.h>
|
1999-08-27 20:33:52 +00:00
|
|
|
#else /* !STDC_HEADERS */
|
|
|
|
#ifndef DONT_HAVE_SYS_TYPES_H
|
1994-08-01 11:34:53 +00:00
|
|
|
#include <sys/types.h> /* For size_t */
|
1999-08-27 20:33:52 +00:00
|
|
|
#endif /* DONT_HAVE_SYS_TYPES_H */
|
|
|
|
#endif /* !STDC_HEADERS */
|
1993-02-19 15:55:02 +00:00
|
|
|
|
|
|
|
struct arrayobject; /* Forward */
|
|
|
|
|
|
|
|
struct arraydescr {
|
|
|
|
int typecode;
|
|
|
|
int itemsize;
|
1996-12-09 20:10:36 +00:00
|
|
|
PyObject * (*getitem) Py_FPROTO((struct arrayobject *, int));
|
|
|
|
int (*setitem) Py_FPROTO((struct arrayobject *, int, PyObject *));
|
1993-02-19 15:55:02 +00:00
|
|
|
};
|
|
|
|
|
|
|
|
typedef struct arrayobject {
|
1996-12-09 20:10:36 +00:00
|
|
|
PyObject_VAR_HEAD
|
1993-02-19 15:55:02 +00:00
|
|
|
char *ob_item;
|
|
|
|
struct arraydescr *ob_descr;
|
|
|
|
} arrayobject;
|
|
|
|
|
1996-12-09 20:10:36 +00:00
|
|
|
staticforward PyTypeObject Arraytype;
|
1993-02-19 15:55:02 +00:00
|
|
|
|
|
|
|
#define is_arrayobject(op) ((op)->ob_type == &Arraytype)
|
|
|
|
|
1993-11-01 16:28:59 +00:00
|
|
|
/* Forward */
|
1996-12-09 20:10:36 +00:00
|
|
|
static PyObject *newarrayobject Py_PROTO((int, struct arraydescr *));
|
1996-12-05 23:43:35 +00:00
|
|
|
#if 0
|
1996-12-09 20:10:36 +00:00
|
|
|
static int getarraysize Py_PROTO((PyObject *));
|
1996-12-05 23:43:35 +00:00
|
|
|
#endif
|
1996-12-09 20:10:36 +00:00
|
|
|
static PyObject *getarrayitem Py_PROTO((PyObject *, int));
|
|
|
|
static int setarrayitem Py_PROTO((PyObject *, int, PyObject *));
|
1996-12-05 23:43:35 +00:00
|
|
|
#if 0
|
1996-12-09 20:10:36 +00:00
|
|
|
static int insarrayitem Py_PROTO((PyObject *, int, PyObject *));
|
|
|
|
static int addarrayitem Py_PROTO((PyObject *, PyObject *));
|
1996-12-05 23:43:35 +00:00
|
|
|
#endif
|
1993-02-19 15:55:02 +00:00
|
|
|
|
1996-12-09 20:10:36 +00:00
|
|
|
static PyObject *
|
1993-02-19 15:55:02 +00:00
|
|
|
c_getitem(ap, i)
|
|
|
|
arrayobject *ap;
|
|
|
|
int i;
|
|
|
|
{
|
1996-12-09 20:10:36 +00:00
|
|
|
return PyString_FromStringAndSize(&((char *)ap->ob_item)[i], 1);
|
1993-02-19 15:55:02 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
static int
|
|
|
|
c_setitem(ap, i, v)
|
|
|
|
arrayobject *ap;
|
|
|
|
int i;
|
1996-12-09 20:10:36 +00:00
|
|
|
PyObject *v;
|
1993-02-19 15:55:02 +00:00
|
|
|
{
|
|
|
|
char x;
|
1996-12-09 20:10:36 +00:00
|
|
|
if (!PyArg_Parse(v, "c;array item must be char", &x))
|
1993-02-19 15:55:02 +00:00
|
|
|
return -1;
|
|
|
|
if (i >= 0)
|
|
|
|
((char *)ap->ob_item)[i] = x;
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
1996-12-09 20:10:36 +00:00
|
|
|
static PyObject *
|
1993-02-19 15:55:02 +00:00
|
|
|
b_getitem(ap, i)
|
|
|
|
arrayobject *ap;
|
|
|
|
int i;
|
|
|
|
{
|
|
|
|
long x = ((char *)ap->ob_item)[i];
|
|
|
|
if (x >= 128)
|
|
|
|
x -= 256;
|
1996-12-09 20:10:36 +00:00
|
|
|
return PyInt_FromLong(x);
|
1993-02-19 15:55:02 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
static int
|
|
|
|
b_setitem(ap, i, v)
|
|
|
|
arrayobject *ap;
|
|
|
|
int i;
|
1996-12-09 20:10:36 +00:00
|
|
|
PyObject *v;
|
1993-02-19 15:55:02 +00:00
|
|
|
{
|
|
|
|
char x;
|
1996-12-09 20:10:36 +00:00
|
|
|
if (!PyArg_Parse(v, "b;array item must be integer", &x))
|
1993-02-19 15:55:02 +00:00
|
|
|
return -1;
|
|
|
|
if (i >= 0)
|
|
|
|
((char *)ap->ob_item)[i] = x;
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
1997-01-03 19:09:47 +00:00
|
|
|
static PyObject *
|
1997-05-16 16:21:38 +00:00
|
|
|
BB_getitem(ap, i)
|
1997-01-03 19:09:47 +00:00
|
|
|
arrayobject *ap;
|
|
|
|
int i;
|
|
|
|
{
|
|
|
|
long x = ((unsigned char *)ap->ob_item)[i];
|
|
|
|
return PyInt_FromLong(x);
|
|
|
|
}
|
|
|
|
|
1997-05-16 16:21:38 +00:00
|
|
|
#define BB_setitem b_setitem
|
1997-01-03 19:09:47 +00:00
|
|
|
|
1996-12-09 20:10:36 +00:00
|
|
|
static PyObject *
|
1993-02-19 15:55:02 +00:00
|
|
|
h_getitem(ap, i)
|
|
|
|
arrayobject *ap;
|
|
|
|
int i;
|
|
|
|
{
|
1996-12-09 20:10:36 +00:00
|
|
|
return PyInt_FromLong((long) ((short *)ap->ob_item)[i]);
|
1993-02-19 15:55:02 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
static int
|
|
|
|
h_setitem(ap, i, v)
|
|
|
|
arrayobject *ap;
|
|
|
|
int i;
|
1996-12-09 20:10:36 +00:00
|
|
|
PyObject *v;
|
1993-02-19 15:55:02 +00:00
|
|
|
{
|
|
|
|
short x;
|
1996-12-09 20:10:36 +00:00
|
|
|
if (!PyArg_Parse(v, "h;array item must be integer", &x))
|
1993-02-19 15:55:02 +00:00
|
|
|
return -1;
|
|
|
|
if (i >= 0)
|
|
|
|
((short *)ap->ob_item)[i] = x;
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
1997-01-03 19:09:47 +00:00
|
|
|
static PyObject *
|
1997-05-16 16:21:38 +00:00
|
|
|
HH_getitem(ap, i)
|
1997-01-03 19:09:47 +00:00
|
|
|
arrayobject *ap;
|
|
|
|
int i;
|
|
|
|
{
|
|
|
|
return PyInt_FromLong((long) ((unsigned short *)ap->ob_item)[i]);
|
|
|
|
}
|
|
|
|
|
1997-05-16 16:21:38 +00:00
|
|
|
#define HH_setitem h_setitem
|
1997-01-03 19:09:47 +00:00
|
|
|
|
1996-12-09 20:10:36 +00:00
|
|
|
static PyObject *
|
1993-11-03 15:01:26 +00:00
|
|
|
i_getitem(ap, i)
|
|
|
|
arrayobject *ap;
|
|
|
|
int i;
|
|
|
|
{
|
1996-12-09 20:10:36 +00:00
|
|
|
return PyInt_FromLong((long) ((int *)ap->ob_item)[i]);
|
1993-11-03 15:01:26 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
static int
|
|
|
|
i_setitem(ap, i, v)
|
|
|
|
arrayobject *ap;
|
|
|
|
int i;
|
1996-12-09 20:10:36 +00:00
|
|
|
PyObject *v;
|
1993-11-03 15:01:26 +00:00
|
|
|
{
|
|
|
|
int x;
|
1996-12-09 20:10:36 +00:00
|
|
|
if (!PyArg_Parse(v, "i;array item must be integer", &x))
|
1993-11-03 15:01:26 +00:00
|
|
|
return -1;
|
|
|
|
if (i >= 0)
|
|
|
|
((int *)ap->ob_item)[i] = x;
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
1997-01-03 19:09:47 +00:00
|
|
|
static PyObject *
|
1997-05-16 16:21:38 +00:00
|
|
|
II_getitem(ap, i)
|
1997-01-03 19:09:47 +00:00
|
|
|
arrayobject *ap;
|
|
|
|
int i;
|
|
|
|
{
|
|
|
|
return PyLong_FromUnsignedLong(
|
|
|
|
(unsigned long) ((unsigned int *)ap->ob_item)[i]);
|
|
|
|
}
|
|
|
|
|
|
|
|
static int
|
1997-05-16 16:21:38 +00:00
|
|
|
II_setitem(ap, i, v)
|
1997-01-03 19:09:47 +00:00
|
|
|
arrayobject *ap;
|
|
|
|
int i;
|
|
|
|
PyObject *v;
|
|
|
|
{
|
|
|
|
unsigned long x;
|
|
|
|
if (PyLong_Check(v)) {
|
|
|
|
x = PyLong_AsUnsignedLong(v);
|
|
|
|
if (x == (unsigned long) -1 && PyErr_Occurred())
|
|
|
|
return -1;
|
|
|
|
}
|
|
|
|
else {
|
|
|
|
if (!PyArg_Parse(v, "l;array item must be integer", &x))
|
|
|
|
return -1;
|
|
|
|
}
|
|
|
|
if (i >= 0)
|
|
|
|
((unsigned int *)ap->ob_item)[i] = x;
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
1996-12-09 20:10:36 +00:00
|
|
|
static PyObject *
|
1993-02-19 15:55:02 +00:00
|
|
|
l_getitem(ap, i)
|
|
|
|
arrayobject *ap;
|
|
|
|
int i;
|
|
|
|
{
|
1996-12-09 20:10:36 +00:00
|
|
|
return PyInt_FromLong(((long *)ap->ob_item)[i]);
|
1993-02-19 15:55:02 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
static int
|
|
|
|
l_setitem(ap, i, v)
|
|
|
|
arrayobject *ap;
|
|
|
|
int i;
|
1996-12-09 20:10:36 +00:00
|
|
|
PyObject *v;
|
1993-02-19 15:55:02 +00:00
|
|
|
{
|
|
|
|
long x;
|
1996-12-09 20:10:36 +00:00
|
|
|
if (!PyArg_Parse(v, "l;array item must be integer", &x))
|
1993-02-19 15:55:02 +00:00
|
|
|
return -1;
|
|
|
|
if (i >= 0)
|
|
|
|
((long *)ap->ob_item)[i] = x;
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
1997-01-03 19:09:47 +00:00
|
|
|
static PyObject *
|
1997-05-16 16:21:38 +00:00
|
|
|
LL_getitem(ap, i)
|
1997-01-03 19:09:47 +00:00
|
|
|
arrayobject *ap;
|
|
|
|
int i;
|
|
|
|
{
|
|
|
|
return PyLong_FromUnsignedLong(((unsigned long *)ap->ob_item)[i]);
|
|
|
|
}
|
|
|
|
|
|
|
|
static int
|
1997-05-16 16:21:38 +00:00
|
|
|
LL_setitem(ap, i, v)
|
1997-01-03 19:09:47 +00:00
|
|
|
arrayobject *ap;
|
|
|
|
int i;
|
|
|
|
PyObject *v;
|
|
|
|
{
|
|
|
|
unsigned long x;
|
|
|
|
if (PyLong_Check(v)) {
|
|
|
|
x = PyLong_AsUnsignedLong(v);
|
|
|
|
if (x == (unsigned long) -1 && PyErr_Occurred())
|
|
|
|
return -1;
|
|
|
|
}
|
|
|
|
else {
|
|
|
|
if (!PyArg_Parse(v, "l;array item must be integer", &x))
|
|
|
|
return -1;
|
|
|
|
}
|
|
|
|
if (i >= 0)
|
|
|
|
((unsigned long *)ap->ob_item)[i] = x;
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
1996-12-09 20:10:36 +00:00
|
|
|
static PyObject *
|
1993-02-19 15:55:02 +00:00
|
|
|
f_getitem(ap, i)
|
|
|
|
arrayobject *ap;
|
|
|
|
int i;
|
|
|
|
{
|
1996-12-09 20:10:36 +00:00
|
|
|
return PyFloat_FromDouble((double) ((float *)ap->ob_item)[i]);
|
1993-02-19 15:55:02 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
static int
|
|
|
|
f_setitem(ap, i, v)
|
|
|
|
arrayobject *ap;
|
|
|
|
int i;
|
1996-12-09 20:10:36 +00:00
|
|
|
PyObject *v;
|
1993-02-19 15:55:02 +00:00
|
|
|
{
|
|
|
|
float x;
|
1996-12-09 20:10:36 +00:00
|
|
|
if (!PyArg_Parse(v, "f;array item must be float", &x))
|
1993-02-19 15:55:02 +00:00
|
|
|
return -1;
|
|
|
|
if (i >= 0)
|
|
|
|
((float *)ap->ob_item)[i] = x;
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
1996-12-09 20:10:36 +00:00
|
|
|
static PyObject *
|
1993-02-19 15:55:02 +00:00
|
|
|
d_getitem(ap, i)
|
|
|
|
arrayobject *ap;
|
|
|
|
int i;
|
|
|
|
{
|
1996-12-09 20:10:36 +00:00
|
|
|
return PyFloat_FromDouble(((double *)ap->ob_item)[i]);
|
1993-02-19 15:55:02 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
static int
|
|
|
|
d_setitem(ap, i, v)
|
|
|
|
arrayobject *ap;
|
|
|
|
int i;
|
1996-12-09 20:10:36 +00:00
|
|
|
PyObject *v;
|
1993-02-19 15:55:02 +00:00
|
|
|
{
|
|
|
|
double x;
|
1996-12-09 20:10:36 +00:00
|
|
|
if (!PyArg_Parse(v, "d;array item must be float", &x))
|
1993-02-19 15:55:02 +00:00
|
|
|
return -1;
|
|
|
|
if (i >= 0)
|
|
|
|
((double *)ap->ob_item)[i] = x;
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Description of types */
|
1993-06-17 12:35:49 +00:00
|
|
|
static struct arraydescr descriptors[] = {
|
1993-02-19 15:55:02 +00:00
|
|
|
{'c', sizeof(char), c_getitem, c_setitem},
|
|
|
|
{'b', sizeof(char), b_getitem, b_setitem},
|
1997-05-16 16:21:38 +00:00
|
|
|
{'B', sizeof(char), BB_getitem, BB_setitem},
|
1993-02-19 15:55:02 +00:00
|
|
|
{'h', sizeof(short), h_getitem, h_setitem},
|
1997-05-16 16:21:38 +00:00
|
|
|
{'H', sizeof(short), HH_getitem, HH_setitem},
|
1993-11-03 15:01:26 +00:00
|
|
|
{'i', sizeof(int), i_getitem, i_setitem},
|
1997-05-16 16:21:38 +00:00
|
|
|
{'I', sizeof(int), II_getitem, II_setitem},
|
1993-02-19 15:55:02 +00:00
|
|
|
{'l', sizeof(long), l_getitem, l_setitem},
|
1997-05-16 16:21:38 +00:00
|
|
|
{'L', sizeof(long), LL_getitem, LL_setitem},
|
1993-02-19 15:55:02 +00:00
|
|
|
{'f', sizeof(float), f_getitem, f_setitem},
|
|
|
|
{'d', sizeof(double), d_getitem, d_setitem},
|
|
|
|
{'\0', 0, 0, 0} /* Sentinel */
|
|
|
|
};
|
1993-11-03 15:01:26 +00:00
|
|
|
/* If we ever allow items larger than double, we must change reverse()! */
|
1993-02-19 15:55:02 +00:00
|
|
|
|
|
|
|
|
1996-12-09 20:10:36 +00:00
|
|
|
static PyObject *
|
1993-02-19 15:55:02 +00:00
|
|
|
newarrayobject(size, descr)
|
|
|
|
int size;
|
|
|
|
struct arraydescr *descr;
|
|
|
|
{
|
|
|
|
arrayobject *op;
|
1994-08-01 11:34:53 +00:00
|
|
|
size_t nbytes;
|
1993-02-19 15:55:02 +00:00
|
|
|
if (size < 0) {
|
1996-12-09 20:10:36 +00:00
|
|
|
PyErr_BadInternalCall();
|
1993-02-19 15:55:02 +00:00
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
nbytes = size * descr->itemsize;
|
|
|
|
/* Check for overflow */
|
1997-04-11 20:44:04 +00:00
|
|
|
if (nbytes / descr->itemsize != (size_t)size) {
|
1996-12-09 20:10:36 +00:00
|
|
|
return PyErr_NoMemory();
|
1993-02-19 15:55:02 +00:00
|
|
|
}
|
1996-12-09 20:10:36 +00:00
|
|
|
op = PyMem_NEW(arrayobject, 1);
|
1993-02-19 15:55:02 +00:00
|
|
|
if (op == NULL) {
|
1996-12-09 20:10:36 +00:00
|
|
|
return PyErr_NoMemory();
|
1993-02-19 15:55:02 +00:00
|
|
|
}
|
|
|
|
if (size <= 0) {
|
|
|
|
op->ob_item = NULL;
|
|
|
|
}
|
|
|
|
else {
|
1996-12-09 20:10:36 +00:00
|
|
|
op->ob_item = PyMem_NEW(char, nbytes);
|
1993-02-19 15:55:02 +00:00
|
|
|
if (op->ob_item == NULL) {
|
1996-12-09 20:10:36 +00:00
|
|
|
PyMem_DEL(op);
|
|
|
|
return PyErr_NoMemory();
|
1993-02-19 15:55:02 +00:00
|
|
|
}
|
|
|
|
}
|
|
|
|
op->ob_type = &Arraytype;
|
|
|
|
op->ob_size = size;
|
|
|
|
op->ob_descr = descr;
|
1996-12-09 20:10:36 +00:00
|
|
|
_Py_NewReference(op);
|
|
|
|
return (PyObject *) op;
|
1993-02-19 15:55:02 +00:00
|
|
|
}
|
|
|
|
|
1996-12-05 23:43:35 +00:00
|
|
|
#if 0
|
1995-01-22 00:48:41 +00:00
|
|
|
static int
|
1993-02-19 15:55:02 +00:00
|
|
|
getarraysize(op)
|
1996-12-09 20:10:36 +00:00
|
|
|
PyObject *op;
|
1993-02-19 15:55:02 +00:00
|
|
|
{
|
|
|
|
if (!is_arrayobject(op)) {
|
1996-12-09 20:10:36 +00:00
|
|
|
PyErr_BadInternalCall();
|
1993-02-19 15:55:02 +00:00
|
|
|
return -1;
|
|
|
|
}
|
|
|
|
return ((arrayobject *)op) -> ob_size;
|
|
|
|
}
|
1996-12-05 23:43:35 +00:00
|
|
|
#endif
|
1993-02-19 15:55:02 +00:00
|
|
|
|
1996-12-09 20:10:36 +00:00
|
|
|
static PyObject *
|
1993-02-19 15:55:02 +00:00
|
|
|
getarrayitem(op, i)
|
1996-12-09 20:10:36 +00:00
|
|
|
PyObject *op;
|
1993-02-19 15:55:02 +00:00
|
|
|
int i;
|
|
|
|
{
|
|
|
|
register arrayobject *ap;
|
|
|
|
if (!is_arrayobject(op)) {
|
1996-12-09 20:10:36 +00:00
|
|
|
PyErr_BadInternalCall();
|
1993-02-19 15:55:02 +00:00
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
ap = (arrayobject *)op;
|
|
|
|
if (i < 0 || i >= ap->ob_size) {
|
1996-12-09 20:10:36 +00:00
|
|
|
PyErr_SetString(PyExc_IndexError, "array index out of range");
|
1993-02-19 15:55:02 +00:00
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
return (*ap->ob_descr->getitem)(ap, i);
|
|
|
|
}
|
|
|
|
|
|
|
|
static int
|
|
|
|
ins1(self, where, v)
|
|
|
|
arrayobject *self;
|
|
|
|
int where;
|
1996-12-09 20:10:36 +00:00
|
|
|
PyObject *v;
|
1993-02-19 15:55:02 +00:00
|
|
|
{
|
|
|
|
char *items;
|
|
|
|
if (v == NULL) {
|
1996-12-09 20:10:36 +00:00
|
|
|
PyErr_BadInternalCall();
|
1993-02-19 15:55:02 +00:00
|
|
|
return -1;
|
|
|
|
}
|
|
|
|
if ((*self->ob_descr->setitem)(self, -1, v) < 0)
|
|
|
|
return -1;
|
|
|
|
items = self->ob_item;
|
1996-12-09 22:24:19 +00:00
|
|
|
PyMem_RESIZE(items, char,
|
|
|
|
(self->ob_size+1) * self->ob_descr->itemsize);
|
1993-02-19 15:55:02 +00:00
|
|
|
if (items == NULL) {
|
1996-12-09 20:10:36 +00:00
|
|
|
PyErr_NoMemory();
|
1993-02-19 15:55:02 +00:00
|
|
|
return -1;
|
|
|
|
}
|
|
|
|
if (where < 0)
|
|
|
|
where = 0;
|
|
|
|
if (where > self->ob_size)
|
|
|
|
where = self->ob_size;
|
|
|
|
memmove(items + (where+1)*self->ob_descr->itemsize,
|
|
|
|
items + where*self->ob_descr->itemsize,
|
|
|
|
(self->ob_size-where)*self->ob_descr->itemsize);
|
|
|
|
self->ob_item = items;
|
|
|
|
self->ob_size++;
|
|
|
|
return (*self->ob_descr->setitem)(self, where, v);
|
|
|
|
}
|
|
|
|
|
1996-12-05 23:43:35 +00:00
|
|
|
#if 0
|
1995-01-22 00:48:41 +00:00
|
|
|
static int
|
1993-02-19 15:55:02 +00:00
|
|
|
insarrayitem(op, where, newitem)
|
1996-12-09 20:10:36 +00:00
|
|
|
PyObject *op;
|
1993-02-19 15:55:02 +00:00
|
|
|
int where;
|
1996-12-09 20:10:36 +00:00
|
|
|
PyObject *newitem;
|
1993-02-19 15:55:02 +00:00
|
|
|
{
|
|
|
|
if (!is_arrayobject(op)) {
|
1996-12-09 20:10:36 +00:00
|
|
|
PyErr_BadInternalCall();
|
1993-02-19 15:55:02 +00:00
|
|
|
return -1;
|
|
|
|
}
|
|
|
|
return ins1((arrayobject *)op, where, newitem);
|
|
|
|
}
|
|
|
|
|
1995-01-22 00:48:41 +00:00
|
|
|
static int
|
1993-02-19 15:55:02 +00:00
|
|
|
addarrayitem(op, newitem)
|
1996-12-09 20:10:36 +00:00
|
|
|
PyObject *op;
|
|
|
|
PyObject *newitem;
|
1993-02-19 15:55:02 +00:00
|
|
|
{
|
|
|
|
if (!is_arrayobject(op)) {
|
1996-12-09 20:10:36 +00:00
|
|
|
PyErr_BadInternalCall();
|
1993-02-19 15:55:02 +00:00
|
|
|
return -1;
|
|
|
|
}
|
|
|
|
return ins1((arrayobject *)op,
|
|
|
|
(int) ((arrayobject *)op)->ob_size, newitem);
|
|
|
|
}
|
1996-12-05 23:43:35 +00:00
|
|
|
#endif
|
1993-02-19 15:55:02 +00:00
|
|
|
|
|
|
|
/* Methods */
|
|
|
|
|
|
|
|
static void
|
|
|
|
array_dealloc(op)
|
|
|
|
arrayobject *op;
|
|
|
|
{
|
|
|
|
if (op->ob_item != NULL)
|
1996-12-09 20:10:36 +00:00
|
|
|
PyMem_DEL(op->ob_item);
|
|
|
|
PyMem_DEL(op);
|
1993-02-19 15:55:02 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
static int
|
|
|
|
array_compare(v, w)
|
|
|
|
arrayobject *v, *w;
|
|
|
|
{
|
|
|
|
int len = (v->ob_size < w->ob_size) ? v->ob_size : w->ob_size;
|
|
|
|
int i;
|
|
|
|
for (i = 0; i < len; i++) {
|
1996-12-09 20:10:36 +00:00
|
|
|
PyObject *ai, *bi;
|
1993-02-19 15:55:02 +00:00
|
|
|
int cmp;
|
1996-12-09 20:10:36 +00:00
|
|
|
ai = getarrayitem((PyObject *)v, i);
|
|
|
|
bi = getarrayitem((PyObject *)w, i);
|
1993-02-19 15:55:02 +00:00
|
|
|
if (ai && bi)
|
1996-12-09 20:10:36 +00:00
|
|
|
cmp = PyObject_Compare(ai, bi);
|
1993-02-19 15:55:02 +00:00
|
|
|
else
|
|
|
|
cmp = -1;
|
1996-12-09 20:10:36 +00:00
|
|
|
Py_XDECREF(ai);
|
|
|
|
Py_XDECREF(bi);
|
1997-05-23 00:06:51 +00:00
|
|
|
if (cmp != 0)
|
1993-02-19 15:55:02 +00:00
|
|
|
return cmp;
|
|
|
|
}
|
|
|
|
return v->ob_size - w->ob_size;
|
|
|
|
}
|
|
|
|
|
|
|
|
static int
|
|
|
|
array_length(a)
|
|
|
|
arrayobject *a;
|
|
|
|
{
|
|
|
|
return a->ob_size;
|
|
|
|
}
|
|
|
|
|
1996-12-09 20:10:36 +00:00
|
|
|
static PyObject *
|
1993-02-19 15:55:02 +00:00
|
|
|
array_item(a, i)
|
|
|
|
arrayobject *a;
|
|
|
|
int i;
|
|
|
|
{
|
|
|
|
if (i < 0 || i >= a->ob_size) {
|
1996-12-09 20:10:36 +00:00
|
|
|
PyErr_SetString(PyExc_IndexError, "array index out of range");
|
1993-02-19 15:55:02 +00:00
|
|
|
return NULL;
|
|
|
|
}
|
1996-12-09 20:10:36 +00:00
|
|
|
return getarrayitem((PyObject *)a, i);
|
1993-02-19 15:55:02 +00:00
|
|
|
}
|
|
|
|
|
1996-12-09 20:10:36 +00:00
|
|
|
static PyObject *
|
1993-02-19 15:55:02 +00:00
|
|
|
array_slice(a, ilow, ihigh)
|
|
|
|
arrayobject *a;
|
|
|
|
int ilow, ihigh;
|
|
|
|
{
|
|
|
|
arrayobject *np;
|
|
|
|
if (ilow < 0)
|
|
|
|
ilow = 0;
|
|
|
|
else if (ilow > a->ob_size)
|
|
|
|
ilow = a->ob_size;
|
|
|
|
if (ihigh < 0)
|
|
|
|
ihigh = 0;
|
|
|
|
if (ihigh < ilow)
|
|
|
|
ihigh = ilow;
|
|
|
|
else if (ihigh > a->ob_size)
|
|
|
|
ihigh = a->ob_size;
|
|
|
|
np = (arrayobject *) newarrayobject(ihigh - ilow, a->ob_descr);
|
|
|
|
if (np == NULL)
|
|
|
|
return NULL;
|
|
|
|
memcpy(np->ob_item, a->ob_item + ilow * a->ob_descr->itemsize,
|
|
|
|
(ihigh-ilow) * a->ob_descr->itemsize);
|
1996-12-09 20:10:36 +00:00
|
|
|
return (PyObject *)np;
|
1993-02-19 15:55:02 +00:00
|
|
|
}
|
|
|
|
|
1996-12-09 20:10:36 +00:00
|
|
|
static PyObject *
|
1993-02-19 15:55:02 +00:00
|
|
|
array_concat(a, bb)
|
|
|
|
arrayobject *a;
|
1996-12-09 20:10:36 +00:00
|
|
|
PyObject *bb;
|
1993-02-19 15:55:02 +00:00
|
|
|
{
|
|
|
|
int size;
|
|
|
|
arrayobject *np;
|
|
|
|
if (!is_arrayobject(bb)) {
|
1996-12-09 20:10:36 +00:00
|
|
|
PyErr_BadArgument();
|
1993-02-19 15:55:02 +00:00
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
#define b ((arrayobject *)bb)
|
|
|
|
if (a->ob_descr != b->ob_descr) {
|
1996-12-09 20:10:36 +00:00
|
|
|
PyErr_BadArgument();
|
1993-02-19 15:55:02 +00:00
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
size = a->ob_size + b->ob_size;
|
|
|
|
np = (arrayobject *) newarrayobject(size, a->ob_descr);
|
|
|
|
if (np == NULL) {
|
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
memcpy(np->ob_item, a->ob_item, a->ob_size*a->ob_descr->itemsize);
|
|
|
|
memcpy(np->ob_item + a->ob_size*a->ob_descr->itemsize,
|
1993-11-05 10:16:27 +00:00
|
|
|
b->ob_item, b->ob_size*b->ob_descr->itemsize);
|
1996-12-09 20:10:36 +00:00
|
|
|
return (PyObject *)np;
|
1993-02-19 15:55:02 +00:00
|
|
|
#undef b
|
|
|
|
}
|
|
|
|
|
1996-12-09 20:10:36 +00:00
|
|
|
static PyObject *
|
1993-02-19 15:55:02 +00:00
|
|
|
array_repeat(a, n)
|
|
|
|
arrayobject *a;
|
|
|
|
int n;
|
|
|
|
{
|
1995-01-02 19:30:30 +00:00
|
|
|
int i;
|
1993-02-19 15:55:02 +00:00
|
|
|
int size;
|
|
|
|
arrayobject *np;
|
|
|
|
char *p;
|
|
|
|
int nbytes;
|
|
|
|
if (n < 0)
|
|
|
|
n = 0;
|
|
|
|
size = a->ob_size * n;
|
|
|
|
np = (arrayobject *) newarrayobject(size, a->ob_descr);
|
|
|
|
if (np == NULL)
|
|
|
|
return NULL;
|
|
|
|
p = np->ob_item;
|
|
|
|
nbytes = a->ob_size * a->ob_descr->itemsize;
|
|
|
|
for (i = 0; i < n; i++) {
|
|
|
|
memcpy(p, a->ob_item, nbytes);
|
|
|
|
p += nbytes;
|
|
|
|
}
|
1996-12-09 20:10:36 +00:00
|
|
|
return (PyObject *) np;
|
1993-02-19 15:55:02 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
static int
|
|
|
|
array_ass_slice(a, ilow, ihigh, v)
|
|
|
|
arrayobject *a;
|
|
|
|
int ilow, ihigh;
|
1996-12-09 20:10:36 +00:00
|
|
|
PyObject *v;
|
1993-02-19 15:55:02 +00:00
|
|
|
{
|
|
|
|
char *item;
|
|
|
|
int n; /* Size of replacement array */
|
|
|
|
int d; /* Change in size */
|
|
|
|
#define b ((arrayobject *)v)
|
|
|
|
if (v == NULL)
|
|
|
|
n = 0;
|
|
|
|
else if (is_arrayobject(v)) {
|
|
|
|
n = b->ob_size;
|
|
|
|
if (a == b) {
|
|
|
|
/* Special case "a[i:j] = a" -- copy b first */
|
|
|
|
int ret;
|
|
|
|
v = array_slice(b, 0, n);
|
|
|
|
ret = array_ass_slice(a, ilow, ihigh, v);
|
1996-12-09 20:10:36 +00:00
|
|
|
Py_DECREF(v);
|
1993-02-19 15:55:02 +00:00
|
|
|
return ret;
|
|
|
|
}
|
|
|
|
if (b->ob_descr != a->ob_descr) {
|
1996-12-09 20:10:36 +00:00
|
|
|
PyErr_BadArgument();
|
1993-02-19 15:55:02 +00:00
|
|
|
return -1;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
else {
|
1996-12-09 20:10:36 +00:00
|
|
|
PyErr_BadArgument();
|
1993-02-19 15:55:02 +00:00
|
|
|
return -1;
|
|
|
|
}
|
|
|
|
if (ilow < 0)
|
|
|
|
ilow = 0;
|
|
|
|
else if (ilow > a->ob_size)
|
|
|
|
ilow = a->ob_size;
|
|
|
|
if (ihigh < 0)
|
|
|
|
ihigh = 0;
|
|
|
|
if (ihigh < ilow)
|
|
|
|
ihigh = ilow;
|
|
|
|
else if (ihigh > a->ob_size)
|
|
|
|
ihigh = a->ob_size;
|
|
|
|
item = a->ob_item;
|
|
|
|
d = n - (ihigh-ilow);
|
|
|
|
if (d < 0) { /* Delete -d items */
|
|
|
|
memmove(item + (ihigh+d)*a->ob_descr->itemsize,
|
|
|
|
item + ihigh*a->ob_descr->itemsize,
|
|
|
|
(a->ob_size-ihigh)*a->ob_descr->itemsize);
|
|
|
|
a->ob_size += d;
|
1996-12-09 20:10:36 +00:00
|
|
|
PyMem_RESIZE(item, char, a->ob_size*a->ob_descr->itemsize);
|
1993-02-19 15:55:02 +00:00
|
|
|
/* Can't fail */
|
|
|
|
a->ob_item = item;
|
|
|
|
}
|
|
|
|
else if (d > 0) { /* Insert d items */
|
1996-12-09 20:10:36 +00:00
|
|
|
PyMem_RESIZE(item, char,
|
|
|
|
(a->ob_size + d)*a->ob_descr->itemsize);
|
1993-02-19 15:55:02 +00:00
|
|
|
if (item == NULL) {
|
1996-12-09 20:10:36 +00:00
|
|
|
PyErr_NoMemory();
|
1993-02-19 15:55:02 +00:00
|
|
|
return -1;
|
|
|
|
}
|
|
|
|
memmove(item + (ihigh+d)*a->ob_descr->itemsize,
|
|
|
|
item + ihigh*a->ob_descr->itemsize,
|
|
|
|
(a->ob_size-ihigh)*a->ob_descr->itemsize);
|
|
|
|
a->ob_item = item;
|
|
|
|
a->ob_size += d;
|
|
|
|
}
|
|
|
|
if (n > 0)
|
|
|
|
memcpy(item + ilow*a->ob_descr->itemsize, b->ob_item,
|
|
|
|
n*b->ob_descr->itemsize);
|
|
|
|
return 0;
|
|
|
|
#undef b
|
|
|
|
}
|
|
|
|
|
|
|
|
static int
|
|
|
|
array_ass_item(a, i, v)
|
|
|
|
arrayobject *a;
|
|
|
|
int i;
|
1996-12-09 20:10:36 +00:00
|
|
|
PyObject *v;
|
1993-02-19 15:55:02 +00:00
|
|
|
{
|
|
|
|
if (i < 0 || i >= a->ob_size) {
|
1996-12-09 20:10:36 +00:00
|
|
|
PyErr_SetString(PyExc_IndexError,
|
|
|
|
"array assignment index out of range");
|
1993-02-19 15:55:02 +00:00
|
|
|
return -1;
|
|
|
|
}
|
|
|
|
if (v == NULL)
|
|
|
|
return array_ass_slice(a, i, i+1, v);
|
|
|
|
return (*a->ob_descr->setitem)(a, i, v);
|
|
|
|
}
|
|
|
|
|
|
|
|
static int
|
|
|
|
setarrayitem(a, i, v)
|
1996-12-09 20:10:36 +00:00
|
|
|
PyObject *a;
|
1993-02-19 15:55:02 +00:00
|
|
|
int i;
|
1996-12-09 20:10:36 +00:00
|
|
|
PyObject *v;
|
1993-02-19 15:55:02 +00:00
|
|
|
{
|
|
|
|
if (!is_arrayobject(a)) {
|
1996-12-09 20:10:36 +00:00
|
|
|
PyErr_BadInternalCall();
|
1993-02-19 15:55:02 +00:00
|
|
|
return -1;
|
|
|
|
}
|
|
|
|
return array_ass_item((arrayobject *)a, i, v);
|
|
|
|
}
|
|
|
|
|
1996-12-09 20:10:36 +00:00
|
|
|
static PyObject *
|
1993-02-19 15:55:02 +00:00
|
|
|
ins(self, where, v)
|
|
|
|
arrayobject *self;
|
|
|
|
int where;
|
1996-12-09 20:10:36 +00:00
|
|
|
PyObject *v;
|
1993-02-19 15:55:02 +00:00
|
|
|
{
|
|
|
|
if (ins1(self, where, v) != 0)
|
|
|
|
return NULL;
|
1996-12-09 20:10:36 +00:00
|
|
|
Py_INCREF(Py_None);
|
|
|
|
return Py_None;
|
1993-02-19 15:55:02 +00:00
|
|
|
}
|
|
|
|
|
1996-12-09 20:10:36 +00:00
|
|
|
static PyObject *
|
1993-02-19 15:55:02 +00:00
|
|
|
array_insert(self, args)
|
|
|
|
arrayobject *self;
|
1996-12-09 20:10:36 +00:00
|
|
|
PyObject *args;
|
1993-02-19 15:55:02 +00:00
|
|
|
{
|
|
|
|
int i;
|
1996-12-09 20:10:36 +00:00
|
|
|
PyObject *v;
|
|
|
|
if (!PyArg_Parse(args, "(iO)", &i, &v))
|
1993-02-19 15:55:02 +00:00
|
|
|
return NULL;
|
|
|
|
return ins(self, i, v);
|
|
|
|
}
|
|
|
|
|
1998-10-13 14:27:22 +00:00
|
|
|
static char insert_doc [] =
|
|
|
|
"insert (i,x)\n\
|
|
|
|
\n\
|
|
|
|
Insert a new item x into the array before position i.";
|
|
|
|
|
|
|
|
|
1997-08-12 14:55:56 +00:00
|
|
|
static PyObject *
|
|
|
|
array_buffer_info(self, args)
|
|
|
|
arrayobject *self;
|
|
|
|
PyObject *args;
|
|
|
|
{
|
|
|
|
return Py_BuildValue("ll",
|
|
|
|
(long)(self->ob_item), (long)(self->ob_size));
|
|
|
|
}
|
|
|
|
|
1998-10-13 14:27:22 +00:00
|
|
|
static char buffer_info_doc [] =
|
|
|
|
"buffer_info -> (address, length)\n\
|
|
|
|
\n\
|
|
|
|
Return a tuple (address, length) giving the current memory address and\n\
|
|
|
|
the length in bytes of the buffer used to hold array's contents.";
|
|
|
|
|
|
|
|
|
1996-12-09 20:10:36 +00:00
|
|
|
static PyObject *
|
1993-02-19 15:55:02 +00:00
|
|
|
array_append(self, args)
|
|
|
|
arrayobject *self;
|
1996-12-09 20:10:36 +00:00
|
|
|
PyObject *args;
|
1993-02-19 15:55:02 +00:00
|
|
|
{
|
1996-12-09 20:10:36 +00:00
|
|
|
PyObject *v;
|
|
|
|
if (!PyArg_Parse(args, "O", &v))
|
1993-02-19 15:55:02 +00:00
|
|
|
return NULL;
|
|
|
|
return ins(self, (int) self->ob_size, v);
|
|
|
|
}
|
|
|
|
|
1998-10-13 14:27:22 +00:00
|
|
|
static char append_doc [] =
|
|
|
|
"append(x)\n\
|
|
|
|
\n\
|
|
|
|
Append new value x to the end of the array.";
|
|
|
|
|
|
|
|
|
1996-12-09 20:10:36 +00:00
|
|
|
static PyObject *
|
1993-02-19 15:55:02 +00:00
|
|
|
array_byteswap(self, args)
|
|
|
|
arrayobject *self;
|
1996-12-09 20:10:36 +00:00
|
|
|
PyObject *args;
|
1993-02-19 15:55:02 +00:00
|
|
|
{
|
|
|
|
char *p;
|
|
|
|
int i;
|
|
|
|
switch (self->ob_descr->itemsize) {
|
|
|
|
case 1:
|
|
|
|
break;
|
|
|
|
case 2:
|
|
|
|
for (p = self->ob_item, i = self->ob_size; --i >= 0; p += 2) {
|
|
|
|
char p0 = p[0];
|
|
|
|
p[0] = p[1];
|
|
|
|
p[1] = p0;
|
|
|
|
}
|
|
|
|
break;
|
|
|
|
case 4:
|
|
|
|
for (p = self->ob_item, i = self->ob_size; --i >= 0; p += 4) {
|
|
|
|
char p0 = p[0];
|
|
|
|
char p1 = p[1];
|
|
|
|
p[0] = p[3];
|
|
|
|
p[1] = p[2];
|
|
|
|
p[2] = p1;
|
|
|
|
p[3] = p0;
|
|
|
|
}
|
|
|
|
break;
|
1993-11-03 15:01:26 +00:00
|
|
|
case 8:
|
|
|
|
for (p = self->ob_item, i = self->ob_size; --i >= 0; p += 8) {
|
|
|
|
char p0 = p[0];
|
|
|
|
char p1 = p[1];
|
|
|
|
char p2 = p[2];
|
|
|
|
char p3 = p[3];
|
|
|
|
p[0] = p[7];
|
|
|
|
p[1] = p[6];
|
|
|
|
p[2] = p[5];
|
|
|
|
p[3] = p[4];
|
|
|
|
p[4] = p3;
|
|
|
|
p[5] = p2;
|
|
|
|
p[6] = p1;
|
|
|
|
p[7] = p0;
|
|
|
|
}
|
|
|
|
break;
|
1993-02-19 15:55:02 +00:00
|
|
|
default:
|
1996-12-09 20:10:36 +00:00
|
|
|
PyErr_SetString(PyExc_RuntimeError,
|
1993-02-19 15:55:02 +00:00
|
|
|
"don't know how to byteswap this array type");
|
|
|
|
return NULL;
|
|
|
|
}
|
1996-12-09 20:10:36 +00:00
|
|
|
Py_INCREF(Py_None);
|
|
|
|
return Py_None;
|
1993-02-19 15:55:02 +00:00
|
|
|
}
|
|
|
|
|
1998-10-13 14:27:22 +00:00
|
|
|
static char byteswap_doc [] =
|
|
|
|
"byteswap(x)\n\
|
|
|
|
\n\
|
|
|
|
Byteswap all items of the array. This is only supported for integer\n\
|
|
|
|
values of x, which determines the size of the blocks swapped.";
|
|
|
|
|
1996-12-09 20:10:36 +00:00
|
|
|
static PyObject *
|
1993-02-19 15:55:02 +00:00
|
|
|
array_reverse(self, args)
|
|
|
|
arrayobject *self;
|
1996-12-09 20:10:36 +00:00
|
|
|
PyObject *args;
|
1993-02-19 15:55:02 +00:00
|
|
|
{
|
1993-11-03 15:01:26 +00:00
|
|
|
register int itemsize = self->ob_descr->itemsize;
|
|
|
|
register char *p, *q;
|
|
|
|
char tmp[sizeof(double)]; /* Assume that's the max item size */
|
|
|
|
|
1993-02-19 15:55:02 +00:00
|
|
|
if (args != NULL) {
|
1996-12-09 20:10:36 +00:00
|
|
|
PyErr_BadArgument();
|
1993-02-19 15:55:02 +00:00
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
|
|
|
|
if (self->ob_size > 1) {
|
1993-11-03 15:01:26 +00:00
|
|
|
for (p = self->ob_item,
|
|
|
|
q = self->ob_item + (self->ob_size - 1)*itemsize;
|
|
|
|
p < q;
|
|
|
|
p += itemsize, q -= itemsize) {
|
|
|
|
memmove(tmp, p, itemsize);
|
|
|
|
memmove(p, q, itemsize);
|
|
|
|
memmove(q, tmp, itemsize);
|
1993-02-19 15:55:02 +00:00
|
|
|
}
|
|
|
|
}
|
|
|
|
|
1996-12-09 20:10:36 +00:00
|
|
|
Py_INCREF(Py_None);
|
|
|
|
return Py_None;
|
1993-02-19 15:55:02 +00:00
|
|
|
}
|
1993-11-03 15:01:26 +00:00
|
|
|
|
1998-10-13 14:27:22 +00:00
|
|
|
static char reverse_doc [] =
|
|
|
|
"reverse()\n\
|
|
|
|
\n\
|
|
|
|
Reverse the order of the items in the array.";
|
|
|
|
|
1993-11-03 15:01:26 +00:00
|
|
|
/* The following routines were adapted from listobject.c but not converted.
|
|
|
|
To make them work you will have to work! */
|
1993-02-19 15:55:02 +00:00
|
|
|
|
|
|
|
#if 0
|
1996-12-09 20:10:36 +00:00
|
|
|
static PyObject *
|
1993-02-19 15:55:02 +00:00
|
|
|
array_index(self, args)
|
|
|
|
arrayobject *self;
|
1996-12-09 20:10:36 +00:00
|
|
|
PyObject *args;
|
1993-02-19 15:55:02 +00:00
|
|
|
{
|
|
|
|
int i;
|
|
|
|
|
|
|
|
if (args == NULL) {
|
1996-12-09 20:10:36 +00:00
|
|
|
PyErr_BadArgument();
|
1993-02-19 15:55:02 +00:00
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
for (i = 0; i < self->ob_size; i++) {
|
1996-12-09 20:10:36 +00:00
|
|
|
if (PyObject_Compare(self->ob_item[i], args) == 0)
|
|
|
|
return PyInt_FromLong((long)i);
|
1997-05-23 00:06:51 +00:00
|
|
|
/* XXX PyErr_Occurred */
|
1993-02-19 15:55:02 +00:00
|
|
|
}
|
1996-12-09 20:10:36 +00:00
|
|
|
PyErr_SetString(PyExc_ValueError, "array.index(x): x not in array");
|
1993-02-19 15:55:02 +00:00
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
#endif
|
|
|
|
|
|
|
|
#if 0
|
1996-12-09 20:10:36 +00:00
|
|
|
static PyObject *
|
1993-02-19 15:55:02 +00:00
|
|
|
array_count(self, args)
|
|
|
|
arrayobject *self;
|
1996-12-09 20:10:36 +00:00
|
|
|
PyObject *args;
|
1993-02-19 15:55:02 +00:00
|
|
|
{
|
|
|
|
int count = 0;
|
|
|
|
int i;
|
|
|
|
|
|
|
|
if (args == NULL) {
|
1996-12-09 20:10:36 +00:00
|
|
|
PyErr_BadArgument();
|
1993-02-19 15:55:02 +00:00
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
for (i = 0; i < self->ob_size; i++) {
|
1996-12-09 20:10:36 +00:00
|
|
|
if (PyObject_Compare(self->ob_item[i], args) == 0)
|
1993-02-19 15:55:02 +00:00
|
|
|
count++;
|
1997-05-23 00:06:51 +00:00
|
|
|
/* XXX PyErr_Occurred */
|
1993-02-19 15:55:02 +00:00
|
|
|
}
|
1996-12-09 20:10:36 +00:00
|
|
|
return PyInt_FromLong((long)count);
|
1993-02-19 15:55:02 +00:00
|
|
|
}
|
|
|
|
#endif
|
|
|
|
|
|
|
|
#if 0
|
1996-12-09 20:10:36 +00:00
|
|
|
static PyObject *
|
1993-02-19 15:55:02 +00:00
|
|
|
array_remove(self, args)
|
|
|
|
arrayobject *self;
|
1996-12-09 20:10:36 +00:00
|
|
|
PyObject *args;
|
1993-02-19 15:55:02 +00:00
|
|
|
{
|
|
|
|
int i;
|
|
|
|
|
|
|
|
if (args == NULL) {
|
1996-12-09 20:10:36 +00:00
|
|
|
PyErr_BadArgument();
|
1993-02-19 15:55:02 +00:00
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
for (i = 0; i < self->ob_size; i++) {
|
1996-12-09 20:10:36 +00:00
|
|
|
if (PyObject_Compare(self->ob_item[i], args) == 0) {
|
1996-12-09 22:24:19 +00:00
|
|
|
if (array_ass_slice(self, i, i+1,
|
|
|
|
(PyObject *)NULL) != 0)
|
1993-02-19 15:55:02 +00:00
|
|
|
return NULL;
|
1996-12-09 20:10:36 +00:00
|
|
|
Py_INCREF(Py_None);
|
|
|
|
return Py_None;
|
1993-02-19 15:55:02 +00:00
|
|
|
}
|
1997-05-23 00:06:51 +00:00
|
|
|
/* XXX PyErr_Occurred */
|
1993-02-19 15:55:02 +00:00
|
|
|
}
|
1996-12-09 20:10:36 +00:00
|
|
|
PyErr_SetString(PyExc_ValueError, "array.remove(x): x not in array");
|
1993-02-19 15:55:02 +00:00
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
#endif
|
|
|
|
|
1996-12-09 20:10:36 +00:00
|
|
|
static PyObject *
|
1993-11-03 15:01:26 +00:00
|
|
|
array_fromfile(self, args)
|
1993-02-19 15:55:02 +00:00
|
|
|
arrayobject *self;
|
1996-12-09 20:10:36 +00:00
|
|
|
PyObject *args;
|
1993-02-19 15:55:02 +00:00
|
|
|
{
|
1996-12-09 20:10:36 +00:00
|
|
|
PyObject *f;
|
1993-02-19 15:55:02 +00:00
|
|
|
int n;
|
|
|
|
FILE *fp;
|
1996-12-09 20:10:36 +00:00
|
|
|
if (!PyArg_Parse(args, "(Oi)", &f, &n))
|
1993-02-19 15:55:02 +00:00
|
|
|
return NULL;
|
1996-12-09 20:10:36 +00:00
|
|
|
fp = PyFile_AsFile(f);
|
1993-02-19 15:55:02 +00:00
|
|
|
if (fp == NULL) {
|
1996-12-09 20:10:36 +00:00
|
|
|
PyErr_SetString(PyExc_TypeError, "arg1 must be open file");
|
1993-02-19 15:55:02 +00:00
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
if (n > 0) {
|
|
|
|
char *item = self->ob_item;
|
|
|
|
int itemsize = self->ob_descr->itemsize;
|
|
|
|
int nread;
|
1999-02-23 18:05:22 +00:00
|
|
|
int newlength;
|
|
|
|
size_t newbytes;
|
|
|
|
/* Be careful here about overflow */
|
|
|
|
if ((newlength = self->ob_size + n) <= 0 ||
|
1999-03-19 21:50:11 +00:00
|
|
|
(newbytes = newlength * itemsize) / itemsize !=
|
|
|
|
(size_t)newlength)
|
1999-02-23 18:05:22 +00:00
|
|
|
goto nomem;
|
|
|
|
PyMem_RESIZE(item, char, newbytes);
|
1993-02-19 15:55:02 +00:00
|
|
|
if (item == NULL) {
|
1999-02-23 18:05:22 +00:00
|
|
|
nomem:
|
1996-12-09 20:10:36 +00:00
|
|
|
PyErr_NoMemory();
|
1993-02-19 15:55:02 +00:00
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
self->ob_item = item;
|
|
|
|
self->ob_size += n;
|
|
|
|
nread = fread(item + (self->ob_size - n) * itemsize,
|
|
|
|
itemsize, n, fp);
|
|
|
|
if (nread < n) {
|
|
|
|
self->ob_size -= (n - nread);
|
1996-12-09 20:10:36 +00:00
|
|
|
PyMem_RESIZE(item, char, self->ob_size*itemsize);
|
1993-02-19 15:55:02 +00:00
|
|
|
self->ob_item = item;
|
1996-12-09 20:10:36 +00:00
|
|
|
PyErr_SetString(PyExc_EOFError,
|
|
|
|
"not enough items in file");
|
1993-02-19 15:55:02 +00:00
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
}
|
1996-12-09 20:10:36 +00:00
|
|
|
Py_INCREF(Py_None);
|
|
|
|
return Py_None;
|
1993-02-19 15:55:02 +00:00
|
|
|
}
|
|
|
|
|
1998-10-13 14:27:22 +00:00
|
|
|
static char fromfile_doc [] =
|
|
|
|
"fromfile(f, n)\n\
|
|
|
|
\n\
|
|
|
|
Read n objects from the file object f and append them to the end of the\n\
|
|
|
|
array. Also called as read.";
|
|
|
|
|
|
|
|
|
1996-12-09 20:10:36 +00:00
|
|
|
static PyObject *
|
1993-11-03 15:01:26 +00:00
|
|
|
array_tofile(self, args)
|
1993-02-19 15:55:02 +00:00
|
|
|
arrayobject *self;
|
1996-12-09 20:10:36 +00:00
|
|
|
PyObject *args;
|
1993-02-19 15:55:02 +00:00
|
|
|
{
|
1996-12-09 20:10:36 +00:00
|
|
|
PyObject *f;
|
1993-02-19 15:55:02 +00:00
|
|
|
FILE *fp;
|
1996-12-09 20:10:36 +00:00
|
|
|
if (!PyArg_Parse(args, "O", &f))
|
1993-02-19 15:55:02 +00:00
|
|
|
return NULL;
|
1996-12-09 20:10:36 +00:00
|
|
|
fp = PyFile_AsFile(f);
|
1993-02-19 15:55:02 +00:00
|
|
|
if (fp == NULL) {
|
1996-12-09 20:10:36 +00:00
|
|
|
PyErr_SetString(PyExc_TypeError, "arg must be open file");
|
1993-02-19 15:55:02 +00:00
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
if (self->ob_size > 0) {
|
1997-04-11 20:44:04 +00:00
|
|
|
if ((int)fwrite(self->ob_item, self->ob_descr->itemsize,
|
1993-02-19 15:55:02 +00:00
|
|
|
self->ob_size, fp) != self->ob_size) {
|
1996-12-09 20:10:36 +00:00
|
|
|
PyErr_SetFromErrno(PyExc_IOError);
|
1993-02-19 15:55:02 +00:00
|
|
|
clearerr(fp);
|
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
}
|
1996-12-09 20:10:36 +00:00
|
|
|
Py_INCREF(Py_None);
|
|
|
|
return Py_None;
|
1993-02-19 15:55:02 +00:00
|
|
|
}
|
|
|
|
|
1998-10-13 14:27:22 +00:00
|
|
|
static char tofile_doc [] =
|
|
|
|
"tofile(f)\n\
|
|
|
|
\n\
|
|
|
|
Write all items (as machine values) to the file object f. Also called as\n\
|
|
|
|
write.";
|
|
|
|
|
|
|
|
|
1996-12-09 20:10:36 +00:00
|
|
|
static PyObject *
|
1993-02-19 15:55:02 +00:00
|
|
|
array_fromlist(self, args)
|
|
|
|
arrayobject *self;
|
1996-12-09 20:10:36 +00:00
|
|
|
PyObject *args;
|
1993-02-19 15:55:02 +00:00
|
|
|
{
|
|
|
|
int n;
|
1996-12-09 20:10:36 +00:00
|
|
|
PyObject *list;
|
1993-02-19 15:55:02 +00:00
|
|
|
int itemsize = self->ob_descr->itemsize;
|
1996-12-09 20:10:36 +00:00
|
|
|
if (!PyArg_Parse(args, "O", &list))
|
1993-02-19 15:55:02 +00:00
|
|
|
return NULL;
|
1996-12-09 20:10:36 +00:00
|
|
|
if (!PyList_Check(list)) {
|
|
|
|
PyErr_SetString(PyExc_TypeError, "arg must be list");
|
1993-02-19 15:55:02 +00:00
|
|
|
return NULL;
|
|
|
|
}
|
1996-12-09 20:10:36 +00:00
|
|
|
n = PyList_Size(list);
|
1993-02-19 15:55:02 +00:00
|
|
|
if (n > 0) {
|
|
|
|
char *item = self->ob_item;
|
|
|
|
int i;
|
1996-12-09 20:10:36 +00:00
|
|
|
PyMem_RESIZE(item, char, (self->ob_size + n) * itemsize);
|
1993-02-19 15:55:02 +00:00
|
|
|
if (item == NULL) {
|
1996-12-09 20:10:36 +00:00
|
|
|
PyErr_NoMemory();
|
1993-02-19 15:55:02 +00:00
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
self->ob_item = item;
|
|
|
|
self->ob_size += n;
|
|
|
|
for (i = 0; i < n; i++) {
|
1996-12-09 20:10:36 +00:00
|
|
|
PyObject *v = PyList_GetItem(list, i);
|
1993-02-19 15:55:02 +00:00
|
|
|
if ((*self->ob_descr->setitem)(self,
|
|
|
|
self->ob_size - n + i, v) != 0) {
|
|
|
|
self->ob_size -= n;
|
1996-12-09 20:10:36 +00:00
|
|
|
PyMem_RESIZE(item, char,
|
|
|
|
self->ob_size * itemsize);
|
1993-02-19 15:55:02 +00:00
|
|
|
self->ob_item = item;
|
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
1996-12-09 20:10:36 +00:00
|
|
|
Py_INCREF(Py_None);
|
|
|
|
return Py_None;
|
1993-02-19 15:55:02 +00:00
|
|
|
}
|
|
|
|
|
1998-10-13 14:27:22 +00:00
|
|
|
static char fromlist_doc [] =
|
|
|
|
"fromlist(list)\n\
|
|
|
|
\n\
|
|
|
|
Append items to array from list.";
|
|
|
|
|
|
|
|
|
1996-12-09 20:10:36 +00:00
|
|
|
static PyObject *
|
1993-02-19 15:55:02 +00:00
|
|
|
array_tolist(self, args)
|
|
|
|
arrayobject *self;
|
1996-12-09 20:10:36 +00:00
|
|
|
PyObject *args;
|
1993-02-19 15:55:02 +00:00
|
|
|
{
|
1996-12-09 20:10:36 +00:00
|
|
|
PyObject *list = PyList_New(self->ob_size);
|
1993-02-19 15:55:02 +00:00
|
|
|
int i;
|
|
|
|
if (list == NULL)
|
|
|
|
return NULL;
|
|
|
|
for (i = 0; i < self->ob_size; i++) {
|
1996-12-09 20:10:36 +00:00
|
|
|
PyObject *v = getarrayitem((PyObject *)self, i);
|
1993-02-19 15:55:02 +00:00
|
|
|
if (v == NULL) {
|
1996-12-09 20:10:36 +00:00
|
|
|
Py_DECREF(list);
|
1993-02-19 15:55:02 +00:00
|
|
|
return NULL;
|
|
|
|
}
|
1996-12-09 20:10:36 +00:00
|
|
|
PyList_SetItem(list, i, v);
|
1993-02-19 15:55:02 +00:00
|
|
|
}
|
|
|
|
return list;
|
|
|
|
}
|
|
|
|
|
1998-10-13 14:27:22 +00:00
|
|
|
static char tolist_doc [] =
|
1998-10-14 02:52:31 +00:00
|
|
|
"tolist() -> list\n\
|
1998-10-13 14:27:22 +00:00
|
|
|
\n\
|
|
|
|
Convert array to an ordinary list with the same items.";
|
|
|
|
|
|
|
|
|
1996-12-09 20:10:36 +00:00
|
|
|
static PyObject *
|
1993-02-19 15:55:02 +00:00
|
|
|
array_fromstring(self, args)
|
|
|
|
arrayobject *self;
|
1996-12-09 20:10:36 +00:00
|
|
|
PyObject *args;
|
1993-02-19 15:55:02 +00:00
|
|
|
{
|
|
|
|
char *str;
|
|
|
|
int n;
|
|
|
|
int itemsize = self->ob_descr->itemsize;
|
1996-12-09 20:10:36 +00:00
|
|
|
if (!PyArg_Parse(args, "s#", &str, &n))
|
1993-02-19 15:55:02 +00:00
|
|
|
return NULL;
|
|
|
|
if (n % itemsize != 0) {
|
1996-12-09 20:10:36 +00:00
|
|
|
PyErr_SetString(PyExc_ValueError,
|
1993-02-19 15:55:02 +00:00
|
|
|
"string length not a multiple of item size");
|
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
n = n / itemsize;
|
|
|
|
if (n > 0) {
|
|
|
|
char *item = self->ob_item;
|
1996-12-09 20:10:36 +00:00
|
|
|
PyMem_RESIZE(item, char, (self->ob_size + n) * itemsize);
|
1993-02-19 15:55:02 +00:00
|
|
|
if (item == NULL) {
|
1996-12-09 20:10:36 +00:00
|
|
|
PyErr_NoMemory();
|
1993-02-19 15:55:02 +00:00
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
self->ob_item = item;
|
|
|
|
self->ob_size += n;
|
1996-12-09 22:24:19 +00:00
|
|
|
memcpy(item + (self->ob_size - n) * itemsize,
|
|
|
|
str, itemsize*n);
|
1993-02-19 15:55:02 +00:00
|
|
|
}
|
1996-12-09 20:10:36 +00:00
|
|
|
Py_INCREF(Py_None);
|
|
|
|
return Py_None;
|
1993-02-19 15:55:02 +00:00
|
|
|
}
|
|
|
|
|
1998-10-13 14:27:22 +00:00
|
|
|
static char fromstring_doc [] =
|
|
|
|
"fromstring(string)\n\
|
|
|
|
\n\
|
|
|
|
Appends items from the string, interpreting it as an array of machine\n\
|
|
|
|
values,as if it had been read from a file using the fromfile() method).";
|
|
|
|
|
|
|
|
|
1996-12-09 20:10:36 +00:00
|
|
|
static PyObject *
|
1993-02-19 15:55:02 +00:00
|
|
|
array_tostring(self, args)
|
|
|
|
arrayobject *self;
|
1996-12-09 20:10:36 +00:00
|
|
|
PyObject *args;
|
1993-02-19 15:55:02 +00:00
|
|
|
{
|
1996-12-09 20:10:36 +00:00
|
|
|
if (!PyArg_Parse(args, ""))
|
1993-02-19 15:55:02 +00:00
|
|
|
return NULL;
|
1996-12-09 20:10:36 +00:00
|
|
|
return PyString_FromStringAndSize(self->ob_item,
|
1993-02-19 15:55:02 +00:00
|
|
|
self->ob_size * self->ob_descr->itemsize);
|
|
|
|
}
|
|
|
|
|
1998-10-13 14:27:22 +00:00
|
|
|
static char tostring_doc [] =
|
|
|
|
"tostring() -> string\n\
|
|
|
|
\n\
|
|
|
|
Convert the array to an array of machine values and return the string\n\
|
|
|
|
representation.";
|
|
|
|
|
|
|
|
PyMethodDef array_methods[] = {
|
|
|
|
{"append", (PyCFunction)array_append, 0, append_doc},
|
|
|
|
{"buffer_info", (PyCFunction)array_buffer_info, 0, buffer_info_doc},
|
|
|
|
{"byteswap", (PyCFunction)array_byteswap, 0, byteswap_doc},
|
1994-08-01 11:34:53 +00:00
|
|
|
/* {"count", (method)array_count},*/
|
1998-10-13 14:27:22 +00:00
|
|
|
{"fromfile", (PyCFunction)array_fromfile, 0, fromfile_doc},
|
|
|
|
{"fromlist", (PyCFunction)array_fromlist, 0, fromlist_doc},
|
|
|
|
{"fromstring", (PyCFunction)array_fromstring, 0, fromstring_doc},
|
1994-08-01 11:34:53 +00:00
|
|
|
/* {"index", (method)array_index},*/
|
1998-10-13 14:27:22 +00:00
|
|
|
{"insert", (PyCFunction)array_insert, 0, insert_doc},
|
|
|
|
{"read", (PyCFunction)array_fromfile, 0, fromfile_doc},
|
1994-08-01 11:34:53 +00:00
|
|
|
/* {"remove", (method)array_remove},*/
|
1998-10-13 14:27:22 +00:00
|
|
|
{"reverse", (PyCFunction)array_reverse, 0, reverse_doc},
|
1994-08-01 11:34:53 +00:00
|
|
|
/* {"sort", (method)array_sort},*/
|
1998-10-13 14:27:22 +00:00
|
|
|
{"tofile", (PyCFunction)array_tofile, 0, tofile_doc},
|
|
|
|
{"tolist", (PyCFunction)array_tolist, 0, tolist_doc},
|
|
|
|
{"tostring", (PyCFunction)array_tostring, 0, tostring_doc},
|
|
|
|
{"write", (PyCFunction)array_tofile, 0, tofile_doc},
|
1993-02-19 15:55:02 +00:00
|
|
|
{NULL, NULL} /* sentinel */
|
|
|
|
};
|
|
|
|
|
1996-12-09 20:10:36 +00:00
|
|
|
static PyObject *
|
1993-02-19 15:55:02 +00:00
|
|
|
array_getattr(a, name)
|
|
|
|
arrayobject *a;
|
|
|
|
char *name;
|
|
|
|
{
|
|
|
|
if (strcmp(name, "typecode") == 0) {
|
|
|
|
char tc = a->ob_descr->typecode;
|
1996-12-09 20:10:36 +00:00
|
|
|
return PyString_FromStringAndSize(&tc, 1);
|
1993-02-19 15:55:02 +00:00
|
|
|
}
|
|
|
|
if (strcmp(name, "itemsize") == 0) {
|
1996-12-09 20:10:36 +00:00
|
|
|
return PyInt_FromLong((long)a->ob_descr->itemsize);
|
1993-02-19 15:55:02 +00:00
|
|
|
}
|
1993-11-10 09:23:53 +00:00
|
|
|
if (strcmp(name, "__members__") == 0) {
|
1996-12-09 20:10:36 +00:00
|
|
|
PyObject *list = PyList_New(2);
|
1993-11-10 09:23:53 +00:00
|
|
|
if (list) {
|
1996-12-09 22:24:19 +00:00
|
|
|
PyList_SetItem(list, 0,
|
|
|
|
PyString_FromString("typecode"));
|
|
|
|
PyList_SetItem(list, 1,
|
|
|
|
PyString_FromString("itemsize"));
|
1996-12-09 20:10:36 +00:00
|
|
|
if (PyErr_Occurred()) {
|
|
|
|
Py_DECREF(list);
|
1993-11-10 09:23:53 +00:00
|
|
|
list = NULL;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
return list;
|
|
|
|
}
|
1996-12-09 20:10:36 +00:00
|
|
|
return Py_FindMethod(array_methods, (PyObject *)a, name);
|
1993-02-19 15:55:02 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
static int
|
|
|
|
array_print(a, fp, flags)
|
|
|
|
arrayobject *a;
|
|
|
|
FILE *fp;
|
|
|
|
int flags;
|
|
|
|
{
|
|
|
|
int ok = 0;
|
|
|
|
int i, len;
|
1996-12-09 20:10:36 +00:00
|
|
|
PyObject *v;
|
1993-02-19 15:55:02 +00:00
|
|
|
len = a->ob_size;
|
|
|
|
if (len == 0) {
|
|
|
|
fprintf(fp, "array('%c')", a->ob_descr->typecode);
|
|
|
|
return ok;
|
|
|
|
}
|
|
|
|
if (a->ob_descr->typecode == 'c') {
|
|
|
|
fprintf(fp, "array('c', ");
|
1996-12-09 20:10:36 +00:00
|
|
|
v = array_tostring(a, (PyObject *)NULL);
|
|
|
|
ok = PyObject_Print(v, fp, 0);
|
|
|
|
Py_XDECREF(v);
|
1993-02-19 15:55:02 +00:00
|
|
|
fprintf(fp, ")");
|
|
|
|
return ok;
|
|
|
|
}
|
|
|
|
fprintf(fp, "array('%c', [", a->ob_descr->typecode);
|
|
|
|
for (i = 0; i < len && ok == 0; i++) {
|
|
|
|
if (i > 0)
|
|
|
|
fprintf(fp, ", ");
|
|
|
|
v = (a->ob_descr->getitem)(a, i);
|
1996-12-09 20:10:36 +00:00
|
|
|
ok = PyObject_Print(v, fp, 0);
|
|
|
|
Py_XDECREF(v);
|
1993-02-19 15:55:02 +00:00
|
|
|
}
|
|
|
|
fprintf(fp, "])");
|
|
|
|
return ok;
|
|
|
|
}
|
|
|
|
|
1996-12-09 20:10:36 +00:00
|
|
|
static PyObject *
|
1993-02-19 15:55:02 +00:00
|
|
|
array_repr(a)
|
|
|
|
arrayobject *a;
|
|
|
|
{
|
|
|
|
char buf[256];
|
1996-12-09 20:10:36 +00:00
|
|
|
PyObject *s, *t, *comma, *v;
|
1993-02-19 15:55:02 +00:00
|
|
|
int i, len;
|
|
|
|
len = a->ob_size;
|
|
|
|
if (len == 0) {
|
|
|
|
sprintf(buf, "array('%c')", a->ob_descr->typecode);
|
1996-12-09 20:10:36 +00:00
|
|
|
return PyString_FromString(buf);
|
1993-02-19 15:55:02 +00:00
|
|
|
}
|
|
|
|
if (a->ob_descr->typecode == 'c') {
|
|
|
|
sprintf(buf, "array('c', ");
|
1996-12-09 20:10:36 +00:00
|
|
|
s = PyString_FromString(buf);
|
|
|
|
v = array_tostring(a, (PyObject *)NULL);
|
|
|
|
t = PyObject_Repr(v);
|
|
|
|
Py_XDECREF(v);
|
|
|
|
PyString_ConcatAndDel(&s, t);
|
|
|
|
PyString_ConcatAndDel(&s, PyString_FromString(")"));
|
1993-02-19 15:55:02 +00:00
|
|
|
return s;
|
|
|
|
}
|
|
|
|
sprintf(buf, "array('%c', [", a->ob_descr->typecode);
|
1996-12-09 20:10:36 +00:00
|
|
|
s = PyString_FromString(buf);
|
|
|
|
comma = PyString_FromString(", ");
|
|
|
|
for (i = 0; i < len && !PyErr_Occurred(); i++) {
|
1994-08-01 11:34:53 +00:00
|
|
|
if (i > 0)
|
1996-12-09 20:10:36 +00:00
|
|
|
PyString_Concat(&s, comma);
|
1993-02-19 15:55:02 +00:00
|
|
|
v = (a->ob_descr->getitem)(a, i);
|
1996-12-09 20:10:36 +00:00
|
|
|
t = PyObject_Repr(v);
|
|
|
|
Py_XDECREF(v);
|
|
|
|
PyString_ConcatAndDel(&s, t);
|
1993-02-19 15:55:02 +00:00
|
|
|
}
|
1996-12-09 20:10:36 +00:00
|
|
|
Py_XDECREF(comma);
|
|
|
|
PyString_ConcatAndDel(&s, PyString_FromString("])"));
|
1993-02-19 15:55:02 +00:00
|
|
|
return s;
|
|
|
|
}
|
|
|
|
|
1997-05-05 22:15:02 +00:00
|
|
|
static int
|
|
|
|
array_buffer_getreadbuf(self, index, ptr)
|
|
|
|
arrayobject *self;
|
|
|
|
int index;
|
|
|
|
const void **ptr;
|
|
|
|
{
|
|
|
|
if ( index != 0 ) {
|
1998-10-13 14:27:22 +00:00
|
|
|
PyErr_SetString(PyExc_SystemError,
|
|
|
|
"Accessing non-existent array segment");
|
1997-05-05 22:15:02 +00:00
|
|
|
return -1;
|
|
|
|
}
|
|
|
|
*ptr = (void *)self->ob_item;
|
|
|
|
return self->ob_size*self->ob_descr->itemsize;
|
|
|
|
}
|
|
|
|
|
|
|
|
static int
|
|
|
|
array_buffer_getwritebuf(self, index, ptr)
|
|
|
|
arrayobject *self;
|
|
|
|
int index;
|
|
|
|
const void **ptr;
|
|
|
|
{
|
|
|
|
if ( index != 0 ) {
|
1998-10-13 14:27:22 +00:00
|
|
|
PyErr_SetString(PyExc_SystemError,
|
|
|
|
"Accessing non-existent array segment");
|
1997-05-05 22:15:02 +00:00
|
|
|
return -1;
|
|
|
|
}
|
|
|
|
*ptr = (void *)self->ob_item;
|
|
|
|
return self->ob_size*self->ob_descr->itemsize;
|
|
|
|
}
|
|
|
|
|
|
|
|
static int
|
|
|
|
array_buffer_getsegcount(self, lenp)
|
|
|
|
arrayobject *self;
|
|
|
|
int *lenp;
|
|
|
|
{
|
|
|
|
if ( lenp )
|
|
|
|
*lenp = self->ob_size*self->ob_descr->itemsize;
|
|
|
|
return 1;
|
|
|
|
}
|
|
|
|
|
1996-12-09 20:10:36 +00:00
|
|
|
static PySequenceMethods array_as_sequence = {
|
1996-12-09 22:24:19 +00:00
|
|
|
(inquiry)array_length, /*sq_length*/
|
|
|
|
(binaryfunc)array_concat, /*sq_concat*/
|
1994-08-01 11:34:53 +00:00
|
|
|
(intargfunc)array_repeat, /*sq_repeat*/
|
1996-12-09 22:24:19 +00:00
|
|
|
(intargfunc)array_item, /*sq_item*/
|
1994-08-01 11:34:53 +00:00
|
|
|
(intintargfunc)array_slice, /*sq_slice*/
|
|
|
|
(intobjargproc)array_ass_item, /*sq_ass_item*/
|
|
|
|
(intintobjargproc)array_ass_slice, /*sq_ass_slice*/
|
1993-02-19 15:55:02 +00:00
|
|
|
};
|
|
|
|
|
1997-05-05 22:15:02 +00:00
|
|
|
static PyBufferProcs array_as_buffer = {
|
|
|
|
(getreadbufferproc)array_buffer_getreadbuf,
|
|
|
|
(getwritebufferproc)array_buffer_getwritebuf,
|
|
|
|
(getsegcountproc)array_buffer_getsegcount,
|
|
|
|
};
|
|
|
|
|
|
|
|
|
1993-02-19 15:55:02 +00:00
|
|
|
|
|
|
|
|
1996-12-09 20:10:36 +00:00
|
|
|
static PyObject *
|
1993-02-19 15:55:02 +00:00
|
|
|
a_array(self, args)
|
1996-12-09 20:10:36 +00:00
|
|
|
PyObject *self;
|
|
|
|
PyObject *args;
|
1993-02-19 15:55:02 +00:00
|
|
|
{
|
|
|
|
char c;
|
1996-12-09 20:10:36 +00:00
|
|
|
PyObject *initial = NULL;
|
1993-02-19 15:55:02 +00:00
|
|
|
struct arraydescr *descr;
|
1996-12-09 20:10:36 +00:00
|
|
|
if (!PyArg_Parse(args, "c", &c)) {
|
|
|
|
PyErr_Clear();
|
|
|
|
if (!PyArg_Parse(args, "(cO)", &c, &initial))
|
1993-02-19 15:55:02 +00:00
|
|
|
return NULL;
|
1996-12-09 20:10:36 +00:00
|
|
|
if (!PyList_Check(initial) && !PyString_Check(initial)) {
|
|
|
|
PyErr_SetString(PyExc_TypeError,
|
1996-12-09 22:24:19 +00:00
|
|
|
"array initializer must be list or string");
|
1993-02-19 15:55:02 +00:00
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
for (descr = descriptors; descr->typecode != '\0'; descr++) {
|
|
|
|
if (descr->typecode == c) {
|
1996-12-09 20:10:36 +00:00
|
|
|
PyObject *a;
|
1993-02-19 15:55:02 +00:00
|
|
|
int len;
|
1996-12-09 20:10:36 +00:00
|
|
|
if (initial == NULL || !PyList_Check(initial))
|
1993-02-19 15:55:02 +00:00
|
|
|
len = 0;
|
|
|
|
else
|
1996-12-09 20:10:36 +00:00
|
|
|
len = PyList_Size(initial);
|
1993-02-19 15:55:02 +00:00
|
|
|
a = newarrayobject(len, descr);
|
|
|
|
if (a == NULL)
|
|
|
|
return NULL;
|
|
|
|
if (len > 0) {
|
|
|
|
int i;
|
|
|
|
for (i = 0; i < len; i++) {
|
1996-12-09 20:10:36 +00:00
|
|
|
PyObject *v =
|
|
|
|
PyList_GetItem(initial, i);
|
1993-02-19 15:55:02 +00:00
|
|
|
if (setarrayitem(a, i, v) != 0) {
|
1996-12-09 20:10:36 +00:00
|
|
|
Py_DECREF(a);
|
1993-02-19 15:55:02 +00:00
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
1996-12-09 20:10:36 +00:00
|
|
|
if (initial != NULL && PyString_Check(initial)) {
|
|
|
|
PyObject *v =
|
1993-02-19 15:55:02 +00:00
|
|
|
array_fromstring((arrayobject *)a, initial);
|
|
|
|
if (v == NULL) {
|
1996-12-09 20:10:36 +00:00
|
|
|
Py_DECREF(a);
|
1993-02-19 15:55:02 +00:00
|
|
|
return NULL;
|
|
|
|
}
|
1996-12-09 20:10:36 +00:00
|
|
|
Py_DECREF(v);
|
1993-02-19 15:55:02 +00:00
|
|
|
}
|
|
|
|
return a;
|
|
|
|
}
|
|
|
|
}
|
1996-12-09 22:24:19 +00:00
|
|
|
PyErr_SetString(PyExc_ValueError,
|
1997-01-03 19:09:47 +00:00
|
|
|
"bad typecode (must be c, b, B, h, H, i, I, l, L, f or d)");
|
1993-02-19 15:55:02 +00:00
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
|
1998-10-13 14:27:22 +00:00
|
|
|
static char a_array_doc [] =
|
|
|
|
"array(typecode [, initializer]) -> array\n\
|
|
|
|
\n\
|
|
|
|
Return a new array whose items are restricted by typecode, and\n\
|
|
|
|
initialized from the optional initializer value, which must be a list\n\
|
|
|
|
or a string.";
|
|
|
|
|
1996-12-09 20:10:36 +00:00
|
|
|
static PyMethodDef a_methods[] = {
|
1998-10-13 14:27:22 +00:00
|
|
|
{"array", a_array, 0, a_array_doc},
|
1993-02-19 15:55:02 +00:00
|
|
|
{NULL, NULL} /* sentinel */
|
|
|
|
};
|
|
|
|
|
1998-10-13 14:27:22 +00:00
|
|
|
static char module_doc [] =
|
|
|
|
"This module defines a new object type which can efficiently represent\n\
|
|
|
|
an array of basic values: characters, integers, floating point\n\
|
|
|
|
numbers. Arrays are sequence types and behave very much like lists,\n\
|
|
|
|
except that the type of objects stored in them is constrained. The\n\
|
|
|
|
type is specified at object creation time by using a type code, which\n\
|
|
|
|
is a single character. The following type codes are defined:\n\
|
|
|
|
\n\
|
|
|
|
Type code C Type Minimum size in bytes \n\
|
|
|
|
'c' character 1 \n\
|
|
|
|
'b' signed integer 1 \n\
|
|
|
|
'B' unsigned integer 1 \n\
|
|
|
|
'h' signed integer 2 \n\
|
|
|
|
'H' unsigned integer 2 \n\
|
|
|
|
'i' signed integer 2 \n\
|
|
|
|
'I' unsigned integer 2 \n\
|
|
|
|
'l' signed integer 4 \n\
|
|
|
|
'L' unsigned integer 4 \n\
|
|
|
|
'f' floating point 4 \n\
|
|
|
|
'd' floating point 8 \n\
|
|
|
|
\n\
|
|
|
|
Functions:\n\
|
|
|
|
\n\
|
|
|
|
array(typecode [, initializer]) -- create a new array\n\
|
|
|
|
\n\
|
|
|
|
Special Objects:\n\
|
|
|
|
\n\
|
|
|
|
ArrayType -- type object for array objects\n\
|
|
|
|
";
|
|
|
|
|
|
|
|
static char arraytype_doc [] =
|
|
|
|
"An array represents basic values and behave very much like lists, except\n\
|
|
|
|
the type of objects stored in them is constrained.\n\
|
|
|
|
\n\
|
|
|
|
Methods:\n\
|
|
|
|
\n\
|
|
|
|
append() -- append a new item to the end of the array\n\
|
|
|
|
buffer_info() -- return information giving the current memory info\n\
|
|
|
|
byteswap() -- byteswap all the items of the array\n\
|
|
|
|
fromfile() -- read items from a file object\n\
|
|
|
|
fromlist() -- append items from the list\n\
|
|
|
|
fromstring() -- append items from the string\n\
|
|
|
|
insert() -- insert a new item into the array at a provided position\n\
|
|
|
|
read() -- DEPRECATED, use fromfile()\n\
|
|
|
|
reverse() -- reverse the order of the items in the array\n\
|
|
|
|
tofile() -- write all items to a file object\n\
|
|
|
|
tolist() -- return the array converted to an ordinary list\n\
|
|
|
|
tostring() -- return the array converted to a string\n\
|
|
|
|
write() -- DEPRECATED, use tofile()\n\
|
|
|
|
\n\
|
|
|
|
Variables:\n\
|
|
|
|
\n\
|
|
|
|
typecode -- the typecode character used to create the array\n\
|
|
|
|
itemsize -- the length in bytes of one array item\n\
|
|
|
|
";
|
|
|
|
|
|
|
|
statichere PyTypeObject Arraytype = {
|
|
|
|
PyObject_HEAD_INIT(&PyType_Type)
|
|
|
|
0,
|
|
|
|
"array",
|
|
|
|
sizeof(arrayobject),
|
|
|
|
0,
|
|
|
|
(destructor)array_dealloc, /*tp_dealloc*/
|
|
|
|
(printfunc)array_print, /*tp_print*/
|
|
|
|
(getattrfunc)array_getattr, /*tp_getattr*/
|
|
|
|
0, /*tp_setattr*/
|
|
|
|
(cmpfunc)array_compare, /*tp_compare*/
|
|
|
|
(reprfunc)array_repr, /*tp_repr*/
|
|
|
|
0, /*tp_as_number*/
|
|
|
|
&array_as_sequence, /*tp_as_sequence*/
|
|
|
|
0, /*tp_as_mapping*/
|
|
|
|
0, /*tp_hash*/
|
|
|
|
0, /*tp_call*/
|
|
|
|
0, /*tp_str*/
|
|
|
|
0, /*tp_getattro*/
|
|
|
|
0, /*tp_setattro*/
|
|
|
|
&array_as_buffer, /*tp_as_buffer*/
|
|
|
|
0, /*tp_xxx4*/
|
|
|
|
arraytype_doc, /*tp_doc*/
|
|
|
|
};
|
|
|
|
|
1998-12-04 18:50:17 +00:00
|
|
|
DL_EXPORT(void)
|
1993-02-19 15:55:02 +00:00
|
|
|
initarray()
|
|
|
|
{
|
1997-05-22 14:56:36 +00:00
|
|
|
PyObject *m, *d;
|
1998-10-13 14:27:22 +00:00
|
|
|
m = Py_InitModule3("array", a_methods, module_doc);
|
1997-05-22 14:56:36 +00:00
|
|
|
d = PyModule_GetDict(m);
|
1998-10-14 13:45:06 +00:00
|
|
|
PyDict_SetItemString(d, "ArrayType", (PyObject *)&Arraytype);
|
|
|
|
/* No need to check the error here, the caller will do that */
|
1993-02-19 15:55:02 +00:00
|
|
|
}
|