diff options
author | Linus Nordberg <linus@nordberg.se> | 2014-09-10 14:01:02 +0200 |
---|---|---|
committer | Linus Nordberg <linus@nordberg.se> | 2014-09-10 14:01:02 +0200 |
commit | 8c87e99fbfab0ab26c73f42be40e8b1a3ae6a181 (patch) | |
tree | 8e27a86969fe60a09b2d2b84c6af4621efa2f2dc /src/ts.erl | |
parent | 411fd2ab97d8c050d10db9fce5aa6c9dbefaa4d0 (diff) |
Add size/1.
Diffstat (limited to 'src/ts.erl')
-rw-r--r-- | src/ts.erl | 7 |
1 files changed, 5 insertions, 2 deletions
@@ -2,7 +2,7 @@ -module(ts). -include_lib("eunit/include/eunit.hrl"). -export_type([tree_store/0]). --export([new/0, delete/1, store/3, retrieve/2, retrieve_hash/2]). +-export([new/0, delete/1, size/1, store/3, retrieve/2, retrieve_hash/2]). %% -record(tree_store, {warm :: ets:tid(), %% frozen :: list()}). % [ets:tid()] @@ -15,7 +15,10 @@ new() -> #tree_store{table = ets:new(nil, [{read_concurrency, true}])}. delete(Store) -> - ets:delete(Store#tree_store.table). + ets:delete(Store#tree_store.table). + +size(Store) -> + ets:info(Store#tree_store.table, size). -spec store(tree_store(), tuple(), binary()) -> tree_store(). store(Store, IR, Hash) -> |