147 lines
5.2 KiB
OpenEdge ABL
147 lines
5.2 KiB
OpenEdge ABL
/*********************************************************************************************************
|
|
* Software License Agreement (BSD License) *
|
|
* Author: Sebastien Decugis <sdecugis@freediameter.net> *
|
|
* *
|
|
* Copyright (c) 2013, WIDE Project and NICT *
|
|
* All rights reserved. *
|
|
* *
|
|
* Redistribution and use of this software in source and binary forms, with or without modification, are *
|
|
* permitted provided that the following conditions are met: *
|
|
* *
|
|
* * Redistributions of source code must retain the above *
|
|
* copyright notice, this list of conditions and the *
|
|
* following disclaimer. *
|
|
* *
|
|
* * Redistributions in binary form must reproduce the above *
|
|
* copyright notice, this list of conditions and the *
|
|
* following disclaimer in the documentation and/or other *
|
|
* materials provided with the distribution. *
|
|
* *
|
|
* * Neither the name of the WIDE Project or NICT nor the *
|
|
* names of its contributors may be used to endorse or *
|
|
* promote products derived from this software without *
|
|
* specific prior written permission of WIDE Project and *
|
|
* NICT. *
|
|
* *
|
|
* THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED *
|
|
* WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A *
|
|
* PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR *
|
|
* ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT *
|
|
* LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS *
|
|
* INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR *
|
|
* TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF *
|
|
* ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. *
|
|
*********************************************************************************************************/
|
|
|
|
/* Do not include this directly, use dbg_interactive.i instead */
|
|
|
|
/****** DISPATCH *********/
|
|
|
|
|
|
%{
|
|
/* call it (will be called from a different thread than the interpreter, when message arrives) */
|
|
static int call_the_python_dispatch_callback(struct msg **msg, struct avp *avp, struct session *session, void * pycb, enum disp_action *action) {
|
|
PyObject *PyMsg, *PyAvp, *PySess;
|
|
PyObject *cb, *result = NULL;
|
|
int ret = 0;
|
|
|
|
if (!pycb) {
|
|
fd_log_debug("Internal error: missing the callback!");
|
|
return ENOTSUP;
|
|
}
|
|
cb = pycb;
|
|
|
|
SWIG_PYTHON_THREAD_BEGIN_BLOCK;
|
|
/* Convert the arguments */
|
|
PyMsg = SWIG_NewPointerObj((void *)*msg, SWIGTYPE_p_msg, 0 );
|
|
PyAvp = SWIG_NewPointerObj((void *) avp, SWIGTYPE_p_avp, 0 );
|
|
PySess = SWIG_NewPointerObj((void *) session, SWIGTYPE_p_session, 0 );
|
|
|
|
/* Call the function */
|
|
result = PyObject_CallFunction(cb, "(OOO)", PyMsg, PyAvp, PySess);
|
|
|
|
/* The result is supposedly composed of: [ ret, *msg, *action ] */
|
|
if ((result == NULL) || (!PyList_Check(result)) || (PyList_Size(result) != 3)) {
|
|
fd_log_debug("Error: The Python callback did not return [ ret, msg, action ].");
|
|
ret = EINVAL;
|
|
goto out;
|
|
}
|
|
|
|
/* Convert the return values */
|
|
if (!SWIG_IsOK(SWIG_AsVal_int(PyList_GetItem(result, 0), &ret))) {
|
|
fd_log_debug("Error: Cannot convert the first return value to integer.");
|
|
ret = EINVAL;
|
|
goto out;
|
|
}
|
|
if (ret) {
|
|
TRACE_DEBUG(INFO, "The Python callback returned the error code %d (%s)", ret, strerror(ret));
|
|
goto out;
|
|
}
|
|
|
|
if (!SWIG_IsOK(SWIG_ConvertPtr(PyList_GetItem(result, 1), (void *)msg, SWIGTYPE_p_msg, SWIG_POINTER_DISOWN))) {
|
|
fd_log_debug("Error: Cannot convert the second return value to message.");
|
|
ret = EINVAL;
|
|
goto out;
|
|
}
|
|
|
|
if (!SWIG_IsOK(SWIG_AsVal_int(PyList_GetItem(result, 2), (int *)action))) {
|
|
fd_log_debug("Error: Cannot convert the third return value to integer.");
|
|
ret = EINVAL;
|
|
goto out;
|
|
}
|
|
|
|
TRACE_DEBUG(FULL, "Python callback return: *action = %d", *action);
|
|
out:
|
|
Py_XDECREF(result);
|
|
|
|
SWIG_PYTHON_THREAD_END_BLOCK;
|
|
return ret;
|
|
}
|
|
%}
|
|
|
|
struct disp_hdl {
|
|
};
|
|
|
|
%nodefaultctor disp_hdl;
|
|
%extend disp_hdl {
|
|
disp_hdl(PyObject * PyCb, enum disp_how how, struct disp_when * when) {
|
|
struct disp_hdl * hdl = NULL;
|
|
int ret;
|
|
|
|
Py_XINCREF(PyCb);
|
|
|
|
ret = fd_disp_register ( call_the_python_dispatch_callback, how, when, PyCb, &hdl );
|
|
if (ret != 0) {
|
|
DI_ERROR(ret, NULL, NULL);
|
|
return NULL;
|
|
}
|
|
return hdl;
|
|
}
|
|
~disp_hdl() {
|
|
struct disp_hdl * hdl = self;
|
|
PyObject * cb = NULL;
|
|
int ret = fd_disp_unregister(&hdl, (void *)&cb);
|
|
if (ret != 0) {
|
|
DI_ERROR(ret, NULL, NULL);
|
|
}
|
|
Py_XDECREF(cb);
|
|
return;
|
|
}
|
|
}
|
|
|
|
|
|
%extend disp_when {
|
|
disp_when(struct dict_object * app = NULL, struct dict_object * command = NULL, struct dict_object * avp = NULL, struct dict_object * value = NULL) {
|
|
struct disp_when * w = (struct disp_when *)calloc(1, sizeof(struct disp_when));
|
|
if (!w) {
|
|
DI_ERROR_MALLOC;
|
|
return NULL;
|
|
}
|
|
w->app = app;
|
|
w->command = command;
|
|
w->avp = avp;
|
|
w->value = value;
|
|
return w;
|
|
}
|
|
}
|