diff options
| -rw-r--r-- | src/ht.erl | 19 |
1 files changed, 11 insertions, 8 deletions
@@ -14,8 +14,7 @@ -type inner() :: #inner{}. -export_type([head/0, tree/0, inner/0, leaf/0]). --export([create/0, append/2, tree_hash/1, tree_version/1, - audit_path/2]). +-export([create/0, append/2, tree_hash/1, size/1, audit_path/2]). %% Public interface. -spec create() -> head(). @@ -31,12 +30,9 @@ tree_hash(#head{tree=T}) -> #leaf{hash=H} -> H end. -%% @doc Tree version number, i.e. number of leafs in tree. Note that -%% this is set off by one (one higher) compared with the history tree -%% version as explained by Crosby and Wallach. --spec tree_version(head()) -> non_neg_integer(). -tree_version(#head{version=Ver}) -> - Ver. +-spec size(head()) -> non_neg_integer(). +size(Head) -> + tree_version(Head). %% @doc Append Leaf to Head. %% @@ -87,6 +83,13 @@ audit_path(Head, Index) -> %%%%%%%%%%%%%%%%%%%% %% Private functions. +%% @doc Tree version number, i.e. number of leafs in tree. Note that +%% this is set off by one (one higher) compared with the history tree +%% version as explained by Crosby and Wallach. +-spec tree_version(head()) -> non_neg_integer(). +tree_version(#head{version=Ver}) -> + Ver. + -spec mkhead(non_neg_integer(), tree()) -> head(); (head(), list()) -> head(). mkhead(Version, Tree) when is_integer(Version) -> |