bunch_native

#pragma once

#include <stdarg.h>
#include <erl_nif.h>
#include <string.h>
#include <errno.h>

#define UNUSED(x) (void)(x)

// varargs parse helpers
#define BUNCH_PARSE_ARG(position, var_name, var_def, getter_func, ...) \
  var_def; \
  if(!getter_func(env, argv[position], __VA_ARGS__)) { \
    return bunch_make_error_args(env, #var_name, #getter_func); \
  }

#define BUNCH_PARSE_UINT_ARG(position, var_name) \
  BUNCH_PARSE_ARG(position, var_name, unsigned int var_name, enif_get_uint, &var_name)

#define BUNCH_PARSE_INT_ARG(position, var_name) \
  BUNCH_PARSE_ARG(position, var_name, int var_name, enif_get_int, &var_name)

#define BUNCH_PARSE_ATOM_ARG(position, var_name, max_size) \
  BUNCH_PARSE_ARG(position, var_name, char var_name[max_size], enif_get_atom, (char *) var_name, max_size, ERL_NIF_LATIN1)

#define BUNCH_PARSE_STRING_ARG(position, var_name, max_size) \
  BUNCH_PARSE_ARG(position, var_name, char var_name[max_size], enif_get_string, (char *) var_name, max_size, ERL_NIF_LATIN1)

#define BUNCH_PARSE_BINARY_ARG(position, var_name) \
  BUNCH_PARSE_ARG(position, var_name, ErlNifBinary var_name, enif_inspect_binary, &var_name)

#define BUNCH_PARSE_RESOURCE_ARG(position, var_name, var_type, res_type) \
  var_type * var_name; \
  if(!enif_get_resource(env, argv[position], res_type, (void **) & var_name)) { \
    return bunch_make_error_args(env, #var_name, "enif_get_resource"); \
  }

#define BUNCH_PARSE_PID_ARG(position, var_name) \
  BUNCH_PARSE_ARG(position, var_name, ErlNifPid var_name, enif_get_local_pid, &var_name)


ERL_NIF_TERM bunch_make_error(ErlNifEnv* env, ERL_NIF_TERM reason);
ERL_NIF_TERM bunch_make_ok_tuple(ErlNifEnv* env, ERL_NIF_TERM arg);
ERL_NIF_TERM bunch_make_ok_tuple2(ErlNifEnv* env, ERL_NIF_TERM arg1, ERL_NIF_TERM arg2);
ERL_NIF_TERM bunch_make_ok(ErlNifEnv* env);
ERL_NIF_TERM bunch_make_todo(ErlNifEnv* env);
ERL_NIF_TERM bunch_make_error_args(ErlNifEnv* env, const char* field, const char *description);
ERL_NIF_TERM bunch_make_error_errno(ErlNifEnv* env, const char* call);
ERL_NIF_TERM bunch_make_error_internal(ErlNifEnv* env, const char* reason);