/tags/rel-1-3-26/SWIG/Examples/test-suite/ocaml/imports_runme.ml
OCaml | 10 lines | 6 code | 1 blank | 3 comment | 0 complexity | 4a7a51b12b85ce2da997409ee39f819f MD5 | raw file
Possible License(s): LGPL-2.1, Cube, GPL-3.0, 0BSD, GPL-2.0
1(* purpose: to receive the hello A method from Imports_a exposed through 2 * a B object derived from A *) 3 4open Swig 5open Imports_a 6open Imports_b 7let x = new_B C_void 8(* Tests conversion of x to a generic value *) 9let a = swig_val `unknown x 10let _ = (invoke x) "hello" C_void