Hello.
I've been trying to wrap up the C functions that have an ellipsis, or a vararg, such as PyTuple_Pack.
I tried to use avcall.h to pass a dynamically-determined number of arguments to the underlying function.
Having a hard time:
ocaml -init ocamlinit Objective Caml version 3.11.1
# let x = ((Python.of_int 6) :> Python.obj);; val x : Python.obj = <abstr> # let y = ((Python.of_int 4) :> Python.obj);; val y : Python.obj = <abstr> # let args = Python.tuple_pack [x; y];; [seldon:09731] *** Process received signal *** [seldon:09731] Signal: Segmentation fault (11) [seldon:09731] Signal code: Address not mapped (1) [seldon:09731] Failing at address: 0x5 [seldon:09731] [ 0] /lib/libpthread.so.0 [0x2b9099aca990] [seldon:09731] [ 1] /usr/lib/libavcall.so(__builtin_avcall+0x2a5) [0x2b909a14c905] [seldon:09731] *** End of error message *** make: *** [test] Erreur de segmentation
So just wondering: has anyone succeeded in wrapping functions like PyTuple_Pack using stuff like avcall, libffi, or cinvoke?
Here's the code of my wrapper:
CAMLprim value ocamlpython_py_tuple_pack (value ml_len, value ml_pyobjs) {
av_alist argList; PyObject * retVal; av_start_ptr(argList, PyTuple_Pack, PyObject*, retVal);
#if defined(__s390__) || defined(__hppa__) || defined(__cris__) #define av_Py_ssize_t av_long #else #define av_Py_ssize_t av_int #endif
av_Py_ssize_t(argList, Pyoffset_val(ml_len)); while (ml_pyobjs != Val_emptylist) { av_ptr(argList, PyObject*, Pyobj_val(Field(ml_pyobjs, 0))); ml_pyobjs = Field(ml_pyobjs, 1); }
av_call(argList); return(Val_owned_pyobj(retVal)); }
Please tell me if you see something fishy that my eyes do not catch.
-- Guillaume Yziquel http://yziquel.homelinux.org/