Allow creation of refs

src/geef_nif.erl

@@ -2,7 +2,7 @@
 %%% NIF functions, not to be used directly.
 
 -module(geef_nif).
--export([reference_list/1,
+-export([reference_list/1, reference_create/5,
 	 reference_to_id/2, reference_glob/2, reference_lookup/2, reference_resolve/1,
 	 reference_target/1, reference_type/1, odb_object_exists/2, odb_write/3]).
 
@@ -60,6 +60,9 @@ repository_discover(_Path) ->
 reference_list(_Repo) ->
     nif_error(?LINE).
 
+reference_create(_Repo, _Refname, _Type, _Target, _Force) ->
+    ?NIF_FN.
+
 reference_to_id(_Repo, _Refname) ->
     nif_error(?LINE).
 

src/geef_ref.erl

@@ -1,6 +1,6 @@
 -module(geef_ref).
 
--export([lookup/2, resolve/1, target/1, name_to_id/2]).
+-export([lookup/2, resolve/1, target/1, name_to_id/2, create/4]).
 
 -include("geef_records.hrl").
 
@@ -16,6 +16,12 @@ new(Handle) ->
 	     end,
     #ref{handle=Handle, type=Type, target=Target}.
 
+-spec create(pid(), iolist(), oid() | binary(), boolean()) -> {ok, ref()} | {error, term()}
+.
+create(Repo, Refname, Target, Force) ->
+    {ok, Ref} = geef_repo:create_reference(Repo, Refname, Target, Force),
+    {ok, new(Ref)}.
+
 -spec lookup(pid(), iolist()) -> {ok, ref()} | {error, term()}.
 lookup(Repo, Refname) ->
     case geef_repo:lookup_reference(Repo, Refname) of

src/geef_repo.erl

@@ -16,7 +16,7 @@
 
 %% 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, revwalk/1, stop/1, handle/1]).
+	 lookup_object/2, lookup_reference/2, create_reference/4, revwalk/1, stop/1, handle/1]).
 
 -include("geef_records.hrl").
 -record(state, {handle}).
@@ -85,6 +85,10 @@ lookup_object(Pid, Oid) ->
 lookup_reference(Pid, Name) ->
     gen_server:call(Pid, {lookup_reference, Name}).
 
+%% @private
+create_reference(Pid, Name, Target, Force) ->
+    gen_server:call(Pid, {create_reference, Name, Target, Force}).
+
 %% @doc Create a revision walker for the given repository.
 revwalk(Pid) ->
     gen_server:call(Pid, revwalk).
@@ -127,6 +131,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({create_reference, Name, Target, Force}, _From, State = #state{handle=Handle}) ->
+    Reply = handle_create_reference(Handle, Name, Target, Force),
+    {reply, Reply, State};
 handle_call(stop, _From, State) ->
     {stop, normal, ok, State};
 handle_call(revwalk, _From, State = #state{handle=Handle}) ->
@@ -182,3 +189,8 @@ handle_revwalk(Handle) ->
 	Error ->
 	    Error
     end.
+
+handle_create_reference(Repo, Refname, #oid{oid=Oid}, Force) ->
+     geef_nif:reference_create(Repo, Refname, oid, Oid, Force);
+handle_create_reference(Repo, Refname, Target, Force) ->
+    geef_nif:reference_create(Repo, Refname, symbolic, Target, Force).