src/hyper_bisect.erl

-module(hyper_bisect).
-export([new/1, get/2, set/3, fold/3]).
-behaviour(hyper_register).

new(_P) ->
    bisect:new(4, 1).

get(Index, B) ->
    case bisect:find(B, <<Index:32/integer>>) of
        not_found ->
            undefined;
        <<Value:8/integer>> ->
            {ok, Value}
    end.


set(Index, Value, B) ->
    bisect:insert(B, <<Index:32/integer>>, <<Value:8/integer>>).


fold(F, Acc, B) ->
    InterfaceF = fun (<<Index:32/integer>>, <<Value:8/integer>>, A) ->
                         F(Index, Value, A)
                 end,
    bisect:foldl(B, InterfaceF, Acc).