Source file table.ml

open Js_of_ocaml.Js
open Js_of_ocaml.Js.Unsafe

type t = int

let add_table wasm_mod name initial maximum tableType =
  meth_call wasm_mod "addTable"
    [| inject (string name); inject initial; inject maximum; inject tableType |]

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 |]