cpython-lru_cache-weakref: Modules/_ctypes/callproc.c annotate

annotate Modules/_ctypes/callproc.c @ 79675:c0a2294de787 2.7

Issue #16199: Backport 2to3 typo fix from 3.2.

author	Chris Jerdonek <chris.jerdonek@gmail.com>
date	Thu, 11 Oct 2012 16:15:46 -0700
parents	cd8d3c2d3bce
children	df5a86a22310

rev	line source
38780 381a72ab5fb8 Add pep-291 compatibility markers. Thomas Heller <theller@ctypes.org> parents: 38747 diff changeset	1 /*****************************************************************
381a72ab5fb8 Add pep-291 compatibility markers. Thomas Heller <theller@ctypes.org> parents: 38747 diff changeset	2 This file should be kept compatible with Python 2.3, see PEP 291.
381a72ab5fb8 Add pep-291 compatibility markers. Thomas Heller <theller@ctypes.org> parents: 38747 diff changeset	3 *****************************************************************/
381a72ab5fb8 Add pep-291 compatibility markers. Thomas Heller <theller@ctypes.org> parents: 38747 diff changeset	4
381a72ab5fb8 Add pep-291 compatibility markers. Thomas Heller <theller@ctypes.org> parents: 38747 diff changeset	5
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	6 /*
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	7 * History: First version dated from 3/97, derived from my SCMLIB version
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	8 * for win16.
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	9 */
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	10 /*
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	11 * Related Work:
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	12 * - calldll http://www.nightmare.com/software.html
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	13 * - libffi http://sourceware.cygnus.com/libffi/
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	14 * - ffcall http://clisp.cons.org/~haible/packages-ffcall.html
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	15 * and, of course, Don Beaudry's MESS package, but this is more ctypes
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	16 * related.
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	17 */
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	18
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	19
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	20 /*
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	21 How are functions called, and how are parameters converted to C ?
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	22
53365 d51e4f62bc8c Issue #3102: All global symbols that the _ctypes extension defines are Thomas Heller <theller@ctypes.org> parents: 51525 diff changeset	23 1. _ctypes.c::PyCFuncPtr_call receives an argument tuple 'inargs' and a
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	24 keyword dictionary 'kwds'.
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	25
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	26 2. After several checks, _build_callargs() is called which returns another
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	27 tuple 'callargs'. This may be the same tuple as 'inargs', a slice of
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	28 'inargs', or a completely fresh tuple, depending on several things (is is a
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	29 COM method, are 'paramflags' available).
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	30
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	31 3. _build_callargs also calculates bitarrays containing indexes into
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	32 the callargs tuple, specifying how to build the return value(s) of
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	33 the function.
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	34
53365 d51e4f62bc8c Issue #3102: All global symbols that the _ctypes extension defines are Thomas Heller <theller@ctypes.org> parents: 51525 diff changeset	35 4. _ctypes_callproc is then called with the 'callargs' tuple. _ctypes_callproc first
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	36 allocates two arrays. The first is an array of 'struct argument' items, the
68588 cd8d3c2d3bce #11565: Fix several typos. Patch by Piotr Kasprzyk. Ezio Melotti <ezio.melotti@gmail.com> parents: 68503 diff changeset	37 second array has 'void *' entries.
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	38
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	39 5. If 'converters' are present (converters is a sequence of argtypes'
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	40 from_param methods), for each item in 'callargs' converter is called and the
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	41 result passed to ConvParam. If 'converters' are not present, each argument
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	42 is directly passed to ConvParm.
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	43
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	44 6. For each arg, ConvParam stores the contained C data (or a pointer to it,
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	45 for structures) into the 'struct argument' array.
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	46
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	47 7. Finally, a loop fills the 'void *' array so that each item points to the
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	48 data contained in or pointed to by the 'struct argument' array.
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	49
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	50 8. The 'void *' argument array is what _call_function_pointer
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	51 expects. _call_function_pointer then has very little to do - only some
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	52 libffi specific stuff, then it calls ffi_call.
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	53
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	54 So, there are 4 data structures holding processed arguments:
53365 d51e4f62bc8c Issue #3102: All global symbols that the _ctypes extension defines are Thomas Heller <theller@ctypes.org> parents: 51525 diff changeset	55 - the inargs tuple (in PyCFuncPtr_call)
d51e4f62bc8c Issue #3102: All global symbols that the _ctypes extension defines are Thomas Heller <theller@ctypes.org> parents: 51525 diff changeset	56 - the callargs tuple (in PyCFuncPtr_call)
68503 ee5350f1d0c2 #11515: fix several typos. Patch by Piotr Kasprzyk. Ezio Melotti <ezio.melotti@gmail.com> parents: 68256 diff changeset	57 - the 'struct arguments' array
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	58 - the 'void *' array
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	59
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	60 */
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	61
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	62 #include "Python.h"
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	63 #include "structmember.h"
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	64
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	65 #ifdef MS_WIN32
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	66 #include <windows.h>
41500 0a6e537b8d96 Fix various minor issues discovered with static analysis using Visual Studio 2005 Team System. Kristján Valur Jónsson <kristjan@ccpgames.com> parents: 39488 diff changeset	67 #include <tchar.h>
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	68 #else
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	69 #include "ctypes_dlfcn.h"
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	70 #endif
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	71
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	72 #ifdef MS_WIN32
37147 0057862a3bdb Include <malloc.h> on windows, to avoid warnings when compiling with mingw. Thomas Heller <theller@ctypes.org> parents: 37109 diff changeset	73 #include <malloc.h>
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	74 #endif
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	75
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	76 #include <ffi.h>
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	77 #include "ctypes.h"
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	78
37147 0057862a3bdb Include <malloc.h> on windows, to avoid warnings when compiling with mingw. Thomas Heller <theller@ctypes.org> parents: 37109 diff changeset	79 #if defined(_DEBUG) \|\| defined(__MINGW32__)
0057862a3bdb Include <malloc.h> on windows, to avoid warnings when compiling with mingw. Thomas Heller <theller@ctypes.org> parents: 37109 diff changeset	80 /* Don't use structured exception handling on Windows if this is defined.
0057862a3bdb Include <malloc.h> on windows, to avoid warnings when compiling with mingw. Thomas Heller <theller@ctypes.org> parents: 37109 diff changeset	81 MingW, AFAIK, doesn't support it.
0057862a3bdb Include <malloc.h> on windows, to avoid warnings when compiling with mingw. Thomas Heller <theller@ctypes.org> parents: 37109 diff changeset	82 */
0057862a3bdb Include <malloc.h> on windows, to avoid warnings when compiling with mingw. Thomas Heller <theller@ctypes.org> parents: 37109 diff changeset	83 #define DONT_USE_SEH
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	84 #endif
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	85
59998 d11fbc796499 Backported PyCapsule from 3.1, and converted most uses of Larry Hastings <larry@hastings.org> parents: 56085 diff changeset	86
d11fbc796499 Backported PyCapsule from 3.1, and converted most uses of Larry Hastings <larry@hastings.org> parents: 56085 diff changeset	87 #define CTYPES_CAPSULE_ERROROBJ "_ctypes/callproc.c error object"
d11fbc796499 Backported PyCapsule from 3.1, and converted most uses of Larry Hastings <larry@hastings.org> parents: 56085 diff changeset	88 CTYPES_CAPSULE_INSTANTIATE_DESTRUCTOR(CTYPES_CAPSULE_ERROROBJ)
d11fbc796499 Backported PyCapsule from 3.1, and converted most uses of Larry Hastings <larry@hastings.org> parents: 56085 diff changeset	89
d11fbc796499 Backported PyCapsule from 3.1, and converted most uses of Larry Hastings <larry@hastings.org> parents: 56085 diff changeset	90 #define CTYPES_CAPSULE_WCHAR_T "_ctypes/callproc.c wchar_t buffer from unicode"
d11fbc796499 Backported PyCapsule from 3.1, and converted most uses of Larry Hastings <larry@hastings.org> parents: 56085 diff changeset	91 CTYPES_CAPSULE_INSTANTIATE_DESTRUCTOR(CTYPES_CAPSULE_WCHAR_T)
d11fbc796499 Backported PyCapsule from 3.1, and converted most uses of Larry Hastings <larry@hastings.org> parents: 56085 diff changeset	92
47488 4f5e6aaf5a6a Issue #1798: Add ctypes calling convention that allows safe access of errno. Thomas Heller <theller@ctypes.org> parents: 47475 diff changeset	93 /*
4f5e6aaf5a6a Issue #1798: Add ctypes calling convention that allows safe access of errno. Thomas Heller <theller@ctypes.org> parents: 47475 diff changeset	94 ctypes maintains thread-local storage that has space for two error numbers:
4f5e6aaf5a6a Issue #1798: Add ctypes calling convention that allows safe access of errno. Thomas Heller <theller@ctypes.org> parents: 47475 diff changeset	95 private copies of the system 'errno' value and, on Windows, the system error code
4f5e6aaf5a6a Issue #1798: Add ctypes calling convention that allows safe access of errno. Thomas Heller <theller@ctypes.org> parents: 47475 diff changeset	96 accessed by the GetLastError() and SetLastError() api functions.
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	97
47488 4f5e6aaf5a6a Issue #1798: Add ctypes calling convention that allows safe access of errno. Thomas Heller <theller@ctypes.org> parents: 47475 diff changeset	98 Foreign functions created with CDLL(..., use_errno=True), when called, swap
4f5e6aaf5a6a Issue #1798: Add ctypes calling convention that allows safe access of errno. Thomas Heller <theller@ctypes.org> parents: 47475 diff changeset	99 the system 'errno' value with the private copy just before the actual
4f5e6aaf5a6a Issue #1798: Add ctypes calling convention that allows safe access of errno. Thomas Heller <theller@ctypes.org> parents: 47475 diff changeset	100 function call, and swapped again immediately afterwards. The 'use_errno'
4f5e6aaf5a6a Issue #1798: Add ctypes calling convention that allows safe access of errno. Thomas Heller <theller@ctypes.org> parents: 47475 diff changeset	101 parameter defaults to False, in this case 'ctypes_errno' is not touched.
4f5e6aaf5a6a Issue #1798: Add ctypes calling convention that allows safe access of errno. Thomas Heller <theller@ctypes.org> parents: 47475 diff changeset	102
4f5e6aaf5a6a Issue #1798: Add ctypes calling convention that allows safe access of errno. Thomas Heller <theller@ctypes.org> parents: 47475 diff changeset	103 On Windows, foreign functions created with CDLL(..., use_last_error=True) or
4f5e6aaf5a6a Issue #1798: Add ctypes calling convention that allows safe access of errno. Thomas Heller <theller@ctypes.org> parents: 47475 diff changeset	104 WinDLL(..., use_last_error=True) swap the system LastError value with the
4f5e6aaf5a6a Issue #1798: Add ctypes calling convention that allows safe access of errno. Thomas Heller <theller@ctypes.org> parents: 47475 diff changeset	105 ctypes private copy.
4f5e6aaf5a6a Issue #1798: Add ctypes calling convention that allows safe access of errno. Thomas Heller <theller@ctypes.org> parents: 47475 diff changeset	106
4f5e6aaf5a6a Issue #1798: Add ctypes calling convention that allows safe access of errno. Thomas Heller <theller@ctypes.org> parents: 47475 diff changeset	107 The values are also swapped immeditately before and after ctypes callback
4f5e6aaf5a6a Issue #1798: Add ctypes calling convention that allows safe access of errno. Thomas Heller <theller@ctypes.org> parents: 47475 diff changeset	108 functions are called, if the callbacks are constructed using the new
4f5e6aaf5a6a Issue #1798: Add ctypes calling convention that allows safe access of errno. Thomas Heller <theller@ctypes.org> parents: 47475 diff changeset	109 optional use_errno parameter set to True: CFUNCTYPE(..., use_errno=TRUE) or
4f5e6aaf5a6a Issue #1798: Add ctypes calling convention that allows safe access of errno. Thomas Heller <theller@ctypes.org> parents: 47475 diff changeset	110 WINFUNCTYPE(..., use_errno=True).
4f5e6aaf5a6a Issue #1798: Add ctypes calling convention that allows safe access of errno. Thomas Heller <theller@ctypes.org> parents: 47475 diff changeset	111
4f5e6aaf5a6a Issue #1798: Add ctypes calling convention that allows safe access of errno. Thomas Heller <theller@ctypes.org> parents: 47475 diff changeset	112 New ctypes functions are provided to access the ctypes private copies from
4f5e6aaf5a6a Issue #1798: Add ctypes calling convention that allows safe access of errno. Thomas Heller <theller@ctypes.org> parents: 47475 diff changeset	113 Python:
4f5e6aaf5a6a Issue #1798: Add ctypes calling convention that allows safe access of errno. Thomas Heller <theller@ctypes.org> parents: 47475 diff changeset	114
4f5e6aaf5a6a Issue #1798: Add ctypes calling convention that allows safe access of errno. Thomas Heller <theller@ctypes.org> parents: 47475 diff changeset	115 - ctypes.set_errno(value) and ctypes.set_last_error(value) store 'value' in
4f5e6aaf5a6a Issue #1798: Add ctypes calling convention that allows safe access of errno. Thomas Heller <theller@ctypes.org> parents: 47475 diff changeset	116 the private copy and returns the previous value.
4f5e6aaf5a6a Issue #1798: Add ctypes calling convention that allows safe access of errno. Thomas Heller <theller@ctypes.org> parents: 47475 diff changeset	117
4f5e6aaf5a6a Issue #1798: Add ctypes calling convention that allows safe access of errno. Thomas Heller <theller@ctypes.org> parents: 47475 diff changeset	118 - ctypes.get_errno() and ctypes.get_last_error() returns the current ctypes
4f5e6aaf5a6a Issue #1798: Add ctypes calling convention that allows safe access of errno. Thomas Heller <theller@ctypes.org> parents: 47475 diff changeset	119 private copies value.
4f5e6aaf5a6a Issue #1798: Add ctypes calling convention that allows safe access of errno. Thomas Heller <theller@ctypes.org> parents: 47475 diff changeset	120 */
4f5e6aaf5a6a Issue #1798: Add ctypes calling convention that allows safe access of errno. Thomas Heller <theller@ctypes.org> parents: 47475 diff changeset	121
4f5e6aaf5a6a Issue #1798: Add ctypes calling convention that allows safe access of errno. Thomas Heller <theller@ctypes.org> parents: 47475 diff changeset	122 /*
4f5e6aaf5a6a Issue #1798: Add ctypes calling convention that allows safe access of errno. Thomas Heller <theller@ctypes.org> parents: 47475 diff changeset	123 This function creates and returns a thread-local Python object that has
4f5e6aaf5a6a Issue #1798: Add ctypes calling convention that allows safe access of errno. Thomas Heller <theller@ctypes.org> parents: 47475 diff changeset	124 space to store two integer error numbers; once created the Python object is
4f5e6aaf5a6a Issue #1798: Add ctypes calling convention that allows safe access of errno. Thomas Heller <theller@ctypes.org> parents: 47475 diff changeset	125 kept alive in the thread state dictionary as long as the thread itself.
4f5e6aaf5a6a Issue #1798: Add ctypes calling convention that allows safe access of errno. Thomas Heller <theller@ctypes.org> parents: 47475 diff changeset	126 */
4f5e6aaf5a6a Issue #1798: Add ctypes calling convention that allows safe access of errno. Thomas Heller <theller@ctypes.org> parents: 47475 diff changeset	127 PyObject *
53365 d51e4f62bc8c Issue #3102: All global symbols that the _ctypes extension defines are Thomas Heller <theller@ctypes.org> parents: 51525 diff changeset	128 _ctypes_get_errobj(int **pspace)
47488 4f5e6aaf5a6a Issue #1798: Add ctypes calling convention that allows safe access of errno. Thomas Heller <theller@ctypes.org> parents: 47475 diff changeset	129 {
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	130 PyObject *dict = PyThreadState_GetDict();
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	131 PyObject *errobj;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	132 static PyObject *error_object_name;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	133 if (dict == 0) {
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	134 PyErr_SetString(PyExc_RuntimeError,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	135 "cannot get thread state");
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	136 return NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	137 }
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	138 if (error_object_name == NULL) {
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	139 error_object_name = PyString_InternFromString("ctypes.error_object");
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	140 if (error_object_name == NULL)
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	141 return NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	142 }
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	143 errobj = PyDict_GetItem(dict, error_object_name);
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	144 if (errobj) {
59998 d11fbc796499 Backported PyCapsule from 3.1, and converted most uses of Larry Hastings <larry@hastings.org> parents: 56085 diff changeset	145 #ifdef CTYPES_USING_CAPSULE
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	146 if (!PyCapsule_IsValid(errobj, CTYPES_CAPSULE_ERROROBJ)) {
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	147 PyErr_SetString(PyExc_RuntimeError,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	148 "ctypes.error_object is an invalid capsule");
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	149 return NULL;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	150 }
59998 d11fbc796499 Backported PyCapsule from 3.1, and converted most uses of Larry Hastings <larry@hastings.org> parents: 56085 diff changeset	151 #endif /* CTYPES_USING_CAPSULE */
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	152 Py_INCREF(errobj);
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	153 }
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	154 else {
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	155 void space = PyMem_Malloc(sizeof(int) 2);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	156 if (space == NULL)
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	157 return NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	158 memset(space, 0, sizeof(int) * 2);
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	159 errobj = CAPSULE_NEW(space, CTYPES_CAPSULE_ERROROBJ);
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	160 if (errobj == NULL)
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	161 return NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	162 if (-1 == PyDict_SetItem(dict, error_object_name,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	163 errobj)) {
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	164 Py_DECREF(errobj);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	165 return NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	166 }
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	167 }
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	168 pspace = (int )CAPSULE_DEREFERENCE(errobj, CTYPES_CAPSULE_ERROROBJ);
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	169 return errobj;
47488 4f5e6aaf5a6a Issue #1798: Add ctypes calling convention that allows safe access of errno. Thomas Heller <theller@ctypes.org> parents: 47475 diff changeset	170 }
4f5e6aaf5a6a Issue #1798: Add ctypes calling convention that allows safe access of errno. Thomas Heller <theller@ctypes.org> parents: 47475 diff changeset	171
4f5e6aaf5a6a Issue #1798: Add ctypes calling convention that allows safe access of errno. Thomas Heller <theller@ctypes.org> parents: 47475 diff changeset	172 static PyObject *
4f5e6aaf5a6a Issue #1798: Add ctypes calling convention that allows safe access of errno. Thomas Heller <theller@ctypes.org> parents: 47475 diff changeset	173 get_error_internal(PyObject self, PyObject args, int index)
4f5e6aaf5a6a Issue #1798: Add ctypes calling convention that allows safe access of errno. Thomas Heller <theller@ctypes.org> parents: 47475 diff changeset	174 {
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	175 int *space;
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	176 PyObject *errobj = _ctypes_get_errobj(&space);
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	177 PyObject *result;
47488 4f5e6aaf5a6a Issue #1798: Add ctypes calling convention that allows safe access of errno. Thomas Heller <theller@ctypes.org> parents: 47475 diff changeset	178
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	179 if (errobj == NULL)
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	180 return NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	181 result = PyInt_FromLong(space[index]);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	182 Py_DECREF(errobj);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	183 return result;
47488 4f5e6aaf5a6a Issue #1798: Add ctypes calling convention that allows safe access of errno. Thomas Heller <theller@ctypes.org> parents: 47475 diff changeset	184 }
4f5e6aaf5a6a Issue #1798: Add ctypes calling convention that allows safe access of errno. Thomas Heller <theller@ctypes.org> parents: 47475 diff changeset	185
4f5e6aaf5a6a Issue #1798: Add ctypes calling convention that allows safe access of errno. Thomas Heller <theller@ctypes.org> parents: 47475 diff changeset	186 static PyObject *
4f5e6aaf5a6a Issue #1798: Add ctypes calling convention that allows safe access of errno. Thomas Heller <theller@ctypes.org> parents: 47475 diff changeset	187 set_error_internal(PyObject self, PyObject args, int index)
4f5e6aaf5a6a Issue #1798: Add ctypes calling convention that allows safe access of errno. Thomas Heller <theller@ctypes.org> parents: 47475 diff changeset	188 {
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	189 int new_errno, old_errno;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	190 PyObject *errobj;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	191 int *space;
47488 4f5e6aaf5a6a Issue #1798: Add ctypes calling convention that allows safe access of errno. Thomas Heller <theller@ctypes.org> parents: 47475 diff changeset	192
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	193 if (!PyArg_ParseTuple(args, "i", &new_errno))
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	194 return NULL;
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	195 errobj = _ctypes_get_errobj(&space);
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	196 if (errobj == NULL)
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	197 return NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	198 old_errno = space[index];
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	199 space[index] = new_errno;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	200 Py_DECREF(errobj);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	201 return PyInt_FromLong(old_errno);
47488 4f5e6aaf5a6a Issue #1798: Add ctypes calling convention that allows safe access of errno. Thomas Heller <theller@ctypes.org> parents: 47475 diff changeset	202 }
4f5e6aaf5a6a Issue #1798: Add ctypes calling convention that allows safe access of errno. Thomas Heller <theller@ctypes.org> parents: 47475 diff changeset	203
4f5e6aaf5a6a Issue #1798: Add ctypes calling convention that allows safe access of errno. Thomas Heller <theller@ctypes.org> parents: 47475 diff changeset	204 static PyObject *
4f5e6aaf5a6a Issue #1798: Add ctypes calling convention that allows safe access of errno. Thomas Heller <theller@ctypes.org> parents: 47475 diff changeset	205 get_errno(PyObject self, PyObject args)
4f5e6aaf5a6a Issue #1798: Add ctypes calling convention that allows safe access of errno. Thomas Heller <theller@ctypes.org> parents: 47475 diff changeset	206 {
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	207 return get_error_internal(self, args, 0);
47488 4f5e6aaf5a6a Issue #1798: Add ctypes calling convention that allows safe access of errno. Thomas Heller <theller@ctypes.org> parents: 47475 diff changeset	208 }
4f5e6aaf5a6a Issue #1798: Add ctypes calling convention that allows safe access of errno. Thomas Heller <theller@ctypes.org> parents: 47475 diff changeset	209
4f5e6aaf5a6a Issue #1798: Add ctypes calling convention that allows safe access of errno. Thomas Heller <theller@ctypes.org> parents: 47475 diff changeset	210 static PyObject *
4f5e6aaf5a6a Issue #1798: Add ctypes calling convention that allows safe access of errno. Thomas Heller <theller@ctypes.org> parents: 47475 diff changeset	211 set_errno(PyObject self, PyObject args)
4f5e6aaf5a6a Issue #1798: Add ctypes calling convention that allows safe access of errno. Thomas Heller <theller@ctypes.org> parents: 47475 diff changeset	212 {
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	213 return set_error_internal(self, args, 0);
47488 4f5e6aaf5a6a Issue #1798: Add ctypes calling convention that allows safe access of errno. Thomas Heller <theller@ctypes.org> parents: 47475 diff changeset	214 }
4f5e6aaf5a6a Issue #1798: Add ctypes calling convention that allows safe access of errno. Thomas Heller <theller@ctypes.org> parents: 47475 diff changeset	215
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	216 #ifdef MS_WIN32
47488 4f5e6aaf5a6a Issue #1798: Add ctypes calling convention that allows safe access of errno. Thomas Heller <theller@ctypes.org> parents: 47475 diff changeset	217
4f5e6aaf5a6a Issue #1798: Add ctypes calling convention that allows safe access of errno. Thomas Heller <theller@ctypes.org> parents: 47475 diff changeset	218 static PyObject *
4f5e6aaf5a6a Issue #1798: Add ctypes calling convention that allows safe access of errno. Thomas Heller <theller@ctypes.org> parents: 47475 diff changeset	219 get_last_error(PyObject self, PyObject args)
4f5e6aaf5a6a Issue #1798: Add ctypes calling convention that allows safe access of errno. Thomas Heller <theller@ctypes.org> parents: 47475 diff changeset	220 {
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	221 return get_error_internal(self, args, 1);
47488 4f5e6aaf5a6a Issue #1798: Add ctypes calling convention that allows safe access of errno. Thomas Heller <theller@ctypes.org> parents: 47475 diff changeset	222 }
4f5e6aaf5a6a Issue #1798: Add ctypes calling convention that allows safe access of errno. Thomas Heller <theller@ctypes.org> parents: 47475 diff changeset	223
4f5e6aaf5a6a Issue #1798: Add ctypes calling convention that allows safe access of errno. Thomas Heller <theller@ctypes.org> parents: 47475 diff changeset	224 static PyObject *
4f5e6aaf5a6a Issue #1798: Add ctypes calling convention that allows safe access of errno. Thomas Heller <theller@ctypes.org> parents: 47475 diff changeset	225 set_last_error(PyObject self, PyObject args)
4f5e6aaf5a6a Issue #1798: Add ctypes calling convention that allows safe access of errno. Thomas Heller <theller@ctypes.org> parents: 47475 diff changeset	226 {
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	227 return set_error_internal(self, args, 1);
47488 4f5e6aaf5a6a Issue #1798: Add ctypes calling convention that allows safe access of errno. Thomas Heller <theller@ctypes.org> parents: 47475 diff changeset	228 }
4f5e6aaf5a6a Issue #1798: Add ctypes calling convention that allows safe access of errno. Thomas Heller <theller@ctypes.org> parents: 47475 diff changeset	229
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	230 PyObject *ComError;
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	231
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	232 static TCHAR *FormatError(DWORD code)
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	233 {
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	234 TCHAR *lpMsgBuf;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	235 DWORD n;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	236 n = FormatMessage(FORMAT_MESSAGE_ALLOCATE_BUFFER \| FORMAT_MESSAGE_FROM_SYSTEM,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	237 NULL,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	238 code,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	239 MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT), /* Default language */
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	240 (LPTSTR) &lpMsgBuf,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	241 0,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	242 NULL);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	243 if (n) {
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	244 while (_istspace(lpMsgBuf[n-1]))
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	245 --n;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	246 lpMsgBuf[n] = _T('\0'); /* rstrip() */
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	247 }
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	248 return lpMsgBuf;
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	249 }
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	250
37147 0057862a3bdb Include <malloc.h> on windows, to avoid warnings when compiling with mingw. Thomas Heller <theller@ctypes.org> parents: 37109 diff changeset	251 #ifndef DONT_USE_SEH
53410 2480ea75068f Issue #5078: Avoid redundant call to FormatError() Thomas Heller <theller@ctypes.org> parents: 53365 diff changeset	252 static void SetException(DWORD code, EXCEPTION_RECORD *pr)
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	253 {
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	254 /* The 'code' is a normal win32 error code so it could be handled by
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	255 PyErr_SetFromWindowsErr(). However, for some errors, we have additional
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	256 information not included in the error code. We handle those here and
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	257 delegate all others to the generic function. */
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	258 switch (code) {
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	259 case EXCEPTION_ACCESS_VIOLATION:
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	260 /* The thread attempted to read from or write
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	261 to a virtual address for which it does not
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	262 have the appropriate access. */
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	263 if (pr->ExceptionInformation[0] == 0)
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	264 PyErr_Format(PyExc_WindowsError,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	265 "exception: access violation reading %p",
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	266 pr->ExceptionInformation[1]);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	267 else
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	268 PyErr_Format(PyExc_WindowsError,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	269 "exception: access violation writing %p",
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	270 pr->ExceptionInformation[1]);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	271 break;
53410 2480ea75068f Issue #5078: Avoid redundant call to FormatError() Thomas Heller <theller@ctypes.org> parents: 53365 diff changeset	272
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	273 case EXCEPTION_BREAKPOINT:
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	274 /* A breakpoint was encountered. */
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	275 PyErr_SetString(PyExc_WindowsError,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	276 "exception: breakpoint encountered");
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	277 break;
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	278
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	279 case EXCEPTION_DATATYPE_MISALIGNMENT:
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	280 /* The thread attempted to read or write data that is
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	281 misaligned on hardware that does not provide
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	282 alignment. For example, 16-bit values must be
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	283 aligned on 2-byte boundaries, 32-bit values on
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	284 4-byte boundaries, and so on. */
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	285 PyErr_SetString(PyExc_WindowsError,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	286 "exception: datatype misalignment");
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	287 break;
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	288
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	289 case EXCEPTION_SINGLE_STEP:
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	290 /* A trace trap or other single-instruction mechanism
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	291 signaled that one instruction has been executed. */
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	292 PyErr_SetString(PyExc_WindowsError,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	293 "exception: single step");
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	294 break;
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	295
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	296 case EXCEPTION_ARRAY_BOUNDS_EXCEEDED:
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	297 /* The thread attempted to access an array element
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	298 that is out of bounds, and the underlying hardware
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	299 supports bounds checking. */
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	300 PyErr_SetString(PyExc_WindowsError,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	301 "exception: array bounds exceeded");
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	302 break;
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	303
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	304 case EXCEPTION_FLT_DENORMAL_OPERAND:
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	305 /* One of the operands in a floating-point operation
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	306 is denormal. A denormal value is one that is too
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	307 small to represent as a standard floating-point
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	308 value. */
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	309 PyErr_SetString(PyExc_WindowsError,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	310 "exception: floating-point operand denormal");
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	311 break;
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	312
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	313 case EXCEPTION_FLT_DIVIDE_BY_ZERO:
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	314 /* The thread attempted to divide a floating-point
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	315 value by a floating-point divisor of zero. */
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	316 PyErr_SetString(PyExc_WindowsError,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	317 "exception: float divide by zero");
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	318 break;
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	319
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	320 case EXCEPTION_FLT_INEXACT_RESULT:
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	321 /* The result of a floating-point operation cannot be
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	322 represented exactly as a decimal fraction. */
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	323 PyErr_SetString(PyExc_WindowsError,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	324 "exception: float inexact");
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	325 break;
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	326
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	327 case EXCEPTION_FLT_INVALID_OPERATION:
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	328 /* This exception represents any floating-point
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	329 exception not included in this list. */
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	330 PyErr_SetString(PyExc_WindowsError,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	331 "exception: float invalid operation");
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	332 break;
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	333
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	334 case EXCEPTION_FLT_OVERFLOW:
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	335 /* The exponent of a floating-point operation is
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	336 greater than the magnitude allowed by the
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	337 corresponding type. */
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	338 PyErr_SetString(PyExc_WindowsError,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	339 "exception: float overflow");
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	340 break;
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	341
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	342 case EXCEPTION_FLT_STACK_CHECK:
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	343 /* The stack overflowed or underflowed as the result
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	344 of a floating-point operation. */
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	345 PyErr_SetString(PyExc_WindowsError,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	346 "exception: stack over/underflow");
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	347 break;
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	348
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	349 case EXCEPTION_STACK_OVERFLOW:
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	350 /* The stack overflowed or underflowed as the result
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	351 of a floating-point operation. */
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	352 PyErr_SetString(PyExc_WindowsError,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	353 "exception: stack overflow");
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	354 break;
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	355
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	356 case EXCEPTION_FLT_UNDERFLOW:
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	357 /* The exponent of a floating-point operation is less
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	358 than the magnitude allowed by the corresponding
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	359 type. */
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	360 PyErr_SetString(PyExc_WindowsError,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	361 "exception: float underflow");
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	362 break;
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	363
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	364 case EXCEPTION_INT_DIVIDE_BY_ZERO:
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	365 /* The thread attempted to divide an integer value by
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	366 an integer divisor of zero. */
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	367 PyErr_SetString(PyExc_WindowsError,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	368 "exception: integer divide by zero");
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	369 break;
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	370
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	371 case EXCEPTION_INT_OVERFLOW:
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	372 /* The result of an integer operation caused a carry
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	373 out of the most significant bit of the result. */
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	374 PyErr_SetString(PyExc_WindowsError,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	375 "exception: integer overflow");
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	376 break;
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	377
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	378 case EXCEPTION_PRIV_INSTRUCTION:
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	379 /* The thread attempted to execute an instruction
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	380 whose operation is not allowed in the current
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	381 machine mode. */
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	382 PyErr_SetString(PyExc_WindowsError,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	383 "exception: priviledged instruction");
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	384 break;
53410 2480ea75068f Issue #5078: Avoid redundant call to FormatError() Thomas Heller <theller@ctypes.org> parents: 53365 diff changeset	385
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	386 case EXCEPTION_NONCONTINUABLE_EXCEPTION:
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	387 /* The thread attempted to continue execution after a
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	388 noncontinuable exception occurred. */
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	389 PyErr_SetString(PyExc_WindowsError,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	390 "exception: nocontinuable");
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	391 break;
53410 2480ea75068f Issue #5078: Avoid redundant call to FormatError() Thomas Heller <theller@ctypes.org> parents: 53365 diff changeset	392
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	393 default:
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	394 PyErr_SetFromWindowsErr(code);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	395 break;
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	396 }
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	397 }
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	398
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	399 static DWORD HandleException(EXCEPTION_POINTERS *ptrs,
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	400 DWORD pdw, EXCEPTION_RECORD record)
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	401 {
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	402 *pdw = ptrs->ExceptionRecord->ExceptionCode;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	403 record = ptrs->ExceptionRecord;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	404 return EXCEPTION_EXECUTE_HANDLER;
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	405 }
37147 0057862a3bdb Include <malloc.h> on windows, to avoid warnings when compiling with mingw. Thomas Heller <theller@ctypes.org> parents: 37109 diff changeset	406 #endif
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	407
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	408 static PyObject *
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	409 check_hresult(PyObject self, PyObject args)
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	410 {
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	411 HRESULT hr;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	412 if (!PyArg_ParseTuple(args, "i", &hr))
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	413 return NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	414 if (FAILED(hr))
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	415 return PyErr_SetFromWindowsErr(hr);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	416 return PyInt_FromLong(hr);
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	417 }
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	418
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	419 #endif
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	420
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	421 /**************************************************************/
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	422
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	423 PyCArgObject *
53365 d51e4f62bc8c Issue #3102: All global symbols that the _ctypes extension defines are Thomas Heller <theller@ctypes.org> parents: 51525 diff changeset	424 PyCArgObject_new(void)
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	425 {
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	426 PyCArgObject *p;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	427 p = PyObject_New(PyCArgObject, &PyCArg_Type);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	428 if (p == NULL)
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	429 return NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	430 p->pffi_type = NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	431 p->tag = '\0';
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	432 p->obj = NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	433 memset(&p->value, 0, sizeof(p->value));
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	434 return p;
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	435 }
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	436
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	437 static void
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	438 PyCArg_dealloc(PyCArgObject *self)
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	439 {
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	440 Py_XDECREF(self->obj);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	441 PyObject_Del(self);
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	442 }
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	443
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	444 static PyObject *
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	445 PyCArg_repr(PyCArgObject *self)
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	446 {
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	447 char buffer[256];
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	448 switch(self->tag) {
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	449 case 'b':
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	450 case 'B':
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	451 sprintf(buffer, "<cparam '%c' (%d)>",
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	452 self->tag, self->value.b);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	453 break;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	454 case 'h':
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	455 case 'H':
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	456 sprintf(buffer, "<cparam '%c' (%d)>",
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	457 self->tag, self->value.h);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	458 break;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	459 case 'i':
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	460 case 'I':
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	461 sprintf(buffer, "<cparam '%c' (%d)>",
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	462 self->tag, self->value.i);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	463 break;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	464 case 'l':
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	465 case 'L':
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	466 sprintf(buffer, "<cparam '%c' (%ld)>",
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	467 self->tag, self->value.l);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	468 break;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	469
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	470 #ifdef HAVE_LONG_LONG
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	471 case 'q':
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	472 case 'Q':
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	473 sprintf(buffer,
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	474 #ifdef MS_WIN32
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	475 "<cparam '%c' (%I64d)>",
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	476 #else
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	477 "<cparam '%c' (%qd)>",
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	478 #endif
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	479 self->tag, self->value.q);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	480 break;
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	481 #endif
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	482 case 'd':
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	483 sprintf(buffer, "<cparam '%c' (%f)>",
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	484 self->tag, self->value.d);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	485 break;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	486 case 'f':
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	487 sprintf(buffer, "<cparam '%c' (%f)>",
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	488 self->tag, self->value.f);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	489 break;
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	490
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	491 case 'c':
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	492 sprintf(buffer, "<cparam '%c' (%c)>",
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	493 self->tag, self->value.c);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	494 break;
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	495
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	496 /* Hm, are these 'z' and 'Z' codes useful at all?
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	497 Shouldn't they be replaced by the functionality of c_string
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	498 and c_wstring ?
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	499 */
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	500 case 'z':
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	501 case 'Z':
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	502 case 'P':
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	503 sprintf(buffer, "<cparam '%c' (%p)>",
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	504 self->tag, self->value.p);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	505 break;
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	506
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	507 default:
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	508 sprintf(buffer, "<cparam '%c' at %p>",
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	509 self->tag, self);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	510 break;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	511 }
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	512 return PyString_FromString(buffer);
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	513 }
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	514
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	515 static PyMemberDef PyCArgType_members[] = {
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	516 { "_obj", T_OBJECT,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	517 offsetof(PyCArgObject, obj), READONLY,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	518 "the wrapped object" },
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	519 { NULL },
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	520 };
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	521
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	522 PyTypeObject PyCArg_Type = {
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	523 PyVarObject_HEAD_INIT(NULL, 0)
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	524 "CArgObject",
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	525 sizeof(PyCArgObject),
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	526 0,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	527 (destructor)PyCArg_dealloc, /* tp_dealloc */
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	528 0, /* tp_print */
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	529 0, /* tp_getattr */
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	530 0, /* tp_setattr */
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	531 0, /* tp_compare */
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	532 (reprfunc)PyCArg_repr, /* tp_repr */
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	533 0, /* tp_as_number */
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	534 0, /* tp_as_sequence */
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	535 0, /* tp_as_mapping */
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	536 0, /* tp_hash */
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	537 0, /* tp_call */
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	538 0, /* tp_str */
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	539 0, /* tp_getattro */
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	540 0, /* tp_setattro */
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	541 0, /* tp_as_buffer */
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	542 Py_TPFLAGS_DEFAULT, /* tp_flags */
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	543 0, /* tp_doc */
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	544 0, /* tp_traverse */
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	545 0, /* tp_clear */
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	546 0, /* tp_richcompare */
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	547 0, /* tp_weaklistoffset */
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	548 0, /* tp_iter */
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	549 0, /* tp_iternext */
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	550 0, /* tp_methods */
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	551 PyCArgType_members, /* tp_members */
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	552 };
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	553
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	554 /****************************************************************/
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	555 /*
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	556 * Convert a PyObject * into a parameter suitable to pass to an
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	557 * C function call.
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	558 *
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	559 * 1. Python integers are converted to C int and passed by value.
56088 b4ca59484914 Merged revisions 74921 via svnmerge from Thomas Heller <theller@ctypes.org> parents: 51525 diff changeset	560 * Py_None is converted to a C NULL pointer.
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	561 *
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	562 * 2. 3-tuples are expected to have a format character in the first
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	563 * item, which must be 'i', 'f', 'd', 'q', or 'P'.
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	564 * The second item will have to be an integer, float, double, long long
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	565 * or integer (denoting an address void *), will be converted to the
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	566 * corresponding C data type and passed by value.
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	567 *
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	568 * 3. Other Python objects are tested for an '_as_parameter_' attribute.
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	569 * The value of this attribute must be an integer which will be passed
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	570 * by value, or a 2-tuple or 3-tuple which will be used according
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	571 * to point 2 above. The third item (if any), is ignored. It is normally
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	572 * used to keep the object alive where this parameter refers to.
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	573 * XXX This convention is dangerous - you can construct arbitrary tuples
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	574 * in Python and pass them. Would it be safer to use a custom container
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	575 * datatype instead of a tuple?
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	576 *
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	577 * 4. Other Python objects cannot be passed as parameters - an exception is raised.
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	578 *
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	579 * 5. ConvParam will store the converted result in a struct containing format
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	580 * and value.
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	581 */
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	582
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	583 union result {
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	584 char c;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	585 char b;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	586 short h;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	587 int i;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	588 long l;
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	589 #ifdef HAVE_LONG_LONG
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	590 PY_LONG_LONG q;
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	591 #endif
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	592 long double D;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	593 double d;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	594 float f;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	595 void *p;
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	596 };
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	597
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	598 struct argument {
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	599 ffi_type *ffi_type;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	600 PyObject *keep;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	601 union result value;
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	602 };
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	603
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	604 /*
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	605 * Convert a single Python object into a PyCArgObject and return it.
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	606 */
41998 7b84e8919b00 [ 1715718 ] x64 clean compile patch for _ctypes, by Kristj?n Valur Thomas Heller <theller@ctypes.org> parents: 41612 diff changeset	607 static int ConvParam(PyObject obj, Py_ssize_t index, struct argument pa)
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	608 {
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	609 StgDictObject *dict;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	610 pa->keep = NULL; /* so we cannot forget it later */
39488 a55369e23f06 Apply the patch #1532975 plus ideas from the patch #1533481. Thomas Heller <theller@ctypes.org> parents: 39477 diff changeset	611
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	612 dict = PyObject_stgdict(obj);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	613 if (dict) {
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	614 PyCArgObject *carg;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	615 assert(dict->paramfunc);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	616 /* If it has an stgdict, it is a CDataObject */
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	617 carg = dict->paramfunc((CDataObject *)obj);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	618 pa->ffi_type = carg->pffi_type;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	619 memcpy(&pa->value, &carg->value, sizeof(pa->value));
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	620 pa->keep = (PyObject *)carg;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	621 return 0;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	622 }
39488 a55369e23f06 Apply the patch #1532975 plus ideas from the patch #1533481. Thomas Heller <theller@ctypes.org> parents: 39477 diff changeset	623
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	624 if (PyCArg_CheckExact(obj)) {
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	625 PyCArgObject carg = (PyCArgObject )obj;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	626 pa->ffi_type = carg->pffi_type;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	627 Py_INCREF(obj);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	628 pa->keep = obj;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	629 memcpy(&pa->value, &carg->value, sizeof(pa->value));
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	630 return 0;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	631 }
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	632
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	633 /* check for None, integer, string or unicode and use directly if successful */
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	634 if (obj == Py_None) {
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	635 pa->ffi_type = &ffi_type_pointer;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	636 pa->value.p = NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	637 return 0;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	638 }
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	639
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	640 if (PyInt_Check(obj)) {
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	641 pa->ffi_type = &ffi_type_sint;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	642 pa->value.i = PyInt_AS_LONG(obj);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	643 return 0;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	644 }
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	645
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	646 if (PyLong_Check(obj)) {
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	647 pa->ffi_type = &ffi_type_sint;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	648 pa->value.i = (long)PyLong_AsUnsignedLong(obj);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	649 if (pa->value.i == -1 && PyErr_Occurred()) {
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	650 PyErr_Clear();
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	651 pa->value.i = PyLong_AsLong(obj);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	652 if (pa->value.i == -1 && PyErr_Occurred()) {
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	653 PyErr_SetString(PyExc_OverflowError,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	654 "long int too long to convert");
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	655 return -1;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	656 }
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	657 }
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	658 return 0;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	659 }
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	660
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	661 if (PyString_Check(obj)) {
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	662 pa->ffi_type = &ffi_type_pointer;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	663 pa->value.p = PyString_AS_STRING(obj);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	664 Py_INCREF(obj);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	665 pa->keep = obj;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	666 return 0;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	667 }
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	668
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	669 #ifdef CTYPES_UNICODE
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	670 if (PyUnicode_Check(obj)) {
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	671 #ifdef HAVE_USABLE_WCHAR_T
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	672 pa->ffi_type = &ffi_type_pointer;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	673 pa->value.p = PyUnicode_AS_UNICODE(obj);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	674 Py_INCREF(obj);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	675 pa->keep = obj;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	676 return 0;
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	677 #else
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	678 int size = PyUnicode_GET_SIZE(obj);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	679 pa->ffi_type = &ffi_type_pointer;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	680 size += 1; /* terminating NUL */
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	681 size *= sizeof(wchar_t);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	682 pa->value.p = PyMem_Malloc(size);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	683 if (!pa->value.p) {
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	684 PyErr_NoMemory();
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	685 return -1;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	686 }
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	687 memset(pa->value.p, 0, size);
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	688 pa->keep = CAPSULE_NEW(pa->value.p, CTYPES_CAPSULE_WCHAR_T);
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	689 if (!pa->keep) {
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	690 PyMem_Free(pa->value.p);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	691 return -1;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	692 }
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	693 if (-1 == PyUnicode_AsWideChar((PyUnicodeObject *)obj,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	694 pa->value.p, PyUnicode_GET_SIZE(obj)))
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	695 return -1;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	696 return 0;
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	697 #endif
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	698 }
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	699 #endif
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	700
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	701 {
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	702 PyObject *arg;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	703 arg = PyObject_GetAttrString(obj, "_as_parameter_");
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	704 /* Which types should we exactly allow here?
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	705 integers are required for using Python classes
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	706 as parameters (they have to expose the '_as_parameter_'
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	707 attribute)
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	708 */
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	709 if (arg) {
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	710 int result;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	711 result = ConvParam(arg, index, pa);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	712 Py_DECREF(arg);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	713 return result;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	714 }
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	715 PyErr_Format(PyExc_TypeError,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	716 "Don't know how to convert parameter %d",
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	717 Py_SAFE_DOWNCAST(index, Py_ssize_t, int));
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	718 return -1;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	719 }
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	720 }
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	721
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	722
53365 d51e4f62bc8c Issue #3102: All global symbols that the _ctypes extension defines are Thomas Heller <theller@ctypes.org> parents: 51525 diff changeset	723 ffi_type _ctypes_get_ffi_type(PyObject obj)
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	724 {
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	725 StgDictObject *dict;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	726 if (obj == NULL)
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	727 return &ffi_type_sint;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	728 dict = PyType_stgdict(obj);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	729 if (dict == NULL)
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	730 return &ffi_type_sint;
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	731 #if defined(MS_WIN32) && !defined(_WIN32_WCE)
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	732 /* This little trick works correctly with MSVC.
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	733 It returns small structures in registers
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	734 */
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	735 if (dict->ffi_type_pointer.type == FFI_TYPE_STRUCT) {
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	736 if (dict->ffi_type_pointer.size <= 4)
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	737 return &ffi_type_sint32;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	738 else if (dict->ffi_type_pointer.size <= 8)
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	739 return &ffi_type_sint64;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	740 }
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	741 #endif
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	742 return &dict->ffi_type_pointer;
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	743 }
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	744
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	745
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	746 /*
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	747 * libffi uses:
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	748 *
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	749 * ffi_status ffi_prep_cif(ffi_cif *cif, ffi_abi abi,
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	750 * unsigned int nargs,
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	751 * ffi_type *rtype,
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	752 * ffi_type **atypes);
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	753 *
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	754 * and then
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	755 *
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	756 * void ffi_call(ffi_cif cif, void fn, void rvalue, void *avalues);
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	757 */
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	758 static int _call_function_pointer(int flags,
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	759 PPROC pProc,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	760 void **avalues,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	761 ffi_type **atypes,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	762 ffi_type *restype,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	763 void *resmem,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	764 int argcount)
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	765 {
39074 892b7ac26d3b A misspelled preprocessor symbol caused ctypes to be always compiled Thomas Heller <theller@ctypes.org> parents: 39013 diff changeset	766 #ifdef WITH_THREAD
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	767 PyThreadState _save = NULL; / For Py_BLOCK_THREADS and Py_UNBLOCK_THREADS */
38963 c6d04c9c3c4a Protect the thread api calls in the _ctypes extension module within Thomas Heller <theller@ctypes.org> parents: 38780 diff changeset	768 #endif
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	769 PyObject *error_object = NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	770 int *space;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	771 ffi_cif cif;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	772 int cc;
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	773 #ifdef MS_WIN32
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	774 int delta;
37147 0057862a3bdb Include <malloc.h> on windows, to avoid warnings when compiling with mingw. Thomas Heller <theller@ctypes.org> parents: 37109 diff changeset	775 #ifndef DONT_USE_SEH
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	776 DWORD dwExceptionCode = 0;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	777 EXCEPTION_RECORD record;
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	778 #endif
37147 0057862a3bdb Include <malloc.h> on windows, to avoid warnings when compiling with mingw. Thomas Heller <theller@ctypes.org> parents: 37109 diff changeset	779 #endif
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	780 /* XXX check before here */
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	781 if (restype == NULL) {
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	782 PyErr_SetString(PyExc_RuntimeError,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	783 "No ffi_type for result");
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	784 return -1;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	785 }
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	786
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	787 cc = FFI_DEFAULT_ABI;
39679 3bfc8bb4e726 Port _ctypes.pyd to win64 on AMD64. Thomas Heller <theller@ctypes.org> parents: 39488 diff changeset	788 #if defined(MS_WIN32) && !defined(MS_WIN64) && !defined(_WIN32_WCE)
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	789 if ((flags & FUNCFLAG_CDECL) == 0)
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	790 cc = FFI_STDCALL;
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	791 #endif
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	792 if (FFI_OK != ffi_prep_cif(&cif,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	793 cc,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	794 argcount,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	795 restype,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	796 atypes)) {
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	797 PyErr_SetString(PyExc_RuntimeError,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	798 "ffi_prep_cif failed");
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	799 return -1;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	800 }
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	801
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	802 if (flags & (FUNCFLAG_USE_ERRNO \| FUNCFLAG_USE_LASTERROR)) {
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	803 error_object = _ctypes_get_errobj(&space);
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	804 if (error_object == NULL)
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	805 return -1;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	806 }
39074 892b7ac26d3b A misspelled preprocessor symbol caused ctypes to be always compiled Thomas Heller <theller@ctypes.org> parents: 39013 diff changeset	807 #ifdef WITH_THREAD
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	808 if ((flags & FUNCFLAG_PYTHONAPI) == 0)
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	809 Py_UNBLOCK_THREADS
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	810 #endif
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	811 if (flags & FUNCFLAG_USE_ERRNO) {
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	812 int temp = space[0];
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	813 space[0] = errno;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	814 errno = temp;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	815 }
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	816 #ifdef MS_WIN32
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	817 if (flags & FUNCFLAG_USE_LASTERROR) {
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	818 int temp = space[1];
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	819 space[1] = GetLastError();
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	820 SetLastError(temp);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	821 }
37147 0057862a3bdb Include <malloc.h> on windows, to avoid warnings when compiling with mingw. Thomas Heller <theller@ctypes.org> parents: 37109 diff changeset	822 #ifndef DONT_USE_SEH
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	823 __try {
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	824 #endif
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	825 delta =
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	826 #endif
62417 ce21eb5c17a5 Fix #8959 by reverting revision 80761. Thomas Heller <theller@ctypes.org> parents: 61463 diff changeset	827 ffi_call(&cif, (void *)pProc, resmem, avalues);
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	828 #ifdef MS_WIN32
37147 0057862a3bdb Include <malloc.h> on windows, to avoid warnings when compiling with mingw. Thomas Heller <theller@ctypes.org> parents: 37109 diff changeset	829 #ifndef DONT_USE_SEH
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	830 }
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	831 __except (HandleException(GetExceptionInformation(),
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	832 &dwExceptionCode, &record)) {
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	833 ;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	834 }
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	835 #endif
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	836 if (flags & FUNCFLAG_USE_LASTERROR) {
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	837 int temp = space[1];
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	838 space[1] = GetLastError();
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	839 SetLastError(temp);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	840 }
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	841 #endif
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	842 if (flags & FUNCFLAG_USE_ERRNO) {
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	843 int temp = space[0];
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	844 space[0] = errno;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	845 errno = temp;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	846 }
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	847 Py_XDECREF(error_object);
39074 892b7ac26d3b A misspelled preprocessor symbol caused ctypes to be always compiled Thomas Heller <theller@ctypes.org> parents: 39013 diff changeset	848 #ifdef WITH_THREAD
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	849 if ((flags & FUNCFLAG_PYTHONAPI) == 0)
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	850 Py_BLOCK_THREADS
38963 c6d04c9c3c4a Protect the thread api calls in the _ctypes extension module within Thomas Heller <theller@ctypes.org> parents: 38780 diff changeset	851 #endif
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	852 #ifdef MS_WIN32
37147 0057862a3bdb Include <malloc.h> on windows, to avoid warnings when compiling with mingw. Thomas Heller <theller@ctypes.org> parents: 37109 diff changeset	853 #ifndef DONT_USE_SEH
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	854 if (dwExceptionCode) {
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	855 SetException(dwExceptionCode, &record);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	856 return -1;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	857 }
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	858 #endif
39679 3bfc8bb4e726 Port _ctypes.pyd to win64 on AMD64. Thomas Heller <theller@ctypes.org> parents: 39488 diff changeset	859 #ifdef MS_WIN64
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	860 if (delta != 0) {
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	861 PyErr_Format(PyExc_RuntimeError,
62417 ce21eb5c17a5 Fix #8959 by reverting revision 80761. Thomas Heller <theller@ctypes.org> parents: 61463 diff changeset	862 "ffi_call failed with code %d",
ce21eb5c17a5 Fix #8959 by reverting revision 80761. Thomas Heller <theller@ctypes.org> parents: 61463 diff changeset	863 delta);
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	864 return -1;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	865 }
39679 3bfc8bb4e726 Port _ctypes.pyd to win64 on AMD64. Thomas Heller <theller@ctypes.org> parents: 39488 diff changeset	866 #else
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	867 if (delta < 0) {
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	868 if (flags & FUNCFLAG_CDECL)
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	869 PyErr_Format(PyExc_ValueError,
62417 ce21eb5c17a5 Fix #8959 by reverting revision 80761. Thomas Heller <theller@ctypes.org> parents: 61463 diff changeset	870 "Procedure called with not enough "
ce21eb5c17a5 Fix #8959 by reverting revision 80761. Thomas Heller <theller@ctypes.org> parents: 61463 diff changeset	871 "arguments (%d bytes missing) "
ce21eb5c17a5 Fix #8959 by reverting revision 80761. Thomas Heller <theller@ctypes.org> parents: 61463 diff changeset	872 "or wrong calling convention",
ce21eb5c17a5 Fix #8959 by reverting revision 80761. Thomas Heller <theller@ctypes.org> parents: 61463 diff changeset	873 -delta);
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	874 else
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	875 PyErr_Format(PyExc_ValueError,
62417 ce21eb5c17a5 Fix #8959 by reverting revision 80761. Thomas Heller <theller@ctypes.org> parents: 61463 diff changeset	876 "Procedure probably called with not enough "
ce21eb5c17a5 Fix #8959 by reverting revision 80761. Thomas Heller <theller@ctypes.org> parents: 61463 diff changeset	877 "arguments (%d bytes missing)",
ce21eb5c17a5 Fix #8959 by reverting revision 80761. Thomas Heller <theller@ctypes.org> parents: 61463 diff changeset	878 -delta);
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	879 return -1;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	880 } else if (delta > 0) {
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	881 PyErr_Format(PyExc_ValueError,
62417 ce21eb5c17a5 Fix #8959 by reverting revision 80761. Thomas Heller <theller@ctypes.org> parents: 61463 diff changeset	882 "Procedure probably called with too many "
ce21eb5c17a5 Fix #8959 by reverting revision 80761. Thomas Heller <theller@ctypes.org> parents: 61463 diff changeset	883 "arguments (%d bytes in excess)",
ce21eb5c17a5 Fix #8959 by reverting revision 80761. Thomas Heller <theller@ctypes.org> parents: 61463 diff changeset	884 delta);
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	885 return -1;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	886 }
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	887 #endif
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	888 #endif
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	889 if ((flags & FUNCFLAG_PYTHONAPI) && PyErr_Occurred())
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	890 return -1;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	891 return 0;
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	892 }
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	893
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	894 /*
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	895 * Convert the C value in result into a Python object, depending on restype.
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	896 *
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	897 * - If restype is NULL, return a Python integer.
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	898 * - If restype is None, return None.
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	899 * - If restype is a simple ctypes type (c_int, c_void_p), call the type's getfunc,
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	900 * pass the result to checker and return the result.
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	901 * - If restype is another ctypes type, return an instance of that.
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	902 * - Otherwise, call restype and return the result.
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	903 */
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	904 static PyObject GetResult(PyObject restype, void result, PyObject checker)
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	905 {
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	906 StgDictObject *dict;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	907 PyObject retval, v;
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	908
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	909 if (restype == NULL)
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	910 return PyInt_FromLong((int )result);
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	911
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	912 if (restype == Py_None) {
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	913 Py_INCREF(Py_None);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	914 return Py_None;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	915 }
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	916
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	917 dict = PyType_stgdict(restype);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	918 if (dict == NULL)
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	919 return PyObject_CallFunction(restype, "i", (int )result);
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	920
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	921 if (dict->getfunc && !_ctypes_simple_instance(restype)) {
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	922 retval = dict->getfunc(result, dict->size);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	923 /* If restype is py_object (detected by comparing getfunc with
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	924 O_get), we have to call Py_DECREF because O_get has already
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	925 called Py_INCREF.
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	926 */
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	927 if (dict->getfunc == _ctypes_get_fielddesc("O")->getfunc) {
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	928 Py_DECREF(retval);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	929 }
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	930 } else
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	931 retval = PyCData_FromBaseObj(restype, NULL, 0, result);
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	932
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	933 if (!checker \|\| !retval)
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	934 return retval;
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	935
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	936 v = PyObject_CallFunctionObjArgs(checker, retval, NULL);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	937 if (v == NULL)
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	938 _ctypes_add_traceback("GetResult", "_ctypes/callproc.c", __LINE__-2);
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	939 Py_DECREF(retval);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	940 return v;
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	941 }
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	942
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	943 /*
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	944 * Raise a new exception 'exc_class', adding additional text to the original
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	945 * exception string.
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	946 */
53365 d51e4f62bc8c Issue #3102: All global symbols that the _ctypes extension defines are Thomas Heller <theller@ctypes.org> parents: 51525 diff changeset	947 void _ctypes_extend_error(PyObject exc_class, char fmt, ...)
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	948 {
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	949 va_list vargs;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	950 PyObject tp, v, tb, s, cls_str, msg_str;
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	951
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	952 va_start(vargs, fmt);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	953 s = PyString_FromFormatV(fmt, vargs);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	954 va_end(vargs);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	955 if (!s)
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	956 return;
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	957
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	958 PyErr_Fetch(&tp, &v, &tb);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	959 PyErr_NormalizeException(&tp, &v, &tb);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	960 cls_str = PyObject_Str(tp);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	961 if (cls_str) {
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	962 PyString_ConcatAndDel(&s, cls_str);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	963 PyString_ConcatAndDel(&s, PyString_FromString(": "));
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	964 if (s == NULL)
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	965 goto error;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	966 } else
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	967 PyErr_Clear();
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	968 msg_str = PyObject_Str(v);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	969 if (msg_str)
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	970 PyString_ConcatAndDel(&s, msg_str);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	971 else {
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	972 PyErr_Clear();
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	973 PyString_ConcatAndDel(&s, PyString_FromString("???"));
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	974 if (s == NULL)
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	975 goto error;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	976 }
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	977 PyErr_SetObject(exc_class, s);
37514 2b0a5eec028b Handle error conditions from PyString_ConcatAndDel(). Neal Norwitz <nnorwitz@gmail.com> parents: 37147 diff changeset	978 error:
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	979 Py_XDECREF(tp);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	980 Py_XDECREF(v);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	981 Py_XDECREF(tb);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	982 Py_XDECREF(s);
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	983 }
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	984
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	985
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	986 #ifdef MS_WIN32
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	987
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	988 static PyObject *
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	989 GetComError(HRESULT errcode, GUID riid, IUnknown pIunk)
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	990 {
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	991 HRESULT hr;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	992 ISupportErrorInfo *psei = NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	993 IErrorInfo *pei = NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	994 BSTR descr=NULL, helpfile=NULL, source=NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	995 GUID guid;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	996 DWORD helpcontext=0;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	997 LPOLESTR progid;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	998 PyObject *obj;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	999 TCHAR *text;
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1000
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1001 /* We absolutely have to release the GIL during COM method calls,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1002 otherwise we may get a deadlock!
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1003 */
39119 c5759b5a57f0 Make sure the _ctypes extension can be compiled when WITH_THREAD is Thomas Heller <theller@ctypes.org> parents: 39074 diff changeset	1004 #ifdef WITH_THREAD
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1005 Py_BEGIN_ALLOW_THREADS
39119 c5759b5a57f0 Make sure the _ctypes extension can be compiled when WITH_THREAD is Thomas Heller <theller@ctypes.org> parents: 39074 diff changeset	1006 #endif
38747 a789390d8ea7 Release the GIL during COM method calls, to avoid deadlocks in Thomas Heller <theller@ctypes.org> parents: 38730 diff changeset	1007
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1008 hr = pIunk->lpVtbl->QueryInterface(pIunk, &IID_ISupportErrorInfo, (void **)&psei);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1009 if (FAILED(hr))
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1010 goto failed;
38747 a789390d8ea7 Release the GIL during COM method calls, to avoid deadlocks in Thomas Heller <theller@ctypes.org> parents: 38730 diff changeset	1011
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1012 hr = psei->lpVtbl->InterfaceSupportsErrorInfo(psei, riid);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1013 psei->lpVtbl->Release(psei);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1014 if (FAILED(hr))
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1015 goto failed;
38747 a789390d8ea7 Release the GIL during COM method calls, to avoid deadlocks in Thomas Heller <theller@ctypes.org> parents: 38730 diff changeset	1016
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1017 hr = GetErrorInfo(0, &pei);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1018 if (hr != S_OK)
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1019 goto failed;
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1020
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1021 pei->lpVtbl->GetDescription(pei, &descr);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1022 pei->lpVtbl->GetGUID(pei, &guid);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1023 pei->lpVtbl->GetHelpContext(pei, &helpcontext);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1024 pei->lpVtbl->GetHelpFile(pei, &helpfile);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1025 pei->lpVtbl->GetSource(pei, &source);
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1026
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1027 pei->lpVtbl->Release(pei);
38747 a789390d8ea7 Release the GIL during COM method calls, to avoid deadlocks in Thomas Heller <theller@ctypes.org> parents: 38730 diff changeset	1028
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1029 failed:
39119 c5759b5a57f0 Make sure the _ctypes extension can be compiled when WITH_THREAD is Thomas Heller <theller@ctypes.org> parents: 39074 diff changeset	1030 #ifdef WITH_THREAD
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1031 Py_END_ALLOW_THREADS
39119 c5759b5a57f0 Make sure the _ctypes extension can be compiled when WITH_THREAD is Thomas Heller <theller@ctypes.org> parents: 39074 diff changeset	1032 #endif
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1033
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1034 progid = NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1035 ProgIDFromCLSID(&guid, &progid);
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1036
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1037 text = FormatError(errcode);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1038 obj = Py_BuildValue(
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1039 #ifdef _UNICODE
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1040 "iu(uuuiu)",
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1041 #else
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1042 "is(uuuiu)",
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1043 #endif
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1044 errcode,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1045 text,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1046 descr, source, helpfile, helpcontext,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1047 progid);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1048 if (obj) {
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1049 PyErr_SetObject(ComError, obj);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1050 Py_DECREF(obj);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1051 }
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1052 LocalFree(text);
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1053
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1054 if (descr)
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1055 SysFreeString(descr);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1056 if (helpfile)
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1057 SysFreeString(helpfile);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1058 if (source)
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1059 SysFreeString(source);
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1060
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1061 return NULL;
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1062 }
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1063 #endif
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1064
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1065 /*
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1066 * Requirements, must be ensured by the caller:
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1067 * - argtuple is tuple of arguments
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1068 * - argtypes is either NULL, or a tuple of the same size as argtuple
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1069 *
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1070 * - XXX various requirements for restype, not yet collected
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1071 */
53365 d51e4f62bc8c Issue #3102: All global symbols that the _ctypes extension defines are Thomas Heller <theller@ctypes.org> parents: 51525 diff changeset	1072 PyObject *_ctypes_callproc(PPROC pProc,
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1073 PyObject *argtuple,
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1074 #ifdef MS_WIN32
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1075 IUnknown *pIunk,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1076 GUID *iid,
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1077 #endif
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1078 int flags,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1079 PyObject argtypes, / misleading name: This is a tuple of
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1080 methods, not types: the .from_param
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1081 class methods of the types */
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1082 PyObject *restype,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1083 PyObject *checker)
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1084 {
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1085 Py_ssize_t i, n, argcount, argtype_count;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1086 void *resbuf;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1087 struct argument args, pa;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1088 ffi_type **atypes;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1089 ffi_type *rtype;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1090 void **avalues;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1091 PyObject *retval = NULL;
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1092
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1093 n = argcount = PyTuple_GET_SIZE(argtuple);
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1094 #ifdef MS_WIN32
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1095 /* an optional COM object this pointer */
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1096 if (pIunk)
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1097 ++argcount;
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1098 #endif
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1099
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1100 args = (struct argument )alloca(sizeof(struct argument) argcount);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1101 if (!args) {
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1102 PyErr_NoMemory();
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1103 return NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1104 }
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1105 memset(args, 0, sizeof(struct argument) * argcount);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1106 argtype_count = argtypes ? PyTuple_GET_SIZE(argtypes) : 0;
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1107 #ifdef MS_WIN32
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1108 if (pIunk) {
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1109 args[0].ffi_type = &ffi_type_pointer;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1110 args[0].value.p = pIunk;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1111 pa = &args[1];
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1112 } else
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1113 #endif
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1114 pa = &args[0];
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1115
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1116 /* Convert the arguments */
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1117 for (i = 0; i < n; ++i, ++pa) {
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1118 PyObject *converter;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1119 PyObject *arg;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1120 int err;
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1121
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1122 arg = PyTuple_GET_ITEM(argtuple, i); /* borrowed ref */
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1123 /* For cdecl functions, we allow more actual arguments
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1124 than the length of the argtypes tuple.
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	1125 This is checked in _ctypes::PyCFuncPtr_Call
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1126 */
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1127 if (argtypes && argtype_count > i) {
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1128 PyObject *v;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1129 converter = PyTuple_GET_ITEM(argtypes, i);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1130 v = PyObject_CallFunctionObjArgs(converter,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1131 arg,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1132 NULL);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1133 if (v == NULL) {
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	1134 _ctypes_extend_error(PyExc_ArgError, "argument %d: ", i+1);
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1135 goto cleanup;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1136 }
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1137
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1138 err = ConvParam(v, i+1, pa);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1139 Py_DECREF(v);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1140 if (-1 == err) {
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	1141 _ctypes_extend_error(PyExc_ArgError, "argument %d: ", i+1);
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1142 goto cleanup;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1143 }
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1144 } else {
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1145 err = ConvParam(arg, i+1, pa);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1146 if (-1 == err) {
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	1147 _ctypes_extend_error(PyExc_ArgError, "argument %d: ", i+1);
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1148 goto cleanup; /* leaking ? */
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1149 }
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1150 }
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1151 }
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1152
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	1153 rtype = _ctypes_get_ffi_type(restype);
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1154 resbuf = alloca(max(rtype->size, sizeof(ffi_arg)));
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1155
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1156 avalues = (void *)alloca(sizeof(void ) * argcount);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1157 atypes = (ffi_type *)alloca(sizeof(ffi_type ) * argcount);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1158 if (!resbuf \|\| !avalues \|\| !atypes) {
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1159 PyErr_NoMemory();
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1160 goto cleanup;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1161 }
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1162 for (i = 0; i < argcount; ++i) {
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1163 atypes[i] = args[i].ffi_type;
62417 ce21eb5c17a5 Fix #8959 by reverting revision 80761. Thomas Heller <theller@ctypes.org> parents: 61463 diff changeset	1164 if (atypes[i]->type == FFI_TYPE_STRUCT
39679 3bfc8bb4e726 Port _ctypes.pyd to win64 on AMD64. Thomas Heller <theller@ctypes.org> parents: 39488 diff changeset	1165 #ifdef _WIN64
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1166 && atypes[i]->size <= sizeof(void *)
39679 3bfc8bb4e726 Port _ctypes.pyd to win64 on AMD64. Thomas Heller <theller@ctypes.org> parents: 39488 diff changeset	1167 #endif
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1168 )
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1169 avalues[i] = (void *)args[i].value.p;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1170 else
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1171 avalues[i] = (void *)&args[i].value;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1172 }
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1173
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1174 if (-1 == _call_function_pointer(flags, pProc, avalues, atypes,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1175 rtype, resbuf,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1176 Py_SAFE_DOWNCAST(argcount,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1177 Py_ssize_t,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1178 int)))
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1179 goto cleanup;
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1180
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1181 #ifdef WORDS_BIGENDIAN
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1182 /* libffi returns the result in a buffer with sizeof(ffi_arg). This
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1183 causes problems on big endian machines, since the result buffer
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1184 address cannot simply be used as result pointer, instead we must
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1185 adjust the pointer value:
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1186 */
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1187 /*
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1188 XXX I should find out and clarify why this is needed at all,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1189 especially why adjusting for ffi_type_float must be avoided on
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1190 64-bit platforms.
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1191 */
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1192 if (rtype->type != FFI_TYPE_FLOAT
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1193 && rtype->type != FFI_TYPE_STRUCT
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1194 && rtype->size < sizeof(ffi_arg))
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1195 resbuf = (char *)resbuf + sizeof(ffi_arg) - rtype->size;
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1196 #endif
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1197
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1198 #ifdef MS_WIN32
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1199 if (iid && pIunk) {
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1200 if ((int )resbuf & 0x80000000)
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1201 retval = GetComError((HRESULT )resbuf, iid, pIunk);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1202 else
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1203 retval = PyInt_FromLong((int )resbuf);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1204 } else if (flags & FUNCFLAG_HRESULT) {
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1205 if ((int )resbuf & 0x80000000)
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1206 retval = PyErr_SetFromWindowsErr((int )resbuf);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1207 else
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1208 retval = PyInt_FromLong((int )resbuf);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1209 } else
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1210 #endif
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1211 retval = GetResult(restype, resbuf, checker);
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1212 cleanup:
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1213 for (i = 0; i < argcount; ++i)
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1214 Py_XDECREF(args[i].keep);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1215 return retval;
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1216 }
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1217
42100 487747d910c7 Merged revisions 55896 via svnmerge from Thomas Heller <theller@ctypes.org> parents: 42003 diff changeset	1218 static int
487747d910c7 Merged revisions 55896 via svnmerge from Thomas Heller <theller@ctypes.org> parents: 42003 diff changeset	1219 _parse_voidp(PyObject obj, void *address)
487747d910c7 Merged revisions 55896 via svnmerge from Thomas Heller <theller@ctypes.org> parents: 42003 diff changeset	1220 {
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1221 *address = PyLong_AsVoidPtr(obj);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1222 if (*address == NULL)
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1223 return 0;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1224 return 1;
42100 487747d910c7 Merged revisions 55896 via svnmerge from Thomas Heller <theller@ctypes.org> parents: 42003 diff changeset	1225 }
487747d910c7 Merged revisions 55896 via svnmerge from Thomas Heller <theller@ctypes.org> parents: 42003 diff changeset	1226
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1227 #ifdef MS_WIN32
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1228
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1229 #ifdef _UNICODE
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1230 # define PYBUILD_TSTR "u"
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1231 #else
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1232 # define PYBUILD_TSTR "s"
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1233 # ifndef _T
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1234 # define _T(text) text
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1235 # endif
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1236 #endif
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1237
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1238 static char format_error_doc[] =
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1239 "FormatError([integer]) -> string\n\
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1240 \n\
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1241 Convert a win32 error code into a string. If the error code is not\n\
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1242 given, the return value of a call to GetLastError() is used.\n";
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1243 static PyObject format_error(PyObject self, PyObject *args)
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1244 {
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1245 PyObject *result;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1246 TCHAR *lpMsgBuf;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1247 DWORD code = 0;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1248 if (!PyArg_ParseTuple(args, "\|i:FormatError", &code))
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1249 return NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1250 if (code == 0)
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1251 code = GetLastError();
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1252 lpMsgBuf = FormatError(code);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1253 if (lpMsgBuf) {
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1254 result = Py_BuildValue(PYBUILD_TSTR, lpMsgBuf);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1255 LocalFree(lpMsgBuf);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1256 } else {
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1257 result = Py_BuildValue("s", "<no description>");
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1258 }
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1259 return result;
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1260 }
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1261
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1262 static char load_library_doc[] =
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1263 "LoadLibrary(name) -> handle\n\
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1264 \n\
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1265 Load an executable (usually a DLL), and return a handle to it.\n\
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1266 The handle may be used to locate exported functions in this\n\
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1267 module.\n";
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1268 static PyObject load_library(PyObject self, PyObject *args)
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1269 {
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1270 TCHAR *name;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1271 PyObject *nameobj;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1272 PyObject *ignored;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1273 HMODULE hMod;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1274 if (!PyArg_ParseTuple(args, "O\|O:LoadLibrary", &nameobj, &ignored))
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1275 return NULL;
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1276 #ifdef _UNICODE
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1277 name = alloca((PyString_Size(nameobj) + 1) * sizeof(WCHAR));
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1278 if (!name) {
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1279 PyErr_NoMemory();
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1280 return NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1281 }
39477 0356dd9cc274 Handle alloca failures. Neal Norwitz <nnorwitz@gmail.com> parents: 39340 diff changeset	1282
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1283 {
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1284 int r;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1285 char *aname = PyString_AsString(nameobj);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1286 if(!aname)
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1287 return NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1288 r = MultiByteToWideChar(CP_ACP, 0, aname, -1, name, PyString_Size(nameobj) + 1);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1289 name[r] = 0;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1290 }
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1291 #else
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1292 name = PyString_AsString(nameobj);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1293 if(!name)
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1294 return NULL;
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1295 #endif
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1296
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1297 hMod = LoadLibrary(name);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1298 if (!hMod)
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1299 return PyErr_SetFromWindowsErr(GetLastError());
39679 3bfc8bb4e726 Port _ctypes.pyd to win64 on AMD64. Thomas Heller <theller@ctypes.org> parents: 39488 diff changeset	1300 #ifdef _WIN64
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1301 return PyLong_FromVoidPtr(hMod);
39679 3bfc8bb4e726 Port _ctypes.pyd to win64 on AMD64. Thomas Heller <theller@ctypes.org> parents: 39488 diff changeset	1302 #else
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1303 return Py_BuildValue("i", hMod);
39679 3bfc8bb4e726 Port _ctypes.pyd to win64 on AMD64. Thomas Heller <theller@ctypes.org> parents: 39488 diff changeset	1304 #endif
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1305 }
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1306
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1307 static char free_library_doc[] =
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1308 "FreeLibrary(handle) -> void\n\
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1309 \n\
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1310 Free the handle of an executable previously loaded by LoadLibrary.\n";
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1311 static PyObject free_library(PyObject self, PyObject *args)
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1312 {
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1313 void *hMod;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1314 if (!PyArg_ParseTuple(args, "O&:FreeLibrary", &_parse_voidp, &hMod))
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1315 return NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1316 if (!FreeLibrary((HMODULE)hMod))
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1317 return PyErr_SetFromWindowsErr(GetLastError());
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1318 Py_INCREF(Py_None);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1319 return Py_None;
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1320 }
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1321
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1322 /* obsolete, should be removed */
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1323 /* Only used by sample code (in samples\Windows\COM.py) */
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1324 static PyObject *
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1325 call_commethod(PyObject self, PyObject args)
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1326 {
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1327 IUnknown *pIunk;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1328 int index;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1329 PyObject *arguments;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1330 PPROC *lpVtbl;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1331 PyObject *result;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1332 CDataObject *pcom;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1333 PyObject *argtypes = NULL;
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1334
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1335 if (!PyArg_ParseTuple(args,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1336 "OiO!\|O!",
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1337 &pcom, &index,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1338 &PyTuple_Type, &arguments,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1339 &PyTuple_Type, &argtypes))
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1340 return NULL;
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1341
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1342 if (argtypes && (PyTuple_GET_SIZE(arguments) != PyTuple_GET_SIZE(argtypes))) {
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1343 PyErr_Format(PyExc_TypeError,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1344 "Method takes %d arguments (%d given)",
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1345 PyTuple_GET_SIZE(argtypes), PyTuple_GET_SIZE(arguments));
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1346 return NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1347 }
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1348
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1349 if (!CDataObject_Check(pcom) \|\| (pcom->b_size != sizeof(void *))) {
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1350 PyErr_Format(PyExc_TypeError,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1351 "COM Pointer expected instead of %s instance",
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1352 Py_TYPE(pcom)->tp_name);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1353 return NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1354 }
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1355
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1356 if (((void *)(pcom->b_ptr)) == NULL) {
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1357 PyErr_SetString(PyExc_ValueError,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1358 "The COM 'this' pointer is NULL");
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1359 return NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1360 }
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1361
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1362 pIunk = (IUnknown )((void **)(pcom->b_ptr));
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1363 lpVtbl = (PPROC *)(pIunk->lpVtbl);
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1364
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	1365 result = _ctypes_callproc(lpVtbl[index],
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1366 arguments,
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1367 #ifdef MS_WIN32
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1368 pIunk,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1369 NULL,
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1370 #endif
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1371 FUNCFLAG_HRESULT, /* flags */
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1372 argtypes, /* self->argtypes */
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1373 NULL, /* self->restype */
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1374 NULL); /* checker */
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1375 return result;
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1376 }
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1377
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1378 static char copy_com_pointer_doc[] =
39340 d39aee6cdd32 Minimal useful docstring for CopyComPointer. Thomas Heller <theller@ctypes.org> parents: 39252 diff changeset	1379 "CopyComPointer(src, dst) -> HRESULT value\n";
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1380
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1381 static PyObject *
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1382 copy_com_pointer(PyObject self, PyObject args)
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1383 {
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1384 PyObject p1, p2, *r = NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1385 struct argument a, b;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1386 IUnknown src, *pdst;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1387 if (!PyArg_ParseTuple(args, "OO:CopyComPointer", &p1, &p2))
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1388 return NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1389 a.keep = b.keep = NULL;
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1390
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1391 if (-1 == ConvParam(p1, 0, &a) \|\| -1 == ConvParam(p2, 1, &b))
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1392 goto done;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1393 src = (IUnknown *)a.value.p;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1394 pdst = (IUnknown **)b.value.p;
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1395
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1396 if (pdst == NULL)
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1397 r = PyInt_FromLong(E_POINTER);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1398 else {
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1399 if (src)
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1400 src->lpVtbl->AddRef(src);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1401 *pdst = src;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1402 r = PyInt_FromLong(S_OK);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1403 }
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1404 done:
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1405 Py_XDECREF(a.keep);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1406 Py_XDECREF(b.keep);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1407 return r;
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1408 }
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1409 #else
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1410
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1411 static PyObject py_dl_open(PyObject self, PyObject *args)
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1412 {
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1413 char *name;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1414 void * handle;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1415 #ifdef RTLD_LOCAL
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1416 int mode = RTLD_NOW \| RTLD_LOCAL;
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1417 #else
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1418 /* cygwin doesn't define RTLD_LOCAL */
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1419 int mode = RTLD_NOW;
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1420 #endif
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1421 if (!PyArg_ParseTuple(args, "z\|i:dlopen", &name, &mode))
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1422 return NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1423 mode \|= RTLD_NOW;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1424 handle = ctypes_dlopen(name, mode);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1425 if (!handle) {
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1426 char *errmsg = ctypes_dlerror();
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1427 if (!errmsg)
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1428 errmsg = "dlopen() error";
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1429 PyErr_SetString(PyExc_OSError,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1430 errmsg);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1431 return NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1432 }
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1433 return PyLong_FromVoidPtr(handle);
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1434 }
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1435
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1436 static PyObject py_dl_close(PyObject self, PyObject *args)
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1437 {
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1438 void *handle;
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1439
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1440 if (!PyArg_ParseTuple(args, "O&:dlclose", &_parse_voidp, &handle))
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1441 return NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1442 if (dlclose(handle)) {
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1443 PyErr_SetString(PyExc_OSError,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1444 ctypes_dlerror());
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1445 return NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1446 }
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1447 Py_INCREF(Py_None);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1448 return Py_None;
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1449 }
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1450
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1451 static PyObject py_dl_sym(PyObject self, PyObject *args)
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1452 {
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1453 char *name;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1454 void *handle;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1455 void *ptr;
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1456
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1457 if (!PyArg_ParseTuple(args, "O&s:dlsym",
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1458 &_parse_voidp, &handle, &name))
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1459 return NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1460 ptr = ctypes_dlsym((void*)handle, name);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1461 if (!ptr) {
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1462 PyErr_SetString(PyExc_OSError,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1463 ctypes_dlerror());
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1464 return NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1465 }
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1466 return PyLong_FromVoidPtr(ptr);
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1467 }
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1468 #endif
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1469
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1470 /*
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1471 * Only for debugging so far: So that we can call CFunction instances
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1472 *
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1473 * XXX Needs to accept more arguments: flags, argtypes, restype
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1474 */
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1475 static PyObject *
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1476 call_function(PyObject self, PyObject args)
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1477 {
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1478 void *func;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1479 PyObject *arguments;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1480 PyObject *result;
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1481
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1482 if (!PyArg_ParseTuple(args,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1483 "O&O!",
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1484 &_parse_voidp, &func,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1485 &PyTuple_Type, &arguments))
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1486 return NULL;
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1487
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	1488 result = _ctypes_callproc((PPROC)func,
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1489 arguments,
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1490 #ifdef MS_WIN32
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1491 NULL,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1492 NULL,
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1493 #endif
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1494 0, /* flags */
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1495 NULL, /* self->argtypes */
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1496 NULL, /* self->restype */
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1497 NULL); /* checker */
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1498 return result;
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1499 }
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1500
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1501 /*
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1502 * Only for debugging so far: So that we can call CFunction instances
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1503 *
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1504 * XXX Needs to accept more arguments: flags, argtypes, restype
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1505 */
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1506 static PyObject *
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1507 call_cdeclfunction(PyObject self, PyObject args)
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1508 {
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1509 void *func;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1510 PyObject *arguments;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1511 PyObject *result;
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1512
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1513 if (!PyArg_ParseTuple(args,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1514 "O&O!",
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1515 &_parse_voidp, &func,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1516 &PyTuple_Type, &arguments))
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1517 return NULL;
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1518
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	1519 result = _ctypes_callproc((PPROC)func,
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1520 arguments,
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1521 #ifdef MS_WIN32
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1522 NULL,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1523 NULL,
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1524 #endif
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1525 FUNCFLAG_CDECL, /* flags */
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1526 NULL, /* self->argtypes */
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1527 NULL, /* self->restype */
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1528 NULL); /* checker */
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1529 return result;
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1530 }
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1531
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1532 /*****************************************************************
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1533 * functions
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1534 */
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1535 static char sizeof_doc[] =
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1536 "sizeof(C type) -> integer\n"
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1537 "sizeof(C instance) -> integer\n"
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1538 "Return the size in bytes of a C instance";
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1539
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1540 static PyObject *
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1541 sizeof_func(PyObject self, PyObject obj)
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1542 {
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1543 StgDictObject *dict;
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1544
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1545 dict = PyType_stgdict(obj);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1546 if (dict)
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1547 return PyInt_FromSsize_t(dict->size);
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1548
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1549 if (CDataObject_Check(obj))
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1550 return PyInt_FromSsize_t(((CDataObject *)obj)->b_size);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1551 PyErr_SetString(PyExc_TypeError,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1552 "this type has no size");
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1553 return NULL;
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1554 }
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1555
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1556 static char alignment_doc[] =
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1557 "alignment(C type) -> integer\n"
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1558 "alignment(C instance) -> integer\n"
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1559 "Return the alignment requirements of a C instance";
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1560
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1561 static PyObject *
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1562 align_func(PyObject self, PyObject obj)
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1563 {
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1564 StgDictObject *dict;
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1565
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1566 dict = PyType_stgdict(obj);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1567 if (dict)
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1568 return PyInt_FromSsize_t(dict->align);
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1569
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1570 dict = PyObject_stgdict(obj);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1571 if (dict)
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1572 return PyInt_FromSsize_t(dict->align);
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1573
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1574 PyErr_SetString(PyExc_TypeError,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1575 "no alignment info");
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1576 return NULL;
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1577 }
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1578
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1579 static char byref_doc[] =
47547 813b87b16dc5 Add an optional 'offset' parameter to byref, defaultingto zero. Thomas Heller <theller@ctypes.org> parents: 47527 diff changeset	1580 "byref(C instance[, offset=0]) -> byref-object\n"
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1581 "Return a pointer lookalike to a C instance, only usable\n"
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1582 "as function argument";
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1583
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1584 /*
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1585 * We must return something which can be converted to a parameter,
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1586 * but still has a reference to self.
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1587 */
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1588 static PyObject *
47547 813b87b16dc5 Add an optional 'offset' parameter to byref, defaultingto zero. Thomas Heller <theller@ctypes.org> parents: 47527 diff changeset	1589 byref(PyObject self, PyObject args)
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1590 {
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1591 PyCArgObject *parg;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1592 PyObject *obj;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1593 PyObject *pyoffset = NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1594 Py_ssize_t offset = 0;
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1595
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1596 if (!PyArg_UnpackTuple(args, "byref", 1, 2,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1597 &obj, &pyoffset))
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1598 return NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1599 if (pyoffset) {
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1600 offset = PyNumber_AsSsize_t(pyoffset, NULL);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1601 if (offset == -1 && PyErr_Occurred())
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1602 return NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1603 }
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1604 if (!CDataObject_Check(obj)) {
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1605 PyErr_Format(PyExc_TypeError,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1606 "byref() argument must be a ctypes instance, not '%s'",
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1607 Py_TYPE(obj)->tp_name);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1608 return NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1609 }
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1610
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	1611 parg = PyCArgObject_new();
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1612 if (parg == NULL)
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1613 return NULL;
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1614
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1615 parg->tag = 'P';
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1616 parg->pffi_type = &ffi_type_pointer;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1617 Py_INCREF(obj);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1618 parg->obj = obj;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1619 parg->value.p = (char )((CDataObject )obj)->b_ptr + offset;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1620 return (PyObject *)parg;
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1621 }
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1622
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1623 static char addressof_doc[] =
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1624 "addressof(C instance) -> integer\n"
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1625 "Return the address of the C instance internal buffer";
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1626
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1627 static PyObject *
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1628 addressof(PyObject self, PyObject obj)
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1629 {
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1630 if (CDataObject_Check(obj))
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1631 return PyLong_FromVoidPtr(((CDataObject *)obj)->b_ptr);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1632 PyErr_SetString(PyExc_TypeError,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1633 "invalid type");
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1634 return NULL;
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1635 }
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1636
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1637 static int
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1638 converter(PyObject obj, void *address)
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1639 {
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1640 *address = PyLong_AsVoidPtr(obj);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1641 return *address != NULL;
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1642 }
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1643
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1644 static PyObject *
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1645 My_PyObj_FromPtr(PyObject self, PyObject args)
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1646 {
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1647 PyObject *ob;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1648 if (!PyArg_ParseTuple(args, "O&:PyObj_FromPtr", converter, &ob))
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1649 return NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1650 Py_INCREF(ob);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1651 return ob;
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1652 }
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1653
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1654 static PyObject *
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1655 My_Py_INCREF(PyObject self, PyObject arg)
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1656 {
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1657 Py_INCREF(arg); /* that's what this function is for */
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1658 Py_INCREF(arg); /* that for returning it */
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1659 return arg;
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1660 }
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1661
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1662 static PyObject *
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1663 My_Py_DECREF(PyObject self, PyObject arg)
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1664 {
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1665 Py_DECREF(arg); /* that's what this function is for */
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1666 Py_INCREF(arg); /* that's for returning it */
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1667 return arg;
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1668 }
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1669
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1670 #ifdef CTYPES_UNICODE
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1671
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1672 static char set_conversion_mode_doc[] =
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1673 "set_conversion_mode(encoding, errors) -> (previous-encoding, previous-errors)\n\
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1674 \n\
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1675 Set the encoding and error handling ctypes uses when converting\n\
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1676 between unicode and strings. Returns the previous values.\n";
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1677
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1678 static PyObject *
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1679 set_conversion_mode(PyObject self, PyObject args)
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1680 {
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1681 char coding, mode;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1682 PyObject *result;
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1683
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1684 if (!PyArg_ParseTuple(args, "zs:set_conversion_mode", &coding, &mode))
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1685 return NULL;
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	1686 result = Py_BuildValue("(zz)", _ctypes_conversion_encoding, _ctypes_conversion_errors);
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1687 if (coding) {
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	1688 PyMem_Free(_ctypes_conversion_encoding);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	1689 _ctypes_conversion_encoding = PyMem_Malloc(strlen(coding) + 1);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	1690 strcpy(_ctypes_conversion_encoding, coding);
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1691 } else {
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	1692 _ctypes_conversion_encoding = NULL;
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1693 }
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	1694 PyMem_Free(_ctypes_conversion_errors);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	1695 _ctypes_conversion_errors = PyMem_Malloc(strlen(mode) + 1);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	1696 strcpy(_ctypes_conversion_errors, mode);
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1697 return result;
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1698 }
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1699 #endif
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1700
38720 aa5a1bca28dd Upgrade to ctypes version 0.9.9.7. Thomas Heller <theller@ctypes.org> parents: 38652 diff changeset	1701 static PyObject *
aa5a1bca28dd Upgrade to ctypes version 0.9.9.7. Thomas Heller <theller@ctypes.org> parents: 38652 diff changeset	1702 resize(PyObject self, PyObject args)
aa5a1bca28dd Upgrade to ctypes version 0.9.9.7. Thomas Heller <theller@ctypes.org> parents: 38652 diff changeset	1703 {
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1704 CDataObject *obj;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1705 StgDictObject *dict;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1706 Py_ssize_t size;
38720 aa5a1bca28dd Upgrade to ctypes version 0.9.9.7. Thomas Heller <theller@ctypes.org> parents: 38652 diff changeset	1707
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1708 if (!PyArg_ParseTuple(args,
38720 aa5a1bca28dd Upgrade to ctypes version 0.9.9.7. Thomas Heller <theller@ctypes.org> parents: 38652 diff changeset	1709 #if (PY_VERSION_HEX < 0x02050000)
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1710 "Oi:resize",
38720 aa5a1bca28dd Upgrade to ctypes version 0.9.9.7. Thomas Heller <theller@ctypes.org> parents: 38652 diff changeset	1711 #else
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1712 "On:resize",
38720 aa5a1bca28dd Upgrade to ctypes version 0.9.9.7. Thomas Heller <theller@ctypes.org> parents: 38652 diff changeset	1713 #endif
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1714 &obj, &size))
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1715 return NULL;
38720 aa5a1bca28dd Upgrade to ctypes version 0.9.9.7. Thomas Heller <theller@ctypes.org> parents: 38652 diff changeset	1716
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1717 dict = PyObject_stgdict((PyObject *)obj);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1718 if (dict == NULL) {
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1719 PyErr_SetString(PyExc_TypeError,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1720 "excepted ctypes instance");
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1721 return NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1722 }
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1723 if (size < dict->size) {
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1724 PyErr_Format(PyExc_ValueError,
38970 272f195a284e Revert the use of PY_FORMAT_SIZE_T in PyErr_Format. Thomas Heller <theller@ctypes.org> parents: 38968 diff changeset	1725 #if PY_VERSION_HEX < 0x02050000
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1726 "minimum size is %d",
38970 272f195a284e Revert the use of PY_FORMAT_SIZE_T in PyErr_Format. Thomas Heller <theller@ctypes.org> parents: 38968 diff changeset	1727 #else
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1728 "minimum size is %zd",
38970 272f195a284e Revert the use of PY_FORMAT_SIZE_T in PyErr_Format. Thomas Heller <theller@ctypes.org> parents: 38968 diff changeset	1729 #endif
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1730 dict->size);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1731 return NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1732 }
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1733 if (obj->b_needsfree == 0) {
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1734 PyErr_Format(PyExc_ValueError,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1735 "Memory cannot be resized because this object doesn't own it");
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1736 return NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1737 }
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1738 if (size <= sizeof(obj->b_value)) {
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1739 /* internal default buffer is large enough */
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1740 obj->b_size = size;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1741 goto done;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1742 }
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1743 if (obj->b_size <= sizeof(obj->b_value)) {
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1744 /* We are currently using the objects default buffer, but it
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1745 isn't large enough any more. */
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1746 void *ptr = PyMem_Malloc(size);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1747 if (ptr == NULL)
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1748 return PyErr_NoMemory();
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1749 memset(ptr, 0, size);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1750 memmove(ptr, obj->b_ptr, obj->b_size);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1751 obj->b_ptr = ptr;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1752 obj->b_size = size;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1753 } else {
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1754 void * ptr = PyMem_Realloc(obj->b_ptr, size);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1755 if (ptr == NULL)
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1756 return PyErr_NoMemory();
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1757 obj->b_ptr = ptr;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1758 obj->b_size = size;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1759 }
38720 aa5a1bca28dd Upgrade to ctypes version 0.9.9.7. Thomas Heller <theller@ctypes.org> parents: 38652 diff changeset	1760 done:
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1761 Py_INCREF(Py_None);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1762 return Py_None;
38720 aa5a1bca28dd Upgrade to ctypes version 0.9.9.7. Thomas Heller <theller@ctypes.org> parents: 38652 diff changeset	1763 }
aa5a1bca28dd Upgrade to ctypes version 0.9.9.7. Thomas Heller <theller@ctypes.org> parents: 38652 diff changeset	1764
45315 beea35b0ed50 Add pickle support to ctypes types. Thomas Heller <theller@ctypes.org> parents: 44597 diff changeset	1765 static PyObject *
beea35b0ed50 Add pickle support to ctypes types. Thomas Heller <theller@ctypes.org> parents: 44597 diff changeset	1766 unpickle(PyObject self, PyObject args)
beea35b0ed50 Add pickle support to ctypes types. Thomas Heller <theller@ctypes.org> parents: 44597 diff changeset	1767 {
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1768 PyObject *typ;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1769 PyObject *state;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1770 PyObject *result;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1771 PyObject *tmp;
45315 beea35b0ed50 Add pickle support to ctypes types. Thomas Heller <theller@ctypes.org> parents: 44597 diff changeset	1772
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1773 if (!PyArg_ParseTuple(args, "OO", &typ, &state))
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1774 return NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1775 result = PyObject_CallMethod(typ, "__new__", "O", typ);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1776 if (result == NULL)
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1777 return NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1778 tmp = PyObject_CallMethod(result, "__setstate__", "O", state);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1779 if (tmp == NULL) {
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1780 Py_DECREF(result);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1781 return NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1782 }
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1783 Py_DECREF(tmp);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1784 return result;
45315 beea35b0ed50 Add pickle support to ctypes types. Thomas Heller <theller@ctypes.org> parents: 44597 diff changeset	1785 }
beea35b0ed50 Add pickle support to ctypes types. Thomas Heller <theller@ctypes.org> parents: 44597 diff changeset	1786
46442 b3dca8f5535e Issue #2616: Implement ctypes.pointer() and ctypes.POINTER() in C for Thomas Heller <theller@ctypes.org> parents: 45315 diff changeset	1787 static PyObject *
b3dca8f5535e Issue #2616: Implement ctypes.pointer() and ctypes.POINTER() in C for Thomas Heller <theller@ctypes.org> parents: 45315 diff changeset	1788 POINTER(PyObject self, PyObject cls)
b3dca8f5535e Issue #2616: Implement ctypes.pointer() and ctypes.POINTER() in C for Thomas Heller <theller@ctypes.org> parents: 45315 diff changeset	1789 {
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1790 PyObject *result;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1791 PyTypeObject *typ;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1792 PyObject *key;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1793 char *buf;
46442 b3dca8f5535e Issue #2616: Implement ctypes.pointer() and ctypes.POINTER() in C for Thomas Heller <theller@ctypes.org> parents: 45315 diff changeset	1794
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	1795 result = PyDict_GetItem(_ctypes_ptrtype_cache, cls);
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1796 if (result) {
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1797 Py_INCREF(result);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1798 return result;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1799 }
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1800 if (PyString_CheckExact(cls)) {
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1801 buf = alloca(strlen(PyString_AS_STRING(cls)) + 3 + 1);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1802 sprintf(buf, "LP_%s", PyString_AS_STRING(cls));
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	1803 result = PyObject_CallFunction((PyObject *)Py_TYPE(&PyCPointer_Type),
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1804 "s(O){}",
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1805 buf,
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	1806 &PyCPointer_Type);
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1807 if (result == NULL)
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1808 return result;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1809 key = PyLong_FromVoidPtr(result);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1810 } else if (PyType_Check(cls)) {
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1811 typ = (PyTypeObject *)cls;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1812 buf = alloca(strlen(typ->tp_name) + 3 + 1);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1813 sprintf(buf, "LP_%s", typ->tp_name);
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	1814 result = PyObject_CallFunction((PyObject *)Py_TYPE(&PyCPointer_Type),
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1815 "s(O){sO}",
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1816 buf,
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	1817 &PyCPointer_Type,
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1818 "_type_", cls);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1819 if (result == NULL)
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1820 return result;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1821 Py_INCREF(cls);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1822 key = cls;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1823 } else {
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1824 PyErr_SetString(PyExc_TypeError, "must be a ctypes type");
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1825 return NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1826 }
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	1827 if (-1 == PyDict_SetItem(_ctypes_ptrtype_cache, key, result)) {
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1828 Py_DECREF(result);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1829 Py_DECREF(key);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1830 return NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1831 }
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1832 Py_DECREF(key);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1833 return result;
46442 b3dca8f5535e Issue #2616: Implement ctypes.pointer() and ctypes.POINTER() in C for Thomas Heller <theller@ctypes.org> parents: 45315 diff changeset	1834 }
b3dca8f5535e Issue #2616: Implement ctypes.pointer() and ctypes.POINTER() in C for Thomas Heller <theller@ctypes.org> parents: 45315 diff changeset	1835
b3dca8f5535e Issue #2616: Implement ctypes.pointer() and ctypes.POINTER() in C for Thomas Heller <theller@ctypes.org> parents: 45315 diff changeset	1836 static PyObject *
b3dca8f5535e Issue #2616: Implement ctypes.pointer() and ctypes.POINTER() in C for Thomas Heller <theller@ctypes.org> parents: 45315 diff changeset	1837 pointer(PyObject self, PyObject arg)
b3dca8f5535e Issue #2616: Implement ctypes.pointer() and ctypes.POINTER() in C for Thomas Heller <theller@ctypes.org> parents: 45315 diff changeset	1838 {
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1839 PyObject *result;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1840 PyObject *typ;
46442 b3dca8f5535e Issue #2616: Implement ctypes.pointer() and ctypes.POINTER() in C for Thomas Heller <theller@ctypes.org> parents: 45315 diff changeset	1841
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 61219 diff changeset	1842 typ = PyDict_GetItem(_ctypes_ptrtype_cache, (PyObject *)Py_TYPE(arg));
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1843 if (typ)
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1844 return PyObject_CallFunctionObjArgs(typ, arg, NULL);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1845 typ = POINTER(NULL, (PyObject *)Py_TYPE(arg));
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1846 if (typ == NULL)
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1847 return NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1848 result = PyObject_CallFunctionObjArgs(typ, arg, NULL);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1849 Py_DECREF(typ);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1850 return result;
46442 b3dca8f5535e Issue #2616: Implement ctypes.pointer() and ctypes.POINTER() in C for Thomas Heller <theller@ctypes.org> parents: 45315 diff changeset	1851 }
b3dca8f5535e Issue #2616: Implement ctypes.pointer() and ctypes.POINTER() in C for Thomas Heller <theller@ctypes.org> parents: 45315 diff changeset	1852
47475 bbce18d00d87 Backport from py3k: Implement the new buffer interface from pep3118 Thomas Heller <theller@ctypes.org> parents: 47469 diff changeset	1853 static PyObject *
bbce18d00d87 Backport from py3k: Implement the new buffer interface from pep3118 Thomas Heller <theller@ctypes.org> parents: 47469 diff changeset	1854 buffer_info(PyObject self, PyObject arg)
bbce18d00d87 Backport from py3k: Implement the new buffer interface from pep3118 Thomas Heller <theller@ctypes.org> parents: 47469 diff changeset	1855 {
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1856 StgDictObject *dict = PyType_stgdict(arg);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1857 PyObject *shape;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1858 Py_ssize_t i;
47475 bbce18d00d87 Backport from py3k: Implement the new buffer interface from pep3118 Thomas Heller <theller@ctypes.org> parents: 47469 diff changeset	1859
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1860 if (dict == NULL)
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1861 dict = PyObject_stgdict(arg);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1862 if (dict == NULL) {
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1863 PyErr_SetString(PyExc_TypeError,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1864 "not a ctypes type or object");
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1865 return NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1866 }
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1867 shape = PyTuple_New(dict->ndim);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1868 if (shape == NULL)
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1869 return NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1870 for (i = 0; i < (int)dict->ndim; ++i)
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1871 PyTuple_SET_ITEM(shape, i, PyLong_FromSsize_t(dict->shape[i]));
47475 bbce18d00d87 Backport from py3k: Implement the new buffer interface from pep3118 Thomas Heller <theller@ctypes.org> parents: 47469 diff changeset	1872
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1873 if (PyErr_Occurred()) {
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1874 Py_DECREF(shape);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1875 return NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1876 }
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1877 return Py_BuildValue("siN", dict->format, dict->ndim, shape);
38720 aa5a1bca28dd Upgrade to ctypes version 0.9.9.7. Thomas Heller <theller@ctypes.org> parents: 38652 diff changeset	1878 }
aa5a1bca28dd Upgrade to ctypes version 0.9.9.7. Thomas Heller <theller@ctypes.org> parents: 38652 diff changeset	1879
53365 d51e4f62bc8c Issue #3102: All global symbols that the _ctypes extension defines are Thomas Heller <theller@ctypes.org> parents: 51525 diff changeset	1880 PyMethodDef _ctypes_module_methods[] = {
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1881 {"get_errno", get_errno, METH_NOARGS},
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1882 {"set_errno", set_errno, METH_VARARGS},
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1883 {"POINTER", POINTER, METH_O },
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1884 {"pointer", pointer, METH_O },
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1885 {"_unpickle", unpickle, METH_VARARGS },
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1886 {"_buffer_info", buffer_info, METH_O,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1887 "Return buffer interface information (for testing only)"},
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1888 {"resize", resize, METH_VARARGS, "Resize the memory buffer of a ctypes instance"},
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1889 #ifdef CTYPES_UNICODE
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1890 {"set_conversion_mode", set_conversion_mode, METH_VARARGS, set_conversion_mode_doc},
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1891 #endif
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1892 #ifdef MS_WIN32
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1893 {"get_last_error", get_last_error, METH_NOARGS},
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1894 {"set_last_error", set_last_error, METH_VARARGS},
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1895 {"CopyComPointer", copy_com_pointer, METH_VARARGS, copy_com_pointer_doc},
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1896 {"FormatError", format_error, METH_VARARGS, format_error_doc},
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1897 {"LoadLibrary", load_library, METH_VARARGS, load_library_doc},
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1898 {"FreeLibrary", free_library, METH_VARARGS, free_library_doc},
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1899 {"call_commethod", call_commethod, METH_VARARGS },
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1900 {"_check_HRESULT", check_hresult, METH_VARARGS},
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1901 #else
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1902 {"dlopen", py_dl_open, METH_VARARGS,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1903 "dlopen(name, flag={RTLD_GLOBAL\|RTLD_LOCAL}) open a shared library"},
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1904 {"dlclose", py_dl_close, METH_VARARGS, "dlclose a library"},
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1905 {"dlsym", py_dl_sym, METH_VARARGS, "find symbol in shared library"},
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1906 #endif
61465 e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1907 {"alignment", align_func, METH_O, alignment_doc},
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1908 {"sizeof", sizeof_func, METH_O, sizeof_doc},
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1909 {"byref", byref, METH_VARARGS, byref_doc},
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1910 {"addressof", addressof, METH_O, addressof_doc},
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1911 {"call_function", call_function, METH_VARARGS },
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1912 {"call_cdeclfunction", call_cdeclfunction, METH_VARARGS },
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1913 {"PyObj_FromPtr", My_PyObj_FromPtr, METH_VARARGS },
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1914 {"Py_INCREF", My_Py_INCREF, METH_O },
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1915 {"Py_DECREF", My_Py_DECREF, METH_O },
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from Antoine Pitrou <solipsis@pitrou.net> parents: 56088 diff changeset	1916 {NULL, NULL} /* Sentinel */
36897 6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1917 };
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1918
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1919 /*
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1920 Local Variables:
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1921 compile-command: "cd .. && python setup.py -q build -g && python setup.py -q build install --home ~"
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1922 End:
6f2eda495d9d Copy ctypes-0.9.9.4 sources from external into the trunk. Thomas Heller <theller@ctypes.org> parents: diff changeset	1923 */

Mercurial > cpython-lru_cache-weakref

annotate Modules/_ctypes/callproc.c @ 79675:c0a2294de787 2.7