/* New getargs implementation */ | |
#include "Python.h" | |
#include <ctype.h> | |
#ifdef __cplusplus | |
extern "C" { | |
#endif | |
int PyArg_Parse(PyObject *, const char *, ...); | |
int PyArg_ParseTuple(PyObject *, const char *, ...); | |
int PyArg_VaParse(PyObject *, const char *, va_list); | |
int PyArg_ParseTupleAndKeywords(PyObject *, PyObject *, | |
const char *, char **, ...); | |
int PyArg_VaParseTupleAndKeywords(PyObject *, PyObject *, | |
const char *, char **, va_list); | |
#ifdef HAVE_DECLSPEC_DLL | |
/* Export functions */ | |
PyAPI_FUNC(int) _PyArg_Parse_SizeT(PyObject *, char *, ...); | |
PyAPI_FUNC(int) _PyArg_ParseTuple_SizeT(PyObject *, char *, ...); | |
PyAPI_FUNC(int) _PyArg_ParseTupleAndKeywords_SizeT(PyObject *, PyObject *, | |
const char *, char **, ...); | |
PyAPI_FUNC(PyObject *) _Py_BuildValue_SizeT(const char *, ...); | |
PyAPI_FUNC(int) _PyArg_VaParse_SizeT(PyObject *, char *, va_list); | |
PyAPI_FUNC(int) _PyArg_VaParseTupleAndKeywords_SizeT(PyObject *, PyObject *, | |
const char *, char **, va_list); | |
#endif | |
#define FLAG_COMPAT 1 | |
#define FLAG_SIZE_T 2 | |
/* Forward */ | |
static int vgetargs1(PyObject *, const char *, va_list *, int); | |
static void seterror(int, const char *, int *, const char *, const char *); | |
static char *convertitem(PyObject *, const char **, va_list *, int, int *, | |
char *, size_t, PyObject **); | |
static char *converttuple(PyObject *, const char **, va_list *, int, | |
int *, char *, size_t, int, PyObject **); | |
static char *convertsimple(PyObject *, const char **, va_list *, int, char *, | |
size_t, PyObject **); | |
static Py_ssize_t convertbuffer(PyObject *, void **p, char **); | |
static int getbuffer(PyObject *, Py_buffer *, char**); | |
static int vgetargskeywords(PyObject *, PyObject *, | |
const char *, char **, va_list *, int); | |
static char *skipitem(const char **, va_list *, int); | |
int | |
PyArg_Parse(PyObject *args, const char *format, ...) | |
{ | |
int retval; | |
va_list va; | |
va_start(va, format); | |
retval = vgetargs1(args, format, &va, FLAG_COMPAT); | |
va_end(va); | |
return retval; | |
} | |
int | |
_PyArg_Parse_SizeT(PyObject *args, char *format, ...) | |
{ | |
int retval; | |
va_list va; | |
va_start(va, format); | |
retval = vgetargs1(args, format, &va, FLAG_COMPAT|FLAG_SIZE_T); | |
va_end(va); | |
return retval; | |
} | |
int | |
PyArg_ParseTuple(PyObject *args, const char *format, ...) | |
{ | |
int retval; | |
va_list va; | |
va_start(va, format); | |
retval = vgetargs1(args, format, &va, 0); | |
va_end(va); | |
return retval; | |
} | |
int | |
_PyArg_ParseTuple_SizeT(PyObject *args, char *format, ...) | |
{ | |
int retval; | |
va_list va; | |
va_start(va, format); | |
retval = vgetargs1(args, format, &va, FLAG_SIZE_T); | |
va_end(va); | |
return retval; | |
} | |
int | |
PyArg_VaParse(PyObject *args, const char *format, va_list va) | |
{ | |
va_list lva; | |
#ifdef VA_LIST_IS_ARRAY | |
memcpy(lva, va, sizeof(va_list)); | |
#else | |
#ifdef __va_copy | |
__va_copy(lva, va); | |
#else | |
lva = va; | |
#endif | |
#endif | |
return vgetargs1(args, format, &lva, 0); | |
} | |
int | |
_PyArg_VaParse_SizeT(PyObject *args, char *format, va_list va) | |
{ | |
va_list lva; | |
#ifdef VA_LIST_IS_ARRAY | |
memcpy(lva, va, sizeof(va_list)); | |
#else | |
#ifdef __va_copy | |
__va_copy(lva, va); | |
#else | |
lva = va; | |
#endif | |
#endif | |
return vgetargs1(args, format, &lva, FLAG_SIZE_T); | |
} | |
/* Handle cleanup of allocated memory in case of exception */ | |
#define GETARGS_CAPSULE_NAME_CLEANUP_PTR "getargs.cleanup_ptr" | |
#define GETARGS_CAPSULE_NAME_CLEANUP_BUFFER "getargs.cleanup_buffer" | |
static void | |
cleanup_ptr(PyObject *self) | |
{ | |
void *ptr = PyCapsule_GetPointer(self, GETARGS_CAPSULE_NAME_CLEANUP_PTR); | |
if (ptr) { | |
PyMem_FREE(ptr); | |
} | |
} | |
static void | |
cleanup_buffer(PyObject *self) | |
{ | |
Py_buffer *ptr = (Py_buffer *)PyCapsule_GetPointer(self, GETARGS_CAPSULE_NAME_CLEANUP_BUFFER); | |
if (ptr) { | |
PyBuffer_Release(ptr); | |
} | |
} | |
static int | |
addcleanup(void *ptr, PyObject **freelist, PyCapsule_Destructor destr) | |
{ | |
PyObject *cobj; | |
const char *name; | |
if (!*freelist) { | |
*freelist = PyList_New(0); | |
if (!*freelist) { | |
destr(ptr); | |
return -1; | |
} | |
} | |
if (destr == cleanup_ptr) { | |
name = GETARGS_CAPSULE_NAME_CLEANUP_PTR; | |
} else if (destr == cleanup_buffer) { | |
name = GETARGS_CAPSULE_NAME_CLEANUP_BUFFER; | |
} else { | |
return -1; | |
} | |
cobj = PyCapsule_New(ptr, name, destr); | |
if (!cobj) { | |
destr(ptr); | |
return -1; | |
} | |
if (PyList_Append(*freelist, cobj)) { | |
Py_DECREF(cobj); | |
return -1; | |
} | |
Py_DECREF(cobj); | |
return 0; | |
} | |
static int | |
cleanreturn(int retval, PyObject *freelist) | |
{ | |
if (freelist && retval != 0) { | |
/* We were successful, reset the destructors so that they | |
don't get called. */ | |
Py_ssize_t len = PyList_GET_SIZE(freelist), i; | |
for (i = 0; i < len; i++) | |
PyCapsule_SetDestructor(PyList_GET_ITEM(freelist, i), NULL); | |
} | |
Py_XDECREF(freelist); | |
return retval; | |
} | |
static int | |
vgetargs1(PyObject *args, const char *format, va_list *p_va, int flags) | |
{ | |
char msgbuf[256]; | |
int levels[32]; | |
const char *fname = NULL; | |
const char *message = NULL; | |
int min = -1; | |
int max = 0; | |
int level = 0; | |
int endfmt = 0; | |
const char *formatsave = format; | |
Py_ssize_t i, len; | |
char *msg; | |
PyObject *freelist = NULL; | |
int compat = flags & FLAG_COMPAT; | |
assert(compat || (args != (PyObject*)NULL)); | |
flags = flags & ~FLAG_COMPAT; | |
while (endfmt == 0) { | |
int c = *format++; | |
switch (c) { | |
case '(': | |
if (level == 0) | |
max++; | |
level++; | |
if (level >= 30) | |
Py_FatalError("too many tuple nesting levels " | |
"in argument format string"); | |
break; | |
case ')': | |
if (level == 0) | |
Py_FatalError("excess ')' in getargs format"); | |
else | |
level--; | |
break; | |
case '\0': | |
endfmt = 1; | |
break; | |
case ':': | |
fname = format; | |
endfmt = 1; | |
break; | |
case ';': | |
message = format; | |
endfmt = 1; | |
break; | |
default: | |
if (level == 0) { | |
if (c == 'O') | |
max++; | |
else if (isalpha(Py_CHARMASK(c))) { | |
if (c != 'e') /* skip encoded */ | |
max++; | |
} else if (c == '|') | |
min = max; | |
} | |
break; | |
} | |
} | |
if (level != 0) | |
Py_FatalError(/* '(' */ "missing ')' in getargs format"); | |
if (min < 0) | |
min = max; | |
format = formatsave; | |
if (compat) { | |
if (max == 0) { | |
if (args == NULL) | |
return 1; | |
PyOS_snprintf(msgbuf, sizeof(msgbuf), | |
"%.200s%s takes no arguments", | |
fname==NULL ? "function" : fname, | |
fname==NULL ? "" : "()"); | |
PyErr_SetString(PyExc_TypeError, msgbuf); | |
return 0; | |
} | |
else if (min == 1 && max == 1) { | |
if (args == NULL) { | |
PyOS_snprintf(msgbuf, sizeof(msgbuf), | |
"%.200s%s takes at least one argument", | |
fname==NULL ? "function" : fname, | |
fname==NULL ? "" : "()"); | |
PyErr_SetString(PyExc_TypeError, msgbuf); | |
return 0; | |
} | |
msg = convertitem(args, &format, p_va, flags, levels, | |
msgbuf, sizeof(msgbuf), &freelist); | |
if (msg == NULL) | |
return cleanreturn(1, freelist); | |
seterror(levels[0], msg, levels+1, fname, message); | |
return cleanreturn(0, freelist); | |
} | |
else { | |
PyErr_SetString(PyExc_SystemError, | |
"old style getargs format uses new features"); | |
return 0; | |
} | |
} | |
if (!PyTuple_Check(args)) { | |
PyErr_SetString(PyExc_SystemError, | |
"new style getargs format but argument is not a tuple"); | |
return 0; | |
} | |
len = PyTuple_GET_SIZE(args); | |
if (len < min || max < len) { | |
if (message == NULL) { | |
PyOS_snprintf(msgbuf, sizeof(msgbuf), | |
"%.150s%s takes %s %d argument%s " | |
"(%ld given)", | |
fname==NULL ? "function" : fname, | |
fname==NULL ? "" : "()", | |
min==max ? "exactly" | |
: len < min ? "at least" : "at most", | |
len < min ? min : max, | |
(len < min ? min : max) == 1 ? "" : "s", | |
Py_SAFE_DOWNCAST(len, Py_ssize_t, long)); | |
message = msgbuf; | |
} | |
PyErr_SetString(PyExc_TypeError, message); | |
return 0; | |
} | |
for (i = 0; i < len; i++) { | |
if (*format == '|') | |
format++; | |
msg = convertitem(PyTuple_GET_ITEM(args, i), &format, p_va, | |
flags, levels, msgbuf, | |
sizeof(msgbuf), &freelist); | |
if (msg) { | |
seterror(i+1, msg, levels, fname, msg); | |
return cleanreturn(0, freelist); | |
} | |
} | |
if (*format != '\0' && !isalpha(Py_CHARMASK(*format)) && | |
*format != '(' && | |
*format != '|' && *format != ':' && *format != ';') { | |
PyErr_Format(PyExc_SystemError, | |
"bad format string: %.200s", formatsave); | |
return cleanreturn(0, freelist); | |
} | |
return cleanreturn(1, freelist); | |
} | |
static void | |
seterror(int iarg, const char *msg, int *levels, const char *fname, | |
const char *message) | |
{ | |
char buf[512]; | |
int i; | |
char *p = buf; | |
if (PyErr_Occurred()) | |
return; | |
else if (message == NULL) { | |
if (fname != NULL) { | |
PyOS_snprintf(p, sizeof(buf), "%.200s() ", fname); | |
p += strlen(p); | |
} | |
if (iarg != 0) { | |
PyOS_snprintf(p, sizeof(buf) - (p - buf), | |
"argument %d", iarg); | |
i = 0; | |
p += strlen(p); | |
while (levels[i] > 0 && i < 32 && (int)(p-buf) < 220) { | |
PyOS_snprintf(p, sizeof(buf) - (p - buf), | |
", item %d", levels[i]-1); | |
p += strlen(p); | |
i++; | |
} | |
} | |
else { | |
PyOS_snprintf(p, sizeof(buf) - (p - buf), "argument"); | |
p += strlen(p); | |
} | |
PyOS_snprintf(p, sizeof(buf) - (p - buf), " %.256s", msg); | |
message = buf; | |
} | |
PyErr_SetString(PyExc_TypeError, message); | |
} | |
/* Convert a tuple argument. | |
On entry, *p_format points to the character _after_ the opening '('. | |
On successful exit, *p_format points to the closing ')'. | |
If successful: | |
*p_format and *p_va are updated, | |
*levels and *msgbuf are untouched, | |
and NULL is returned. | |
If the argument is invalid: | |
*p_format is unchanged, | |
*p_va is undefined, | |
*levels is a 0-terminated list of item numbers, | |
*msgbuf contains an error message, whose format is: | |
"must be <typename1>, not <typename2>", where: | |
<typename1> is the name of the expected type, and | |
<typename2> is the name of the actual type, | |
and msgbuf is returned. | |
*/ | |
static char * | |
converttuple(PyObject *arg, const char **p_format, va_list *p_va, int flags, | |
int *levels, char *msgbuf, size_t bufsize, int toplevel, | |
PyObject **freelist) | |
{ | |
int level = 0; | |
int n = 0; | |
const char *format = *p_format; | |
int i; | |
for (;;) { | |
int c = *format++; | |
if (c == '(') { | |
if (level == 0) | |
n++; | |
level++; | |
} | |
else if (c == ')') { | |
if (level == 0) | |
break; | |
level--; | |
} | |
else if (c == ':' || c == ';' || c == '\0') | |
break; | |
else if (level == 0 && isalpha(Py_CHARMASK(c))) | |
n++; | |
} | |
if (!PySequence_Check(arg) || PyString_Check(arg)) { | |
levels[0] = 0; | |
PyOS_snprintf(msgbuf, bufsize, | |
toplevel ? "expected %d arguments, not %.50s" : | |
"must be %d-item sequence, not %.50s", | |
n, | |
arg == Py_None ? "None" : arg->ob_type->tp_name); | |
return msgbuf; | |
} | |
if ((i = PySequence_Size(arg)) != n) { | |
levels[0] = 0; | |
PyOS_snprintf(msgbuf, bufsize, | |
toplevel ? "expected %d arguments, not %d" : | |
"must be sequence of length %d, not %d", | |
n, i); | |
return msgbuf; | |
} | |
format = *p_format; | |
for (i = 0; i < n; i++) { | |
char *msg; | |
PyObject *item; | |
item = PySequence_GetItem(arg, i); | |
if (item == NULL) { | |
PyErr_Clear(); | |
levels[0] = i+1; | |
levels[1] = 0; | |
strncpy(msgbuf, "is not retrievable", bufsize); | |
return msgbuf; | |
} | |
msg = convertitem(item, &format, p_va, flags, levels+1, | |
msgbuf, bufsize, freelist); | |
/* PySequence_GetItem calls tp->sq_item, which INCREFs */ | |
Py_XDECREF(item); | |
if (msg != NULL) { | |
levels[0] = i+1; | |
return msg; | |
} | |
} | |
*p_format = format; | |
return NULL; | |
} | |
/* Convert a single item. */ | |
static char * | |
convertitem(PyObject *arg, const char **p_format, va_list *p_va, int flags, | |
int *levels, char *msgbuf, size_t bufsize, PyObject **freelist) | |
{ | |
char *msg; | |
const char *format = *p_format; | |
if (*format == '(' /* ')' */) { | |
format++; | |
msg = converttuple(arg, &format, p_va, flags, levels, msgbuf, | |
bufsize, 0, freelist); | |
if (msg == NULL) | |
format++; | |
} | |
else { | |
msg = convertsimple(arg, &format, p_va, flags, | |
msgbuf, bufsize, freelist); | |
if (msg != NULL) | |
levels[0] = 0; | |
} | |
if (msg == NULL) | |
*p_format = format; | |
return msg; | |
} | |
#define UNICODE_DEFAULT_ENCODING(arg) \ | |
_PyUnicode_AsDefaultEncodedString(arg, NULL) | |
/* Format an error message generated by convertsimple(). */ | |
static char * | |
converterr(const char *expected, PyObject *arg, char *msgbuf, size_t bufsize) | |
{ | |
assert(expected != NULL); | |
assert(arg != NULL); | |
PyOS_snprintf(msgbuf, bufsize, | |
"must be %.50s, not %.50s", expected, | |
arg == Py_None ? "None" : arg->ob_type->tp_name); | |
return msgbuf; | |
} | |
#define CONV_UNICODE "(unicode conversion error)" | |
/* explicitly check for float arguments when integers are expected. For now | |
* signal a warning. Returns true if an exception was raised. */ | |
static int | |
float_argument_warning(PyObject *arg) | |
{ | |
if (PyFloat_Check(arg) && | |
PyErr_Warn(PyExc_DeprecationWarning, | |
"integer argument expected, got float" )) | |
return 1; | |
else | |
return 0; | |
} | |
/* explicitly check for float arguments when integers are expected. Raises | |
TypeError and returns true for float arguments. */ | |
static int | |
float_argument_error(PyObject *arg) | |
{ | |
if (PyFloat_Check(arg)) { | |
PyErr_SetString(PyExc_TypeError, | |
"integer argument expected, got float"); | |
return 1; | |
} | |
else | |
return 0; | |
} | |
/* Convert a non-tuple argument. Return NULL if conversion went OK, | |
or a string with a message describing the failure. The message is | |
formatted as "must be <desired type>, not <actual type>". | |
When failing, an exception may or may not have been raised. | |
Don't call if a tuple is expected. | |
When you add new format codes, please don't forget poor skipitem() below. | |
*/ | |
static char * | |
convertsimple(PyObject *arg, const char **p_format, va_list *p_va, int flags, | |
char *msgbuf, size_t bufsize, PyObject **freelist) | |
{ | |
/* For # codes */ | |
#define FETCH_SIZE int *q=NULL;Py_ssize_t *q2=NULL;\ | |
if (flags & FLAG_SIZE_T) q2=va_arg(*p_va, Py_ssize_t*); \ | |
else q=va_arg(*p_va, int*); | |
#define STORE_SIZE(s) \ | |
if (flags & FLAG_SIZE_T) \ | |
*q2=s; \ | |
else { \ | |
if (INT_MAX < s) { \ | |
PyErr_SetString(PyExc_OverflowError, \ | |
"size does not fit in an int"); \ | |
return converterr("", arg, msgbuf, bufsize); \ | |
} \ | |
*q=s; \ | |
} | |
#define BUFFER_LEN ((flags & FLAG_SIZE_T) ? *q2:*q) | |
const char *format = *p_format; | |
char c = *format++; | |
#ifdef Py_USING_UNICODE | |
PyObject *uarg; | |
#endif | |
switch (c) { | |
case 'b': { /* unsigned byte -- very short int */ | |
char *p = va_arg(*p_va, char *); | |
long ival; | |
if (float_argument_error(arg)) | |
return converterr("integer<b>", arg, msgbuf, bufsize); | |
ival = PyInt_AsLong(arg); | |
if (ival == -1 && PyErr_Occurred()) | |
return converterr("integer<b>", arg, msgbuf, bufsize); | |
else if (ival < 0) { | |
PyErr_SetString(PyExc_OverflowError, | |
"unsigned byte integer is less than minimum"); | |
return converterr("integer<b>", arg, msgbuf, bufsize); | |
} | |
else if (ival > UCHAR_MAX) { | |
PyErr_SetString(PyExc_OverflowError, | |
"unsigned byte integer is greater than maximum"); | |
return converterr("integer<b>", arg, msgbuf, bufsize); | |
} | |
else | |
*p = (unsigned char) ival; | |
break; | |
} | |
case 'B': {/* byte sized bitfield - both signed and unsigned | |
values allowed */ | |
char *p = va_arg(*p_va, char *); | |
long ival; | |
if (float_argument_error(arg)) | |
return converterr("integer<B>", arg, msgbuf, bufsize); | |
ival = PyInt_AsUnsignedLongMask(arg); | |
if (ival == -1 && PyErr_Occurred()) | |
return converterr("integer<B>", arg, msgbuf, bufsize); | |
else | |
*p = (unsigned char) ival; | |
break; | |
} | |
case 'h': {/* signed short int */ | |
short *p = va_arg(*p_va, short *); | |
long ival; | |
if (float_argument_error(arg)) | |
return converterr("integer<h>", arg, msgbuf, bufsize); | |
ival = PyInt_AsLong(arg); | |
if (ival == -1 && PyErr_Occurred()) | |
return converterr("integer<h>", arg, msgbuf, bufsize); | |
else if (ival < SHRT_MIN) { | |
PyErr_SetString(PyExc_OverflowError, | |
"signed short integer is less than minimum"); | |
return converterr("integer<h>", arg, msgbuf, bufsize); | |
} | |
else if (ival > SHRT_MAX) { | |
PyErr_SetString(PyExc_OverflowError, | |
"signed short integer is greater than maximum"); | |
return converterr("integer<h>", arg, msgbuf, bufsize); | |
} | |
else | |
*p = (short) ival; | |
break; | |
} | |
case 'H': { /* short int sized bitfield, both signed and | |
unsigned allowed */ | |
unsigned short *p = va_arg(*p_va, unsigned short *); | |
long ival; | |
if (float_argument_error(arg)) | |
return converterr("integer<H>", arg, msgbuf, bufsize); | |
ival = PyInt_AsUnsignedLongMask(arg); | |
if (ival == -1 && PyErr_Occurred()) | |
return converterr("integer<H>", arg, msgbuf, bufsize); | |
else | |
*p = (unsigned short) ival; | |
break; | |
} | |
case 'i': {/* signed int */ | |
int *p = va_arg(*p_va, int *); | |
long ival; | |
if (float_argument_error(arg)) | |
return converterr("integer<i>", arg, msgbuf, bufsize); | |
ival = PyInt_AsLong(arg); | |
if (ival == -1 && PyErr_Occurred()) | |
return converterr("integer<i>", arg, msgbuf, bufsize); | |
else if (ival > INT_MAX) { | |
PyErr_SetString(PyExc_OverflowError, | |
"signed integer is greater than maximum"); | |
return converterr("integer<i>", arg, msgbuf, bufsize); | |
} | |
else if (ival < INT_MIN) { | |
PyErr_SetString(PyExc_OverflowError, | |
"signed integer is less than minimum"); | |
return converterr("integer<i>", arg, msgbuf, bufsize); | |
} | |
else | |
*p = ival; | |
break; | |
} | |
case 'I': { /* int sized bitfield, both signed and | |
unsigned allowed */ | |
unsigned int *p = va_arg(*p_va, unsigned int *); | |
unsigned int ival; | |
if (float_argument_error(arg)) | |
return converterr("integer<I>", arg, msgbuf, bufsize); | |
ival = (unsigned int)PyInt_AsUnsignedLongMask(arg); | |
if (ival == (unsigned int)-1 && PyErr_Occurred()) | |
return converterr("integer<I>", arg, msgbuf, bufsize); | |
else | |
*p = ival; | |
break; | |
} | |
case 'n': /* Py_ssize_t */ | |
#if SIZEOF_SIZE_T != SIZEOF_LONG | |
{ | |
Py_ssize_t *p = va_arg(*p_va, Py_ssize_t *); | |
Py_ssize_t ival; | |
if (float_argument_error(arg)) | |
return converterr("integer<n>", arg, msgbuf, bufsize); | |
ival = PyInt_AsSsize_t(arg); | |
if (ival == -1 && PyErr_Occurred()) | |
return converterr("integer<n>", arg, msgbuf, bufsize); | |
*p = ival; | |
break; | |
} | |
#endif | |
/* Fall through from 'n' to 'l' if Py_ssize_t is int */ | |
case 'l': {/* long int */ | |
long *p = va_arg(*p_va, long *); | |
long ival; | |
if (float_argument_error(arg)) | |
return converterr("integer<l>", arg, msgbuf, bufsize); | |
ival = PyInt_AsLong(arg); | |
if (ival == -1 && PyErr_Occurred()) | |
return converterr("integer<l>", arg, msgbuf, bufsize); | |
else | |
*p = ival; | |
break; | |
} | |
case 'k': { /* long sized bitfield */ | |
unsigned long *p = va_arg(*p_va, unsigned long *); | |
unsigned long ival; | |
if (PyInt_Check(arg)) | |
ival = PyInt_AsUnsignedLongMask(arg); | |
else if (PyLong_Check(arg)) | |
ival = PyLong_AsUnsignedLongMask(arg); | |
else | |
return converterr("integer<k>", arg, msgbuf, bufsize); | |
*p = ival; | |
break; | |
} | |
#ifdef HAVE_LONG_LONG | |
case 'L': {/* PY_LONG_LONG */ | |
PY_LONG_LONG *p = va_arg( *p_va, PY_LONG_LONG * ); | |
PY_LONG_LONG ival; | |
if (float_argument_warning(arg)) | |
return converterr("long<L>", arg, msgbuf, bufsize); | |
ival = PyLong_AsLongLong(arg); | |
if (ival == (PY_LONG_LONG)-1 && PyErr_Occurred() ) { | |
return converterr("long<L>", arg, msgbuf, bufsize); | |
} else { | |
*p = ival; | |
} | |
break; | |
} | |
case 'K': { /* long long sized bitfield */ | |
unsigned PY_LONG_LONG *p = va_arg(*p_va, unsigned PY_LONG_LONG *); | |
unsigned PY_LONG_LONG ival; | |
if (PyInt_Check(arg)) | |
ival = PyInt_AsUnsignedLongMask(arg); | |
else if (PyLong_Check(arg)) | |
ival = PyLong_AsUnsignedLongLongMask(arg); | |
else | |
return converterr("integer<K>", arg, msgbuf, bufsize); | |
*p = ival; | |
break; | |
} | |
#endif | |
case 'f': {/* float */ | |
float *p = va_arg(*p_va, float *); | |
double dval = PyFloat_AsDouble(arg); | |
if (PyErr_Occurred()) | |
return converterr("float<f>", arg, msgbuf, bufsize); | |
else | |
*p = (float) dval; | |
break; | |
} | |
case 'd': {/* double */ | |
double *p = va_arg(*p_va, double *); | |
double dval = PyFloat_AsDouble(arg); | |
if (PyErr_Occurred()) | |
return converterr("float<d>", arg, msgbuf, bufsize); | |
else | |
*p = dval; | |
break; | |
} | |
#ifndef WITHOUT_COMPLEX | |
case 'D': {/* complex double */ | |
Py_complex *p = va_arg(*p_va, Py_complex *); | |
Py_complex cval; | |
cval = PyComplex_AsCComplex(arg); | |
if (PyErr_Occurred()) | |
return converterr("complex<D>", arg, msgbuf, bufsize); | |
else | |
*p = cval; | |
break; | |
} | |
#endif /* WITHOUT_COMPLEX */ | |
case 'c': {/* char */ | |
char *p = va_arg(*p_va, char *); | |
if (PyString_Check(arg) && PyString_Size(arg) == 1) | |
*p = PyString_AS_STRING(arg)[0]; | |
else | |
return converterr("char", arg, msgbuf, bufsize); | |
break; | |
} | |
case 's': {/* string */ | |
if (*format == '*') { | |
Py_buffer *p = (Py_buffer *)va_arg(*p_va, Py_buffer *); | |
if (PyString_Check(arg)) { | |
PyBuffer_FillInfo(p, arg, | |
PyString_AS_STRING(arg), PyString_GET_SIZE(arg), | |
1, 0); | |
} | |
#ifdef Py_USING_UNICODE | |
else if (PyUnicode_Check(arg)) { | |
uarg = UNICODE_DEFAULT_ENCODING(arg); | |
if (uarg == NULL) | |
return converterr(CONV_UNICODE, | |
arg, msgbuf, bufsize); | |
PyBuffer_FillInfo(p, arg, | |
PyString_AS_STRING(uarg), PyString_GET_SIZE(uarg), | |
1, 0); | |
} | |
#endif | |
else { /* any buffer-like object */ | |
char *buf; | |
if (getbuffer(arg, p, &buf) < 0) | |
return converterr(buf, arg, msgbuf, bufsize); | |
} | |
if (addcleanup(p, freelist, cleanup_buffer)) { | |
return converterr( | |
"(cleanup problem)", | |
arg, msgbuf, bufsize); | |
} | |
format++; | |
} else if (*format == '#') { | |
void **p = (void **)va_arg(*p_va, char **); | |
FETCH_SIZE; | |
if (PyString_Check(arg)) { | |
*p = PyString_AS_STRING(arg); | |
STORE_SIZE(PyString_GET_SIZE(arg)); | |
} | |
#ifdef Py_USING_UNICODE | |
else if (PyUnicode_Check(arg)) { | |
uarg = UNICODE_DEFAULT_ENCODING(arg); | |
if (uarg == NULL) | |
return converterr(CONV_UNICODE, | |
arg, msgbuf, bufsize); | |
*p = PyString_AS_STRING(uarg); | |
STORE_SIZE(PyString_GET_SIZE(uarg)); | |
} | |
#endif | |
else { /* any buffer-like object */ | |
char *buf; | |
Py_ssize_t count = convertbuffer(arg, p, &buf); | |
if (count < 0) | |
return converterr(buf, arg, msgbuf, bufsize); | |
STORE_SIZE(count); | |
} | |
format++; | |
} else { | |
char **p = va_arg(*p_va, char **); | |
if (PyString_Check(arg)) | |
*p = PyString_AS_STRING(arg); | |
#ifdef Py_USING_UNICODE | |
else if (PyUnicode_Check(arg)) { | |
uarg = UNICODE_DEFAULT_ENCODING(arg); | |
if (uarg == NULL) | |
return converterr(CONV_UNICODE, | |
arg, msgbuf, bufsize); | |
*p = PyString_AS_STRING(uarg); | |
} | |
#endif | |
else | |
return converterr("string", arg, msgbuf, bufsize); | |
if ((Py_ssize_t)strlen(*p) != PyString_Size(arg)) | |
return converterr("string without null bytes", | |
arg, msgbuf, bufsize); | |
} | |
break; | |
} | |
case 'z': {/* string, may be NULL (None) */ | |
if (*format == '*') { | |
Py_buffer *p = (Py_buffer *)va_arg(*p_va, Py_buffer *); | |
if (arg == Py_None) | |
PyBuffer_FillInfo(p, NULL, NULL, 0, 1, 0); | |
else if (PyString_Check(arg)) { | |
PyBuffer_FillInfo(p, arg, | |
PyString_AS_STRING(arg), PyString_GET_SIZE(arg), | |
1, 0); | |
} | |
#ifdef Py_USING_UNICODE | |
else if (PyUnicode_Check(arg)) { | |
uarg = UNICODE_DEFAULT_ENCODING(arg); | |
if (uarg == NULL) | |
return converterr(CONV_UNICODE, | |
arg, msgbuf, bufsize); | |
PyBuffer_FillInfo(p, arg, | |
PyString_AS_STRING(uarg), PyString_GET_SIZE(uarg), | |
1, 0); | |
} | |
#endif | |
else { /* any buffer-like object */ | |
char *buf; | |
if (getbuffer(arg, p, &buf) < 0) | |
return converterr(buf, arg, msgbuf, bufsize); | |
} | |
if (addcleanup(p, freelist, cleanup_buffer)) { | |
return converterr( | |
"(cleanup problem)", | |
arg, msgbuf, bufsize); | |
} | |
format++; | |
} else if (*format == '#') { /* any buffer-like object */ | |
void **p = (void **)va_arg(*p_va, char **); | |
FETCH_SIZE; | |
if (arg == Py_None) { | |
*p = 0; | |
STORE_SIZE(0); | |
} | |
else if (PyString_Check(arg)) { | |
*p = PyString_AS_STRING(arg); | |
STORE_SIZE(PyString_GET_SIZE(arg)); | |
} | |
#ifdef Py_USING_UNICODE | |
else if (PyUnicode_Check(arg)) { | |
uarg = UNICODE_DEFAULT_ENCODING(arg); | |
if (uarg == NULL) | |
return converterr(CONV_UNICODE, | |
arg, msgbuf, bufsize); | |
*p = PyString_AS_STRING(uarg); | |
STORE_SIZE(PyString_GET_SIZE(uarg)); | |
} | |
#endif | |
else { /* any buffer-like object */ | |
char *buf; | |
Py_ssize_t count = convertbuffer(arg, p, &buf); | |
if (count < 0) | |
return converterr(buf, arg, msgbuf, bufsize); | |
STORE_SIZE(count); | |
} | |
format++; | |
} else { | |
char **p = va_arg(*p_va, char **); | |
if (arg == Py_None) | |
*p = 0; | |
else if (PyString_Check(arg)) | |
*p = PyString_AS_STRING(arg); | |
#ifdef Py_USING_UNICODE | |
else if (PyUnicode_Check(arg)) { | |
uarg = UNICODE_DEFAULT_ENCODING(arg); | |
if (uarg == NULL) | |
return converterr(CONV_UNICODE, | |
arg, msgbuf, bufsize); | |
*p = PyString_AS_STRING(uarg); | |
} | |
#endif | |
else | |
return converterr("string or None", | |
arg, msgbuf, bufsize); | |
if (*format == '#') { | |
FETCH_SIZE; | |
assert(0); /* XXX redundant with if-case */ | |
if (arg == Py_None) { | |
STORE_SIZE(0); | |
} else { | |
STORE_SIZE(PyString_Size(arg)); | |
} | |
format++; | |
} | |
else if (*p != NULL && | |
(Py_ssize_t)strlen(*p) != PyString_Size(arg)) | |
return converterr( | |
"string without null bytes or None", | |
arg, msgbuf, bufsize); | |
} | |
break; | |
} | |
case 'e': {/* encoded string */ | |
char **buffer; | |
const char *encoding; | |
PyObject *s; | |
Py_ssize_t size; | |
int recode_strings; | |
/* Get 'e' parameter: the encoding name */ | |
encoding = (const char *)va_arg(*p_va, const char *); | |
#ifdef Py_USING_UNICODE | |
if (encoding == NULL) | |
encoding = PyUnicode_GetDefaultEncoding(); | |
#endif | |
/* Get output buffer parameter: | |
's' (recode all objects via Unicode) or | |
't' (only recode non-string objects) | |
*/ | |
if (*format == 's') | |
recode_strings = 1; | |
else if (*format == 't') | |
recode_strings = 0; | |
else | |
return converterr( | |
"(unknown parser marker combination)", | |
arg, msgbuf, bufsize); | |
buffer = (char **)va_arg(*p_va, char **); | |
format++; | |
if (buffer == NULL) | |
return converterr("(buffer is NULL)", | |
arg, msgbuf, bufsize); | |
/* Encode object */ | |
if (!recode_strings && PyString_Check(arg)) { | |
s = arg; | |
Py_INCREF(s); | |
} | |
else { | |
#ifdef Py_USING_UNICODE | |
PyObject *u; | |
/* Convert object to Unicode */ | |
u = PyUnicode_FromObject(arg); | |
if (u == NULL) | |
return converterr( | |
"string or unicode or text buffer", | |
arg, msgbuf, bufsize); | |
/* Encode object; use default error handling */ | |
s = PyUnicode_AsEncodedString(u, | |
encoding, | |
NULL); | |
Py_DECREF(u); | |
if (s == NULL) | |
return converterr("(encoding failed)", | |
arg, msgbuf, bufsize); | |
if (!PyString_Check(s)) { | |
Py_DECREF(s); | |
return converterr( | |
"(encoder failed to return a string)", | |
arg, msgbuf, bufsize); | |
} | |
#else | |
return converterr("string<e>", arg, msgbuf, bufsize); | |
#endif | |
} | |
size = PyString_GET_SIZE(s); | |
/* Write output; output is guaranteed to be 0-terminated */ | |
if (*format == '#') { | |
/* Using buffer length parameter '#': | |
- if *buffer is NULL, a new buffer of the | |
needed size is allocated and the data | |
copied into it; *buffer is updated to point | |
to the new buffer; the caller is | |
responsible for PyMem_Free()ing it after | |
usage | |
- if *buffer is not NULL, the data is | |
copied to *buffer; *buffer_len has to be | |
set to the size of the buffer on input; | |
buffer overflow is signalled with an error; | |
buffer has to provide enough room for the | |
encoded string plus the trailing 0-byte | |
- in both cases, *buffer_len is updated to | |
the size of the buffer /excluding/ the | |
trailing 0-byte | |
*/ | |
FETCH_SIZE; | |
format++; | |
if (q == NULL && q2 == NULL) { | |
Py_DECREF(s); | |
return converterr( | |
"(buffer_len is NULL)", | |
arg, msgbuf, bufsize); | |
} | |
if (*buffer == NULL) { | |
*buffer = PyMem_NEW(char, size + 1); | |
if (*buffer == NULL) { | |
Py_DECREF(s); | |
return converterr( | |
"(memory error)", | |
arg, msgbuf, bufsize); | |
} | |
if (addcleanup(*buffer, freelist, cleanup_ptr)) { | |
Py_DECREF(s); | |
return converterr( | |
"(cleanup problem)", | |
arg, msgbuf, bufsize); | |
} | |
} else { | |
if (size + 1 > BUFFER_LEN) { | |
Py_DECREF(s); | |
return converterr( | |
"(buffer overflow)", | |
arg, msgbuf, bufsize); | |
} | |
} | |
memcpy(*buffer, | |
PyString_AS_STRING(s), | |
size + 1); | |
STORE_SIZE(size); | |
} else { | |
/* Using a 0-terminated buffer: | |
- the encoded string has to be 0-terminated | |
for this variant to work; if it is not, an | |
error raised | |
- a new buffer of the needed size is | |
allocated and the data copied into it; | |
*buffer is updated to point to the new | |
buffer; the caller is responsible for | |
PyMem_Free()ing it after usage | |
*/ | |
if ((Py_ssize_t)strlen(PyString_AS_STRING(s)) | |
!= size) { | |
Py_DECREF(s); | |
return converterr( | |
"encoded string without NULL bytes", | |
arg, msgbuf, bufsize); | |
} | |
*buffer = PyMem_NEW(char, size + 1); | |
if (*buffer == NULL) { | |
Py_DECREF(s); | |
return converterr("(memory error)", | |
arg, msgbuf, bufsize); | |
} | |
if (addcleanup(*buffer, freelist, cleanup_ptr)) { | |
Py_DECREF(s); | |
return converterr("(cleanup problem)", | |
arg, msgbuf, bufsize); | |
} | |
memcpy(*buffer, | |
PyString_AS_STRING(s), | |
size + 1); | |
} | |
Py_DECREF(s); | |
break; | |
} | |
#ifdef Py_USING_UNICODE | |
case 'u': {/* raw unicode buffer (Py_UNICODE *) */ | |
if (*format == '#') { /* any buffer-like object */ | |
void **p = (void **)va_arg(*p_va, char **); | |
FETCH_SIZE; | |
if (PyUnicode_Check(arg)) { | |
*p = PyUnicode_AS_UNICODE(arg); | |
STORE_SIZE(PyUnicode_GET_SIZE(arg)); | |
} | |
else { | |
return converterr("cannot convert raw buffers", | |
arg, msgbuf, bufsize); | |
} | |
format++; | |
} else { | |
Py_UNICODE **p = va_arg(*p_va, Py_UNICODE **); | |
if (PyUnicode_Check(arg)) | |
*p = PyUnicode_AS_UNICODE(arg); | |
else | |
return converterr("unicode", arg, msgbuf, bufsize); | |
} | |
break; | |
} | |
#endif | |
case 'S': { /* string object */ | |
PyObject **p = va_arg(*p_va, PyObject **); | |
if (PyString_Check(arg)) | |
*p = arg; | |
else | |
return converterr("string", arg, msgbuf, bufsize); | |
break; | |
} | |
#ifdef Py_USING_UNICODE | |
case 'U': { /* Unicode object */ | |
PyObject **p = va_arg(*p_va, PyObject **); | |
if (PyUnicode_Check(arg)) | |
*p = arg; | |
else | |
return converterr("unicode", arg, msgbuf, bufsize); | |
break; | |
} | |
#endif | |
case 'O': { /* object */ | |
PyTypeObject *type; | |
PyObject **p; | |
if (*format == '!') { | |
type = va_arg(*p_va, PyTypeObject*); | |
p = va_arg(*p_va, PyObject **); | |
format++; | |
if (PyType_IsSubtype(arg->ob_type, type)) | |
*p = arg; | |
else | |
return converterr(type->tp_name, arg, msgbuf, bufsize); | |
} | |
else if (*format == '?') { | |
inquiry pred = va_arg(*p_va, inquiry); | |
p = va_arg(*p_va, PyObject **); | |
format++; | |
if ((*pred)(arg)) | |
*p = arg; | |
else | |
return converterr("(unspecified)", | |
arg, msgbuf, bufsize); | |
} | |
else if (*format == '&') { | |
typedef int (*converter)(PyObject *, void *); | |
converter convert = va_arg(*p_va, converter); | |
void *addr = va_arg(*p_va, void *); | |
format++; | |
if (! (*convert)(arg, addr)) | |
return converterr("(unspecified)", | |
arg, msgbuf, bufsize); | |
} | |
else { | |
p = va_arg(*p_va, PyObject **); | |
*p = arg; | |
} | |
break; | |
} | |
case 'w': { /* memory buffer, read-write access */ | |
void **p = va_arg(*p_va, void **); | |
void *res; | |
PyBufferProcs *pb = arg->ob_type->tp_as_buffer; | |
Py_ssize_t count; | |
if (pb && pb->bf_releasebuffer && *format != '*') | |
/* Buffer must be released, yet caller does not use | |
the Py_buffer protocol. */ | |
return converterr("pinned buffer", arg, msgbuf, bufsize); | |
if (pb && pb->bf_getbuffer && *format == '*') { | |
/* Caller is interested in Py_buffer, and the object | |
supports it directly. */ | |
format++; | |
if (pb->bf_getbuffer(arg, (Py_buffer*)p, PyBUF_WRITABLE) < 0) { | |
PyErr_Clear(); | |
return converterr("read-write buffer", arg, msgbuf, bufsize); | |
} | |
if (addcleanup(p, freelist, cleanup_buffer)) { | |
return converterr( | |
"(cleanup problem)", | |
arg, msgbuf, bufsize); | |
} | |
if (!PyBuffer_IsContiguous((Py_buffer*)p, 'C')) | |
return converterr("contiguous buffer", arg, msgbuf, bufsize); | |
break; | |
} | |
if (pb == NULL || | |
pb->bf_getwritebuffer == NULL || | |
pb->bf_getsegcount == NULL) | |
return converterr("read-write buffer", arg, msgbuf, bufsize); | |
if ((*pb->bf_getsegcount)(arg, NULL) != 1) | |
return converterr("single-segment read-write buffer", | |
arg, msgbuf, bufsize); | |
if ((count = pb->bf_getwritebuffer(arg, 0, &res)) < 0) | |
return converterr("(unspecified)", arg, msgbuf, bufsize); | |
if (*format == '*') { | |
PyBuffer_FillInfo((Py_buffer*)p, arg, res, count, 1, 0); | |
format++; | |
} | |
else { | |
*p = res; | |
if (*format == '#') { | |
FETCH_SIZE; | |
STORE_SIZE(count); | |
format++; | |
} | |
} | |
break; | |
} | |
case 't': { /* 8-bit character buffer, read-only access */ | |
char **p = va_arg(*p_va, char **); | |
PyBufferProcs *pb = arg->ob_type->tp_as_buffer; | |
Py_ssize_t count; | |
if (*format++ != '#') | |
return converterr( | |
"invalid use of 't' format character", | |
arg, msgbuf, bufsize); | |
if (!PyType_HasFeature(arg->ob_type, | |
Py_TPFLAGS_HAVE_GETCHARBUFFER) || | |
pb == NULL || pb->bf_getcharbuffer == NULL || | |
pb->bf_getsegcount == NULL) | |
return converterr( | |
"string or read-only character buffer", | |
arg, msgbuf, bufsize); | |
if (pb->bf_getsegcount(arg, NULL) != 1) | |
return converterr( | |
"string or single-segment read-only buffer", | |
arg, msgbuf, bufsize); | |
if (pb->bf_releasebuffer) | |
return converterr( | |
"string or pinned buffer", | |
arg, msgbuf, bufsize); | |
count = pb->bf_getcharbuffer(arg, 0, p); | |
if (count < 0) | |
return converterr("(unspecified)", arg, msgbuf, bufsize); | |
{ | |
FETCH_SIZE; | |
STORE_SIZE(count); | |
} | |
break; | |
} | |
default: | |
return converterr("impossible<bad format char>", arg, msgbuf, bufsize); | |
} | |
*p_format = format; | |
return NULL; | |
} | |
static Py_ssize_t | |
convertbuffer(PyObject *arg, void **p, char **errmsg) | |
{ | |
PyBufferProcs *pb = arg->ob_type->tp_as_buffer; | |
Py_ssize_t count; | |
if (pb == NULL || | |
pb->bf_getreadbuffer == NULL || | |
pb->bf_getsegcount == NULL || | |
pb->bf_releasebuffer != NULL) { | |
*errmsg = "string or read-only buffer"; | |
return -1; | |
} | |
if ((*pb->bf_getsegcount)(arg, NULL) != 1) { | |
*errmsg = "string or single-segment read-only buffer"; | |
return -1; | |
} | |
if ((count = (*pb->bf_getreadbuffer)(arg, 0, p)) < 0) { | |
*errmsg = "(unspecified)"; | |
} | |
return count; | |
} | |
static int | |
getbuffer(PyObject *arg, Py_buffer *view, char **errmsg) | |
{ | |
void *buf; | |
Py_ssize_t count; | |
PyBufferProcs *pb = arg->ob_type->tp_as_buffer; | |
if (pb == NULL) { | |
*errmsg = "string or buffer"; | |
return -1; | |
} | |
if (pb->bf_getbuffer) { | |
if (pb->bf_getbuffer(arg, view, 0) < 0) { | |
*errmsg = "convertible to a buffer"; | |
return -1; | |
} | |
if (!PyBuffer_IsContiguous(view, 'C')) { | |
*errmsg = "contiguous buffer"; | |
return -1; | |
} | |
return 0; | |
} | |
count = convertbuffer(arg, &buf, errmsg); | |
if (count < 0) { | |
*errmsg = "convertible to a buffer"; | |
return count; | |
} | |
PyBuffer_FillInfo(view, NULL, buf, count, 1, 0); | |
return 0; | |
} | |
/* Support for keyword arguments donated by | |
Geoff Philbrick <philbric@delphi.hks.com> */ | |
/* Return false (0) for error, else true. */ | |
int | |
PyArg_ParseTupleAndKeywords(PyObject *args, | |
PyObject *keywords, | |
const char *format, | |
char **kwlist, ...) | |
{ | |
int retval; | |
va_list va; | |
if ((args == NULL || !PyTuple_Check(args)) || | |
(keywords != NULL && !PyDict_Check(keywords)) || | |
format == NULL || | |
kwlist == NULL) | |
{ | |
PyErr_BadInternalCall(); | |
return 0; | |
} | |
va_start(va, kwlist); | |
retval = vgetargskeywords(args, keywords, format, kwlist, &va, 0); | |
va_end(va); | |
return retval; | |
} | |
int | |
_PyArg_ParseTupleAndKeywords_SizeT(PyObject *args, | |
PyObject *keywords, | |
const char *format, | |
char **kwlist, ...) | |
{ | |
int retval; | |
va_list va; | |
if ((args == NULL || !PyTuple_Check(args)) || | |
(keywords != NULL && !PyDict_Check(keywords)) || | |
format == NULL || | |
kwlist == NULL) | |
{ | |
PyErr_BadInternalCall(); | |
return 0; | |
} | |
va_start(va, kwlist); | |
retval = vgetargskeywords(args, keywords, format, | |
kwlist, &va, FLAG_SIZE_T); | |
va_end(va); | |
return retval; | |
} | |
int | |
PyArg_VaParseTupleAndKeywords(PyObject *args, | |
PyObject *keywords, | |
const char *format, | |
char **kwlist, va_list va) | |
{ | |
int retval; | |
va_list lva; | |
if ((args == NULL || !PyTuple_Check(args)) || | |
(keywords != NULL && !PyDict_Check(keywords)) || | |
format == NULL || | |
kwlist == NULL) | |
{ | |
PyErr_BadInternalCall(); | |
return 0; | |
} | |
#ifdef VA_LIST_IS_ARRAY | |
memcpy(lva, va, sizeof(va_list)); | |
#else | |
#ifdef __va_copy | |
__va_copy(lva, va); | |
#else | |
lva = va; | |
#endif | |
#endif | |
retval = vgetargskeywords(args, keywords, format, kwlist, &lva, 0); | |
return retval; | |
} | |
int | |
_PyArg_VaParseTupleAndKeywords_SizeT(PyObject *args, | |
PyObject *keywords, | |
const char *format, | |
char **kwlist, va_list va) | |
{ | |
int retval; | |
va_list lva; | |
if ((args == NULL || !PyTuple_Check(args)) || | |
(keywords != NULL && !PyDict_Check(keywords)) || | |
format == NULL || | |
kwlist == NULL) | |
{ | |
PyErr_BadInternalCall(); | |
return 0; | |
} | |
#ifdef VA_LIST_IS_ARRAY | |
memcpy(lva, va, sizeof(va_list)); | |
#else | |
#ifdef __va_copy | |
__va_copy(lva, va); | |
#else | |
lva = va; | |
#endif | |
#endif | |
retval = vgetargskeywords(args, keywords, format, | |
kwlist, &lva, FLAG_SIZE_T); | |
return retval; | |
} | |
#define IS_END_OF_FORMAT(c) (c == '\0' || c == ';' || c == ':') | |
static int | |
vgetargskeywords(PyObject *args, PyObject *keywords, const char *format, | |
char **kwlist, va_list *p_va, int flags) | |
{ | |
char msgbuf[512]; | |
int levels[32]; | |
const char *fname, *msg, *custom_msg, *keyword; | |
int min = INT_MAX; | |
int i, len, nargs, nkeywords; | |
PyObject *freelist = NULL, *current_arg; | |
assert(args != NULL && PyTuple_Check(args)); | |
assert(keywords == NULL || PyDict_Check(keywords)); | |
assert(format != NULL); | |
assert(kwlist != NULL); | |
assert(p_va != NULL); | |
/* grab the function name or custom error msg first (mutually exclusive) */ | |
fname = strchr(format, ':'); | |
if (fname) { | |
fname++; | |
custom_msg = NULL; | |
} | |
else { | |
custom_msg = strchr(format,';'); | |
if (custom_msg) | |
custom_msg++; | |
} | |
/* scan kwlist and get greatest possible nbr of args */ | |
for (len=0; kwlist[len]; len++) | |
continue; | |
nargs = PyTuple_GET_SIZE(args); | |
nkeywords = (keywords == NULL) ? 0 : PyDict_Size(keywords); | |
if (nargs + nkeywords > len) { | |
PyErr_Format(PyExc_TypeError, "%s%s takes at most %d " | |
"argument%s (%d given)", | |
(fname == NULL) ? "function" : fname, | |
(fname == NULL) ? "" : "()", | |
len, | |
(len == 1) ? "" : "s", | |
nargs + nkeywords); | |
return 0; | |
} | |
/* convert tuple args and keyword args in same loop, using kwlist to drive process */ | |
for (i = 0; i < len; i++) { | |
keyword = kwlist[i]; | |
if (*format == '|') { | |
min = i; | |
format++; | |
} | |
if (IS_END_OF_FORMAT(*format)) { | |
PyErr_Format(PyExc_RuntimeError, | |
"More keyword list entries (%d) than " | |
"format specifiers (%d)", len, i); | |
return cleanreturn(0, freelist); | |
} | |
current_arg = NULL; | |
if (nkeywords) { | |
current_arg = PyDict_GetItemString(keywords, keyword); | |
} | |
if (current_arg) { | |
--nkeywords; | |
if (i < nargs) { | |
/* arg present in tuple and in dict */ | |
PyErr_Format(PyExc_TypeError, | |
"Argument given by name ('%s') " | |
"and position (%d)", | |
keyword, i+1); | |
return cleanreturn(0, freelist); | |
} | |
} | |
else if (nkeywords && PyErr_Occurred()) | |
return cleanreturn(0, freelist); | |
else if (i < nargs) | |
current_arg = PyTuple_GET_ITEM(args, i); | |
if (current_arg) { | |
msg = convertitem(current_arg, &format, p_va, flags, | |
levels, msgbuf, sizeof(msgbuf), &freelist); | |
if (msg) { | |
seterror(i+1, msg, levels, fname, custom_msg); | |
return cleanreturn(0, freelist); | |
} | |
continue; | |
} | |
if (i < min) { | |
PyErr_Format(PyExc_TypeError, "Required argument " | |
"'%s' (pos %d) not found", | |
keyword, i+1); | |
return cleanreturn(0, freelist); | |
} | |
/* current code reports success when all required args | |
* fulfilled and no keyword args left, with no further | |
* validation. XXX Maybe skip this in debug build ? | |
*/ | |
if (!nkeywords) | |
return cleanreturn(1, freelist); | |
/* We are into optional args, skip thru to any remaining | |
* keyword args */ | |
msg = skipitem(&format, p_va, flags); | |
if (msg) { | |
PyErr_Format(PyExc_RuntimeError, "%s: '%s'", msg, | |
format); | |
return cleanreturn(0, freelist); | |
} | |
} | |
if (!IS_END_OF_FORMAT(*format) && *format != '|') { | |
PyErr_Format(PyExc_RuntimeError, | |
"more argument specifiers than keyword list entries " | |
"(remaining format:'%s')", format); | |
return cleanreturn(0, freelist); | |
} | |
/* make sure there are no extraneous keyword arguments */ | |
if (nkeywords > 0) { | |
PyObject *key, *value; | |
Py_ssize_t pos = 0; | |
while (PyDict_Next(keywords, &pos, &key, &value)) { | |
int match = 0; | |
char *ks; | |
if (!PyString_Check(key)) { | |
PyErr_SetString(PyExc_TypeError, | |
"keywords must be strings"); | |
return cleanreturn(0, freelist); | |
} | |
ks = PyString_AsString(key); | |
for (i = 0; i < len; i++) { | |
if (!strcmp(ks, kwlist[i])) { | |
match = 1; | |
break; | |
} | |
} | |
if (!match) { | |
PyErr_Format(PyExc_TypeError, | |
"'%s' is an invalid keyword " | |
"argument for this function", | |
ks); | |
return cleanreturn(0, freelist); | |
} | |
} | |
} | |
return cleanreturn(1, freelist); | |
} | |
static char * | |
skipitem(const char **p_format, va_list *p_va, int flags) | |
{ | |
const char *format = *p_format; | |
char c = *format++; | |
switch (c) { | |
/* simple codes | |
* The individual types (second arg of va_arg) are irrelevant */ | |
case 'b': /* byte -- very short int */ | |
case 'B': /* byte as bitfield */ | |
case 'h': /* short int */ | |
case 'H': /* short int as bitfield */ | |
case 'i': /* int */ | |
case 'I': /* int sized bitfield */ | |
case 'l': /* long int */ | |
case 'k': /* long int sized bitfield */ | |
#ifdef HAVE_LONG_LONG | |
case 'L': /* PY_LONG_LONG */ | |
case 'K': /* PY_LONG_LONG sized bitfield */ | |
#endif | |
case 'f': /* float */ | |
case 'd': /* double */ | |
#ifndef WITHOUT_COMPLEX | |
case 'D': /* complex double */ | |
#endif | |
case 'c': /* char */ | |
{ | |
(void) va_arg(*p_va, void *); | |
break; | |
} | |
case 'n': /* Py_ssize_t */ | |
{ | |
(void) va_arg(*p_va, Py_ssize_t *); | |
break; | |
} | |
/* string codes */ | |
case 'e': /* string with encoding */ | |
{ | |
(void) va_arg(*p_va, const char *); | |
if (!(*format == 's' || *format == 't')) | |
/* after 'e', only 's' and 't' is allowed */ | |
goto err; | |
format++; | |
/* explicit fallthrough to string cases */ | |
} | |
case 's': /* string */ | |
case 'z': /* string or None */ | |
#ifdef Py_USING_UNICODE | |
case 'u': /* unicode string */ | |
#endif | |
case 't': /* buffer, read-only */ | |
case 'w': /* buffer, read-write */ | |
{ | |
(void) va_arg(*p_va, char **); | |
if (*format == '#') { | |
if (flags & FLAG_SIZE_T) | |
(void) va_arg(*p_va, Py_ssize_t *); | |
else | |
(void) va_arg(*p_va, int *); | |
format++; | |
} else if ((c == 's' || c == 'z') && *format == '*') { | |
format++; | |
} | |
break; | |
} | |
/* object codes */ | |
case 'S': /* string object */ | |
#ifdef Py_USING_UNICODE | |
case 'U': /* unicode string object */ | |
#endif | |
{ | |
(void) va_arg(*p_va, PyObject **); | |
break; | |
} | |
case 'O': /* object */ | |
{ | |
if (*format == '!') { | |
format++; | |
(void) va_arg(*p_va, PyTypeObject*); | |
(void) va_arg(*p_va, PyObject **); | |
} | |
else if (*format == '&') { | |
typedef int (*converter)(PyObject *, void *); | |
(void) va_arg(*p_va, converter); | |
(void) va_arg(*p_va, void *); | |
format++; | |
} | |
else { | |
(void) va_arg(*p_va, PyObject **); | |
} | |
break; | |
} | |
case '(': /* bypass tuple, not handled at all previously */ | |
{ | |
char *msg; | |
for (;;) { | |
if (*format==')') | |
break; | |
if (IS_END_OF_FORMAT(*format)) | |
return "Unmatched left paren in format " | |
"string"; | |
msg = skipitem(&format, p_va, flags); | |
if (msg) | |
return msg; | |
} | |
format++; | |
break; | |
} | |
case ')': | |
return "Unmatched right paren in format string"; | |
default: | |
err: | |
return "impossible<bad format char>"; | |
} | |
*p_format = format; | |
return NULL; | |
} | |
int | |
PyArg_UnpackTuple(PyObject *args, const char *name, Py_ssize_t min, Py_ssize_t max, ...) | |
{ | |
Py_ssize_t i, l; | |
PyObject **o; | |
va_list vargs; | |
#ifdef HAVE_STDARG_PROTOTYPES | |
va_start(vargs, max); | |
#else | |
va_start(vargs); | |
#endif | |
assert(min >= 0); | |
assert(min <= max); | |
if (!PyTuple_Check(args)) { | |
PyErr_SetString(PyExc_SystemError, | |
"PyArg_UnpackTuple() argument list is not a tuple"); | |
return 0; | |
} | |
l = PyTuple_GET_SIZE(args); | |
if (l < min) { | |
if (name != NULL) | |
PyErr_Format( | |
PyExc_TypeError, | |
"%s expected %s%zd arguments, got %zd", | |
name, (min == max ? "" : "at least "), min, l); | |
else | |
PyErr_Format( | |
PyExc_TypeError, | |
"unpacked tuple should have %s%zd elements," | |
" but has %zd", | |
(min == max ? "" : "at least "), min, l); | |
va_end(vargs); | |
return 0; | |
} | |
if (l > max) { | |
if (name != NULL) | |
PyErr_Format( | |
PyExc_TypeError, | |
"%s expected %s%zd arguments, got %zd", | |
name, (min == max ? "" : "at most "), max, l); | |
else | |
PyErr_Format( | |
PyExc_TypeError, | |
"unpacked tuple should have %s%zd elements," | |
" but has %zd", | |
(min == max ? "" : "at most "), max, l); | |
va_end(vargs); | |
return 0; | |
} | |
for (i = 0; i < l; i++) { | |
o = va_arg(vargs, PyObject **); | |
*o = PyTuple_GET_ITEM(args, i); | |
} | |
va_end(vargs); | |
return 1; | |
} | |
/* For type constructors that don't take keyword args | |
* | |
* Sets a TypeError and returns 0 if the kwds dict is | |
* not empty, returns 1 otherwise | |
*/ | |
int | |
_PyArg_NoKeywords(const char *funcname, PyObject *kw) | |
{ | |
if (kw == NULL) | |
return 1; | |
if (!PyDict_CheckExact(kw)) { | |
PyErr_BadInternalCall(); | |
return 0; | |
} | |
if (PyDict_Size(kw) == 0) | |
return 1; | |
PyErr_Format(PyExc_TypeError, "%s does not take keyword arguments", | |
funcname); | |
return 0; | |
} | |
#ifdef __cplusplus | |
}; | |
#endif |