feat: Add bindings for exception handling (try/catch/throw/rethrow)

src/dune

@@ -15,6 +15,7 @@
    export
    global
    table
+   tag
    memory
    module_feature
    module
@@ -37,6 +38,7 @@
    export.js
    global.js
    table.js
+   tag.js
    memory.js
    module_feature.js
    module.js

src/export.c

@@ -48,6 +48,16 @@ caml_binaryen_add_global_export(value _module, value _internalName, value _exter
   CAMLreturn(alloc_BinaryenExportRef(exp));
 }
 
+CAMLprim value
+caml_binaryen_add_tag_export(value _module, value _internalName, value _externalName) {
+  CAMLparam3(_module, _internalName, _externalName);
+  BinaryenModuleRef module = BinaryenModuleRef_val(_module);
+  char* internalName = Safe_String_val(_internalName);
+  char* externalName = Safe_String_val(_externalName);
+  BinaryenExportRef exp = BinaryenAddTagExport(module, internalName, externalName);
+  CAMLreturn(alloc_BinaryenExportRef(exp));
+}
+
 CAMLprim value
 caml_binaryen_get_export(value _module, value _externalName) {
   CAMLparam2(_module, _externalName);

src/export.js

@@ -50,6 +50,19 @@ function caml_binaryen_add_global_export(
   );
 }
 
+//Provides: caml_binaryen_add_tag_export
+//Requires: caml_jsstring_of_string
+function caml_binaryen_add_tag_export(
+  wasm_mod,
+  internal_name,
+  external_name
+) {
+  return wasm_mod.addTagExport(
+    caml_jsstring_of_string(internal_name),
+    caml_jsstring_of_string(external_name)
+  );
+}
+
 //Provides: caml_binaryen_get_export
 //Requires: caml_jsstring_of_string
 function caml_binaryen_get_export(wasm_mod, external_name) {

src/export.ml

@@ -16,6 +16,10 @@ external add_global_export : Module.t -> string -> string -> t
   = "caml_binaryen_add_global_export"
 (** Module, internal name, external name. *)
 
+external add_tag_export : Module.t -> string -> string -> t
+  = "caml_binaryen_add_tag_export"
+(** Module, internal name, external name. *)
+
 external get_export : Module.t -> string -> t = "caml_binaryen_get_export"
 
 external remove_export : Module.t -> string -> unit

src/export.mli

@@ -4,6 +4,7 @@ val add_function_export : Module.t -> string -> string -> t
 val add_table_export : Module.t -> string -> string -> t
 val add_memory_export : Module.t -> string -> string -> t
 val add_global_export : Module.t -> string -> string -> t
+val add_tag_export : Module.t -> string -> string -> t
 val get_export : Module.t -> string -> t
 val remove_export : Module.t -> string -> unit
 val get_num_exports : Module.t -> int