yap-6.3/packages/swig/yap.i

// supports Java and Python


/* example.i */
%module(directors = "1") yap

// Language independent exception handler
%include exception.i
%include stdint.i
%include std_string.i
%include std_vector.i


%feature("novaluewrapper") std::vector<Term>;

%ignore *::operator[];

class YAPAtom;
class YAPPredicate;
class YAPEngine;

%{


  #include <cmath>
  #include <gmpxx.h>

  extern "C"{
    #include "Yap.h"
    #ifdef SWIGPYTHON
    #include <py4yap.h>

    extern inline PyObject *AtomToPy(const char *s) {
      if (strcmp(s, "true") == 0)
      return Py_True;
      if (strcmp(s, "false") == 0)
      return Py_False;
      if (strcmp(s, "none") == 0)
      return Py_None;
      if (strcmp(s, "[]") == 0)
      return PyList_New(0);
      else if (strcmp(s, "{}") == 0)
      return PyDict_New();
      /* return __main__,s */
      else if (PyObject_HasAttrString(py_Main, s)) {
        return PyObject_GetAttrString(py_Main, s);
      }
      // no way to translate
      return NULL;
    }
    #endif
  }
%}

#ifdef SWIGPYTHON
  %typemap(typecheck) Term*  {
    $1 = PySequence_Check($input);
  }

  // Map a Python sequence into any sized C double array
  %typemap(in) Term*  {
    int i;
    if (!PySequence_Check($input)) {
      PyErr_SetString(PyExc_TypeError,"Expecting a sequence");
      $1 = nullptr;
      } else {
        int sz = PyObject_Length($input);
        std::vector<Term> v(sz);
        for (i =0; i < sz; i++) {
          PyObject *o = PySequence_GetItem($input,i);
          v[i] = Term(pythonToYAP(o));
          //Py_DECREF(o);
        }
        $1 = &v[0];
      }
    }


    //%typemap(check) YAPEngine::fun(Term) { $1 = 1; }
    //%typemap(check) YAPEngine::fun(YAPTerm) { $1 = 0; }


    %typemap(in) Int { if (PyLong_Check($input)) {
      $1 = PyLong_AsLong($input);}
    }

      //%typemap(in) double { if (PyFloat_Check($input)) {
      //    $1 = PyFloat_AsDouble($input); }   }

      //%typemap(in) char const * { if (PyUnicode_Check($input)) {
      //    $1 = PyUnicode_AsUTF8($input); }   }

      //%typemap(in) YAPTerm { $1 = new YAPTerm(pythonToYAP($input));   PyErr_Clear(); }
      %typemap(in) YAP_Term { $1 = pythonToYAP($input);   PyErr_Clear(); }
      %typemap(in) Term {   $1 = pythonToYAP($input);   PyErr_Clear(); }
      %typemap(in) YAPTerm {   YAPTerm(($1 = pythonToYAP($input)));   PyErr_Clear(); }

      %typecheck(2) Int { $1 = PyLong_Check($input); }
      %typecheck(3) double { $1 = PyFloat_Check($input); }
      %typecheck(2) const char * { $1 = PyUnicode_Check($input); }

      %typecheck(1) Term { $1 = !PyUnicode_Check($input); }
      %typecheck(1) YAP_Term { $1 = PyUnicode_Check($input); }

      %typecheck(0) YAPTerm { $1 = !PyUnicode_Check($input); }


      %typemap(out) YAP_Term {  return $result = yap_to_python($1, false, 0, true);    }

      %typemap(out) Term {  return $result = yap_to_python($1, false, 0, true);  }

      %typemap(out) std::vector<Term> {
        size_t len = $1.size();
        $result = PyList_New(len);
        for (size_t i = 0; i< len; i++) {
          PyObject *o = yap_to_python($1[i],false,0,true);
          PyList_SetItem($result,i,o);

        }
        return $result;  }



        // Language independent exception handler

        %exception next {
          try {
            $action
            } catch (YAPError &e) {
              yap_error_number en = e.getID();
              PyObject *pyerr = PyExc_RuntimeError;

              LOCAL_Error_TYPE = YAP_NO_ERROR;
              switch (e.getErrorClass()) {
                case YAPC_NO_ERROR:
                break;
                /// bad domain, "first argument often is the predicate.
                case DOMAIN_ERROR: {
                  switch (en) {
                    case DOMAIN_ERROR_OUT_OF_RANGE:
                    pyerr = PyExc_GeneratorExit;
                    break;
                    case DOMAIN_ERROR_NOT_LESS_THAN_ZERO:
                    pyerr = PyExc_IndexError;
                    break;
                    case DOMAIN_ERROR_CLOSE_OPTION:
                    case DOMAIN_ERROR_ENCODING:
                    case DOMAIN_ERROR_PROLOG_FLAG:
                    case DOMAIN_ERROR_ABSOLUTE_FILE_NAME_OPTION:
                    case DOMAIN_ERROR_READ_OPTION:
                    case DOMAIN_ERROR_SET_STREAM_OPTION:
                    pyerr = PyExc_KeyError;
                    break;
                    case DOMAIN_ERROR_FILE_ERRORS:
                    case DOMAIN_ERROR_FILE_TYPE:
                    case DOMAIN_ERROR_IO_MODE:
                    case DOMAIN_ERROR_SOURCE_SINK:
                    case DOMAIN_ERROR_STREAM_POSITION:
                    pyerr = PyExc_IOError;
                    break;
                    default:
                    pyerr = PyExc_ValueError;
                  }
                  } break;
                  /// bad arithmetic
                  case EVALUATION_ERROR: {
                    switch (en) {
                      case EVALUATION_ERROR_FLOAT_OVERFLOW:
                      case EVALUATION_ERROR_INT_OVERFLOW:
                      pyerr = PyExc_OverflowError;
                      break;
                      case EVALUATION_ERROR_FLOAT_UNDERFLOW:
                      case EVALUATION_ERROR_UNDERFLOW:
                      case EVALUATION_ERROR_ZERO_DIVISOR:
                      pyerr = PyExc_ArithmeticError;
                      break;
                      default:
                      pyerr = PyExc_RuntimeError;
                    }
                    } break;
                    /// missing object (I/O mostly)
                    case EXISTENCE_ERROR:
                    pyerr = PyExc_NotImplementedError;
                    break;
                    /// should be bound
                    case INSTANTIATION_ERROR_CLASS:
                    pyerr = PyExc_RuntimeError;
                    break;
                    /// bad access, I/O
                    case PERMISSION_ERROR: {
                      switch (en) {
                        case PERMISSION_ERROR_INPUT_BINARY_STREAM:
                        case PERMISSION_ERROR_INPUT_PAST_END_OF_STREAM:
                        case PERMISSION_ERROR_INPUT_STREAM:
                        case PERMISSION_ERROR_INPUT_TEXT_STREAM:
                        case PERMISSION_ERROR_OPEN_SOURCE_SINK:
                        case PERMISSION_ERROR_OUTPUT_BINARY_STREAM:
                        case PERMISSION_ERROR_REPOSITION_STREAM:
                        case PERMISSION_ERROR_OUTPUT_STREAM:
                        case PERMISSION_ERROR_OUTPUT_TEXT_STREAM:
                        pyerr = PyExc_OverflowError;
                        break;
                        default:
                        pyerr = PyExc_RuntimeError;
                      }
                      } break;
                      /// something that could not be represented into a type
                      case REPRESENTATION_ERROR:
                      pyerr = PyExc_RuntimeError;
                      break;
                      /// not enough ....
                      case RESOURCE_ERROR:
                      pyerr = PyExc_RuntimeError;
                      break;
                      /// bad text
                      case SYNTAX_ERROR_CLASS:
                      pyerr = PyExc_SyntaxError;
                      break;
                      /// OS or internal
                      case SYSTEM_ERROR_CLASS:
                      pyerr = PyExc_RuntimeError;
                      break;
                      /// bad typing
                      case TYPE_ERROR:
                      pyerr = PyExc_TypeError;
                      break;
                      /// should be unbound
                      case UNINSTANTIATION_ERROR_CLASS:
                      pyerr = PyExc_RuntimeError;
                      break;
                      /// escape hatch
                      default:
                      break;
                    }
                    PyErr_SetString(pyerr, e.text().c_str());
                  }
                }

                #else

                %typemap(in) arity_t {   (jlong)($input); }

                %typecheck(2) Int { $1 = PyLong_Check($input); }
                %typecheck(3) double { $1 = PyFloat_Check($input); }
                %typecheck(2) const char * { $1 = PyUnicode_Check($input); }

                %typecheck(1) Term { $1 = !PyUnicode_Check($input); }
                %typecheck(1) YAP_Term { $1 = PyUnicode_Check($input); }

                %typecheck(0) YAPTerm { $1 = !PyUnicode_Check($input); }


                %typemap(in) jlong %{
                  $1 = (jlong)$input;
                  %}

                  %typemap(out) arity_t {  *(jlong *)&$result = $1;    }

                  // Language independent exception handler
                  // simplified version
                  %include <exception.i>

                  %exception {
                    try {
                      $action
                      } catch (const std::out_of_range& e) {
                        SWIG_exception(SWIG_IndexError, e.what());
                        } catch (const std::exception& e) {
                          SWIG_exception(SWIG_RuntimeError, e.what());
                          } catch (...) {
                            SWIG_exception(SWIG_RuntimeError, "unknown exception");
                          }
                        }


                        #endif

                        %{
                          /* Put header files here or function declarations like below */
#include "yapi.hh"

                          extern "C" {

                            #if THREADS
                            #define Yap_regp regcache
                            #endif

                            // we cannot consult YapInterface.h, that conflicts with what we
                            // declare, though
                            // it shouldn't
                          }

                          extern void init_sqlite();

                          %}

          #define X_API

                          /* turn on director wrapping Callback */
                          //%feature("director") YAPCallback;

                          %include "yapa.hh"

                          %include "yapie.hh"

                          %include "yapt.hh"

                          %include "yapdb.hh"

                          %include "yapq.hh"


                          namespace std {

                            %template(TermVector) vector<Term>;
                            %feature("novaluewrapper") vector<Term>;

                            //%template(YAPTermVector) vector<YAPTerm>;
                            //%feature("novaluewrapper") vector<YAPTerm>;
                          };


                          %init %{
                            %}