12 lines
367 B
C
12 lines
367 B
C
#include <erl_nif.h>
|
|
|
|
#include "enacl.h"
|
|
|
|
ERL_NIF_TERM enacl_error_tuple(ErlNifEnv *env, char *error_atom) {
|
|
return enif_make_tuple2(env, enif_make_atom(env, "error"),
|
|
enif_make_atom(env, error_atom));
|
|
}
|
|
|
|
ERL_NIF_TERM enacl_internal_error(ErlNifEnv *env) {
|
|
return enif_raise_exception(env, enif_make_atom(env, "enacl_internal_error"));
|
|
} |