skeleton nif that runs

This commit is contained in:
Scott Chacon
2010-05-24 16:44:36 -07:00
commit 89c86150c8
4 changed files with 103 additions and 0 deletions

44
geef.c Normal file
View File

@@ -0,0 +1,44 @@
#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)