Introduce a generic way to subclass Python analysis clients.

1 files changed, 16 insertions, 0 deletions

diff --git a/plugins/pychrysalide/helpers.h b/plugins/pychrysalide/helpers.h
index 0ef8adc..32851c0 100644
--- a/plugins/pychrysalide/helpers.h
+++ b/plugins/pychrysalide/helpers.h
@@ -158,6 +158,22 @@ bool register_python_module_object(PyObject *, PyTypeObject *);
 #define APPLY_ABSTRACT_FLAG(tp) tp->tp_new = PyBaseObject_Type.tp_new
 
 
+/* Accompagne la création d'une instance dérivée en Python. */
+PyObject *python_constructor_with_dynamic_gtype(PyTypeObject *, PyObject *, PyObject *, PyTypeObject *, GType);
+
+
+#define CREATE_DYN_CONSTRUCTOR(pyname, gbase)                                               \
+static PyObject *py_ ## pyname ## _new(PyTypeObject *, PyObject *, PyObject *);             \
+static PyObject *py_ ## pyname ## _new(PyTypeObject *type, PyObject *args, PyObject *kwds)  \
+{                                                                                           \
+    PyObject *result;                       /* Objet à retourner           */               \
+    PyTypeObject *base;                     /* Type de base à dériver      */               \
+    base = get_python_ ## pyname ## _type();                                                \
+    result = python_constructor_with_dynamic_gtype(type, args, kwds, base, gbase);          \
+    return result;                                                                          \
+}
+
+
 /* Marque l'interdiction d'une instanciation depuis Python. */
 PyObject *no_python_constructor_allowed(PyTypeObject *, PyObject *, PyObject *);