This repository has been archived on 2023-08-20. You can view files and clone it, but cannot push or open issues or pull requests.
yap-6.3/packages/swig/yap.i

325 lines
11 KiB
OpenEdge ABL
Raw Normal View History

2017-07-25 01:10:44 +01:00
// supports Java and Python
2017-06-14 12:34:12 +01:00
2014-04-28 11:57:09 +01:00
/* example.i */
2016-09-21 20:29:31 +01:00
%module(directors = "1") yap
2014-04-28 11:57:09 +01:00
2017-09-06 01:09:46 +01:00
// Language independent exception handler
2016-09-27 18:28:54 +01:00
%include exception.i
2016-07-31 17:36:51 +01:00
%include stdint.i
2017-05-27 22:54:00 +01:00
%include std_string.i
2017-06-05 13:06:12 +01:00
%include std_vector.i
2017-09-06 01:09:46 +01:00
%feature("novaluewrapper") std::vector<Term>;
2016-07-31 17:36:51 +01:00
%ignore *::operator[];
2016-07-31 17:36:51 +01:00
2017-09-06 01:09:46 +01:00
class YAPAtom;
class YAPPredicate;
class YAPEngine;
2016-12-10 07:01:10 +00:00
%{
2016-12-10 07:01:10 +00:00
2017-09-06 01:09:46 +01:00
#include <cmath>
#include <gmpxx.h>
2016-12-10 07:01:10 +00:00
2017-09-06 01:09:46 +01:00
extern "C"{
#include "Yap.h"
#ifdef SWIGPYTHON
#include <py4yap.h>
2016-07-31 17:36:51 +01:00
2017-09-06 01:09:46 +01:00
extern inline PyObject *AtomToPy(const char *s) {
if (strcmp(s, "true") == 0)
return Py_True;
2017-09-06 01:09:46 +01:00
if (strcmp(s, "false") == 0)
return Py_False;
2017-09-06 01:09:46 +01:00
if (strcmp(s, "none") == 0)
return Py_None;
2017-09-06 01:09:46 +01:00
if (strcmp(s, "[]") == 0)
return PyList_New(0);
2017-09-06 01:09:46 +01:00
else if (strcmp(s, "{}") == 0)
return PyDict_New();
2017-09-06 01:09:46 +01:00
/* return __main__,s */
else if (PyObject_HasAttrString(py_Main, s)) {
return PyObject_GetAttrString(py_Main, s);
}
// no way to translate
return NULL;
}
2017-09-06 01:09:46 +01:00
#endif
}
2017-09-06 01:09:46 +01:00
%}
#ifdef SWIGPYTHON
2017-09-06 01:09:46 +01:00
%typemap(typecheck) Term* {
$1 = PySequence_Check($input);
}
2017-09-06 01:09:46 +01:00
// 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];
2016-09-21 20:29:31 +01:00
}
}
2017-07-25 01:10:44 +01:00
2017-09-06 01:09:46 +01:00
//%typemap(check) YAPEngine::fun(Term) { $1 = 1; }
//%typemap(check) YAPEngine::fun(YAPTerm) { $1 = 0; }
2017-07-25 01:10:44 +01:00
2017-09-06 01:09:46 +01:00
%typemap(in) Int { if (PyLong_Check($input)) {
$1 = PyLong_AsLong($input);}
}
2014-04-28 11:57:09 +01:00
2017-09-06 01:09:46 +01:00
//%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"
2015-02-09 01:53:28 +00:00
2017-09-06 01:09:46 +01:00
extern "C" {
2015-02-09 01:53:28 +00:00
2017-09-06 01:09:46 +01:00
#if THREADS
#define Yap_regp regcache
#endif
2017-07-25 01:10:44 +01:00
2017-09-06 01:09:46 +01:00
// we cannot consult YapInterface.h, that conflicts with what we
// declare, though
// it shouldn't
}
2017-07-25 01:10:44 +01:00
2017-09-06 01:09:46 +01:00
extern void init_sqlite();
2017-07-25 01:10:44 +01:00
2017-09-06 01:09:46 +01:00
%}
2016-07-31 17:36:51 +01:00
2017-09-06 01:09:46 +01:00
#define X_API
2016-07-31 17:36:51 +01:00
2017-09-06 01:09:46 +01:00
/* turn on director wrapping Callback */
//%feature("director") YAPCallback;
2016-07-31 17:36:51 +01:00
2017-09-06 01:09:46 +01:00
%include "yapa.hh"
2017-09-06 01:09:46 +01:00
%include "yapie.hh"
2017-09-06 01:09:46 +01:00
%include "yapt.hh"
2017-09-06 01:09:46 +01:00
%include "yapdb.hh"
2017-09-06 01:09:46 +01:00
%include "yapq.hh"
2017-07-25 01:10:44 +01:00
2017-09-06 01:09:46 +01:00
namespace std {
2017-07-25 01:10:44 +01:00
2017-09-06 01:09:46 +01:00
%template(TermVector) vector<Term>;
%feature("novaluewrapper") vector<Term>;
2017-07-25 01:10:44 +01:00
2017-09-06 01:09:46 +01:00
//%template(YAPTermVector) vector<YAPTerm>;
//%feature("novaluewrapper") vector<YAPTerm>;
};
2017-07-25 01:10:44 +01:00
2017-09-06 01:09:46 +01:00
%init %{
%}