/* * %CopyrightBegin% * * Copyright Ericsson AB 2009-2014. All Rights Reserved. * * Licensed under the Apache License, Version 2.0 (the "License"); * you may not use this file except in compliance with the License. * You may obtain a copy of the License at * * http://www.apache.org/licenses/LICENSE-2.0 * * Unless required by applicable law or agreed to in writing, software * distributed under the License is distributed on an "AS IS" BASIS, * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. * See the License for the specific language governing permissions and * limitations under the License. * * %CopyrightEnd% */ /* Include file for writers of Native Implemented Functions. */ #ifndef __ERL_NIF_H__ #define __ERL_NIF_H__ #ifdef HAVE_CONFIG_H # include "config.h" #endif #include "erl_native_features_config.h" #include "erl_drv_nif.h" /* Version history: ** 0.1: R13B03 ** 1.0: R13B04 ** 2.0: R14A ** 2.1: R14B02 "vm_variant" ** 2.2: R14B03 enif_is_exception ** 2.3: R15 enif_make_reverse_list, enif_is_number ** 2.4: R16 enif_consume_timeslice ** 2.5: First experimental maps API additions (libs of this version is not compatible with any other VM) ** 2.5: R17 Maps API additions ** 2.6: R17 with maps ** R17 dirty schedulers ** 2.7: 17.3 add enif_schedule_nif ** remove enif_schedule_dirty_nif, enif_schedule_dirty_nif_finalizer, enif_dirty_nif_finalizer ** add ErlNifEntry options ** add ErlNifFunc flags ** 2.8: 18.0 add enif_has_pending_exception ** 2.9: 18.2 enif_getenv */ #define ERL_NIF_MAJOR_VERSION 2 #define ERL_NIF_MINOR_VERSION 9 /* * The emulator will refuse to load a nif-lib with a major version * lower than ERL_NIF_MIN_REQUIRED_MAJOR_VERSION_ON_LOAD. The load * may however fail if user have not removed use of deprecated * symbols. * * The ERL_NIF_MIN_REQUIRED_MAJOR_VERSION_ON_LOAD have to allow * loading of nif-libs built at least two major OTP releases * ago. */ #define ERL_NIF_MIN_REQUIRED_MAJOR_VERSION_ON_LOAD 2 #include <stdlib.h> #ifdef SIZEOF_CHAR # define SIZEOF_CHAR_SAVED__ SIZEOF_CHAR # undef SIZEOF_CHAR #endif #ifdef SIZEOF_SHORT # define SIZEOF_SHORT_SAVED__ SIZEOF_SHORT # undef SIZEOF_SHORT #endif #ifdef SIZEOF_INT # define SIZEOF_INT_SAVED__ SIZEOF_INT # undef SIZEOF_INT #endif #ifdef SIZEOF_LONG # define SIZEOF_LONG_SAVED__ SIZEOF_LONG # undef SIZEOF_LONG #endif #ifdef SIZEOF_LONG_LONG # define SIZEOF_LONG_LONG_SAVED__ SIZEOF_LONG_LONG # undef SIZEOF_LONG_LONG #endif #ifdef HALFWORD_HEAP_EMULATOR # define HALFWORD_HEAP_EMULATOR_SAVED__ HALFWORD_HEAP_EMULATOR # undef HALFWORD_HEAP_EMULATOR #endif #include "erl_int_sizes_config.h" #ifdef __cplusplus extern "C" { #endif #if (defined(__WIN32__) || defined(_WIN32) || defined(_WIN32_)) typedef unsigned __int64 ErlNifUInt64; typedef __int64 ErlNifSInt64; #elif SIZEOF_LONG == 8 typedef unsigned long ErlNifUInt64; typedef long ErlNifSInt64; #elif SIZEOF_LONG_LONG == 8 typedef unsigned long long ErlNifUInt64; typedef long long ErlNifSInt64; #else #error No 64-bit integer type #endif #ifdef HALFWORD_HEAP_EMULATOR # define ERL_NIF_VM_VARIANT "beam.halfword" typedef unsigned int ERL_NIF_TERM; #else # define ERL_NIF_VM_VARIANT "beam.vanilla" # if SIZEOF_LONG == SIZEOF_VOID_P typedef unsigned long ERL_NIF_TERM; # elif SIZEOF_LONG_LONG == SIZEOF_VOID_P typedef unsigned long long ERL_NIF_TERM; # endif #endif typedef ERL_NIF_TERM ERL_NIF_UINT; struct enif_environment_t; typedef struct enif_environment_t ErlNifEnv; typedef struct { const char* name; unsigned arity; ERL_NIF_TERM (*fptr)(ErlNifEnv* env, int argc, const ERL_NIF_TERM argv[]); unsigned flags; }ErlNifFunc; typedef struct enif_entry_t { int major; int minor; const char* name; int num_of_funcs; ErlNifFunc* funcs; int (*load) (ErlNifEnv*, void** priv_data, ERL_NIF_TERM load_info); int (*reload) (ErlNifEnv*, void** priv_data, ERL_NIF_TERM load_info); int (*upgrade)(ErlNifEnv*, void** priv_data, void** old_priv_data, ERL_NIF_TERM load_info); void (*unload) (ErlNifEnv*, void* priv_data); const char* vm_variant; unsigned options; }ErlNifEntry; /* Field bits for ErlNifEntry options */ #define ERL_NIF_DIRTY_NIF_OPTION 1 typedef struct { size_t size; unsigned char* data; /* Internals (avert your eyes) */ ERL_NIF_TERM bin_term; void* ref_bin; }ErlNifBinary; typedef struct enif_resource_type_t ErlNifResourceType; typedef void ErlNifResourceDtor(ErlNifEnv*, void*); typedef enum { ERL_NIF_RT_CREATE = 1, ERL_NIF_RT_TAKEOVER = 2 }ErlNifResourceFlags; typedef enum { ERL_NIF_LATIN1 = 1 }ErlNifCharEncoding; typedef struct { ERL_NIF_TERM pid; /* internal, may change */ }ErlNifPid; typedef ErlDrvSysInfo ErlNifSysInfo; typedef struct ErlDrvTid_ *ErlNifTid; typedef struct ErlDrvMutex_ ErlNifMutex; typedef struct ErlDrvCond_ ErlNifCond; typedef struct ErlDrvRWLock_ ErlNifRWLock; typedef int ErlNifTSDKey; typedef ErlDrvThreadOpts ErlNifThreadOpts; #ifdef ERL_NIF_DIRTY_SCHEDULER_SUPPORT typedef enum { ERL_NIF_DIRTY_JOB_CPU_BOUND = ERL_DRV_DIRTY_JOB_CPU_BOUND, ERL_NIF_DIRTY_JOB_IO_BOUND = ERL_DRV_DIRTY_JOB_IO_BOUND }ErlNifDirtyTaskFlags; #endif typedef struct /* All fields all internal and may change */ { ERL_NIF_TERM map; ERL_NIF_UINT size; ERL_NIF_UINT idx; union { struct { ERL_NIF_TERM *ks; ERL_NIF_TERM *vs; }flat; struct { struct ErtsDynamicWStack_* wstack; ERL_NIF_TERM* kv; }hash; }u; void* __spare__[2]; /* for future additions to be ABI compatible (same struct size) */ } ErlNifMapIterator; typedef enum { ERL_NIF_MAP_ITERATOR_FIRST = 1, ERL_NIF_MAP_ITERATOR_LAST = 2, /* deprecated synonyms (undocumented in 17 and 18-rc) */ ERL_NIF_MAP_ITERATOR_HEAD = ERL_NIF_MAP_ITERATOR_FIRST, ERL_NIF_MAP_ITERATOR_TAIL = ERL_NIF_MAP_ITERATOR_LAST } ErlNifMapIteratorEntry; #if (defined(__WIN32__) || defined(_WIN32) || defined(_WIN32_)) # define ERL_NIF_API_FUNC_DECL(RET_TYPE, NAME, ARGS) RET_TYPE (*NAME) ARGS typedef struct { # include "erl_nif_api_funcs.h" void* erts_alc_test; } TWinDynNifCallbacks; extern TWinDynNifCallbacks WinDynNifCallbacks; # undef ERL_NIF_API_FUNC_DECL #endif #if (defined(__WIN32__) || defined(_WIN32) || defined(_WIN32_)) && !defined(STATIC_ERLANG_DRIVER) && !defined(STATIC_ERLANG_NIF) # define ERL_NIF_API_FUNC_MACRO(NAME) (WinDynNifCallbacks.NAME) # include "erl_nif_api_funcs.h" /* note that we have to keep ERL_NIF_API_FUNC_MACRO defined */ #else /* non windows or included from emulator itself */ # define ERL_NIF_API_FUNC_DECL(RET_TYPE, NAME, ARGS) extern RET_TYPE NAME ARGS # include "erl_nif_api_funcs.h" # undef ERL_NIF_API_FUNC_DECL #endif #if (defined(__WIN32__) || defined(_WIN32) || defined(_WIN32_)) # define ERL_NIF_INIT_GLOB TWinDynNifCallbacks WinDynNifCallbacks; # ifdef STATIC_ERLANG_NIF # define ERL_NIF_INIT_DECL(MODNAME) __declspec(dllexport) ErlNifEntry* MODNAME ## _nif_init(TWinDynNifCallbacks* callbacks) # else # define ERL_NIF_INIT_DECL(MODNAME) __declspec(dllexport) ErlNifEntry* nif_init(TWinDynNifCallbacks* callbacks) # endif # define ERL_NIF_INIT_BODY memcpy(&WinDynNifCallbacks,callbacks,sizeof(TWinDynNifCallbacks)) #else # define ERL_NIF_INIT_GLOB # define ERL_NIF_INIT_BODY # ifdef STATIC_ERLANG_NIF # define ERL_NIF_INIT_DECL(MODNAME) ErlNifEntry* MODNAME ## _nif_init(void) # else # define ERL_NIF_INIT_DECL(MODNAME) ErlNifEntry* nif_init(void) # endif #endif #ifdef ERL_NIF_DIRTY_SCHEDULER_SUPPORT # define ERL_NIF_ENTRY_OPTIONS ERL_NIF_DIRTY_NIF_OPTION #else # define ERL_NIF_ENTRY_OPTIONS 0 #endif #ifdef __cplusplus } # define ERL_NIF_INIT_PROLOGUE extern "C" { # define ERL_NIF_INIT_EPILOGUE } #else # define ERL_NIF_INIT_PROLOGUE # define ERL_NIF_INIT_EPILOGUE #endif #define ERL_NIF_INIT(NAME, FUNCS, LOAD, RELOAD, UPGRADE, UNLOAD) \ ERL_NIF_INIT_PROLOGUE \ ERL_NIF_INIT_GLOB \ ERL_NIF_INIT_DECL(NAME); \ ERL_NIF_INIT_DECL(NAME) \ { \ static ErlNifEntry entry = \ { \ ERL_NIF_MAJOR_VERSION, \ ERL_NIF_MINOR_VERSION, \ #NAME, \ sizeof(FUNCS) / sizeof(*FUNCS), \ FUNCS, \ LOAD, RELOAD, UPGRADE, UNLOAD, \ ERL_NIF_VM_VARIANT, \ ERL_NIF_ENTRY_OPTIONS \ }; \ ERL_NIF_INIT_BODY; \ return &entry; \ } \ ERL_NIF_INIT_EPILOGUE #if defined(USE_DYNAMIC_TRACE) && (defined(USE_DTRACE) || defined(USE_SYSTEMTAP)) #define HAVE_USE_DTRACE 1 #endif #ifdef HAVE_USE_DTRACE ERL_NIF_TERM erl_nif_user_trace_s1(ErlNifEnv* env, int argc, const ERL_NIF_TERM argv[]); ERL_NIF_TERM erl_nif_user_trace_i4s4(ErlNifEnv* env, int argc, const ERL_NIF_TERM argv[]); ERL_NIF_TERM erl_nif_user_trace_n(ErlNifEnv* env, int argc, const ERL_NIF_TERM argv[]); #endif #endif /* __ERL_NIF_H__ */