46f7501d94
Add Swig_obligatory_macros which must be called by each target language to define SWIG_VERSION correctly in the generated code, as well as the language specific macro SWIGXXX where XXX is the target language name. Drop the #ifdef SWIGXXX that was previously generated - I can't see the point of this and if users are defining this macro somehow, then users will need to change this Closes #1050
50 lines
1.3 KiB
OpenEdge ABL
50 lines
1.3 KiB
OpenEdge ABL
/* -----------------------------------------------------------------------------
|
|
* ocaml.i
|
|
*
|
|
* SWIG Configuration File for Ocaml
|
|
* ----------------------------------------------------------------------------- */
|
|
|
|
/* Insert common stuff */
|
|
%insert(runtime) "swigrun.swg"
|
|
|
|
/* Include headers */
|
|
%insert(runtime) "ocamlrundec.swg"
|
|
|
|
/* Type registration */
|
|
%insert(init) "swiginit.swg"
|
|
%insert(init) "typeregister.swg"
|
|
|
|
%insert(mlitail) %{
|
|
val swig_val : c_enum_type -> c_obj -> Swig.c_obj
|
|
%}
|
|
|
|
%insert(mltail) %{
|
|
let rec swig_val t v =
|
|
match v with
|
|
C_enum e -> enum_to_int t v
|
|
| C_list l -> Swig.C_list (List.map (swig_val t) l)
|
|
| C_array a -> Swig.C_array (Array.map (swig_val t) a)
|
|
| _ -> Obj.magic v
|
|
%}
|
|
|
|
/*#ifndef SWIG_NOINCLUDE*/
|
|
%insert(runtime) "ocamlrun.swg"
|
|
/*#endif*/
|
|
|
|
%insert(classtemplate) "class.swg"
|
|
|
|
/* Read in standard typemaps. */
|
|
%include <swig.swg>
|
|
%include <ocaml.swg>
|
|
%include <typecheck.i>
|
|
%include <exception.i>
|
|
%include <preamble.swg>
|
|
|
|
/* ocaml keywords */
|
|
/* There's no need to use this, because of my rewriting machinery. C++
|
|
* words never collide with ocaml keywords */
|
|
|
|
/* still we include the file, but the warning says that the offending
|
|
name will be properly renamed. Just to let the user to know about
|
|
it. */
|
|
%include <ocamlkw.swg>
|