summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMicael Karlberg <bmk@erlang.org>2019-11-15 11:53:39 +0100
committerMicael Karlberg <bmk@erlang.org>2019-11-25 18:28:27 +0100
commit1aae44c7e4dd3572ed9a4a08a469724c6711b0a7 (patch)
treea848a7757f31e9da5470bdaf60c8e257ffcd5305
parent747689e7f01746406de6a65dbc06bb1be209e19f (diff)
downloaderlang-1aae44c7e4dd3572ed9a4a08a469724c6711b0a7.tar.gz
[enet] Renaming of some of the interlal functions
Some of the (internal) functions wher prefixed 'n' (net). This has been changed to 'enet_' instead (this is to avoid possible name clashes). And also to make the code slightly more readable. OTP-16212
-rw-r--r--erts/emulator/nifs/common/prim_net_nif.c95
1 files changed, 49 insertions, 46 deletions
diff --git a/erts/emulator/nifs/common/prim_net_nif.c b/erts/emulator/nifs/common/prim_net_nif.c
index 5f7a2716f9..ae219140bd 100644
--- a/erts/emulator/nifs/common/prim_net_nif.c
+++ b/erts/emulator/nifs/common/prim_net_nif.c
@@ -20,6 +20,9 @@
* ----------------------------------------------------------------------
* Purpose : The NIF (C) part of the net interface
* This is a module of miscellaneous functions.
+ *
+ * We (try to) avoid name clashes by prefixing "all" internal
+ * function names with enet.
* ----------------------------------------------------------------------
*
*/
@@ -257,7 +260,7 @@ extern char* erl_errno_id(int error);
ENET_NIF_FUNC_DEF(command); \
ENET_NIF_FUNC_DEF(gethostname); \
ENET_NIF_FUNC_DEF(getnameinfo); \
- ENET_NIF_FUNC_DEF(getaddrinfo); \
+ ENET_NIF_FUNC_DEF(getaddrinfo); \
ENET_NIF_FUNC_DEF(if_name2index); \
ENET_NIF_FUNC_DEF(if_index2name); \
ENET_NIF_FUNC_DEF(if_names);
@@ -271,22 +274,22 @@ ENET_NIF_FUNCS
/* And here comes the functions that does the actual work (for the most part) */
-static ERL_NIF_TERM ncommand(ErlNifEnv* env,
- ERL_NIF_TERM cmd);
-static ERL_NIF_TERM ngethostname(ErlNifEnv* env);
-static ERL_NIF_TERM ngetnameinfo(ErlNifEnv* env,
- const ESockAddress* saP,
- SOCKLEN_T saLen,
- int flags);
-static ERL_NIF_TERM ngetaddrinfo(ErlNifEnv* env,
- char* host,
- char* serv);
-static ERL_NIF_TERM nif_name2index(ErlNifEnv* env,
+static ERL_NIF_TERM enet_command(ErlNifEnv* env,
+ ERL_NIF_TERM cmd);
+static ERL_NIF_TERM enet_gethostname(ErlNifEnv* env);
+static ERL_NIF_TERM enet_getnameinfo(ErlNifEnv* env,
+ const ESockAddress* saP,
+ SOCKLEN_T saLen,
+ int flags);
+static ERL_NIF_TERM enet_getaddrinfo(ErlNifEnv* env,
+ char* host,
+ char* serv);
+static ERL_NIF_TERM enet_if_name2index(ErlNifEnv* env,
char* ifn);
-static ERL_NIF_TERM nif_index2name(ErlNifEnv* env,
+static ERL_NIF_TERM enet_if_index2name(ErlNifEnv* env,
unsigned int id);
-static ERL_NIF_TERM nif_names(ErlNifEnv* env);
-static unsigned int nif_names_length(struct if_nameindex* p);
+static ERL_NIF_TERM enet_if_names(ErlNifEnv* env);
+static unsigned int enet_if_names_length(struct if_nameindex* p);
/*
static void net_dtor(ErlNifEnv* env, void* obj);
@@ -495,7 +498,7 @@ ERL_NIF_TERM nif_command(ErlNifEnv* env,
NDBG( ("NET", "command -> ecmd: %T\r\n", ecmd) );
- result = ncommand(env, ecmd);
+ result = enet_command(env, ecmd);
NDBG( ("NET", "command -> result: %T\r\n", result) );
@@ -511,8 +514,8 @@ ERL_NIF_TERM nif_command(ErlNifEnv* env,
*/
#if !defined(__WIN32__)
static
-ERL_NIF_TERM ncommand(ErlNifEnv* env,
- ERL_NIF_TERM cmd)
+ERL_NIF_TERM enet_command(ErlNifEnv* env,
+ ERL_NIF_TERM cmd)
{
const ERL_NIF_TERM* t;
int tsz;
@@ -562,7 +565,7 @@ ERL_NIF_TERM nif_gethostname(ErlNifEnv* env,
if (argc != 0)
return enif_make_badarg(env);
- result = ngethostname(env);
+ result = enet_gethostname(env);
NDBG( ("NET", "nif_gethostname -> done when result: %T\r\n", result) );
@@ -573,7 +576,7 @@ ERL_NIF_TERM nif_gethostname(ErlNifEnv* env,
#if !defined(__WIN32__)
static
-ERL_NIF_TERM ngethostname(ErlNifEnv* env)
+ERL_NIF_TERM enet_gethostname(ErlNifEnv* env)
{
ERL_NIF_TERM result;
char buf[NET_MAXHOSTNAMELEN + 1];
@@ -581,7 +584,7 @@ ERL_NIF_TERM ngethostname(ErlNifEnv* env)
res = net_gethostname(buf, sizeof(buf));
- NDBG( ("NET", "ngethostname -> gethostname res: %d\r\n", res) );
+ NDBG( ("NET", "enet_gethostname -> gethostname res: %d\r\n", res) );
switch (res) {
case 0:
@@ -661,7 +664,7 @@ ERL_NIF_TERM nif_getnameinfo(ErlNifEnv* env,
if (!decode_nameinfo_flags(env, eFlags, &flags))
return enif_make_badarg(env);
- result = ngetnameinfo(env, &sa, saLen, flags);
+ result = enet_getnameinfo(env, &sa, saLen, flags);
NDBG( ("NET",
"nif_getnameinfo -> done when result: "
@@ -678,10 +681,10 @@ ERL_NIF_TERM nif_getnameinfo(ErlNifEnv* env,
*/
#if !defined(__WIN32__)
static
-ERL_NIF_TERM ngetnameinfo(ErlNifEnv* env,
- const ESockAddress* saP,
- SOCKLEN_T saLen,
- int flags)
+ERL_NIF_TERM enet_getnameinfo(ErlNifEnv* env,
+ const ESockAddress* saP,
+ SOCKLEN_T saLen,
+ int flags)
{
ERL_NIF_TERM result;
char host[HOSTNAME_LEN];
@@ -694,7 +697,7 @@ ERL_NIF_TERM ngetnameinfo(ErlNifEnv* env,
serv, servLen,
flags);
- NDBG( ("NET", "ngetnameinfo -> res: %d\r\n", res) );
+ NDBG( ("NET", "enet_getnameinfo -> res: %d\r\n", res) );
switch (res) {
case 0:
@@ -828,7 +831,7 @@ ERL_NIF_TERM nif_getaddrinfo(ErlNifEnv* env,
if ((hostName == NULL) && (servName == NULL))
return enif_make_badarg(env);
- result = ngetaddrinfo(env, hostName, servName);
+ result = enet_getaddrinfo(env, hostName, servName);
if (hostName != NULL)
FREE(hostName);
@@ -852,15 +855,15 @@ ERL_NIF_TERM nif_getaddrinfo(ErlNifEnv* env,
#if !defined(__WIN32__)
static
-ERL_NIF_TERM ngetaddrinfo(ErlNifEnv* env,
- char* host,
- char* serv)
+ERL_NIF_TERM enet_getaddrinfo(ErlNifEnv* env,
+ char* host,
+ char* serv)
{
ERL_NIF_TERM result;
struct addrinfo* addrInfoP;
int res;
- NDBG( ("NET", "ngetaddrinfo -> entry with"
+ NDBG( ("NET", "enet_getaddrinfo -> entry with"
"\r\n host: %s"
"\r\n serv: %s"
"\r\n",
@@ -869,7 +872,7 @@ ERL_NIF_TERM ngetaddrinfo(ErlNifEnv* env,
res = getaddrinfo(host, serv, NULL, &addrInfoP);
- NDBG( ("NET", "ngetaddrinfo -> res: %d\r\n", res) );
+ NDBG( ("NET", "enet_getaddrinfo -> res: %d\r\n", res) );
switch (res) {
case 0:
@@ -993,7 +996,7 @@ ERL_NIF_TERM nif_if_name2index(ErlNifEnv* env,
if (0 >= GET_STR(env, eifn, ifn, sizeof(ifn)))
return esock_make_error(env, esock_atom_einval);
- result = nif_name2index(env, ifn);
+ result = enet_if_name2index(env, ifn);
NDBG( ("NET", "nif_if_name2index -> done when result: %T\r\n", result) );
@@ -1005,16 +1008,16 @@ ERL_NIF_TERM nif_if_name2index(ErlNifEnv* env,
#if !defined(__WIN32__)
static
-ERL_NIF_TERM nif_name2index(ErlNifEnv* env,
+ERL_NIF_TERM enet_if_name2index(ErlNifEnv* env,
char* ifn)
{
unsigned int idx;
- NDBG( ("NET", "nif_name2index -> entry with ifn: %s\r\n", ifn) );
+ NDBG( ("NET", "enet_if_name2index -> entry with ifn: %s\r\n", ifn) );
idx = if_nametoindex(ifn);
- NDBG( ("NET", "nif_name2index -> idx: %d\r\n", idx) );
+ NDBG( ("NET", "enet_if_name2index -> idx: %d\r\n", idx) );
if (idx == 0) {
int save_errno = get_errno();
@@ -1061,7 +1064,7 @@ ERL_NIF_TERM nif_if_index2name(ErlNifEnv* env,
"\r\n Idx: %T"
"\r\n", argv[0]) );
- result = nif_index2name(env, idx);
+ result = enet_if_index2name(env, idx);
NDBG( ("NET", "nif_if_index2name -> done when result: %T\r\n", result) );
@@ -1073,7 +1076,7 @@ ERL_NIF_TERM nif_if_index2name(ErlNifEnv* env,
#if !defined(__WIN32__)
static
-ERL_NIF_TERM nif_index2name(ErlNifEnv* env,
+ERL_NIF_TERM enet_if_index2name(ErlNifEnv* env,
unsigned int idx)
{
ERL_NIF_TERM result;
@@ -1120,7 +1123,7 @@ ERL_NIF_TERM nif_if_names(ErlNifEnv* env,
return enif_make_badarg(env);
}
- result = nif_names(env);
+ result = enet_if_names(env);
NDBG( ("NET", "nif_if_names -> done when result: %T\r\n", result) );
@@ -1132,12 +1135,12 @@ ERL_NIF_TERM nif_if_names(ErlNifEnv* env,
#if !defined(__WIN32__)
static
-ERL_NIF_TERM nif_names(ErlNifEnv* env)
+ERL_NIF_TERM enet_if_names(ErlNifEnv* env)
{
ERL_NIF_TERM result;
struct if_nameindex* ifs = if_nameindex();
- NDBG( ("NET", "nif_names -> ifs: 0x%lX\r\n", ifs) );
+ NDBG( ("NET", "enet_if_names -> ifs: 0x%lX\r\n", ifs) );
if (ifs == NULL) {
result = esock_make_error_errno(env, get_errno());
@@ -1154,9 +1157,9 @@ ERL_NIF_TERM nif_names(ErlNifEnv* env)
* Or shall we instead build a list in reverse order and then when
* its done, reverse that? Check
*/
- unsigned int len = nif_names_length(ifs);
+ unsigned int len = enet_if_names_length(ifs);
- NDBG( ("NET", "nif_names -> len: %d\r\n", len) );
+ NDBG( ("NET", "enet_if_names -> len: %d\r\n", len) );
if (len > 0) {
ERL_NIF_TERM* array = MALLOC(len * sizeof(ERL_NIF_TERM));
@@ -1183,14 +1186,14 @@ ERL_NIF_TERM nif_names(ErlNifEnv* env)
static
-unsigned int nif_names_length(struct if_nameindex* p)
+unsigned int enet_if_names_length(struct if_nameindex* p)
{
unsigned int len = 0;
BOOLEAN_T done = FALSE;
while (!done) {
- NDBG( ("NET", "nif_names_length -> %d: "
+ NDBG( ("NET", "enet_if_names_length -> %d: "
"\r\n if_index: %d"
"\r\n if_name: 0x%lX"
"\r\n", len, p[len].if_index, p[len].if_name) );