Datascript_melange_storage (datascript-ocaml-melange.Datascript_melange

module Ds = Datascript

module PSet = Persistent_sorted_set

module Transit = Transit_melange.Transit.Json

val schema_attr_default : Ds.schema_attr

val string_of_transit_key : Transit.value -> string option

val keyword_of_transit : Transit.value -> string option

val bool_of_transit : Transit.value -> bool option

val string_of_transit : Transit.value -> string option

val int_of_transit_value : Transit.value -> int option

val lookup_transit_key : 
  Stdlib.String.t ->
  (Transit.value * 'a) list ->
  'a option

val transit_of_cardinality : Ds.cardinality -> Transit.value

val cardinality_of_transit : Transit.value -> Ds.cardinality

val transit_of_unique : Ds.unique -> Transit.value

val unique_of_transit : Transit.value -> Ds.unique option

val transit_of_value_type : Ds.value_type -> Transit.value

val value_type_of_transit : Transit.value -> Ds.value_type option

val transit_of_ref_type : PSet.ref_type -> Transit.value

val ref_type_of_transit : Transit.value -> PSet.ref_type

val address_to_transit : string -> Transit.value

val address_of_transit : string -> Transit.value -> string

val transit_of_tuple_attrs : string list -> Transit.value

val transit_of_tuple_types : Ds.value_type list -> Transit.value

val schema_attr_to_transit : 
  ident_backed:bool ->
  Ds.schema_attr ->
  string ->
  Transit.value

val schema_to_transit : 
  ?eids:??? ->
  (Stdlib.String.t * Ds.schema_attr) list ->
  Transit.value

val tuple_attrs_of_transit : Transit.value -> string list option

val tuple_types_of_transit : Transit.value -> Ds.value_type list option

val schema_attr_of_transit : Transit.value -> Ds.schema_attr

val schema_of_transit : Transit.value -> (string * Ds.schema_attr) list

val schema_eids_of_transit : Transit.value -> (int * string) list

val value_to_transit : Ds.value -> Transit.value

val value_of_transit : Transit.value -> Ds.value

val datom_to_transit : Ds.datom -> Transit.value

val int_of_transit : string -> Transit.value -> int

val datom_of_transit : Transit.value -> Ds.datom

val datoms_to_transit : Ds.datom list -> Transit.value

val datoms_of_transit : Transit.value -> Ds.datom list

val index_metadata_to_transit : Ds.storage_index_metadata -> Transit.value

val optional_metadata_entry : 
  string ->
  Ds.storage_index_metadata option ->
  (Transit.value * Transit.value) list

val storage_root_to_transit : Ds.storage_root -> Transit.value

val storage_node_to_transit : Ds.datom PSet.stored_node -> Transit.value

val storage_tail_to_transit : Ds.datom list list -> Transit.value

val payload_to_transit : Ds.storage_payload -> Transit.value

val require_key : Stdlib.String.t -> (Transit.value * 'a) list -> 'a

val optional_datoms : 
  Stdlib.String.t ->
  (Transit.value * Transit.value) list ->
  Ds.datom list

val index_metadata_of_transit : 
  (Transit.value * Transit.value) list ->
  Ds.storage_index_metadata option

val optional_metadata : 
  Stdlib.String.t ->
  (Transit.value * Transit.value) list ->
  Ds.storage_index_metadata option

val storage_root_of_transit : 
  (Transit.value * Transit.value) list ->
  Ds.storage_root

val child_addresses_of_transit : Transit.value -> string list

val storage_node_of_transit : 
  (Transit.value * Transit.value) list ->
  Ds.datom PSet.stored_node

val storage_tail_of_transit : Transit.value -> Ds.datom list list

val payload_of_transit : Transit.value -> Ds.storage_payload

module Raw : sig ... end

val raw_jsobject : Raw.t -> Raw.t Js.Dict.t

val raw_uint8_string : Raw.t -> string

val keyword_name_of : string -> string

val is_raw_date : Raw.t -> bool

val int_of_raw_opt : Raw.t -> int option

val int_of_raw : string -> Raw.t -> int

val value_of_raw : Raw.t -> Ds.value

val raw_map_value : Raw.t -> Ds.value

val raw_set_value : Raw.t -> Ds.value

val raw_list_value : Raw.t -> Ds.value

val raw_tagged_value : Raw.t -> Ds.value

val datom_of_raw : Raw.t -> Ds.datom

val datoms_of_raw : string -> Raw.t -> Ds.datom array

val raw_address_of : Raw.t -> Ds.storage_address

val raw_map_entries : Raw.t -> (string * Raw.t) list

val lookup_raw_key : 
  Stdlib.String.t ->
  (Stdlib.String.t * 'a) list ->
  'a option

exception Raw_payload_fallback

val payload_of_raw_opt : Raw.t -> Ds.storage_payload option

val encode : Ds.storage_payload -> string

val raw_reader : unit -> Raw.reader

val decode : string -> Ds.storage_payload