annotate python/pydc/pydcext.c @ 37:8c8f848131c6

- version bump - better doc - made calling convention mode reset by default, as only way to specify convention used is via signature string
author Tassilo Philipp
date Mon, 13 Apr 2020 20:08:54 +0200
parents b84064293541
children 1d50532dce12
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
1 /******************************************************************************
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
2 **
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
3 ** pydc - python dyncall package
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
4 **
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
5 ** python extension package in C
28
edbbd467f50a python binding:
Tassilo Philipp
parents: 16
diff changeset
6 ** Copyright 2007-2016 Daniel Adler
edbbd467f50a python binding:
Tassilo Philipp
parents: 16
diff changeset
7 ** 2018-2020 Tassilo Philipp
0
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
8 **
28
edbbd467f50a python binding:
Tassilo Philipp
parents: 16
diff changeset
9 ** December 04, 2007: initial
edbbd467f50a python binding:
Tassilo Philipp
parents: 16
diff changeset
10 ** March 22, 2016: update to dyncall 0.9, includes breaking sig char changes
edbbd467f50a python binding:
Tassilo Philipp
parents: 16
diff changeset
11 ** April 19, 2018: update to dyncall 1.0
edbbd467f50a python binding:
Tassilo Philipp
parents: 16
diff changeset
12 ** April 7, 2020: update to dyncall 1.1, Python 3 support, using the Capsule
edbbd467f50a python binding:
Tassilo Philipp
parents: 16
diff changeset
13 ** API, as well as support for python unicode strings
0
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
14 **
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
15 *****************************************************************************/
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
16
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
17 #include <Python.h>
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
18 #include "dynload.h"
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
19 #include <limits.h>
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
20
28
edbbd467f50a python binding:
Tassilo Philipp
parents: 16
diff changeset
21
edbbd467f50a python binding:
Tassilo Philipp
parents: 16
diff changeset
22
edbbd467f50a python binding:
Tassilo Philipp
parents: 16
diff changeset
23 #if ( (PY_VERSION_HEX < 0x02070000) \
edbbd467f50a python binding:
Tassilo Philipp
parents: 16
diff changeset
24 || ((PY_VERSION_HEX >= 0x03000000) \
edbbd467f50a python binding:
Tassilo Philipp
parents: 16
diff changeset
25 && (PY_VERSION_HEX < 0x03010000)) )
30
baf087cf5971 - fixed two ref counting problems
Tassilo Philipp
parents: 29
diff changeset
26 # define DcPyCObject_FromVoidPtr(ptr, dtor) PyCObject_FromVoidPtr((ptr), (dtor)) // !new ref!
28
edbbd467f50a python binding:
Tassilo Philipp
parents: 16
diff changeset
27 # define DcPyCObject_AsVoidPtr(ppobj) PyCObject_AsVoidPtr((ppobj))
edbbd467f50a python binding:
Tassilo Philipp
parents: 16
diff changeset
28 # define DcPyCObject_SetVoidPtr(ppobj, ptr) PyCObject_SetVoidPtr((ppobj), (ptr))
edbbd467f50a python binding:
Tassilo Philipp
parents: 16
diff changeset
29 #else
edbbd467f50a python binding:
Tassilo Philipp
parents: 16
diff changeset
30 # define USE_CAPSULE_API
30
baf087cf5971 - fixed two ref counting problems
Tassilo Philipp
parents: 29
diff changeset
31 # define DcPyCObject_FromVoidPtr(ptr, dtor) PyCapsule_New((ptr), NULL, (dtor)) // !new ref!
28
edbbd467f50a python binding:
Tassilo Philipp
parents: 16
diff changeset
32 # define DcPyCObject_AsVoidPtr(ppobj) PyCapsule_GetPointer((ppobj), NULL)
29
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
33 # define DcPyCObject_SetVoidPtr(ppobj, ptr) //@@@ unsure what to do, cannot/shouldn't call this with a null pointer as this wants to call the dtor, so not doing anything: PyCapsule_SetPointer((ppobj), (ptr)) // this might need to call the dtor to behave like PyCObject_SetVoidPtr?
28
edbbd467f50a python binding:
Tassilo Philipp
parents: 16
diff changeset
34 #endif
edbbd467f50a python binding:
Tassilo Philipp
parents: 16
diff changeset
35
edbbd467f50a python binding:
Tassilo Philipp
parents: 16
diff changeset
36 #if PY_MAJOR_VERSION >= 3
29
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
37 # define EXPECT_LONG_TYPE_STR "an int"
28
edbbd467f50a python binding:
Tassilo Philipp
parents: 16
diff changeset
38 # define DcPyString_GET_SIZE PyBytes_GET_SIZE
edbbd467f50a python binding:
Tassilo Philipp
parents: 16
diff changeset
39 # define DcPyString_Check PyBytes_Check
edbbd467f50a python binding:
Tassilo Philipp
parents: 16
diff changeset
40 # define DcPyString_AsString PyBytes_AsString
edbbd467f50a python binding:
Tassilo Philipp
parents: 16
diff changeset
41 # define DcPyInt_Check PyLong_Check
edbbd467f50a python binding:
Tassilo Philipp
parents: 16
diff changeset
42 # define DcPyInt_AsLong PyLong_AsLong
edbbd467f50a python binding:
Tassilo Philipp
parents: 16
diff changeset
43 # define DcPyInt_AS_LONG PyLong_AS_LONG
edbbd467f50a python binding:
Tassilo Philipp
parents: 16
diff changeset
44 #else
29
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
45 # define EXPECT_LONG_TYPE_STR "an int or a long"
28
edbbd467f50a python binding:
Tassilo Philipp
parents: 16
diff changeset
46 # define DcPyString_GET_SIZE PyString_GET_SIZE
edbbd467f50a python binding:
Tassilo Philipp
parents: 16
diff changeset
47 # define DcPyString_Check PyString_Check
edbbd467f50a python binding:
Tassilo Philipp
parents: 16
diff changeset
48 # define DcPyString_AsString PyString_AsString
edbbd467f50a python binding:
Tassilo Philipp
parents: 16
diff changeset
49 # define DcPyInt_Check PyInt_Check
edbbd467f50a python binding:
Tassilo Philipp
parents: 16
diff changeset
50 # define DcPyInt_AsLong PyInt_AsLong
edbbd467f50a python binding:
Tassilo Philipp
parents: 16
diff changeset
51 # define DcPyInt_AS_LONG PyInt_AS_LONG
edbbd467f50a python binding:
Tassilo Philipp
parents: 16
diff changeset
52 #endif
edbbd467f50a python binding:
Tassilo Philipp
parents: 16
diff changeset
53
0
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
54 /* PyCObject destructor callback for libhandle */
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
55
28
edbbd467f50a python binding:
Tassilo Philipp
parents: 16
diff changeset
56 #if defined(USE_CAPSULE_API)
edbbd467f50a python binding:
Tassilo Philipp
parents: 16
diff changeset
57 void free_library(PyObject* capsule)
edbbd467f50a python binding:
Tassilo Philipp
parents: 16
diff changeset
58 {
29
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
59 void* libhandle = PyCapsule_GetPointer(capsule, NULL);
28
edbbd467f50a python binding:
Tassilo Philipp
parents: 16
diff changeset
60 #else
16
a40084782546 - added support for more return values to python binding
cslag
parents: 5
diff changeset
61 void free_library(void* libhandle)
0
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
62 {
28
edbbd467f50a python binding:
Tassilo Philipp
parents: 16
diff changeset
63 #endif
29
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
64 if (libhandle != 0)
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
65 dlFreeLibrary(libhandle);
0
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
66 }
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
67
28
edbbd467f50a python binding:
Tassilo Philipp
parents: 16
diff changeset
68
0
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
69 /* load function */
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
70
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
71 static PyObject*
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
72 pydc_load(PyObject* self, PyObject* args)
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
73 {
29
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
74 const char* libpath;
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
75 void* libhandle;
0
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
76
32
2089026debae - allowing 'None' as arg for pydc.load, effectively resulting in dlLoadLibrary(NULL), which is own process
Tassilo Philipp
parents: 31
diff changeset
77 if (!PyArg_ParseTuple(args,"z", &libpath))
31
622914f1f3bf - some cleanups
Tassilo Philipp
parents: 30
diff changeset
78 return PyErr_Format(PyExc_RuntimeError, "libpath argument (str) missing");
0
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
79
29
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
80 libhandle = dlLoadLibrary(libpath);
0
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
81
29
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
82 if (!libhandle)
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
83 return PyErr_Format(PyExc_RuntimeError, "dlLoadLibrary('%s') failed", libpath);
0
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
84
30
baf087cf5971 - fixed two ref counting problems
Tassilo Philipp
parents: 29
diff changeset
85 return DcPyCObject_FromVoidPtr(libhandle, &free_library); // !new ref!
0
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
86 }
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
87
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
88 /* find function */
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
89
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
90 static PyObject*
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
91 pydc_find(PyObject* self, PyObject* args)
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
92 {
29
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
93 PyObject* pcobj;
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
94 const char* symbol;
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
95 void* libhandle;
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
96 void* funcptr;
0
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
97
29
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
98 if (!PyArg_ParseTuple(args, "Os", &pcobj, &symbol))
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
99 return PyErr_Format(PyExc_RuntimeError, "argument mismatch");
16
a40084782546 - added support for more return values to python binding
cslag
parents: 5
diff changeset
100
29
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
101 libhandle = DcPyCObject_AsVoidPtr(pcobj);
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
102 if (!libhandle)
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
103 return PyErr_Format(PyExc_RuntimeError, "libhandle is null");
0
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
104
29
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
105 funcptr = dlFindSymbol(libhandle, symbol);
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
106 if (!funcptr)
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
107 return PyErr_Format(PyExc_RuntimeError, "symbol '%s' not found", symbol);
0
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
108
30
baf087cf5971 - fixed two ref counting problems
Tassilo Philipp
parents: 29
diff changeset
109 return DcPyCObject_FromVoidPtr(funcptr, NULL); // !new ref!
0
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
110 }
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
111
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
112 /* free function */
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
113
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
114 static PyObject*
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
115 pydc_free(PyObject* self, PyObject* args)
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
116 {
29
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
117 PyObject* pcobj;
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
118 void* libhandle;
0
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
119
29
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
120 if (!PyArg_ParseTuple(args, "O", &pcobj))
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
121 return PyErr_Format(PyExc_RuntimeError, "argument mismatch");
16
a40084782546 - added support for more return values to python binding
cslag
parents: 5
diff changeset
122
29
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
123 libhandle = DcPyCObject_AsVoidPtr(pcobj);
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
124 if (!libhandle)
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
125 return PyErr_Format(PyExc_RuntimeError, "libhandle is NULL");
0
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
126
29
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
127 dlFreeLibrary(libhandle);
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
128 DcPyCObject_SetVoidPtr(pcobj, NULL);
28
edbbd467f50a python binding:
Tassilo Philipp
parents: 16
diff changeset
129
30
baf087cf5971 - fixed two ref counting problems
Tassilo Philipp
parents: 29
diff changeset
130 //don't think I need to release it, as the pyobj is not equivalent to the held handle
baf087cf5971 - fixed two ref counting problems
Tassilo Philipp
parents: 29
diff changeset
131 //Py_XDECREF(pcobj); // release ref from pydc_load()
baf087cf5971 - fixed two ref counting problems
Tassilo Philipp
parents: 29
diff changeset
132
29
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
133 Py_RETURN_NONE;
0
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
134 }
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
135
33
ba47a3d709d7 - pydc: added support to get libhandle's path
Tassilo Philipp
parents: 32
diff changeset
136 /* get_path function */
ba47a3d709d7 - pydc: added support to get libhandle's path
Tassilo Philipp
parents: 32
diff changeset
137
ba47a3d709d7 - pydc: added support to get libhandle's path
Tassilo Philipp
parents: 32
diff changeset
138 static PyObject*
ba47a3d709d7 - pydc: added support to get libhandle's path
Tassilo Philipp
parents: 32
diff changeset
139 pydc_get_path(PyObject* self, PyObject* args)
ba47a3d709d7 - pydc: added support to get libhandle's path
Tassilo Philipp
parents: 32
diff changeset
140 {
ba47a3d709d7 - pydc: added support to get libhandle's path
Tassilo Philipp
parents: 32
diff changeset
141 PyObject* pcobj;
ba47a3d709d7 - pydc: added support to get libhandle's path
Tassilo Philipp
parents: 32
diff changeset
142 PyObject* retobj;
ba47a3d709d7 - pydc: added support to get libhandle's path
Tassilo Philipp
parents: 32
diff changeset
143 void* libhandle;
ba47a3d709d7 - pydc: added support to get libhandle's path
Tassilo Philipp
parents: 32
diff changeset
144 char* path;
ba47a3d709d7 - pydc: added support to get libhandle's path
Tassilo Philipp
parents: 32
diff changeset
145 int path_bufSize;
ba47a3d709d7 - pydc: added support to get libhandle's path
Tassilo Philipp
parents: 32
diff changeset
146
ba47a3d709d7 - pydc: added support to get libhandle's path
Tassilo Philipp
parents: 32
diff changeset
147 if (!PyArg_ParseTuple(args, "O", &pcobj))
ba47a3d709d7 - pydc: added support to get libhandle's path
Tassilo Philipp
parents: 32
diff changeset
148 return PyErr_Format(PyExc_RuntimeError, "argument mismatch");
ba47a3d709d7 - pydc: added support to get libhandle's path
Tassilo Philipp
parents: 32
diff changeset
149
ba47a3d709d7 - pydc: added support to get libhandle's path
Tassilo Philipp
parents: 32
diff changeset
150 libhandle = (pcobj == Py_None)?NULL:DcPyCObject_AsVoidPtr(pcobj);
ba47a3d709d7 - pydc: added support to get libhandle's path
Tassilo Philipp
parents: 32
diff changeset
151 path_bufSize = dlGetLibraryPath(libhandle, NULL, 0);
ba47a3d709d7 - pydc: added support to get libhandle's path
Tassilo Philipp
parents: 32
diff changeset
152 if (!path_bufSize)
ba47a3d709d7 - pydc: added support to get libhandle's path
Tassilo Philipp
parents: 32
diff changeset
153 return PyErr_Format(PyExc_RuntimeError, "library path cannot be found");
ba47a3d709d7 - pydc: added support to get libhandle's path
Tassilo Philipp
parents: 32
diff changeset
154
ba47a3d709d7 - pydc: added support to get libhandle's path
Tassilo Philipp
parents: 32
diff changeset
155 path = malloc(path_bufSize);
ba47a3d709d7 - pydc: added support to get libhandle's path
Tassilo Philipp
parents: 32
diff changeset
156 if (path_bufSize != dlGetLibraryPath(libhandle, path, path_bufSize)) {
ba47a3d709d7 - pydc: added support to get libhandle's path
Tassilo Philipp
parents: 32
diff changeset
157 free(path);
ba47a3d709d7 - pydc: added support to get libhandle's path
Tassilo Philipp
parents: 32
diff changeset
158 return PyErr_Format(PyExc_RuntimeError, "library path cannot be queried");
ba47a3d709d7 - pydc: added support to get libhandle's path
Tassilo Philipp
parents: 32
diff changeset
159 }
ba47a3d709d7 - pydc: added support to get libhandle's path
Tassilo Philipp
parents: 32
diff changeset
160
ba47a3d709d7 - pydc: added support to get libhandle's path
Tassilo Philipp
parents: 32
diff changeset
161 retobj = Py_BuildValue("s", path); // !new ref! @@@ UTF-8 input...
ba47a3d709d7 - pydc: added support to get libhandle's path
Tassilo Philipp
parents: 32
diff changeset
162 free(path);
ba47a3d709d7 - pydc: added support to get libhandle's path
Tassilo Philipp
parents: 32
diff changeset
163 return retobj;
ba47a3d709d7 - pydc: added support to get libhandle's path
Tassilo Philipp
parents: 32
diff changeset
164 }
ba47a3d709d7 - pydc: added support to get libhandle's path
Tassilo Philipp
parents: 32
diff changeset
165
28
edbbd467f50a python binding:
Tassilo Philipp
parents: 16
diff changeset
166
0
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
167 #include "dyncall.h"
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
168 #include "dyncall_signature.h"
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
169
30
baf087cf5971 - fixed two ref counting problems
Tassilo Philipp
parents: 29
diff changeset
170 DCCallVM* gpCall = NULL;
0
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
171
29
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
172
0
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
173 /* call function */
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
174
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
175 static PyObject*
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
176 pydc_call(PyObject* self, PyObject* in_args)
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
177 {
29
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
178 PyObject *pcobj_funcptr, *args;
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
179 const char *signature, *ptr;
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
180 char ch;
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
181 int pos, ts;
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
182 void* pfunc;
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
183
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
184 if (!PyArg_ParseTuple(in_args,"OsO", &pcobj_funcptr, &signature, &args))
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
185 return PyErr_Format(PyExc_RuntimeError, "argument mismatch");
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
186
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
187 pfunc = DcPyCObject_AsVoidPtr(pcobj_funcptr);
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
188 if (!pfunc)
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
189 return PyErr_Format( PyExc_RuntimeError, "function pointer is NULL" );
16
a40084782546 - added support for more return values to python binding
cslag
parents: 5
diff changeset
190
29
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
191 ptr = signature;
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
192 pos = 0;
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
193 ts = PyTuple_Size(args);
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
194
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
195 dcReset(gpCall);
37
8c8f848131c6 - version bump
Tassilo Philipp
parents: 36
diff changeset
196 dcMode(gpCall, DC_CALL_C_DEFAULT);
28
edbbd467f50a python binding:
Tassilo Philipp
parents: 16
diff changeset
197
29
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
198 for (ch = *ptr; ch != '\0' && ch != ')'; ch = *++ptr)
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
199 {
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
200 PyObject* po;
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
201
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
202 if (pos > ts)
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
203 return PyErr_Format( PyExc_RuntimeError, "expecting more arguments" );
28
edbbd467f50a python binding:
Tassilo Philipp
parents: 16
diff changeset
204
29
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
205 po = PyTuple_GetItem(args, pos);
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
206
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
207 ++pos; // incr here, code below uses it as 1-based argument index for error strings
0
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
208
29
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
209 switch(ch)
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
210 {
35
75fe1dec0eb4 - added support for signature-based calling convention switch
Tassilo Philipp
parents: 34
diff changeset
211 case DC_SIGCHAR_CC_PREFIX:
75fe1dec0eb4 - added support for signature-based calling convention switch
Tassilo Philipp
parents: 34
diff changeset
212 {
75fe1dec0eb4 - added support for signature-based calling convention switch
Tassilo Philipp
parents: 34
diff changeset
213 if(*(ptr+1) != '\0')
75fe1dec0eb4 - added support for signature-based calling convention switch
Tassilo Philipp
parents: 34
diff changeset
214 {
75fe1dec0eb4 - added support for signature-based calling convention switch
Tassilo Philipp
parents: 34
diff changeset
215 // @@@ this is easily going out of sync with dyncall, abstract this sigchar->mode lookup somewhere inside dyncall
75fe1dec0eb4 - added support for signature-based calling convention switch
Tassilo Philipp
parents: 34
diff changeset
216 switch(*++ptr) {
75fe1dec0eb4 - added support for signature-based calling convention switch
Tassilo Philipp
parents: 34
diff changeset
217 case DC_SIGCHAR_CC_DEFAULT: dcMode(gpCall, DC_CALL_C_DEFAULT ); break;
75fe1dec0eb4 - added support for signature-based calling convention switch
Tassilo Philipp
parents: 34
diff changeset
218 case DC_SIGCHAR_CC_ELLIPSIS: dcMode(gpCall, DC_CALL_C_ELLIPSIS ); break;
75fe1dec0eb4 - added support for signature-based calling convention switch
Tassilo Philipp
parents: 34
diff changeset
219 case DC_SIGCHAR_CC_ELLIPSIS_VARARGS: dcMode(gpCall, DC_CALL_C_ELLIPSIS_VARARGS ); break;
75fe1dec0eb4 - added support for signature-based calling convention switch
Tassilo Philipp
parents: 34
diff changeset
220 case DC_SIGCHAR_CC_CDECL: dcMode(gpCall, DC_CALL_C_X86_CDECL ); break;
75fe1dec0eb4 - added support for signature-based calling convention switch
Tassilo Philipp
parents: 34
diff changeset
221 case DC_SIGCHAR_CC_STDCALL: dcMode(gpCall, DC_CALL_C_X86_WIN32_STD ); break;
75fe1dec0eb4 - added support for signature-based calling convention switch
Tassilo Philipp
parents: 34
diff changeset
222 case DC_SIGCHAR_CC_FASTCALL_MS: dcMode(gpCall, DC_CALL_C_X86_WIN32_FAST_MS ); break;
75fe1dec0eb4 - added support for signature-based calling convention switch
Tassilo Philipp
parents: 34
diff changeset
223 case DC_SIGCHAR_CC_FASTCALL_GNU: dcMode(gpCall, DC_CALL_C_X86_WIN32_FAST_GNU); break;
75fe1dec0eb4 - added support for signature-based calling convention switch
Tassilo Philipp
parents: 34
diff changeset
224 case DC_SIGCHAR_CC_THISCALL_MS: dcMode(gpCall, DC_CALL_C_X86_WIN32_THIS_MS ); break;
75fe1dec0eb4 - added support for signature-based calling convention switch
Tassilo Philipp
parents: 34
diff changeset
225 case DC_SIGCHAR_CC_THISCALL_GNU: dcMode(gpCall, DC_CALL_C_X86_WIN32_THIS_GNU); break;
75fe1dec0eb4 - added support for signature-based calling convention switch
Tassilo Philipp
parents: 34
diff changeset
226 case DC_SIGCHAR_CC_ARM_ARM: dcMode(gpCall, DC_CALL_C_ARM_ARM ); break;
75fe1dec0eb4 - added support for signature-based calling convention switch
Tassilo Philipp
parents: 34
diff changeset
227 case DC_SIGCHAR_CC_ARM_THUMB: dcMode(gpCall, DC_CALL_C_ARM_THUMB ); break;
75fe1dec0eb4 - added support for signature-based calling convention switch
Tassilo Philipp
parents: 34
diff changeset
228 case DC_SIGCHAR_CC_SYSCALL: dcMode(gpCall, DC_CALL_SYS_DEFAULT ); break;
75fe1dec0eb4 - added support for signature-based calling convention switch
Tassilo Philipp
parents: 34
diff changeset
229 }
75fe1dec0eb4 - added support for signature-based calling convention switch
Tassilo Philipp
parents: 34
diff changeset
230 }
36
b84064293541 - bugfix
Tassilo Philipp
parents: 35
diff changeset
231 --pos; // didn't count as arg
35
75fe1dec0eb4 - added support for signature-based calling convention switch
Tassilo Philipp
parents: 34
diff changeset
232 }
75fe1dec0eb4 - added support for signature-based calling convention switch
Tassilo Philipp
parents: 34
diff changeset
233 break;
75fe1dec0eb4 - added support for signature-based calling convention switch
Tassilo Philipp
parents: 34
diff changeset
234
29
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
235 case DC_SIGCHAR_BOOL:
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
236 if ( !PyBool_Check(po) )
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
237 return PyErr_Format( PyExc_RuntimeError, "arg %d - expecting a bool", pos );
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
238 dcArgBool(gpCall, (Py_True == po) ? DC_TRUE : DC_FALSE);
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
239 break;
16
a40084782546 - added support for more return values to python binding
cslag
parents: 5
diff changeset
240
29
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
241 case DC_SIGCHAR_CHAR:
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
242 case DC_SIGCHAR_UCHAR:
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
243 {
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
244 DCchar c;
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
245 if ( PyUnicode_Check(po) )
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
246 {
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
247 #if (PY_VERSION_HEX < 0x03030000)
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
248 Py_UNICODE cu;
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
249 if (PyUnicode_GET_SIZE(po) != 1)
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
250 #else
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
251 Py_UCS4 cu;
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
252 if (PyUnicode_GET_LENGTH(po) != 1)
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
253 #endif
31
622914f1f3bf - some cleanups
Tassilo Philipp
parents: 30
diff changeset
254 return PyErr_Format( PyExc_RuntimeError, "arg %d - expecting a str with length of 1 (a char string)", pos );
0
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
255
29
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
256 #if (PY_VERSION_HEX < 0x03030000)
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
257 cu = PyUnicode_AS_UNICODE(po)[0];
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
258 #else
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
259 cu = PyUnicode_ReadChar(po, 0);
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
260 #endif
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
261 // check against UCHAR_MAX in every case b/c Py_UCS4 is unsigned
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
262 if ( (cu > UCHAR_MAX))
31
622914f1f3bf - some cleanups
Tassilo Philipp
parents: 30
diff changeset
263 return PyErr_Format( PyExc_RuntimeError, "arg %d out of range - expecting a char code", pos );
29
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
264 c = (DCchar) cu;
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
265 }
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
266 else if ( DcPyString_Check(po) )
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
267 {
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
268 size_t l;
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
269 char* s;
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
270 l = DcPyString_GET_SIZE(po);
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
271 if (l != 1)
31
622914f1f3bf - some cleanups
Tassilo Philipp
parents: 30
diff changeset
272 return PyErr_Format( PyExc_RuntimeError, "arg %d - expecting a str with length of 1 (a char string)", pos );
29
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
273 s = DcPyString_AsString(po);
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
274 c = (DCchar) s[0];
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
275 }
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
276 else if ( DcPyInt_Check(po) )
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
277 {
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
278 long l = DcPyInt_AsLong(po);
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
279 if (ch == DC_SIGCHAR_CHAR && (l < CHAR_MIN || l > CHAR_MAX))
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
280 return PyErr_Format( PyExc_RuntimeError, "arg %d out of range - expecting %d <= arg <= %d, got %ld", pos, CHAR_MIN, CHAR_MAX, l );
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
281 if (ch == DC_SIGCHAR_UCHAR && (l < 0 || l > UCHAR_MAX))
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
282 return PyErr_Format( PyExc_RuntimeError, "arg %d out of range - expecting 0 <= arg <= %d, got %ld", pos, UCHAR_MAX, l );
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
283 c = (DCchar) l;
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
284 }
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
285 else
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
286 return PyErr_Format( PyExc_RuntimeError, "arg %d - expecting a char", pos );
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
287 dcArgChar(gpCall, c);
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
288 }
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
289 break;
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
290
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
291 case DC_SIGCHAR_SHORT:
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
292 {
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
293 long l;
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
294 if ( !DcPyInt_Check(po) )
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
295 return PyErr_Format( PyExc_RuntimeError, "arg %d - expecting an int", pos );
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
296 l = DcPyInt_AS_LONG(po);
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
297 if (l < SHRT_MIN || l > SHRT_MAX)
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
298 return PyErr_Format( PyExc_RuntimeError, "arg %d out of range - expecting %d <= arg <= %d, got %ld", pos, SHRT_MIN, SHRT_MAX, l );
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
299 dcArgShort(gpCall, (DCshort)l);
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
300 }
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
301 break;
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
302
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
303 case DC_SIGCHAR_USHORT:
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
304 {
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
305 long l;
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
306 if ( !DcPyInt_Check(po) )
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
307 return PyErr_Format( PyExc_RuntimeError, "arg %d - expecting an int", pos );
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
308 l = DcPyInt_AS_LONG(po);
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
309 if (l < 0 || l > USHRT_MAX)
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
310 return PyErr_Format( PyExc_RuntimeError, "arg %d out of range - expecting 0 <= arg <= %d, got %ld", pos, USHRT_MAX, l );
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
311 dcArgShort(gpCall, (DCshort)l);
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
312 }
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
313 break;
16
a40084782546 - added support for more return values to python binding
cslag
parents: 5
diff changeset
314
29
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
315 case DC_SIGCHAR_INT:
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
316 case DC_SIGCHAR_UINT:
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
317 if ( !DcPyInt_Check(po) )
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
318 return PyErr_Format( PyExc_RuntimeError, "arg %d - expecting an int", pos );
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
319 dcArgInt(gpCall, (DCint) DcPyInt_AS_LONG(po));
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
320 break;
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
321
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
322 case DC_SIGCHAR_LONG:
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
323 case DC_SIGCHAR_ULONG:
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
324 if ( !DcPyInt_Check(po) )
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
325 return PyErr_Format( PyExc_RuntimeError, "arg %d - expecting an int", pos );
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
326 dcArgLong(gpCall, (DClong) PyLong_AsLong(po));
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
327 break;
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
328
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
329 case DC_SIGCHAR_LONGLONG:
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
330 case DC_SIGCHAR_ULONGLONG:
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
331 #if PY_MAJOR_VERSION < 3
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
332 if ( PyInt_Check(po) )
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
333 dcArgLongLong(gpCall, (DClonglong) PyInt_AS_LONG(po));
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
334 else
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
335 #endif
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
336 if ( !PyLong_Check(po) )
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
337 return PyErr_Format( PyExc_RuntimeError, "arg %d - expecting " EXPECT_LONG_TYPE_STR, pos );
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
338 dcArgLongLong(gpCall, (DClonglong)PyLong_AsLongLong(po));
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
339 break;
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
340
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
341 case DC_SIGCHAR_FLOAT:
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
342 if (!PyFloat_Check(po))
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
343 return PyErr_Format( PyExc_RuntimeError, "arg %d - expeecting a float", pos );
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
344 dcArgFloat(gpCall, (float)PyFloat_AsDouble(po));
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
345 break;
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
346
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
347 case DC_SIGCHAR_DOUBLE:
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
348 if (!PyFloat_Check(po))
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
349 return PyErr_Format( PyExc_RuntimeError, "arg %d - expeecting a float", pos );
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
350 dcArgDouble(gpCall, PyFloat_AsDouble(po));
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
351 break;
0
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
352
34
2682a627168c - breaking changes:
Tassilo Philipp
parents: 33
diff changeset
353 case DC_SIGCHAR_POINTER: // this will only accept integers or mutable array types (meaning only bytearray)
29
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
354 {
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
355 DCpointer p;
34
2682a627168c - breaking changes:
Tassilo Philipp
parents: 33
diff changeset
356 if ( PyByteArray_Check(po) )
2682a627168c - breaking changes:
Tassilo Philipp
parents: 33
diff changeset
357 p = (DCpointer) PyByteArray_AsString(po); // adds an extra '\0', but that's ok
29
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
358 #if PY_MAJOR_VERSION < 3
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
359 else if ( PyInt_Check(po) )
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
360 p = (DCpointer) PyInt_AS_LONG(po);
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
361 #endif
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
362 else if ( PyLong_Check(po) )
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
363 p = (DCpointer) PyLong_AsVoidPtr(po);
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
364 else
34
2682a627168c - breaking changes:
Tassilo Philipp
parents: 33
diff changeset
365 return PyErr_Format( PyExc_RuntimeError, "arg %d - expecting a promoting pointer-type (int, bytearray)", pos );
29
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
366 dcArgPointer(gpCall, p);
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
367 }
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
368 break;
0
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
369
34
2682a627168c - breaking changes:
Tassilo Philipp
parents: 33
diff changeset
370 case DC_SIGCHAR_STRING: // strings are considered to be immutable objects
29
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
371 {
30
baf087cf5971 - fixed two ref counting problems
Tassilo Philipp
parents: 29
diff changeset
372 PyObject* bo = NULL;
29
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
373 const char* p;
34
2682a627168c - breaking changes:
Tassilo Philipp
parents: 33
diff changeset
374 char* p_;
2682a627168c - breaking changes:
Tassilo Philipp
parents: 33
diff changeset
375 size_t s;
29
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
376 if ( PyUnicode_Check(po) ) {
30
baf087cf5971 - fixed two ref counting problems
Tassilo Philipp
parents: 29
diff changeset
377 if((bo = PyUnicode_AsEncodedString(po, "utf-8", "strict"))) // !new ref!
29
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
378 p = PyBytes_AS_STRING(bo); // Borrowed pointer
34
2682a627168c - breaking changes:
Tassilo Philipp
parents: 33
diff changeset
379 } else if ( DcPyString_Check(po) )
2682a627168c - breaking changes:
Tassilo Philipp
parents: 33
diff changeset
380 p = DcPyString_AsString(po); //@@@ must not be modified in any way
2682a627168c - breaking changes:
Tassilo Philipp
parents: 33
diff changeset
381 else if ( PyByteArray_Check(po) )
2682a627168c - breaking changes:
Tassilo Philipp
parents: 33
diff changeset
382 p = (DCpointer) PyByteArray_AsString(po); // adds an extra '\0', but that's ok //@@@ not sure if allowed to modify
2682a627168c - breaking changes:
Tassilo Philipp
parents: 33
diff changeset
383 else
31
622914f1f3bf - some cleanups
Tassilo Philipp
parents: 30
diff changeset
384 return PyErr_Format( PyExc_RuntimeError, "arg %d - expecting a str", pos );
34
2682a627168c - breaking changes:
Tassilo Philipp
parents: 33
diff changeset
385
2682a627168c - breaking changes:
Tassilo Philipp
parents: 33
diff changeset
386 // pointer points in any case to a buffer that shouldn't be modified, so pass a copy of the string to dyncall
2682a627168c - breaking changes:
Tassilo Philipp
parents: 33
diff changeset
387 s = strlen(p)+1;
2682a627168c - breaking changes:
Tassilo Philipp
parents: 33
diff changeset
388 p_ = malloc(s);
2682a627168c - breaking changes:
Tassilo Philipp
parents: 33
diff changeset
389 strncpy(p_, p, s);
30
baf087cf5971 - fixed two ref counting problems
Tassilo Philipp
parents: 29
diff changeset
390 Py_XDECREF(bo);
34
2682a627168c - breaking changes:
Tassilo Philipp
parents: 33
diff changeset
391 dcArgPointer(gpCall, (DCpointer)p_);
2682a627168c - breaking changes:
Tassilo Philipp
parents: 33
diff changeset
392 free(p_);
29
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
393 }
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
394 break;
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
395
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
396 default:
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
397 return PyErr_Format( PyExc_RuntimeError, "unknown signature character '%c'", ch);
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
398 }
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
399 }
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
400
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
401 if (pos != ts)
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
402 return PyErr_Format( PyExc_RuntimeError, "too many arguments");
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
403
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
404 if (ch == '\0')
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
405 return PyErr_Format( PyExc_RuntimeError, "return value missing in signature");
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
406
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
407
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
408 ch = *++ptr;
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
409 switch(ch)
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
410 {
30
baf087cf5971 - fixed two ref counting problems
Tassilo Philipp
parents: 29
diff changeset
411 // every line creates a new reference passed back to python
baf087cf5971 - fixed two ref counting problems
Tassilo Philipp
parents: 29
diff changeset
412 case DC_SIGCHAR_VOID: dcCallVoid (gpCall, pfunc); Py_RETURN_NONE; // !new ref!
baf087cf5971 - fixed two ref counting problems
Tassilo Philipp
parents: 29
diff changeset
413 case DC_SIGCHAR_BOOL: if(dcCallBool (gpCall, pfunc)){Py_RETURN_TRUE;}else{Py_RETURN_FALSE;} // !new ref!
baf087cf5971 - fixed two ref counting problems
Tassilo Philipp
parents: 29
diff changeset
414 case DC_SIGCHAR_CHAR: return Py_BuildValue("b", dcCallChar (gpCall, pfunc)); // !new ref!
baf087cf5971 - fixed two ref counting problems
Tassilo Philipp
parents: 29
diff changeset
415 case DC_SIGCHAR_UCHAR: return Py_BuildValue("B", dcCallChar (gpCall, pfunc)); // !new ref!
baf087cf5971 - fixed two ref counting problems
Tassilo Philipp
parents: 29
diff changeset
416 case DC_SIGCHAR_SHORT: return Py_BuildValue("h", dcCallShort (gpCall, pfunc)); // !new ref!
baf087cf5971 - fixed two ref counting problems
Tassilo Philipp
parents: 29
diff changeset
417 case DC_SIGCHAR_USHORT: return Py_BuildValue("H", dcCallShort (gpCall, pfunc)); // !new ref!
baf087cf5971 - fixed two ref counting problems
Tassilo Philipp
parents: 29
diff changeset
418 case DC_SIGCHAR_INT: return Py_BuildValue("i", dcCallInt (gpCall, pfunc)); // !new ref!
baf087cf5971 - fixed two ref counting problems
Tassilo Philipp
parents: 29
diff changeset
419 case DC_SIGCHAR_UINT: return Py_BuildValue("I", dcCallInt (gpCall, pfunc)); // !new ref!
baf087cf5971 - fixed two ref counting problems
Tassilo Philipp
parents: 29
diff changeset
420 case DC_SIGCHAR_LONG: return Py_BuildValue("l", dcCallLong (gpCall, pfunc)); // !new ref!
baf087cf5971 - fixed two ref counting problems
Tassilo Philipp
parents: 29
diff changeset
421 case DC_SIGCHAR_ULONG: return Py_BuildValue("k", dcCallLong (gpCall, pfunc)); // !new ref!
baf087cf5971 - fixed two ref counting problems
Tassilo Philipp
parents: 29
diff changeset
422 case DC_SIGCHAR_LONGLONG: return Py_BuildValue("L", dcCallLongLong(gpCall, pfunc)); // !new ref!
baf087cf5971 - fixed two ref counting problems
Tassilo Philipp
parents: 29
diff changeset
423 case DC_SIGCHAR_ULONGLONG: return Py_BuildValue("K", dcCallLongLong(gpCall, pfunc)); // !new ref!
baf087cf5971 - fixed two ref counting problems
Tassilo Philipp
parents: 29
diff changeset
424 case DC_SIGCHAR_FLOAT: return Py_BuildValue("f", dcCallFloat (gpCall, pfunc)); // !new ref!
baf087cf5971 - fixed two ref counting problems
Tassilo Philipp
parents: 29
diff changeset
425 case DC_SIGCHAR_DOUBLE: return Py_BuildValue("d", dcCallDouble (gpCall, pfunc)); // !new ref!
baf087cf5971 - fixed two ref counting problems
Tassilo Philipp
parents: 29
diff changeset
426 case DC_SIGCHAR_STRING: return Py_BuildValue("s", dcCallPointer (gpCall, pfunc)); // !new ref!
baf087cf5971 - fixed two ref counting problems
Tassilo Philipp
parents: 29
diff changeset
427 case DC_SIGCHAR_POINTER: return Py_BuildValue("n", dcCallPointer (gpCall, pfunc)); // !new ref!
29
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
428 default: return PyErr_Format(PyExc_RuntimeError, "invalid return type signature");
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
429 }
0
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
430 }
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
431
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
432
28
edbbd467f50a python binding:
Tassilo Philipp
parents: 16
diff changeset
433
30
baf087cf5971 - fixed two ref counting problems
Tassilo Philipp
parents: 29
diff changeset
434 // module deinit
baf087cf5971 - fixed two ref counting problems
Tassilo Philipp
parents: 29
diff changeset
435 static void deinit_pydc(void* x)
baf087cf5971 - fixed two ref counting problems
Tassilo Philipp
parents: 29
diff changeset
436 {
baf087cf5971 - fixed two ref counting problems
Tassilo Philipp
parents: 29
diff changeset
437 if(gpCall) {
baf087cf5971 - fixed two ref counting problems
Tassilo Philipp
parents: 29
diff changeset
438 dcFree(gpCall);
baf087cf5971 - fixed two ref counting problems
Tassilo Philipp
parents: 29
diff changeset
439 gpCall = NULL;
baf087cf5971 - fixed two ref counting problems
Tassilo Philipp
parents: 29
diff changeset
440 }
baf087cf5971 - fixed two ref counting problems
Tassilo Philipp
parents: 29
diff changeset
441 }
28
edbbd467f50a python binding:
Tassilo Philipp
parents: 16
diff changeset
442
edbbd467f50a python binding:
Tassilo Philipp
parents: 16
diff changeset
443
edbbd467f50a python binding:
Tassilo Philipp
parents: 16
diff changeset
444 #define PYDC_TO_STR_(x) #x
edbbd467f50a python binding:
Tassilo Philipp
parents: 16
diff changeset
445 #define PYDC_TO_STR(x) PYDC_TO_STR_(x)
edbbd467f50a python binding:
Tassilo Philipp
parents: 16
diff changeset
446 #define PYDC_CONCAT_(x, y) x ## y
edbbd467f50a python binding:
Tassilo Philipp
parents: 16
diff changeset
447 #define PYDC_CONCAT(x, y) PYDC_CONCAT_(x, y)
edbbd467f50a python binding:
Tassilo Philipp
parents: 16
diff changeset
448
edbbd467f50a python binding:
Tassilo Philipp
parents: 16
diff changeset
449 #define PYDC_MOD_NAME pydcext
edbbd467f50a python binding:
Tassilo Philipp
parents: 16
diff changeset
450 #define PYDC_MOD_NAME_STR PYDC_TO_STR(PYDC_MOD_NAME)
edbbd467f50a python binding:
Tassilo Philipp
parents: 16
diff changeset
451 #define PYDC_MOD_DESC_STR "dyncall bindings for python"
edbbd467f50a python binding:
Tassilo Philipp
parents: 16
diff changeset
452
edbbd467f50a python binding:
Tassilo Philipp
parents: 16
diff changeset
453 #if PY_MAJOR_VERSION >= 3
edbbd467f50a python binding:
Tassilo Philipp
parents: 16
diff changeset
454 # define PY_MOD_INIT_FUNC_NAME PYDC_CONCAT(PyInit_, PYDC_MOD_NAME)
edbbd467f50a python binding:
Tassilo Philipp
parents: 16
diff changeset
455 #else
edbbd467f50a python binding:
Tassilo Philipp
parents: 16
diff changeset
456 # define PY_MOD_INIT_FUNC_NAME PYDC_CONCAT(init, PYDC_MOD_NAME)
edbbd467f50a python binding:
Tassilo Philipp
parents: 16
diff changeset
457 #endif
edbbd467f50a python binding:
Tassilo Philipp
parents: 16
diff changeset
458
0
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
459
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
460 PyMODINIT_FUNC
28
edbbd467f50a python binding:
Tassilo Philipp
parents: 16
diff changeset
461 PY_MOD_INIT_FUNC_NAME(void)
0
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
462 {
29
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
463 static PyMethodDef pydcMethods[] = {
33
ba47a3d709d7 - pydc: added support to get libhandle's path
Tassilo Philipp
parents: 32
diff changeset
464 {"load", pydc_load, METH_VARARGS, "load library" },
ba47a3d709d7 - pydc: added support to get libhandle's path
Tassilo Philipp
parents: 32
diff changeset
465 {"find", pydc_find, METH_VARARGS, "find symbols" },
ba47a3d709d7 - pydc: added support to get libhandle's path
Tassilo Philipp
parents: 32
diff changeset
466 {"free", pydc_free, METH_VARARGS, "free library" },
ba47a3d709d7 - pydc: added support to get libhandle's path
Tassilo Philipp
parents: 32
diff changeset
467 {"get_path", pydc_get_path, METH_VARARGS, "get library path"},
ba47a3d709d7 - pydc: added support to get libhandle's path
Tassilo Philipp
parents: 32
diff changeset
468 {"call", pydc_call, METH_VARARGS, "call function" },
29
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
469 {NULL,NULL,0,NULL}
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
470 };
28
edbbd467f50a python binding:
Tassilo Philipp
parents: 16
diff changeset
471
29
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
472 PyObject* m;
28
edbbd467f50a python binding:
Tassilo Philipp
parents: 16
diff changeset
473 #if PY_MAJOR_VERSION >= 3
30
baf087cf5971 - fixed two ref counting problems
Tassilo Philipp
parents: 29
diff changeset
474 static struct PyModuleDef moddef = { PyModuleDef_HEAD_INIT, PYDC_MOD_NAME_STR, PYDC_MOD_DESC_STR, -1, pydcMethods, NULL, NULL, NULL, deinit_pydc };
29
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
475 m = PyModule_Create(&moddef);
28
edbbd467f50a python binding:
Tassilo Philipp
parents: 16
diff changeset
476 #else
29
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
477 m = Py_InitModule3(PYDC_MOD_NAME_STR, pydcMethods, PYDC_MOD_DESC_STR);
30
baf087cf5971 - fixed two ref counting problems
Tassilo Philipp
parents: 29
diff changeset
478 // NOTE: there is no way to pass a pointer to deinit_pydc - see PEP 3121 for details
28
edbbd467f50a python binding:
Tassilo Philipp
parents: 16
diff changeset
479 #endif
edbbd467f50a python binding:
Tassilo Philipp
parents: 16
diff changeset
480
29
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
481 if(m)
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
482 gpCall = dcNewCallVM(4096); //@@@ one shared callvm for the entire module, this is not reentrant
28
edbbd467f50a python binding:
Tassilo Philipp
parents: 16
diff changeset
483
edbbd467f50a python binding:
Tassilo Philipp
parents: 16
diff changeset
484 #if PY_MAJOR_VERSION >= 3
29
6cc2b7fc7ea2 bigger pydc update:
Tassilo Philipp
parents: 28
diff changeset
485 return m;
28
edbbd467f50a python binding:
Tassilo Philipp
parents: 16
diff changeset
486 #endif
0
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
487 }
0cfcc391201f initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
488