Initial signature test

src/geef_nif.erl

@@ -148,6 +148,12 @@ index_add(_Handle, _Entry) ->
 index_clear(_Handle) ->
     ?NIF_FN.
 
+signature_new(_Name, _Email) ->
+    ?NIF_FN.
+
+signature_new(_Name, _Email, _Time) ->
+    ?NIF_FN.
+
 nif_error(Line) ->
     erlang:nif_error({nif_not_loaded,module,?MODULE,line,Line}).
 

src/geef_records.hrl

@@ -12,6 +12,7 @@
 
 -record(geef_request, {service :: atom, path :: binary(), host :: binary()}).
 -record(geef_tree_entry, {mode, type, id, name}).
+-record(geef_signature, {name :: iolist(), email :: iolist(), time :: geef_time()}).
 
 -type geef_reference() :: #geef_reference{}.
 -type geef_oid() :: #geef_oid{}.
@@ -19,3 +20,5 @@
 -type geef_index_entry() :: #geef_index_entry{}.
 -type geef_request() :: #geef_request{}.
 -type geef_tree_entry() :: #geef_tree_entry{}.
+-type geef_signature() :: #geef_signature{}.
+-type geef_time() :: {erlang:timestamp(), non_neg_integer()}.

src/geef_sig.erl

@@ -0,0 +1,24 @@
+-module(geef_sig).
+
+-include("geef_records.hrl").
+
+-export([new/2, new/3]).
+
+-spec new(iolist(), iolist()) -> geef_signature() | {error, term()}.
+new(Name0, Email0) ->
+    case geef_nif:signature_new(Name0, Email0) of
+        {ok, Name, Email, Time0, Offset} ->
+            Time = {{Time0 div 1000000, Time0 rem 1000000, 0}, Offset},
+            {ok, #geef_signature{name=Name, email=Email, time=Time}};
+        Err ->
+            Err
+    end.
+
+-spec new(iolist(), iolist(), geef_time()) ->  geef_signature() | {error, term()}.
+new(Name0, Email0, Time) ->
+    case geef_nif:signature_new(Name0, Email0, 0) of
+        {ok, Name, Email} ->
+            {ok, #geef_signature{name=Name, email=Email, time=Time}};
+        Err ->
+            Err
+    end.