PageRenderTime 10ms CodeModel.GetById 4ms app.highlight 2ms RepoModel.GetById 1ms app.codeStats 0ms

/trunk/Examples/test-suite/ocaml/imports_runme.ml

#
OCaml | 10 lines | 6 code | 1 blank | 3 comment | 0 complexity | 4a7a51b12b85ce2da997409ee39f819f MD5 | raw file
 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