ezjs_idb 0.1 · OCaml Package

module Types : sig ... end

type mode =

| READONLY
| READWRITE
| VERSIONCHANGE

type direction =

| NEXT
| PREV
| NEXTUNIQUE
| PREVUNIQUE

type db_options = {

key_path : string option;
auto_increment : bool option;

}

type db_upgrade = {

old_version : int;
new_version : int;

}

type index_options = {

unique : bool option;
multi_entry : bool option;
locale : bool option;

}

module type Tr_sig = sig ... end

val str_of_mode : mode -> Ezjs_min.js_string Ezjs_min.t

val str_of_direction : direction -> Ezjs_min.js_string Ezjs_min.t

val iDBKeyRange : Ezjs_min.Unsafe.any Types.iDBKeyRange Ezjs_min.t

val indexedDB : Ezjs_min.js_string Ezjs_min.t Types.iDBFactory Ezjs_min.t

val result : 
  < result : < get : 'res.. > Js_of_ocaml.Js.gen_prop.. > Js_of_ocaml.Js.t ->
  'res

val wrap : 
  ?error:('a Js_of_ocaml__Js.t -> unit) ->
  ?callback:('b -> 'c) ->
  < onerror : 
    < set : 
      ('a Js_of_ocaml__Js.t, 'd -> unit) Ezjs_min.meth_callback Ezjs_min.AOpt.t ->
      unit.. >
      Js_of_ocaml.Js.gen_prop
    ; onsuccess : 
      < set : 
        (< result : < get : 'b.. > Js_of_ocaml.Js.gen_prop.. > Js_of_ocaml.Js.t,
          'e ->
          'c)
          Ezjs_min.meth_callback
          Ezjs_min.AOpt.t ->
        unit.. >
        Js_of_ocaml.Js.gen_prop.. >
    Js_of_ocaml.Js.t
    Lazy.t ->
  unit

val wrapf : 
  ?error:('a Js_of_ocaml__Js.t -> unit) ->
  ?callback:('b -> 'c) ->
  ('d -> 'b) ->
  < onerror : 
    < set : 
      ('a Js_of_ocaml__Js.t, 'e -> unit) Ezjs_min.meth_callback Ezjs_min.AOpt.t ->
      unit.. >
      Js_of_ocaml.Js.gen_prop
    ; onsuccess : 
      < set : 
        (< result : < get : 'd.. > Js_of_ocaml.Js.gen_prop.. > Js_of_ocaml.Js.t,
          'f ->
          'c)
          Ezjs_min.meth_callback
          Ezjs_min.AOpt.t ->
        unit.. >
        Js_of_ocaml.Js.gen_prop.. >
    Js_of_ocaml.Js.t
    Lazy.t ->
  unit

val db_upgrade_event : Types.iDBVersionChangeEvent Ezjs_min.t -> db_upgrade

val openDB : 
  ?upgrade:(Types.iDBDatabase Ezjs_min.t -> db_upgrade -> unit) ->
  ?error:
    ((unit, Types.iDBDatabase Ezjs_min.t) Types.iDBRequest Ezjs_min.t -> unit) ->
  ?version:int ->
  string ->
  (Types.iDBDatabase Ezjs_min.t -> unit) ->
  unit

val transaction : 
  < transaction : 
    < get : 'a Types.iDBTransaction Ezjs_min.t.. > Js_of_ocaml.Js.gen_prop.. >
    Js_of_ocaml.Js.t ->
  'a Types.iDBTransaction Ezjs_min.t

val create_db_options : db_options -> Types.create_db_options Ezjs_min.t

val create_store : 
  ?options:db_options ->
  Types.iDBDatabase Ezjs_min.t ->
  string ->
  'a Js_of_ocaml__Js.t

val get_store : 
  ?mode:mode ->
  Types.iDBDatabase Ezjs_min.t ->
  string ->
  ('a, 'b) Types.iDBObjectStore Ezjs_min.t

module Store (K : Tr_sig) (D : Tr_sig) : sig ... end

module NoTr (S : sig ... end) : Tr_sig with type t = S.t and type js = S.t

module IntTr : Tr_sig with type js = int and type t = int

module StringTr : 
  Tr_sig with type js = Ezjs_min.js_string Ezjs_min.t and type t = string

module NumberTr : 
  Tr_sig with type js = Ezjs_min.number Ezjs_min.t and type t = float

module DateTr : 
  Tr_sig with type js = Ezjs_min.date Ezjs_min.t and type t = string

package ezjs_idb