45 lines
760 B
C
45 lines
760 B
C
#include "erl_nif.h"
|
|
|
|
static int
|
|
load(ErlNifEnv* env, void** priv, ERL_NIF_TERM load_info)
|
|
{
|
|
return 0;
|
|
}
|
|
|
|
static int
|
|
reload(ErlNifEnv* env, void** priv, ERL_NIF_TERM load_info)
|
|
{
|
|
return 0;
|
|
}
|
|
|
|
static int
|
|
upgrade(ErlNifEnv* env, void** priv, void** old_priv,
|
|
ERL_NIF_TERM load_info)
|
|
{
|
|
return 0;
|
|
}
|
|
|
|
static void
|
|
unload(ErlNifEnv* env, void* priv)
|
|
{
|
|
return;
|
|
}
|
|
|
|
static ERL_NIF_TERM
|
|
object_exists(ErlNifEnv* env, ERL_NIF_TERM a1)
|
|
{
|
|
unsigned long val;
|
|
if(!enif_get_ulong(env, a1, &val)) {
|
|
return enif_make_badarg(env);
|
|
} else {
|
|
return enif_make_ulong(env, val*2);
|
|
}
|
|
}
|
|
|
|
static ErlNifFunc geef_funcs[] =
|
|
{
|
|
{"object_exists", 1, object_exists}
|
|
};
|
|
|
|
ERL_NIF_INIT(geef, geef_funcs, load, reload, upgrade, unload)
|