1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
open Js_of_ocaml.Js
open Js_of_ocaml.Js.Unsafe
type t = int
let add_table wasm_mod name initial maximum =
meth_call wasm_mod "addTable"
[| inject (string name); inject initial; inject maximum |]
let add_active_element_segment wasm_mod table name funcnames offset =
meth_call wasm_mod "addActiveElementSegment"
[|
inject (string table);
inject (string name);
inject (array (Array.of_list (List.map string funcnames)));
inject offset;
|]
let remove_element_segment wasm_mod name =
meth_call wasm_mod "removeElementSegment" [| inject (string name) |]
let get_num_element_segments wasm_mod =
meth_call wasm_mod "getNumElementSegments" [||]
let get_element_segment wasm_mod name =
meth_call wasm_mod "getElementSegment" [| inject (string name) |]
let get_element_segment_by_index wasm_mod index =
meth_call wasm_mod "getElementSegmentByIndex" [| inject index |]