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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
|
val mixture_of :
'a -> (('a -> Protocols.Handle.t) -> 'a -> Protocols.Handle.protocol list) -> Protocols.Handle.t
val mixture : Protocols.Handle.protocol list -> Protocols.Handle.t
module Directory : sig
val of_properties : (string * Protocols.Handle.t) list -> Protocols.Handle.protocol
val of_properties' :
(string * (unit -> (Protocols.Handle.t option, Concepts.Condition.condition) result)) list ->
Protocols.Handle.protocol
(** the names a directory lists, and what each reaches. *)
val children :
Protocols.Handle.t -> ((string * Protocols.Handle.t) list, Concepts.Condition.condition) result
module OfTree
(S : Abstract.Storage.STORAGE)
(K : Merkle.KEY with type t = string)
(V : Merkle.VALUE) : sig
module Tree : module type of Merkle.Interface (S) (K) (V)
val make :
storage:S.connection ->
constructor:(V.t -> (Protocols.Handle.t, Concepts.Condition.condition) result) ->
node:Tree.node ->
Protocols.Handle.protocol
end
end
module Associative : sig
val of_properties :
( string
* (Protocols.Handle.t option -> (Protocols.Handle.t, Concepts.Condition.condition) result) )
list ->
Protocols.Handle.protocol
val update_only :
(Protocols.Handle.t -> (Protocols.Handle.t, Concepts.Condition.condition) result) ->
Protocols.Handle.t option ->
(Protocols.Handle.t, Concepts.Condition.condition) result
(** how a value is stored once a write has begun, giving its address. *)
type 'tx admission = 'tx -> (Concepts.Hash.hash, Concepts.Condition.condition) result
(** a value with an address is stored as that address; [admit] reads
one with none, before the write begins, into an admission. *)
val admission :
(string -> Protocols.Handle.t -> ('tx admission, Concepts.Condition.condition) result) ->
string ->
Protocols.Handle.t ->
('tx admission, Concepts.Condition.condition) result
module OfTree (S : Abstract.Storage.STORAGE) (K : Merkle.KEY with type t = string) : sig
module Tree : module type of Merkle.Make (S) (K)
(** a value bound under a key is stored as its [admission]. *)
val make :
admit:
(string ->
Protocols.Handle.t ->
(S.transaction admission, Concepts.Condition.condition) result ) ->
storage:S.connection ->
constructor:(Tree.node -> (Protocols.Handle.t, Concepts.Condition.condition) result) ->
node:Tree.node ->
Protocols.Handle.protocol
end
end
module Addressable : sig
module OfTree (S : Abstract.Storage.STORAGE) (K : Merkle.KEY) : sig
module Tree : module type of Merkle.Make (S) (K)
val make : node:Tree.node -> Protocols.Handle.protocol
end
end
|
