jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

[OCaml] Fix the dynamic_cast test

Browse source 
Add out typemaps for SWIGTYPE *DYNAMIC and SWIGTYPE &DYNAMIC.

Add dynamic_cast_runme.ml.
This commit is contained in:
Zackery Spytz 2019-02-14 02:21:36 -07:00
commit a159a252dd
2 changed files with 14 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

9
Examples/test-suite/ocaml/dynamic_cast_runme.ml Normal file
View file

@ -0,0 +1,9 @@
open Swig
open Dynamic_cast
let f = new_Foo '()
let b = new_Bar '()
let x = f -> blah ()
let y = b -> blah ()
assert (_do_test '(y) as string = "Bar::test")

5
Lib/ocaml/typemaps.i
View file

@ -307,6 +307,11 @@ SIMPLE_MAP(unsigned long long,caml_val_ulong,caml_long_val);
$2 = ($2_ltype) caml_string_len($input); $2 = ($2_ltype) caml_string_len($input);
} }
%typemap(out) SWIGTYPE *DYNAMIC, SWIGTYPE &DYNAMIC {
swig_type_info *ty = SWIG_TypeDynamicCast($1_descriptor, (void **)&$1);
$result = SWIG_Ocaml_ptr_to_val("create_$ntype_from_ptr", (void *)$1, ty);
}
/* Array reference typemaps */ /* Array reference typemaps */
%apply SWIGTYPE & { SWIGTYPE ((&)[ANY]) } %apply SWIGTYPE & { SWIGTYPE ((&)[ANY]) }
%apply SWIGTYPE && { SWIGTYPE ((&)[ANY]) } %apply SWIGTYPE && { SWIGTYPE ((&)[ANY]) }