l:long; L:unsigned long; f:float; d:double.\n\
Special cases (preceding decimal count indicates length):\n\
s:string (array of char); p: pascal string (w. count byte).\n\
+Special case (only available in native format):\n\
+ P:an integer type that is wide enough to hold a pointer.\n\
Whitespace between formats is ignored.\n\
\n\
The variable struct.error is an exception raised on errors.";
typedef struct { char c; long x; } s_long;
typedef struct { char c; float x; } s_float;
typedef struct { char c; double x; } s_double;
+typedef struct { char c; void *x; } s_void_p;
#define SHORT_ALIGN (sizeof(s_short) - sizeof(short))
#define INT_ALIGN (sizeof(s_int) - sizeof(int))
#define LONG_ALIGN (sizeof(s_long) - sizeof(long))
#define FLOAT_ALIGN (sizeof(s_float) - sizeof(float))
#define DOUBLE_ALIGN (sizeof(s_double) - sizeof(double))
+#define VOID_P_ALIGN (sizeof(s_void_p) - sizeof(void *))
#ifdef __powerc
#pragma options align=reset
return PyFloat_FromDouble(x);
}
+static PyObject *
+nu_void_p(p, f)
+ const char *p;
+ const formatdef *f;
+{
+ return PyLong_FromVoidPtr(*(void **)p);
+}
+
static int
np_byte(p, v, f)
char *p;
return 0;
}
+static int
+np_void_p(p, v, f)
+ char *p;
+ PyObject *v;
+ const formatdef *f;
+{
+ void *x = PyLong_AsVoidPtr(v);
+ if (x == NULL && PyErr_Occurred()) {
+ /* ### hrm. PyLong_AsVoidPtr raises SystemError */
+ if (PyErr_ExceptionMatches(PyExc_TypeError))
+ PyErr_SetString(StructError,
+ "required argument is not an integer");
+ return -1;
+ }
+ *(void **)p = x;
+ return 0;
+}
+
static formatdef native_table[] = {
{'x', sizeof(char), 0, NULL},
{'b', sizeof(char), 0, nu_byte, np_byte},
{'L', sizeof(long), LONG_ALIGN, nu_ulong, np_ulong},
{'f', sizeof(float), FLOAT_ALIGN, nu_float, np_float},
{'d', sizeof(double), DOUBLE_ALIGN, nu_double, np_double},
+ {'P', sizeof(void *), VOID_P_ALIGN, nu_void_p, np_void_p},
{0}
};
return x * sign;
}
+/* Create a new long (or int) object from a C pointer */
+
+PyObject *
+PyLong_FromVoidPtr(p)
+ void *p;
+{
+#if SIZEOF_VOID_P == SIZEOF_LONG
+ return PyInt_FromLong((long)p);
+#else
+ /* optimize null pointers */
+ if ( p == NULL )
+ return PyInt_FromLong(0);
+
+ /* we can assume that HAVE_LONG_LONG is true. if not, then the
+ configuration process should have bailed (having big pointers
+ without long longs seems non-sensical) */
+ return PyLong_FromLongLong((LONG_LONG)p);
+#endif /* SIZEOF_VOID_P == SIZEOF_LONG */
+}
+
+/* Get a C pointer from a long object (or an int object in some cases) */
+
+void *
+PyLong_AsVoidPtr(vv)
+ PyObject *vv;
+{
+ /* This function will allow int or long objects. If vv is neither,
+ then the PyLong_AsLong*() functions will raise the exception:
+ PyExc_SystemError, "bad argument to internal function"
+ */
+
+#if SIZEOF_VOID_P == SIZEOF_LONG
+ long x;
+
+ if ( PyInt_Check(vv) )
+ x = PyInt_AS_LONG(vv);
+ else
+ x = PyLong_AsLong(vv);
+#else
+ /* we can assume that HAVE_LONG_LONG is true. if not, then the
+ configuration process should have bailed (having big pointers
+ without long longs seems non-sensical) */
+ LONG_LONG x;
+
+ if ( PyInt_Check(vv) )
+ x = PyInt_AS_LONG(vv);
+ else
+ x = PyLong_AsLongLong(vv);
+#endif /* SIZEOF_VOID_P == SIZEOF_LONG */
+
+ if (x == -1 && PyErr_Occurred())
+ return NULL;
+ return (void *)x;
+}
+
#ifdef HAVE_LONG_LONG
/*
* LONG_LONG support by Chris Herborth (chrish@qnx.com)
projects / python / commitdiff