32 lines
514 B
OpenEdge ABL
32 lines
514 B
OpenEdge ABL
/* example.i */
|
|
%module(directors="1") yap
|
|
|
|
%{
|
|
/* Put header files here or function declarations like below */
|
|
|
|
#define YAP_CPP_INTERFACE 1
|
|
|
|
extern "C" {
|
|
|
|
#include "yapi.hh"
|
|
|
|
extern Term Yap_StringToTerm(const char *s, size_t len, term_t bindings);
|
|
|
|
#if THREADS
|
|
#define Yap_regp regcache
|
|
#endif
|
|
|
|
// we cannot consult YapInterface.h, that conflicts with what we declare, though
|
|
// it shouldn't
|
|
}
|
|
|
|
%}
|
|
|
|
|
|
/* turn on director wrapping Callback */
|
|
%feature("director") YAPCallback;
|
|
|
|
|
|
%include "yapi.hh"
|
|
|