Raw_context.Tree
Tree
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 := value
val mem : tree -> key -> bool Mavryk_protocol_environment_001_PtAtLas.Lwt.t
mem 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_001_PtAtLas.Lwt.t
mem_tree t k
is like mem
but for trees.
val get :
tree ->
key ->
value Mavryk_protocol_environment_001_PtAtLas.Error_monad.tzresult
Mavryk_protocol_environment_001_PtAtLas.Lwt.t
get 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_001_PtAtLas.Error_monad.tzresult
Mavryk_protocol_environment_001_PtAtLas.Lwt.t
get_tree
is like get
but for trees.
val find :
tree ->
key ->
value option Mavryk_protocol_environment_001_PtAtLas.Lwt.t
find 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_001_PtAtLas.Lwt.t
find_tree t k
is like find
but for trees.
val list :
tree ->
?offset:int ->
?length:int ->
key ->
(string * tree) list Mavryk_protocol_environment_001_PtAtLas.Lwt.t
list 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_001_PtAtLas.Error_monad.tzresult
Mavryk_protocol_environment_001_PtAtLas.Lwt.t
init 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_001_PtAtLas.Error_monad.tzresult
Mavryk_protocol_environment_001_PtAtLas.Lwt.t
init_tree
is like init
but for trees.
val update :
tree ->
key ->
value ->
tree Mavryk_protocol_environment_001_PtAtLas.Error_monad.tzresult
Mavryk_protocol_environment_001_PtAtLas.Lwt.t
update 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_001_PtAtLas.Error_monad.tzresult
Mavryk_protocol_environment_001_PtAtLas.Lwt.t
update_tree
is like update
but for trees.
val add :
tree ->
key ->
value ->
tree Mavryk_protocol_environment_001_PtAtLas.Lwt.t
add 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_001_PtAtLas.Lwt.t
add_tree
is like add
but for trees.
val remove : tree -> key -> tree Mavryk_protocol_environment_001_PtAtLas.Lwt.t
remove 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_001_PtAtLas.Error_monad.tzresult
Mavryk_protocol_environment_001_PtAtLas.Lwt.t
remove_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_001_PtAtLas.Error_monad.tzresult
Mavryk_protocol_environment_001_PtAtLas.Lwt.t
remove_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_001_PtAtLas.Lwt.t
add_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_001_PtAtLas.Lwt.t
add_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_001_PtAtLas.Lwt.t) ->
'a Mavryk_protocol_environment_001_PtAtLas.Lwt.t
fold ?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.config
config t
is t
's hash configuration.
val length : tree -> key -> int Mavryk_protocol_environment_001_PtAtLas.Lwt.t
length 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 -> bool
is_empty t
is true iff t
is empty _
.
val kind : tree -> Raw_context_intf.Kind.t
kind t
is t
's kind. It's either a tree node or a leaf value.
val to_value :
tree ->
value option Mavryk_protocol_environment_001_PtAtLas.Lwt.t
to_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_001_PtAtLas.Context_hash.t
hash t
is t
's Merkle hash.
val clear : ?depth:int -> tree -> unit
clear ?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.