1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
|
/* -----------------------------------------------------------------------------
* ocaml.i
*
* SWIG Configuration File for Ocaml
* ----------------------------------------------------------------------------- */
%runtime %{
#define SWIGSTATIC static
%}
/* Insert common stuff */
%insert(runtime) "swigrun.swg"
/* Include headers */
%insert(runtime) "ocamldec.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) "ocaml.swg"
/*#endif*/
%insert(classtemplate) "class.swg"
/* Definitions */
#define SWIG_malloc(size) swig_malloc(size, FUNC_NAME)
#define SWIG_free(mem) free(mem)
/* Read in standard typemaps. */
%include <swig.swg>
%include <typemaps.i>
%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>
|
