odb: add swig mappings for Point3D (tcl & python)

Signed-off-by: Matt Liberty <[email protected]>

Author: maliberty

src/odb/src/swig/python/dbtypes.i

@@ -27,6 +27,17 @@
     $result = list;
 }
 
+%typemap(out) odb::Point3D, Point3D {
+    PyObject *list = PyList_New(3);
+    PyObject *x = PyInt_FromLong($1.x());
+    PyObject *y = PyInt_FromLong($1.y());
+    PyObject *z = PyInt_FromLong($1.z());
+    PyList_SetItem(list, 0, x);
+    PyList_SetItem(list, 1, y);
+    PyList_SetItem(list, 2, z);
+    $result = list;
+}
+
 // Wrapper for dbSet, dbVector...etc
 %define WRAP_DB_CONTAINER(T)
 %typemap(out) dbSet< T >, dbVector< T > {

src/odb/src/swig/tcl/dbtypes.i

@@ -24,6 +24,17 @@
     Tcl_SetObjResult(interp, list);
 }
 
+%typemap(out) odb::Point3D, Point3D {
+    Tcl_Obj *list = Tcl_NewListObj(0, nullptr);
+    Tcl_Obj *x = Tcl_NewIntObj($1.x());
+    Tcl_Obj *y = Tcl_NewIntObj($1.y());
+    Tcl_Obj *z = Tcl_NewIntObj($1.z());
+    Tcl_ListObjAppendElement(interp, list, x);
+    Tcl_ListObjAppendElement(interp, list, y);
+    Tcl_ListObjAppendElement(interp, list, z);
+    Tcl_SetObjResult(interp, list);
+}
+
 %typemap(out) std::optional<uint8_t> {
     if ($1.has_value()) {
         Tcl_SetIntObj($result, (int) $1.value());