/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

  1. (* purpose: to receive the hello A method from Imports_a exposed through
  2. * a B object derived from A *)
  3. open Swig
  4. open Imports_a
  5. open Imports_b
  6. let x = new_B C_void
  7. (* Tests conversion of x to a generic value *)
  8. let a = swig_val `unknown x
  9. let _ = (invoke x) "hello" C_void