Add a way to look up objects

src/geef.erl

@@ -10,6 +10,9 @@
 % oid parsing
 -export([oid_fmt/1, oid_parse/1]).
 
+% objects
+-export([object_lookup/2]).
+
 -on_load(load_enif/0).
 
 hex_to_raw(_Val) ->
@@ -68,6 +71,9 @@ oid_fmt(_Oid) ->
 oid_parse(_Sha) ->
     nif_error(?LINE).
 
+object_lookup(_Repo, _Oid) ->
+    nif_error(?LINE).
+
 nif_error(Line) ->
     erlang:nif_error({nif_not_loaded,module,?MODULE,line,Line}).
 

src/geef_object.erl

@@ -0,0 +1,14 @@
+-module(geef_object).
+
+-include("geef_records.hrl").
+
+-export([lookup/2]).
+
+-spec lookup(repo(), oid()) -> object().
+lookup(#repo{handle=Repo}, #oid{oid=Oid}) ->
+    case geef:object_lookup(Repo, Oid) of
+	{ok, Type, Handle} ->
+	    #object{type=Type, handle=Handle};
+	Other ->
+	    Other
+    end.

src/geef_records.hrl

@@ -2,8 +2,10 @@
 -record(repo, {handle}).
 -record(odb, {handle}).
 -record(oid, {oid}).
+-record(object, {type :: atom(), handle}).
 
 -type ref() :: #ref{}.
 -type repo() :: #repo{}.
 -type odb() :: #odb{}.
 -type oid() :: #oid{}.
+-type object() :: #object{}.