66 lines
1.5 KiB
C
66 lines
1.5 KiB
C
#include "geef.h"
|
|
#include <string.h>
|
|
#include <git2.h>
|
|
|
|
ERL_NIF_TERM
|
|
geef_signature_new(ErlNifEnv *env, int argc, const ERL_NIF_TERM argv[])
|
|
{
|
|
ErlNifBinary name, email;
|
|
git_signature *sig;
|
|
size_t len;
|
|
int error;
|
|
unsigned int at;
|
|
|
|
if (!enif_inspect_iolist_as_binary(env, argv[0], &name))
|
|
return enif_make_badarg(env);
|
|
|
|
if (!enif_inspect_iolist_as_binary(env, argv[1], &email))
|
|
return enif_make_badarg(env);
|
|
|
|
if (argc == 3 && !enif_get_uint(env, argv[2], &at))
|
|
return enif_make_badarg(env);
|
|
|
|
if (!geef_terminate_binary(&name))
|
|
return atoms.error;
|
|
|
|
if (!geef_terminate_binary(&email)) {
|
|
enif_release_binary(&name);
|
|
return atoms.error;
|
|
}
|
|
|
|
if (argc == 3)
|
|
error = git_signature_now(&sig, (char *)name.data, (char *)email.data);
|
|
else
|
|
error = git_signature_new(&sig, (char *)name.data, (char *)email.data, at, 0);
|
|
|
|
if (error < 0)
|
|
return geef_error(env);
|
|
|
|
len = strlen(sig->name);
|
|
if (!enif_realloc_binary(&name, len))
|
|
goto on_error;
|
|
|
|
memcpy(name.data, sig->name, len);
|
|
|
|
len = strlen(sig->email);
|
|
if (!enif_realloc_binary(&email, len))
|
|
goto on_error;
|
|
|
|
memcpy(email.data, sig->email, len);
|
|
git_signature_free(sig);
|
|
|
|
if (argc == 3)
|
|
return enif_make_tuple3(env, atoms.ok, enif_make_binary(env, &name), enif_make_binary(env, &email));
|
|
|
|
return enif_make_tuple5(env, atoms.ok,
|
|
enif_make_binary(env, &name), enif_make_binary(env, &email),
|
|
enif_make_ulong(env, sig->when.time), enif_make_uint(env, sig->when.offset));
|
|
|
|
on_error:
|
|
git_signature_free(sig);
|
|
enif_release_binary(&name);
|
|
enif_release_binary(&email);
|
|
|
|
return atoms.error;
|
|
}
|