diff options
author | Linus Nordberg <linus@nordu.net> | 2014-04-26 14:24:28 +0200 |
---|---|---|
committer | Linus Nordberg <linus@nordu.net> | 2014-04-26 14:24:28 +0200 |
commit | 70d1c41ee4d44ee5ff76f2f290db87981974cac5 (patch) | |
tree | 44743c580267d9c3133fc195b1038f61109776c1 /src/ht.erl | |
parent | d8857b08117ed441825725294032a14539f880b2 (diff) |
Don't export tree_version/1 but add size/1.
Diffstat (limited to 'src/ht.erl')
-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) -> |