Paremetrize reference

ebin/geef.app

@@ -3,7 +3,10 @@
   {description, ""},
   {vsn, "0.0.1"},
   {modules, [
-             geef, repository, odb
+             geef,
+	     repository,
+	     odb,
+	     reference
             ]},
   {registered, []},
   {applications, [

src/reference.erl

@@ -0,0 +1,9 @@
+-module(reference, [Handle]).
+-export([resolve/0]).
+
+resolve() ->
+    case geef:reference_resolve(Handle) of
+	{ok, Ref} ->
+	    reference:new(Ref);
+	other -> other
+    end.

src/repository.erl

@@ -1,5 +1,5 @@
 -module(repository, [Handle]).
--export([path/0, workdir/0, bare/0, references/0]).
+-export([path/0, workdir/0, bare/0, references/0, odb/0, lookup/1]).
 
 path() ->
     geef:repository_get_path(Handle).
@@ -20,3 +20,11 @@ odb() ->
 	other ->
 	    other
     end.
+
+lookup(Refname) ->
+    case geef:repositiory_lookup_reference(Handle, Refname) of
+	{ok, Ref} ->
+	    reference:new(Ref);
+	other ->
+	    other
+    end.