You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

60 lines
1.4 KiB

пре 13 година
пре 13 година
  1. // This file is part of Jiffy released under the MIT license.
  2. // See the LICENSE file for more information.
  3. #include "jiffy.h"
  4. static int
  5. load(ErlNifEnv* env, void** priv, ERL_NIF_TERM info)
  6. {
  7. jiffy_st* st = enif_alloc(sizeof(jiffy_st));
  8. if(st == NULL) {
  9. return 1;
  10. }
  11. st->atom_ok = make_atom(env, "ok");
  12. st->atom_error = make_atom(env, "error");
  13. st->atom_null = make_atom(env, "null");
  14. st->atom_true = make_atom(env, "true");
  15. st->atom_false = make_atom(env, "false");
  16. st->atom_bignum = make_atom(env, "bignum");
  17. st->atom_bignum_e = make_atom(env, "bignum_e");
  18. st->atom_bigdbl = make_atom(env, "bigdbl");
  19. st->atom_partial = make_atom(env, "partial");
  20. st->atom_uescape = make_atom(env, "uescape");
  21. // Markers used in encoding
  22. st->ref_object = make_atom(env, "$object_ref$");
  23. st->ref_array = make_atom(env, "$array_ref$");
  24. *priv = (void*) st;
  25. return 0;
  26. }
  27. static int
  28. reload(ErlNifEnv* env, void** priv, ERL_NIF_TERM info)
  29. {
  30. return 0;
  31. }
  32. static int
  33. upgrade(ErlNifEnv* env, void** priv, void** old_priv, ERL_NIF_TERM info)
  34. {
  35. *priv = *old_priv;
  36. return 0;
  37. }
  38. static void
  39. unload(ErlNifEnv* env, void* priv)
  40. {
  41. enif_free(priv);
  42. return;
  43. }
  44. static ErlNifFunc funcs[] =
  45. {
  46. {"nif_decode", 1, decode},
  47. {"nif_encode", 2, encode}
  48. };
  49. ERL_NIF_INIT(jiffy, funcs, &load, &reload, &upgrade, &unload);