kmx git

#include <erl_nif.h>
#include <git2.h>
#include <stdlib.h>
#include <string.h>

char * enif_term_to_string (ErlNifEnv *env, const ERL_NIF_TERM term)
{
  ErlNifBinary bin;
  unsigned len;
  char *str;
  switch (enif_term_type(env, term)) {
  case ERL_NIF_TERM_TYPE_BITSTRING:
    enif_inspect_binary(env, term, &bin);
    len = bin.size;
    str = malloc(len + 1);
    memcpy(str, bin.data, len);
    str[len] = 0;
    return str;
  case ERL_NIF_TERM_TYPE_LIST:
    enif_get_list_length(env, term, &len);
    str = malloc(len + 1);
    enif_get_string(env, term, str, len + 1, ERL_NIF_LATIN1);
    return str;
  default:
    return NULL;
  }
}

ERL_NIF_TERM enif_string_to_term (ErlNifEnv *env, const char *str)
{
  size_t len = strlen(str);
  ErlNifBinary bin;
  enif_alloc_binary(len, &bin);
  memcpy(bin.data, str, len);
  return enif_make_binary(env, &bin);
}

ERL_NIF_TERM push_string (ErlNifEnv *env, const char *str, const ERL_NIF_TERM acc)
{
  ERL_NIF_TERM term = enif_string_to_term(env, str);
  return enif_make_list_cell(env, term, acc);
}

static ERL_NIF_TERM branches (ErlNifEnv *env, int argc,
                              const ERL_NIF_TERM argv[])
{
  git_repository *r = NULL;
  git_branch_iterator *i = NULL;
  git_reference *ref = NULL;
  git_branch_t ref_type = 0;
  char *branch = NULL;
  char *path = NULL;
  ERL_NIF_TERM branches;
  fprintf(stderr, "branches %d\n", argc);
  if (argc != 1 || !argv || !argv[0])
    goto error;
  path = enif_term_to_string(env, argv[0]);
  fprintf(stderr, "path: '%s'\n", path);
  if (!path || !path[0])
    goto error;
  if (git_repository_open(&r, path))
    goto error;
  git_branch_iterator_new(&i, r, GIT_BRANCH_ALL);
  branches = enif_make_list(env, 0);
  while (!git_branch_next(&ref, &ref_type, i)) {
    git_branch_name((const char **) &branch, ref);
    fprintf(stderr, " %s", branch);
    branches = push_string(env, branch, branches);
  }
  git_branch_iterator_free(i);
  free(path);
  //free(branch);
  fprintf(stderr, "\n");
  return branches;
 error:
  fprintf(stderr, "error\n");
  free(path);
  //free(branch);
  return enif_make_atom(env, "error");
}

static ErlNifFunc funcs[] = {
  {"branches_nif", 1, branches, 0},
};

int load (ErlNifEnv *env, void **a, ERL_NIF_TERM b)
{
  (void) env;
  (void) a;
  (void) b;
  fprintf(stderr, "git_nif load\n");
  git_libgit2_init();
  return 0;
}

void unload (ErlNifEnv *env, void *a)
{
  (void) env;
  (void) a;
  git_libgit2_shutdown();
  fprintf(stderr, "git_nif unload\n");
}

ERL_NIF_INIT(Elixir.Kmxgit.Git, funcs, load, NULL, NULL, unload);
kmx.io/kmxgit/c_src/git_nif.c

Commit

c_src/git_nif.c
