diff options
Diffstat (limited to 'src/ts.erl')
-rw-r--r-- | src/ts.erl | 17 |
1 files changed, 12 insertions, 5 deletions
@@ -9,7 +9,10 @@ -export_type([tree_store/0]). -export([new/0, add/3, delete/2, retrieve/2, count/2]). --record(tree_store, {layers :: array:array(array:array(binary()))}). % array of arrays, keyed on layer. +%% #tree_store{} has one member, layers, holding an array of arrays +%% with binaries, keyed on layer. +%% TODO R17: -record(tree_store, {layers :: array:array(array:array(binary()))}). +-record(tree_store, {layers}). -type tree_store() :: #tree_store{}. %%%%%%%%%%%%%%%%%%%% @@ -44,18 +47,22 @@ count(#tree_store{layers = Layers}, Layer) -> %%%%%%%%%%%%%%%%%%%% %% Private. --spec layer_ro(array:array(array:array(binary())), non_neg_integer()) -> array:array(binary). +%% TODO: R17 +%% -spec layer_ro(array:array(array:array(binary())), non_neg_integer()) -> +%% array:array(binary). layer_ro(Layers, Layer) -> case array:get(Layer, Layers) of undefined -> array:new(); - List -> List + Array -> Array end. --spec layer_rw(array:array(array:array(binary())), non_neg_integer()) -> {array:array(), array:array(binary)}. +%% TODO: R17 +%% -spec layer_rw(array:array(array:array(binary())), non_neg_integer()) -> +%% {array:array(), array:array(binary)}. layer_rw(Layers, Layer) -> case array:get(Layer, Layers) of undefined -> {array:set(Layer, array:new(), Layers), array:new()}; - List -> {Layers, List} + Array -> {Layers, Array} end. %%%%%%%%%%%%%%%%%%%% |