package binaryen

  1. Overview
  2. Docs

Source file import.ml

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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
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);
    |]

(* TODO: Check this bool conversion *)
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);
    |]

(* TODO: Check this bool conversion *)
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);
    |]

let function_import_get_module func =
  let func_info =
    meth_call global##.binaryen "getFunctionInfo" [| inject func |]
  in
  to_string (get func_info "module")

let global_import_get_module global_ =
  let global_info =
    meth_call global##.binaryen "getGlobalInfo" [| inject global_ |]
  in
  to_string (get global_info "module")

let function_import_get_base func =
  let func_info =
    meth_call global##.binaryen "getFunctionInfo" [| inject func |]
  in
  to_string (get func_info "base")

let global_import_get_base global_ =
  let global_info =
    meth_call global##.binaryen "getGlobalInfo" [| inject global_ |]
  in
  to_string (get global_info "base")
OCaml

Innovation. Community. Security.