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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
open Js_of_ocaml.Js
open Js_of_ocaml.Js.Unsafe
let add_function_import wasm_mod internal_name external_module_name
external_base_name params result =
meth_call wasm_mod "addFunctionImport"
[|
inject (string internal_name);
inject (string external_module_name);
inject (string external_base_name);
inject params;
inject result;
|]
let add_table_import wasm_mod internal_name external_module_name
external_base_name =
meth_call wasm_mod "addTableImport"
[|
inject (string internal_name);
inject (string external_module_name);
inject (string external_base_name);
|]
let add_memory_import wasm_mod internal_name external_module_name
external_base_name shared =
meth_call wasm_mod "addMemoryImport"
[|
inject (string internal_name);
inject (string external_module_name);
inject (string external_base_name);
inject (if shared then 1 else 0);
|]
let add_global_import wasm_mod internal_name external_module_name
external_base_name typ is_mut =
meth_call wasm_mod "addGlobalImport"
[|
inject (string internal_name);
inject (string external_module_name);
inject (string external_base_name);
inject typ;
inject (if is_mut then 1 else 0);
|]