add missing files

Author: uturuncoglu

plugins/python/cop_python_interface.F90

@@ -0,0 +1,63 @@
+module cop_python_interface
+
+  !-----------------------------------------------------------------------------
+  ! Void phase for Python interaction 
+  !-----------------------------------------------------------------------------
+
+  use ESMF, only: ESMF_LogWrite, ESMF_LOGMSG_INFO
+  use, intrinsic :: iso_c_binding, only : C_PTR, C_CHAR
+
+  implicit none
+
+  !-----------------------------------------------------------------------------
+  ! Public module interface
+  !-----------------------------------------------------------------------------
+
+  interface
+    subroutine conduit_fort_to_py(cnode, py_script) bind(C, name="conduit_fort_to_py")
+      use iso_c_binding
+      implicit none
+      type(C_PTR), value, intent(in) :: cnode
+      character(kind=C_CHAR), intent(in) :: py_script(*)
+    end subroutine conduit_fort_to_py
+
+    function c_conduit_fort_from_py(name) result(res) bind(C, name="conduit_fort_from_py")
+       use iso_c_binding
+       implicit none
+       character(kind=C_CHAR), intent(in) :: name(*)
+       type(C_PTR) :: res
+    end function c_conduit_fort_from_py
+  end interface
+
+  !-----------------------------------------------------------------------------
+  ! Private module data
+  !-----------------------------------------------------------------------------
+
+  character(len=*), parameter :: modName = "(cop_python_interface)"
+  character(len=*), parameter :: u_FILE_u = __FILE__
+
+!===============================================================================
+contains
+!===============================================================================
+
+  function conduit_fort_from_py(name) result(res)
+    use iso_c_binding
+    implicit none
+
+    ! input/output variables
+    character(*), intent(in) :: name
+    type(C_PTR) :: res
+
+    ! local variables
+    character(len=*), parameter :: subname = trim(modName)//':(conduit_fort_from_py) '
+    !---------------------------------------------------------------------------
+
+    call ESMF_LogWrite(subname//' called', ESMF_LOGMSG_INFO)
+
+    res = c_conduit_fort_from_py(trim(name) // C_NULL_CHAR)
+
+    call ESMF_LogWrite(subname//' done', ESMF_LOGMSG_INFO)
+
+  end function conduit_fort_from_py
+
+end module cop_python_interface

plugins/python/cop_python_interface.cpp

@@ -0,0 +1,84 @@
+#include <conduit.hpp>
+#include <conduit_cpp_to_c.hpp>
+// conduit python module capi header
+#include "conduit_python.hpp"
+// embedded interp
+#include "python_interpreter.hpp"
+
+// single python interp instance for our example.
+PythonInterpreter *interp = NULL;
+
+extern "C" {
+
+  //----------------------------------------------------------------------------
+  // returns our static instance of our python interpreter
+  // if not already inited initializes it
+  //----------------------------------------------------------------------------
+
+  PythonInterpreter *init_python_interpreter() 
+  {
+      if( interp == NULL)
+      {
+          interp = new PythonInterpreter();
+          if( !interp->initialize() )
+          {
+              std::cout << "ERROR: interp->initialize() failed " << std::endl;
+             return NULL;
+          }
+          // setup for conduit python c api
+          if(!interp->run_script("import conduit"))
+          {
+              std::cout << "ERROR: `import conduit` failed" << std::endl;
+             return NULL;
+          }
+
+          if(import_conduit() < 0)
+          {
+             std::cout << "failed to import Conduit Python C-API";
+             return NULL;
+          }
+
+          // Turn this on if you want to see every line
+          // the python interpreter executes
+          //interp->set_echo(true);
+      }
+      return interp;
+  }
+
+  //----------------------------------------------------------------------------
+  // access node passed from fortran to python
+  //----------------------------------------------------------------------------
+
+  void conduit_fort_to_py(conduit_node *data, const char *py_script) {
+    // create python interpreter
+    PythonInterpreter *pyintp = init_python_interpreter();
+
+    // add extra system paths
+    // pyintp->add_system_path("/usr/local/lib/python3.9/site-packages");
+
+    // show code
+    // pyintp->set_echo(true);
+
+    // get global dict and insert wrapped conduit node
+    PyObject *py_mod_dict =  pyintp->global_dict();
+
+    // get cpp ref to passed node
+    conduit::Node &n = conduit::cpp_node_ref(data);
+
+    // create py object to wrap the conduit node
+    PyObject *py_node = PyConduit_Node_Python_Wrap(&n, 0); // python owns => false
+
+    // my_node is set in here statically, it will be used to access node under python
+    pyintp->set_dict_object(py_mod_dict, py_node, "my_node"); 
+
+    // trigger script
+    bool err = pyintp->run_script_file(py_script, py_mod_dict);
+
+    // check error
+    if (err) {
+       pyintp->check_error();
+    }
+     
+  }
+
+}