[OCaml] Fix a bug in the ctors of director classes

If a class was given the director feature, it was not possible
to use ctors with multiple parameters.

Add director_default_runme.ml (it is based on
director_default_runme.java).
This commit is contained in:
Zackery Spytz 2019-02-05 13:35:43 -07:00
commit 828ce477c8
5 changed files with 45 additions and 6 deletions

View file

@ -44,6 +44,13 @@ let _ = Callback.register "swig_runmethod" invoke
let fnhelper arg =
match arg with C_list l -> l | C_void -> [] | _ -> [ arg ]
let director_core_helper fnargs =
try
match List.hd fnargs with
| C_director_core (o,r) -> fnargs
| _ -> C_void :: fnargs
with Failure _ -> C_void :: fnargs
let rec get_int x =
match x with
C_bool b -> if b then 1 else 0