Gecko [ casapremiada.novaexata.com.br ]

Name	Size	Permission
carray.i	3.18 KB	-rw-r--r--
class.swg	1.68 KB	-rw-r--r--
cstring.i	5.93 KB	-rw-r--r--
director.swg	2.94 KB	-rw-r--r--
ocaml.i	1.42 KB	-rw-r--r--
ocaml.swg	14.05 KB	-rw-r--r--
ocamldec.swg	5.21 KB	-rw-r--r--
ocamlkw.swg	1.04 KB	-rw-r--r--
preamble.swg	473 B	-rw-r--r--
std_common.i	531 B	-rw-r--r--
std_complex.i	1.51 KB	-rw-r--r--
std_deque.i	722 B	-rw-r--r--
std_list.i	4.22 KB	-rw-r--r--
std_map.i	2.28 KB	-rw-r--r--
std_pair.i	712 B	-rw-r--r--
std_string.i	3.13 KB	-rw-r--r--
std_vector.i	2.69 KB	-rw-r--r--
stl.i	357 B	-rw-r--r--
swig.ml	4.57 KB	-rw-r--r--
swig.mli	1.66 KB	-rw-r--r--
swigp4.ml	6.5 KB	-rw-r--r--
typecheck.i	4.59 KB	-rw-r--r--
typemaps.i	8.83 KB	-rw-r--r--
typeregister.swg	55 B	-rw-r--r--

Code Editor : ocaml.i

/* -----------------------------------------------------------------------------
 * 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>

${this.title}

Code Editor : ocaml.i