Add field 'mtlhash' to the database, for get-proof-by-hash.

Also, in db:
Add field 'mtlhash' to record 'plop'. Rename 'hash' -> 'entryhash'.
Add leaf_hash(), calculating a leaf hash from data.
Fix a bug where print_tree() print half a byte of the hashes.
Rename tree_hash() -> root().

Closes CATLFISH-3.

1 files changed, 6 insertions, 2 deletions

diff --git a/src/db.hrl b/src/db.hrl
index 3914a8c..b5ceb2e 100644
--- a/src/db.hrl
+++ b/src/db.hrl
@@ -2,10 +2,14 @@
 %%% See LICENSE for licensing information.
 
 %% @doc What's stored in the database.
-%% 'index' is the primary key, 'hash' is also indexed.
+%% 'index' is the primary key, 'entryhash' and 'mtlhash' are also
+%% indexed, see init_tables/1.
+%% NOTE: Don't change anything here without also fixing
+%% select_index/2, which depends on the order of fields.
 -record(plop, {
           index :: non_neg_integer(),           % Primary key.
-          hash :: binary(),          % Hash over #plop_entry{} in mtl.
+          entryhash :: binary(),     % Hash over #plop_entry{} in mtl.
+          mtlhash :: binary(),       % Merkle Tree Leaf hash.
           mtl :: mtl(),              % Merkle Tree Leaf.
           spt :: spt()               % Signed Plop Timestamp.
          }).