Bind ref name dwim

This commit is contained in:
Carlos Martín Nieto
2013-06-07 17:55:16 +02:00
parent 8244057d75
commit 042156d843
8 changed files with 81 additions and 3 deletions

View File

@@ -16,7 +16,8 @@
%% API
-export([open/1, init/2, path/1, workdir/1, odb/1, is_bare/1, references/1, discover/1,
lookup_object/2, lookup_reference/2, create_reference/4, revwalk/1, stop/1, handle/1]).
lookup_object/2, lookup_reference/2, create_reference/4, revwalk/1, stop/1,
reference_dwim/2, handle/1]).
-include("geef_records.hrl").
-record(state, {handle}).
@@ -85,6 +86,10 @@ lookup_object(Pid, Oid) ->
lookup_reference(Pid, Name) ->
gen_server:call(Pid, {lookup_reference, Name}).
%% @private
reference_dwim(Pid, Name) ->
gen_server:call(Pid, {dwim_reference, Name}).
%% @private
create_reference(Pid, Name, Target, Force) ->
gen_server:call(Pid, {create_reference, Name, Target, Force}).
@@ -131,6 +136,9 @@ handle_call({lookup_object, Oid}, _From, State = #state{handle=Handle}) ->
handle_call({lookup_reference, Name}, _From, State = #state{handle=Handle}) ->
Reply = geef_nif:reference_lookup(Handle, Name),
{reply, Reply, State};
handle_call({dwim_reference, Name}, _From, State = #state{handle=Handle}) ->
Reply = geef_nif:reference_dwim(Handle, Name),
{reply, Reply, State};
handle_call({create_reference, Name, Target, Force}, _From, State = #state{handle=Handle}) ->
Reply = handle_create_reference(Handle, Name, Target, Force),
{reply, Reply, State};