[OCaml] Fix handling of exception specifications for director classes

The OCaml module was generating invalid code for director classes
which contain methods with exception specifications. The fix is based
on some of the code in python.cxx's classDirectorMethod().

This commit fixes compilation failures for a number of director unit
tests.

Add director_exception_catches_runme.ml,
director_exception_nothrow_runme.ml, and director_ignore_runme.ml.

Examples/test-suite/ocaml/Makefile.in

@@ -22,20 +22,13 @@ cpp_enum \
 default_constructor \
 director_binary_string \
 director_enum \
-director_exception \
-director_exception_nothrow \
-director_ignore \
-director_nested \
 director_pass_by_value \
 director_primitives \
-director_protected \
 director_redefined \
 director_string \
-director_using \
 enum_thorough \
 li_windows \
 member_pointer_const \
-nested_directors \
 preproc_constants \
 smart_pointer_inherit \
 typedef_mptr \

Examples/test-suite/ocaml/director_exception_catches_runme.ml

@@ -0,0 +1,15 @@
+open Swig
+open Director_exception_catches
+
+exception CustomException of string
+
+let new_MyClass ob meth args =
+  match meth with
+    | "description" -> raise (CustomException "CustomException thrown in description().")
+    | _ -> (invoke ob) meth args
+
+let b = new_derived_object new_BaseClass (new_MyClass) '()
+try
+  ignore (_BaseClass_call_description (b)); assert false
+with CustomException s ->
+  assert (s = "CustomException thrown in description().")

Examples/test-suite/ocaml/director_exception_nothrow_runme.ml

@@ -0,0 +1,12 @@
+open Swig
+open Director_exception_nothrow
+
+let _MyBar ob meth args =
+  match meth with
+    | "pang" -> C_string "_MyBar::pang()"
+    | _ -> (invoke ob) meth args
+
+let a = new_derived_object new_Bar (_MyBar) '()
+let _ =  assert (_MyBar a "pang" '() as string = "_MyBar::pang()")
+let b = new_Bar '()
+let _ =  assert (b -> pang () as string = "Bar::pang()")

Examples/test-suite/ocaml/director_ignore_runme.ml

@@ -0,0 +1,18 @@
+open Swig
+open Director_ignore
+
+let _DIgnoresDerived ob meth args =
+  match meth with
+    | "OverloadedMethod" -> C_int 0
+    | _ -> (invoke ob) meth args
+
+let a =new_derived_object new_DIgnores (_DIgnoresDerived) '()
+let _ = assert (a -> Triple (5) as int = 15)
+
+let _DAbstractIgnoresDerived ob meth args =
+  match meth with
+    | "OverloadedMethod" -> C_int 0
+    | _ -> (invoke ob) meth args
+
+let a = new_derived_object new_DAbstractIgnores (_DAbstractIgnoresDerived) '()
+let _ = assert (a -> Quadruple (5) as int = 20)