Edit

kmx.io/kmxgit/c_src/test/include

Branch :

  • Show log

    Commit

  • Author : Jeancip tokyovania
    Date : 2022-07-05 15:23:26
    Hash : 1e30f33a
    Message : Fixed many libgit2 free function calls. Added configure for supporting Linux. Tested on PopOS 22.04 and Fedora 32. Instrumented erl_nif.h . Debugged using valgrind and ASan. @author Jean-Cyprien Roux @author Baptiste Le Glaunec ok thodg@kmx.io

  • erl_nif.h 
  • #ifndef __ERL_NIF_H__
#define __ERL_NIF_H__

#include <stdio.h>
#include <stdlib.h>

#define ErlNifEnv char*
#define ErlNifResourceType char*
#define ErlNifResource char*
#define ErlNifTuple char*
#define ErlNifTermType char*
#define ErlNifPid char*
#define ErlNifPort char*
#define ErlNifCharEncoding char
#define ERL_NIF_TERM char *
#define ErlNifSInt64 long long
#define ERL_NIF_INIT(NAME, FUNCS, LOAD, RELOAD, UPGRADE, UNLOAD)

typedef struct
{
    size_t size;
    unsigned char* data;
} ErlNifBinary;

typedef struct enif_func_t
{
    const char* name;
    unsigned arity;
    ERL_NIF_TERM (*fptr)(ErlNifEnv* env, int argc, const ERL_NIF_TERM argv[]);
    unsigned flags;
}ErlNifFunc;

int enif_alloc_binary (size_t size, ErlNifBinary* bin);
ERL_NIF_TERM enif_make_int64(ErlNifEnv* env, ErlNifSInt64 val);
ERL_NIF_TERM enif_string_to_term (ErlNifEnv *env, const char *str);
ERL_NIF_TERM enif_string_to_term_len (ErlNifEnv *env,
                                      const char *str, size_t len);
ERL_NIF_TERM enif_make_atom(ErlNifEnv *env, const char *name);
ERL_NIF_TERM enif_make_tuple(ErlNifEnv *env, unsigned cnt, ...);
ERL_NIF_TERM  enif_make_list(ErlNifEnv *env, unsigned cnt, ...);
ERL_NIF_TERM enif_make_list_cell(
        ErlNifEnv* env,
        ERL_NIF_TERM head,
        ERL_NIF_TERM tail);
ERL_NIF_TERM enif_make_int(
        ErlNifEnv* env,
        int i);
ERL_NIF_TERM enif_make_tuple2(
        ErlNifEnv* env,
        ERL_NIF_TERM e1,
        ERL_NIF_TERM e2);
ERL_NIF_TERM enif_make_binary(
        ErlNifEnv* env,
        ErlNifBinary* bin);
ERL_NIF_TERM enif_make_long(
        ErlNifEnv* env,
        long int i);

int enif_fprintf(
        FILE *stream,
        const char *format,
        ...);
int enif_make_reverse_list(
        ErlNifEnv* env,
        ERL_NIF_TERM list_in,
        ERL_NIF_TERM *list_out);
int enif_get_atom(ErlNifEnv* env, ERL_NIF_TERM term, char** atom);
int enif_make_map_from_arrays(
        ErlNifEnv* env,
        ERL_NIF_TERM keys[],
        ERL_NIF_TERM values[],
        size_t cnt,
        ERL_NIF_TERM *map_out);
int enif_get_int(
        ErlNifEnv* env,
        ERL_NIF_TERM term,
        int* ip);

int enif_get_string(
        ErlNifEnv* env,
        ERL_NIF_TERM list,
        char* buf,
        unsigned size,
        ErlNifCharEncoding encode);

int enif_inspect_binary(
        ErlNifEnv* env,
        ERL_NIF_TERM bin_term,
        ErlNifBinary* bin);

int enif_get_list_length(
        ErlNifEnv* env,
        ERL_NIF_TERM term,
        unsigned* len);
char * enif_term_to_string (ErlNifEnv *env, const ERL_NIF_TERM term);
void enif_free_string(char* string);
void enif_free_env(ErlNifEnv* env);
void enif_free_term(ERL_NIF_TERM term);

#endif /* __ERL_NIF_H__ */