package bonsai

  1. Overview
  2. Docs
A library for building dynamic webapps, using Js_of_ocaml

Install 

dune-project
 Dependency

github.com Readme Changelog MIT License Edit opam file Versions (6)

Authors

  1. J
    Jane Street Group, LLC

Maintainers

  1. J
    Jane Street developers

Sources

v0.17.0.tar.gz
sha256=c78c4476ee6b856846e2d0941e5965009d5e1b853e564b2b1bee61202f0b1ebb

doc/src/bonsai.jsoo_weak_collections/weak_map.ml.html

Source file weak_map.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
[@@@js.dummy "!! This code has been generated by gen_js_api !!"]
[@@@ocaml.warning "-7-32-39"]

open! Js_of_ocaml
open! Gen_js_api

type ('a, 'b) t = Ojs.t

let rec t_of_js : 'a 'b. (Ojs.t -> 'a) -> (Ojs.t -> 'b) -> Ojs.t -> ('a, 'b) t =
  fun (type __a __b) (__a_of_js : Ojs.t -> __a) (__b_of_js : Ojs.t -> __b) (x2 : Ojs.t) ->
  x2

and t_to_js : 'a 'b. ('a -> Ojs.t) -> ('b -> Ojs.t) -> ('a, 'b) t -> Ojs.t =
  fun (type __a __b) (__a_to_js : __a -> Ojs.t) (__b_to_js : __b -> Ojs.t) (x1 : Ojs.t) ->
  x1
;;

let create : unit -> ('a, 'b) t =
  fun () ->
  t_of_js Obj.magic Obj.magic (Ojs.new_obj (Ojs.get_prop_ascii Ojs.global "WeakMap") [||])
;;

let set : ('a, 'b) t -> 'a -> 'b -> unit =
  fun (x7 : ('a, 'b) t) (x5 : 'a) (x6 : 'b) ->
  ignore
    (Ojs.call (t_to_js Obj.magic Obj.magic x7) "set" [| Obj.magic x5; Obj.magic x6 |])
;;

let get : ('a, 'b) t -> 'a -> 'b option =
  fun (x11 : ('a, 'b) t) (x10 : 'a) ->
  Ojs.option_of_js
    Obj.magic
    (Ojs.call (t_to_js Obj.magic Obj.magic x11) "get" [| Obj.magic x10 |])
;;

let delete : ('a, 'b) t -> 'a -> unit =
  fun (x16 : ('a, 'b) t) (x15 : 'a) ->
  ignore (Ojs.call (t_to_js Obj.magic Obj.magic x16) "delete" [| Obj.magic x15 |])
;;