@grain/binaryen.ml 0.9.1 → 0.11.2

{binaryen-archive → binaryen-archive-v0.11.2}/js/dune

@@ -10,9 +10,4 @@
   (names stubs))
  (js_of_ocaml
   (flags --no-sourcemap)
-  (javascript_files binaryen.js postlude.js)))
-
-(rule
- (target binaryen.js)
- (action
-  (copy ../vendor/js/index.es5.js binaryen.js)))
+  (javascript_files prelude.js binaryen.es5.js postlude.js)))

binaryen-archive-v0.11.2/js/element_segment.ml

@@ -0,0 +1,33 @@
+open Js_of_ocaml.Js
+open Js_of_ocaml.Js.Unsafe
+
+type t = int
+
+let get_name elem =
+  let element_segment_info =
+    meth_call global##.binaryen "getElementSegmentInfo" [| inject elem |]
+  in
+  to_string (get element_segment_info "name")
+
+let get_table elem =
+  let element_segment_info =
+    meth_call global##.binaryen "getElementSegmentInfo" [| inject elem |]
+  in
+  to_string (get element_segment_info "table")
+
+let get_offset elem =
+  let element_segment_info =
+    meth_call global##.binaryen "getElementSegmentInfo" [| inject elem |]
+  in
+  get element_segment_info "offset"
+
+let get_length elem =
+  meth_call global##.binaryen "_BinaryenElementSegmentGetLength"
+    [| inject elem |]
+
+let get_data elem index =
+  let element_segment_info =
+    meth_call global##.binaryen "getElementSegmentInfo" [| inject elem |]
+  in
+  let data_js_array = get element_segment_info "data" in
+  to_string (get data_js_array index)

binaryen-archive-v0.11.2/js/export.ml

@@ -0,0 +1,60 @@
+open Js_of_ocaml.Js
+open Js_of_ocaml.Js.Unsafe
+
+type t
+
+let add_function_export wasm_mod internal_name external_name =
+  meth_call wasm_mod "addFunctionExport"
+    [| inject (string internal_name); inject (string external_name) |]
+
+let add_table_export wasm_mod internal_name external_name =
+  meth_call wasm_mod "addTableExport"
+    [| inject (string internal_name); inject (string external_name) |]
+
+let add_memory_export wasm_mod internal_name external_name =
+  meth_call wasm_mod "addMemoryExport"
+    [| inject (string internal_name); inject (string external_name) |]
+
+let add_global_export wasm_mod internal_name external_name =
+  meth_call wasm_mod "addGlobalExport"
+    [| inject (string internal_name); inject (string external_name) |]
+
+let get_export wasm_mod external_name =
+  meth_call wasm_mod "getExport" [| inject (string external_name) |]
+
+let remove_export wasm_mod external_name =
+  meth_call wasm_mod "removeExport" [| inject (string external_name) |]
+
+let get_num_exports wasm_mod = meth_call wasm_mod "getNumExports" [||]
+
+let get_export_by_index wasm_mod index =
+  meth_call wasm_mod "getExportByIndex" [| inject index |]
+
+let get_name export =
+  let export_info =
+    meth_call global##.binaryen "getExportInfo" [| inject export |]
+  in
+  to_string (get export_info "name")
+
+let get_value export =
+  let export_info =
+    meth_call global##.binaryen "getExportInfo" [| inject export |]
+  in
+  to_string (get export_info "value")
+
+let external_function =
+  meth_call global##.binaryen "_BinaryenExternalFunction" [||]
+
+let external_table = meth_call global##.binaryen "_BinaryenExternalTable" [||]
+
+let external_memory = meth_call global##.binaryen "_BinaryenExternalMemory" [||]
+
+let external_global = meth_call global##.binaryen "_BinaryenExternalGlobal" [||]
+
+let external_event = meth_call global##.binaryen "_BinaryenExternalEvent" [||]
+
+let export_get_kind export =
+  let export_info =
+    meth_call global##.binaryen "getExportInfo" [| inject export |]
+  in
+  get export_info "kind"