#define PY_SSIZE_T_CLEAN

#include "Python.h"

#include <float.h>

#include "structmember.h"

#include "datetime.h"

#ifdef WITH_THREAD

#include "pythread.h"

#endif /* WITH_THREAD */

static PyObject *TestError; /* set to exception object in init */

static PyObject *

raiseTestError(const char* test_name, const char* msg)

{

char buf[2048];

if (strlen(test_name) + strlen(msg) > sizeof(buf) - 50)

PyErr_SetString(TestError, "internal error msg too large");

else {

PyOS_snprintf(buf, sizeof(buf), "%s: %s", test_name, msg);

PyErr_SetString(TestError, buf);

}

return NULL;

}

static PyObject*

sizeof_error(const char* fatname, const char* typname,

int expected, int got)

{

char buf[1024];

PyOS_snprintf(buf, sizeof(buf),

"%.200s #define == %d but sizeof(%.200s) == %d",

fatname, expected, typname, got);

PyErr_SetString(TestError, buf);

return (PyObject*)NULL;

}

static PyObject*

test_config(PyObject *self)

{

#define CHECK_SIZEOF(FATNAME, TYPE) \

if (FATNAME != sizeof(TYPE)) \

return sizeof_error(#FATNAME, #TYPE, FATNAME, sizeof(TYPE))

CHECK_SIZEOF(SIZEOF_SHORT, short);

CHECK_SIZEOF(SIZEOF_INT, int);

CHECK_SIZEOF(SIZEOF_LONG, long);

CHECK_SIZEOF(SIZEOF_VOID_P, void*);

CHECK_SIZEOF(SIZEOF_TIME_T, time_t);

#ifdef HAVE_LONG_LONG

CHECK_SIZEOF(SIZEOF_LONG_LONG, PY_LONG_LONG);

#undef CHECK_SIZEOF

Py_INCREF(Py_None);

return Py_None;

}

static PyObject*

test_list_api(PyObject *self)

{

PyObject* list;

int i;

/* SF bug 132008: PyList_Reverse segfaults */

#define NLIST 30

list = PyList_New(NLIST);

if (list == (PyObject*)NULL)

return (PyObject*)NULL;

/* list = range(NLIST) */

for (i = 0; i < NLIST; ++i) {

PyObject* anint = PyLong_FromLong(i);

if (anint == (PyObject*)NULL) {

Py_DECREF(list);

return (PyObject*)NULL;

}

PyList_SET_ITEM(list, i, anint);

}

/* list.reverse(), via PyList_Reverse() */

i = PyList_Reverse(list); /* should not blow up! */

if (i != 0) {

Py_DECREF(list);

return (PyObject*)NULL;

}

/* Check that list == range(29, -1, -1) now */

for (i = 0; i < NLIST; ++i) {

PyObject* anint = PyList_GET_ITEM(list, i);

if (PyLong_AS_LONG(anint) != NLIST-1-i) {

PyErr_SetString(TestError,

"test_list_api: reverse screwed up");

Py_DECREF(list);

return (PyObject*)NULL;

}

}

Py_DECREF(list);

#undef NLIST

Py_INCREF(Py_None);

return Py_None;

}

static int

test_dict_inner(int count)

{

Py_ssize_t pos = 0, iterations = 0;

int i;

PyObject *dict = PyDict_New();

PyObject *v, *k;

if (dict == NULL)

return -1;

for (i = 0; i < count; i++) {

v = PyLong_FromLong(i);

PyDict_SetItem(dict, v, v);

Py_DECREF(v);

}

while (PyDict_Next(dict, &pos, &k, &v)) {

PyObject *o;

iterations++;

i = PyLong_AS_LONG(v) + 1;

o = PyLong_FromLong(i);

if (o == NULL)

return -1;

if (PyDict_SetItem(dict, k, o) < 0) {

Py_DECREF(o);

return -1;

}

Py_DECREF(o);

}

Py_DECREF(dict);

if (iterations != count) {

PyErr_SetString(

TestError,

"test_dict_iteration: dict iteration went wrong ");

return -1;

} else {

return 0;

}

}

static PyObject*

test_dict_iteration(PyObject* self)

{

int i;

for (i = 0; i < 200; i++) {

if (test_dict_inner(i) < 0) {

return NULL;

}

}

Py_INCREF(Py_None);

return Py_None;

}

static PyTypeObject _HashInheritanceTester_Type = {

PyVarObject_HEAD_INIT(NULL, 0)

"hashinheritancetester", /* Name of this type */

sizeof(PyObject), /* Basic object size */

0, /* Item size for varobject */

(destructor)PyObject_Del, /* tp_dealloc */

0, /* tp_print */

0, /* tp_getattr */

0, /* tp_setattr */

0, /* tp_reserved */

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, /* tp_flags */

0, /* tp_doc */

0, /* tp_traverse */

0, /* tp_clear */

0, /* tp_richcompare */

0, /* tp_weaklistoffset */

0, /* tp_iter */

0, /* tp_iternext */

0, /* tp_methods */

0, /* tp_members */

0, /* tp_getset */

0, /* tp_base */

0, /* tp_dict */

0, /* tp_descr_get */

0, /* tp_descr_set */

0, /* tp_dictoffset */

0, /* tp_init */

0, /* tp_alloc */

PyType_GenericNew, /* tp_new */

};

static PyObject*

test_lazy_hash_inheritance(PyObject* self)

{

PyTypeObject *type;

PyObject *obj;

Py_hash_t hash;

type = &_HashInheritanceTester_Type;

if (type->tp_dict != NULL)

/* The type has already been initialized. This probably means

Py_RETURN_NONE;

obj = PyObject_New(PyObject, type);

if (obj == NULL) {

PyErr_Clear();

PyErr_SetString(

TestError,

"test_lazy_hash_inheritance: failed to create object");

return NULL;

}

if (type->tp_dict != NULL) {

PyErr_SetString(

TestError,

"test_lazy_hash_inheritance: type initialised too soon");

Py_DECREF(obj);

return NULL;

}

hash = PyObject_Hash(obj);

if ((hash == -1) && PyErr_Occurred()) {

PyErr_Clear();

PyErr_SetString(

TestError,

"test_lazy_hash_inheritance: could not hash object");

Py_DECREF(obj);

return NULL;

}

if (type->tp_dict == NULL) {

PyErr_SetString(

TestError,

"test_lazy_hash_inheritance: type not initialised by hash()");

Py_DECREF(obj);

return NULL;

}

if (type->tp_hash != PyType_Type.tp_hash) {

PyErr_SetString(

TestError,

"test_lazy_hash_inheritance: unexpected hash function");

Py_DECREF(obj);

return NULL;

}

Py_DECREF(obj);

Py_RETURN_NONE;

}

static int

broken_buffer_getbuffer(PyObject *self, Py_buffer *view, int flags)

{

PyErr_SetString(

TestError,

"test_broken_memoryview: expected error in bf_getbuffer");

return -1;

}

static PyBufferProcs memoryviewtester_as_buffer = {

(getbufferproc)broken_buffer_getbuffer, /* bf_getbuffer */

0, /* bf_releasebuffer */

};

static PyTypeObject _MemoryViewTester_Type = {

PyVarObject_HEAD_INIT(NULL, 0)

"memoryviewtester", /* Name of this type */

sizeof(PyObject), /* Basic object size */

0, /* Item size for varobject */

(destructor)PyObject_Del, /* 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 */

&memoryviewtester_as_buffer, /* tp_as_buffer */

Py_TPFLAGS_DEFAULT, /* tp_flags */

0, /* tp_doc */

0, /* tp_traverse */

0, /* tp_clear */

0, /* tp_richcompare */

0, /* tp_weaklistoffset */

0, /* tp_iter */

0, /* tp_iternext */

0, /* tp_methods */

0, /* tp_members */

0, /* tp_getset */

0, /* tp_base */

0, /* tp_dict */

0, /* tp_descr_get */

0, /* tp_descr_set */

0, /* tp_dictoffset */

0, /* tp_init */

0, /* tp_alloc */

PyType_GenericNew, /* tp_new */

};

static PyObject*

test_broken_memoryview(PyObject* self)

{

PyObject *obj = PyObject_New(PyObject, &_MemoryViewTester_Type);

PyObject *res;

if (obj == NULL) {

PyErr_Clear();

PyErr_SetString(

TestError,

"test_broken_memoryview: failed to create object");

return NULL;

}

res = PyMemoryView_FromObject(obj);

if (res || !PyErr_Occurred()){

PyErr_SetString(

TestError,

"test_broken_memoryview: memoryview() didn't raise an Exception");

Py_XDECREF(res);

Py_DECREF(obj);

return NULL;

}

PyErr_Clear();

Py_DECREF(obj);

Py_RETURN_NONE;

}

#define UNBIND(X) Py_DECREF(X); (X) = NULL

static PyObject *

raise_test_long_error(const char* msg)

{

return raiseTestError("test_long_api", msg);

}

#define TESTNAME test_long_api_inner

#define TYPENAME long

#define F_S_TO_PY PyLong_FromLong

#define F_PY_TO_S PyLong_AsLong

#define F_U_TO_PY PyLong_FromUnsignedLong

#define F_PY_TO_U PyLong_AsUnsignedLong

#include "testcapi_long.h"

static PyObject *

test_long_api(PyObject* self)

{

return TESTNAME(raise_test_long_error);

}

#undef TESTNAME

#undef TYPENAME

#undef F_S_TO_PY

#undef F_PY_TO_S

#undef F_U_TO_PY

#undef F_PY_TO_U

#ifdef HAVE_LONG_LONG

static PyObject *

raise_test_longlong_error(const char* msg)

{

return raiseTestError("test_longlong_api", msg);

}

#define TESTNAME test_longlong_api_inner

#define TYPENAME PY_LONG_LONG

#define F_S_TO_PY PyLong_FromLongLong

#define F_PY_TO_S PyLong_AsLongLong

#define F_U_TO_PY PyLong_FromUnsignedLongLong

#define F_PY_TO_U PyLong_AsUnsignedLongLong

#include "testcapi_long.h"

static PyObject *

test_longlong_api(PyObject* self, PyObject *args)

{

return TESTNAME(raise_test_longlong_error);

}

#undef TESTNAME

#undef TYPENAME

#undef F_S_TO_PY

#undef F_PY_TO_S

#undef F_U_TO_PY

#undef F_PY_TO_U

static PyObject *

test_long_and_overflow(PyObject *self)

{

PyObject *num, *one, *temp;

long value;

int overflow;

/* Test that overflow is set properly for a large value. */

/* num is a number larger than LONG_MAX even on 64-bit platforms */

num = PyLong_FromString("FFFFFFFFFFFFFFFFFFFFFFFF", NULL, 16);

if (num == NULL)

return NULL;

overflow = 1234;

value = PyLong_AsLongAndOverflow(num, &overflow);

Py_DECREF(num);

if (value == -1 && PyErr_Occurred())

return NULL;

if (value != -1)

return raiseTestError("test_long_and_overflow",

"return value was not set to -1");

if (overflow != 1)

return raiseTestError("test_long_and_overflow",

"overflow was not set to 1");

/* Same again, with num = LONG_MAX + 1 */

num = PyLong_FromLong(LONG_MAX);

if (num == NULL)

return NULL;

one = PyLong_FromLong(1L);

if (one == NULL) {

Py_DECREF(num);

return NULL;

}

temp = PyNumber_Add(num, one);

Py_DECREF(one);

Py_DECREF(num);

num = temp;

if (num == NULL)

return NULL;

overflow = 0;

value = PyLong_AsLongAndOverflow(num, &overflow);

Py_DECREF(num);

if (value == -1 && PyErr_Occurred())

return NULL;

if (value != -1)

return raiseTestError("test_long_and_overflow",

"return value was not set to -1");

if (overflow != 1)

return raiseTestError("test_long_and_overflow",

"overflow was not set to 1");

/* Test that overflow is set properly for a large negative value. */

/* num is a number smaller than LONG_MIN even on 64-bit platforms */

num = PyLong_FromString("-FFFFFFFFFFFFFFFFFFFFFFFF", NULL, 16);

if (num == NULL)

return NULL;

overflow = 1234;

value = PyLong_AsLongAndOverflow(num, &overflow);

Py_DECREF(num);

if (value == -1 && PyErr_Occurred())

return NULL;

if (value != -1)

return raiseTestError("test_long_and_overflow",

"return value was not set to -1");

if (overflow != -1)

return raiseTestError("test_long_and_overflow",

"overflow was not set to -1");

/* Same again, with num = LONG_MIN - 1 */

num = PyLong_FromLong(LONG_MIN);

if (num == NULL)

return NULL;

one = PyLong_FromLong(1L);

if (one == NULL) {

Py_DECREF(num);

return NULL;

}

temp = PyNumber_Subtract(num, one);

Py_DECREF(one);

Py_DECREF(num);

num = temp;

if (num == NULL)

return NULL;

overflow = 0;

value = PyLong_AsLongAndOverflow(num, &overflow);

Py_DECREF(num);

if (value == -1 && PyErr_Occurred())

return NULL;

if (value != -1)

return raiseTestError("test_long_and_overflow",

"return value was not set to -1");

if (overflow != -1)

return raiseTestError("test_long_and_overflow",

"overflow was not set to -1");

/* Test that overflow is cleared properly for small values. */

num = PyLong_FromString("FF", NULL, 16);

if (num == NULL)

return NULL;

overflow = 1234;

value = PyLong_AsLongAndOverflow(num, &overflow);

Py_DECREF(num);

if (value == -1 && PyErr_Occurred())

return NULL;

if (value != 0xFF)

return raiseTestError("test_long_and_overflow",

"expected return value 0xFF");

if (overflow != 0)

return raiseTestError("test_long_and_overflow",

"overflow was not cleared");

num = PyLong_FromString("-FF", NULL, 16);

if (num == NULL)

return NULL;

overflow = 0;

value = PyLong_AsLongAndOverflow(num, &overflow);

Py_DECREF(num);

if (value == -1 && PyErr_Occurred())

return NULL;

if (value != -0xFF)

return raiseTestError("test_long_and_overflow",

"expected return value 0xFF");

if (overflow != 0)

return raiseTestError("test_long_and_overflow",

"overflow was set incorrectly");

num = PyLong_FromLong(LONG_MAX);

if (num == NULL)

return NULL;

overflow = 1234;

value = PyLong_AsLongAndOverflow(num, &overflow);

Py_DECREF(num);

if (value == -1 && PyErr_Occurred())

return NULL;

if (value != LONG_MAX)

return raiseTestError("test_long_and_overflow",

"expected return value LONG_MAX");

if (overflow != 0)

return raiseTestError("test_long_and_overflow",

"overflow was not cleared");

num = PyLong_FromLong(LONG_MIN);

if (num == NULL)

return NULL;

overflow = 0;

value = PyLong_AsLongAndOverflow(num, &overflow);

Py_DECREF(num);

if (value == -1 && PyErr_Occurred())

return NULL;

if (value != LONG_MIN)

return raiseTestError("test_long_and_overflow",

"expected return value LONG_MIN");

if (overflow != 0)

return raiseTestError("test_long_and_overflow",

"overflow was not cleared");

Py_INCREF(Py_None);

return Py_None;

}

static PyObject *

test_long_long_and_overflow(PyObject *self)

{

PyObject *num, *one, *temp;

PY_LONG_LONG value;

int overflow;

/* Test that overflow is set properly for a large value. */

/* num is a number larger than PY_LLONG_MAX on a typical machine. */

num = PyLong_FromString("FFFFFFFFFFFFFFFFFFFFFFFF", NULL, 16);

if (num == NULL)

return NULL;

overflow = 1234;

value = PyLong_AsLongLongAndOverflow(num, &overflow);

Py_DECREF(num);

if (value == -1 && PyErr_Occurred())

return NULL;

if (value != -1)

return raiseTestError("test_long_long_and_overflow",

"return value was not set to -1");

if (overflow != 1)

return raiseTestError("test_long_long_and_overflow",

"overflow was not set to 1");

/* Same again, with num = PY_LLONG_MAX + 1 */

num = PyLong_FromLongLong(PY_LLONG_MAX);

if (num == NULL)

return NULL;

one = PyLong_FromLong(1L);

if (one == NULL) {

Py_DECREF(num);

return NULL;

}

temp = PyNumber_Add(num, one);

Py_DECREF(one);

Py_DECREF(num);

num = temp;

if (num == NULL)

return NULL;

overflow = 0;

value = PyLong_AsLongLongAndOverflow(num, &overflow);

Py_DECREF(num);

if (value == -1 && PyErr_Occurred())

return NULL;

if (value != -1)

return raiseTestError("test_long_long_and_overflow",

"return value was not set to -1");

if (overflow != 1)

return raiseTestError("test_long_long_and_overflow",

"overflow was not set to 1");

/* Test that overflow is set properly for a large negative value. */

/* num is a number smaller than PY_LLONG_MIN on a typical platform */

num = PyLong_FromString("-FFFFFFFFFFFFFFFFFFFFFFFF", NULL, 16);

if (num == NULL)

return NULL;

overflow = 1234;

value = PyLong_AsLongLongAndOverflow(num, &overflow);

Py_DECREF(num);

if (value == -1 && PyErr_Occurred())

return NULL;

if (value != -1)

return raiseTestError("test_long_long_and_overflow",

"return value was not set to -1");

if (overflow != -1)

return raiseTestError("test_long_long_and_overflow",

"overflow was not set to -1");

/* Same again, with num = PY_LLONG_MIN - 1 */

num = PyLong_FromLongLong(PY_LLONG_MIN);

if (num == NULL)

return NULL;

one = PyLong_FromLong(1L);

if (one == NULL) {

Py_DECREF(num);

return NULL;

}

temp = PyNumber_Subtract(num, one);

Py_DECREF(one);

Py_DECREF(num);

num = temp;

if (num == NULL)

return NULL;

overflow = 0;

value = PyLong_AsLongLongAndOverflow(num, &overflow);

Py_DECREF(num);

if (value == -1 && PyErr_Occurred())

return NULL;

if (value != -1)

return raiseTestError("test_long_long_and_overflow",

"return value was not set to -1");

if (overflow != -1)

return raiseTestError("test_long_long_and_overflow",

"overflow was not set to -1");

/* Test that overflow is cleared properly for small values. */

num = PyLong_FromString("FF", NULL, 16);

if (num == NULL)

return NULL;

overflow = 1234;

value = PyLong_AsLongLongAndOverflow(num, &overflow);

Py_DECREF(num);

if (value == -1 && PyErr_Occurred())

return NULL;

if (value != 0xFF)

return raiseTestError("test_long_long_and_overflow",

"expected return value 0xFF");

if (overflow != 0)

return raiseTestError("test_long_long_and_overflow",

"overflow was not cleared");

num = PyLong_FromString("-FF", NULL, 16);

if (num == NULL)

return NULL;

overflow = 0;

value = PyLong_AsLongLongAndOverflow(num, &overflow);

Py_DECREF(num);

if (value == -1 && PyErr_Occurred())

return NULL;

if (value != -0xFF)

return raiseTestError("test_long_long_and_overflow",

"expected return value 0xFF");

if (overflow != 0)

return raiseTestError("test_long_long_and_overflow",

"overflow was set incorrectly");

num = PyLong_FromLongLong(PY_LLONG_MAX);

if (num == NULL)

return NULL;

overflow = 1234;

value = PyLong_AsLongLongAndOverflow(num, &overflow);

Py_DECREF(num);

if (value == -1 && PyErr_Occurred())

return NULL;

if (value != PY_LLONG_MAX)

return raiseTestError("test_long_long_and_overflow",

"expected return value PY_LLONG_MAX");

if (overflow != 0)

return raiseTestError("test_long_long_and_overflow",

"overflow was not cleared");

num = PyLong_FromLongLong(PY_LLONG_MIN);

if (num == NULL)

return NULL;

overflow = 0;

value = PyLong_AsLongLongAndOverflow(num, &overflow);

Py_DECREF(num);

if (value == -1 && PyErr_Occurred())

return NULL;

if (value != PY_LLONG_MIN)

return raiseTestError("test_long_long_and_overflow",

"expected return value PY_LLONG_MIN");

if (overflow != 0)

return raiseTestError("test_long_long_and_overflow",

"overflow was not cleared");

Py_INCREF(Py_None);

return Py_None;

}

static PyObject *

test_L_code(PyObject *self)

{

PyObject *tuple, *num;

PY_LONG_LONG value;

tuple = PyTuple_New(1);

if (tuple == NULL)

return NULL;

num = PyLong_FromLong(42);

if (num == NULL)

return NULL;

PyTuple_SET_ITEM(tuple, 0, num);

value = -1;

if (PyArg_ParseTuple(tuple, "L:test_L_code", &value) < 0)

return NULL;

if (value != 42)

return raiseTestError("test_L_code",

"L code returned wrong value for long 42");

Py_DECREF(num);

num = PyLong_FromLong(42);

if (num == NULL)

return NULL;

PyTuple_SET_ITEM(tuple, 0, num);

value = -1;

if (PyArg_ParseTuple(tuple, "L:test_L_code", &value) < 0)

return NULL;

if (value != 42)

return raiseTestError("test_L_code",

"L code returned wrong value for int 42");

Py_DECREF(tuple);

Py_INCREF(Py_None);

return Py_None;

}

#endif /* ifdef HAVE_LONG_LONG */

static PyObject *

getargs_tuple(PyObject *self, PyObject *args)

{

int a, b, c;

if (!PyArg_ParseTuple(args, "i(ii)", &a, &b, &c))

return NULL;

return Py_BuildValue("iii", a, b, c);

}

static PyObject *getargs_keywords(PyObject *self, PyObject *args, PyObject *kwargs)

{

static char *keywords[] = {"arg1","arg2","arg3","arg4","arg5", NULL};

static char *fmt="(ii)i|(i(ii))(iii)i";

int int_args[10]={-1, -1, -1, -1, -1, -1, -1, -1, -1, -1};

if (!PyArg_ParseTupleAndKeywords(args, kwargs, fmt, keywords,

&int_args[0], &int_args[1], &int_args[2], &int_args[3], &int_args[4],

&int_args[5], &int_args[6], &int_args[7], &int_args[8], &int_args[9]))

return NULL;

return Py_BuildValue("iiiiiiiiii",

int_args[0], int_args[1], int_args[2], int_args[3], int_args[4],

int_args[5], int_args[6], int_args[7], int_args[8], int_args[9]);

}

static PyObject *

getargs_b(PyObject *self, PyObject *args)

{

unsigned char value;

if (!PyArg_ParseTuple(args, "b", &value))

return NULL;

return PyLong_FromUnsignedLong((unsigned long)value);

}

static PyObject *

getargs_B(PyObject *self, PyObject *args)

{

unsigned char value;

if (!PyArg_ParseTuple(args, "B", &value))

return NULL;

return PyLong_FromUnsignedLong((unsigned long)value);

}

static PyObject *

getargs_h(PyObject *self, PyObject *args)

{

short value;

if (!PyArg_ParseTuple(args, "h", &value))

return NULL;

return PyLong_FromLong((long)value);

}

static PyObject *

getargs_H(PyObject *self, PyObject *args)

{

unsigned short value;

if (!PyArg_ParseTuple(args, "H", &value))

return NULL;

return PyLong_FromUnsignedLong((unsigned long)value);

}

static PyObject *

getargs_I(PyObject *self, PyObject *args)

{

unsigned int value;

if (!PyArg_ParseTuple(args, "I", &value))

return NULL;

return PyLong_FromUnsignedLong((unsigned long)value);

}

static PyObject *

getargs_k(PyObject *self, PyObject *args)

{

unsigned long value;

if (!PyArg_ParseTuple(args, "k", &value))

return NULL;

return PyLong_FromUnsignedLong(value);

}

static PyObject *

getargs_i(PyObject *self, PyObject *args)

{

int value;

if (!PyArg_ParseTuple(args, "i", &value))

return NULL;

return PyLong_FromLong((long)value);

}

static PyObject *

getargs_l(PyObject *self, PyObject *args)

{

long value;

if (!PyArg_ParseTuple(args, "l", &value))

return NULL;

return PyLong_FromLong(value);

}

static PyObject *

getargs_n(PyObject *self, PyObject *args)

{

Py_ssize_t value;

if (!PyArg_ParseTuple(args, "n", &value))

return NULL;

return PyLong_FromSsize_t(value);

}

#ifdef HAVE_LONG_LONG

static PyObject *

getargs_L(PyObject *self, PyObject *args)

{

PY_LONG_LONG value;

if (!PyArg_ParseTuple(args, "L", &value))

return NULL;

return PyLong_FromLongLong(value);

}

static PyObject *

getargs_K(PyObject *self, PyObject *args)

{

unsigned PY_LONG_LONG value;

if (!PyArg_ParseTuple(args, "K", &value))

return NULL;

return PyLong_FromUnsignedLongLong(value);

}

static PyObject *

test_k_code(PyObject *self)

{

PyObject *tuple, *num;

unsigned long value;

tuple = PyTuple_New(1);

if (tuple == NULL)

return NULL;

/* a number larger than ULONG_MAX even on 64-bit platforms */

num = PyLong_FromString("FFFFFFFFFFFFFFFFFFFFFFFF", NULL, 16);

if (num == NULL)

return NULL;

value = PyLong_AsUnsignedLongMask(num);

if (value != ULONG_MAX)

return raiseTestError("test_k_code",

"PyLong_AsUnsignedLongMask() returned wrong value for long 0xFFF...FFF");

PyTuple_SET_ITEM(tuple, 0, num);

value = 0;

if (PyArg_ParseTuple(tuple, "k:test_k_code", &value) < 0)

return NULL;

if (value != ULONG_MAX)

return raiseTestError("test_k_code",

"k code returned wrong value for long 0xFFF...FFF");

Py_DECREF(num);

num = PyLong_FromString("-FFFFFFFF000000000000000042", NULL, 16);

if (num == NULL)

return NULL;

value = PyLong_AsUnsignedLongMask(num);

if (value != (unsigned long)-0x42)

return raiseTestError("test_k_code",

"PyLong_AsUnsignedLongMask() returned wrong value for long 0xFFF...FFF");

PyTuple_SET_ITEM(tuple, 0, num);