11 lines
276 B
OCaml
11 lines
276 B
OCaml
|
(* purpose: to receive the hello A method from Imports_a exposed through
|
||
|
|
* a B object derived from A *)
|
||
|
|
|
||
|
|
open Swig
|
||
|
|
open Imports_a
|
||
|
|
open Imports_b
|
||
|
|
let x = new_B C_void
|
||
|
|
(* Tests conversion of x to a generic value *)
|
||
|
|
let a = swig_val `unknown x
|
||
|
|
let _ = (invoke x) "hello" C_void
|