Raw_context.TreeTree provides immutable, in-memory partial mirror of the context, with lazy reads and delayed writes. The trees are Merkle trees that carry the same hash as the part of the context they mirror.
Trees are immutable and non-persistent (they disappear if the host crash), held in memory for efficiency, where reads are done lazily and writes are done only when needed, e.g. on Context.commit. If a key is modified twice, only the last value will be written to disk on commit.
include Raw_context_intf.VIEW
with type t := tree
and type tree := tree
with type key := key
with type value := valueval mem : tree -> key -> bool Mavryk_protocol_environment_alpha.Lwt.tmem t k is an Lwt promise that resolves to true iff k is bound to a value in t.
val mem_tree : tree -> key -> bool Mavryk_protocol_environment_alpha.Lwt.tmem_tree t k is like mem but for trees.
val get :
tree ->
key ->
value Mavryk_protocol_environment_alpha.Error_monad.tzresult
Mavryk_protocol_environment_alpha.Lwt.tget t k is an Lwt promise that resolves to Ok v if k is bound to the value v in t and Storage_ErrorMissing_key otherwise.
val get_tree :
tree ->
key ->
tree Mavryk_protocol_environment_alpha.Error_monad.tzresult
Mavryk_protocol_environment_alpha.Lwt.tget_tree is like get but for trees.
val find : tree -> key -> value option Mavryk_protocol_environment_alpha.Lwt.tfind t k is an Lwt promise that resolves to Some v if k is bound to the value v in t and None otherwise.
val find_tree :
tree ->
key ->
tree option Mavryk_protocol_environment_alpha.Lwt.tfind_tree t k is like find but for trees.
val list :
tree ->
?offset:int ->
?length:int ->
key ->
(string * tree) list Mavryk_protocol_environment_alpha.Lwt.tlist t key is the list of files and sub-nodes stored under k in t. The result order is not specified but is stable.
offset and length are used for pagination.
val init :
tree ->
key ->
value ->
tree Mavryk_protocol_environment_alpha.Error_monad.tzresult
Mavryk_protocol_environment_alpha.Lwt.tinit t k v is an Lwt promise that resolves to Ok c if:
k is unbound in t;k is bound to v in c;c is similar to t otherwise.It is Storage_errorExisting_key if k is already bound in t.
val init_tree :
tree ->
key ->
tree ->
tree Mavryk_protocol_environment_alpha.Error_monad.tzresult
Mavryk_protocol_environment_alpha.Lwt.tinit_tree is like init but for trees.
val update :
tree ->
key ->
value ->
tree Mavryk_protocol_environment_alpha.Error_monad.tzresult
Mavryk_protocol_environment_alpha.Lwt.tupdate t k v is an Lwt promise that resolves to Ok c if:
k is bound in t;k is bound to v in c;c is similar to t otherwise.It is Storage_errorMissing_key if k is not already bound in t.
val update_tree :
tree ->
key ->
tree ->
tree Mavryk_protocol_environment_alpha.Error_monad.tzresult
Mavryk_protocol_environment_alpha.Lwt.tupdate_tree is like update but for trees.
val add : tree -> key -> value -> tree Mavryk_protocol_environment_alpha.Lwt.tadd t k v is an Lwt promise that resolves to c such that:
k is bound to v in c;c is similar to t otherwise.If k was already bound in t to a value that is physically equal to v, the result of the function is a promise that resolves to t. Otherwise, the previous binding of k in t disappears.
val add_tree :
tree ->
key ->
tree ->
tree Mavryk_protocol_environment_alpha.Lwt.tadd_tree is like add but for trees.
val remove : tree -> key -> tree Mavryk_protocol_environment_alpha.Lwt.tremove t k v is an Lwt promise that resolves to c such that:
k is unbound in c;c is similar to t otherwise.val remove_existing :
tree ->
key ->
tree Mavryk_protocol_environment_alpha.Error_monad.tzresult
Mavryk_protocol_environment_alpha.Lwt.tremove_existing t k v is an Lwt promise that resolves to Ok c if:
k is bound in t to a value;k is unbound in c;c is similar to t otherwise.val remove_existing_tree :
tree ->
key ->
tree Mavryk_protocol_environment_alpha.Error_monad.tzresult
Mavryk_protocol_environment_alpha.Lwt.tremove_existing_tree t k v is an Lwt promise that reolves to Ok c if:
k is bound in t to a tree;k is unbound in c;c is similar to t otherwise.val add_or_remove :
tree ->
key ->
value option ->
tree Mavryk_protocol_environment_alpha.Lwt.tadd_or_remove t k v is:
add t k x if v is Some x;remove t k otherwise.val add_or_remove_tree :
tree ->
key ->
tree option ->
tree Mavryk_protocol_environment_alpha.Lwt.tadd_or_remove_tree t k v is:
add_tree t k x if v is Some x;remove t k otherwise.val fold :
?depth:Raw_context_intf.depth ->
tree ->
key ->
order:[ `Sorted | `Undefined ] ->
init:'a ->
f:(key -> tree -> 'a -> 'a Mavryk_protocol_environment_alpha.Lwt.t) ->
'a Mavryk_protocol_environment_alpha.Lwt.tfold ?depth t root ~order ~init ~f recursively folds over the trees and values of t. The f callbacks are called with a key relative to root. f is never called with an empty key for values; i.e., folding over a value is a no-op.
The depth is 0-indexed. If depth is set (by default it is not), then f is only called when the conditions described by the parameter is true:
Eq d folds over nodes and values of depth exactly d.Lt d folds over nodes and values of depth strictly less than d.Le d folds over nodes and values of depth less than or equal to d.Gt d folds over nodes and values of depth strictly more than d.Ge d folds over nodes and values of depth more than or equal to d.If order is `Sorted (the default), the elements are traversed in lexicographic order of their keys. For large nodes, it is memory-consuming, use `Undefined for a more memory efficient fold.
val config : tree -> Raw_context_intf.configconfig t is t's hash configuration.
val length : tree -> key -> int Mavryk_protocol_environment_alpha.Lwt.tlength t key is an Lwt promise that resolves to the number of files and sub-nodes stored under k in t.
It is equivalent to let+ l = list t k in List.length l but has a constant-time complexity.
Most of the time, this function does not perform any I/O as the length is cached in the tree. It may perform one read to load the root node of the tree in case it has not been loaded already. The initial constant is the same between list and length. They both perform the same kind of I/O reads. While list usually performs a linear number of reads, length does at most one.
val is_empty : tree -> boolis_empty t is true iff t is empty _.
val kind : tree -> Raw_context_intf.Kind.tkind t is t's kind. It's either a tree node or a leaf value.
val to_value : tree -> value option Mavryk_protocol_environment_alpha.Lwt.tto_value t is an Lwt promise that resolves to Some v if t is a leaf tree and None otherwise. It is equivalent to find t
[].
val hash : tree -> Mavryk_protocol_environment_alpha.Context_hash.thash t is t's Merkle hash.
val clear : ?depth:int -> tree -> unitclear ?depth t clears all caches in the tree t for subtrees with a depth higher than depth. If depth is not set, all of the subtrees are cleared.