30cdeb143a
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@6409 626c5289-ae23-0410-ae9c-e8d60b6d4f22
10 lines
276 B
OCaml
10 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
|