Add geef_index:read_tree()

src/geef_index.erl

@@ -12,7 +12,7 @@
 
 %% API
 -export([start_link/1]).
--export([new/0, write/1, write_tree/1, write_tree/2, clear/1, stop/1]).
+-export([new/0, write/1, write_tree/1, write_tree/2, clear/1, stop/1, read_tree/2]).
 
 %% gen_server callbacks
 -export([init/1, handle_call/3, handle_cast/2, handle_info/2,
@@ -48,6 +48,9 @@ write_tree(Pid) ->
 write_tree(Pid, Repo) ->
     gen_server:call(Pid, {write_tree, Repo}).
 
+read_tree(Pid, #object{type=tree, handle=TreeHandle}) ->
+    gen_server:call(Pid, {read_tree, TreeHandle}).
+
 %% @doc Clear the contents of the index.
 -spec clear(pid()) -> ok.
 clear(Pid) ->
@@ -86,7 +89,10 @@ handle_call(clear, _From, State = #state{handle=Handle}) ->
     Reply = geef_nif:index_clear(Handle),
     {reply, Reply, State};
 handle_call(stop, _From, State) ->
-    {stop, normal, ok, State}.
+    {stop, normal, ok, State};
+handle_call({read_tree, TreeHandle}, _From, State = #state{handle=Handle}) ->
+    Reply = geef_nif:index_read_tree(Handle, TreeHandle),
+    {reply, Reply, State}.
 
 %% @private
 handle_cast(_Msg, State) ->

src/geef_nif.erl

@@ -23,7 +23,8 @@
 -export([revwalk_new/1, revwalk_push/3, revwalk_next/1, revwalk_sorting/2, revwalk_reset/1]).
 
 % index
--export([index_new/0, index_write/1, index_write_tree/1, index_write_tree/2, index_clear/1]).
+-export([index_new/0, index_write/1, index_write_tree/1, index_write_tree/2,
+	 index_clear/1, index_read_tree/2]).
 
 -on_load(load_enif/0).
 
@@ -147,6 +148,9 @@ index_write_tree(_Handle) ->
 index_write_tree(_Handle, _RepoHandle) ->
     ?NIF_FN.
 
+index_read_tree(_Handle, _TreeHandle) ->
+    ?NIF_FN.
+
 index_clear(_Handle) ->
     ?NIF_FN.