No OneTemporary
Actions

Size

20 KB

Referenced Files

None

Subscribers

None

View Options

	diff --git a/Makefile b/Makefile
	index a973c8c..b1f9721 100644
	--- a/Makefile
	+++ b/Makefile
	@@ -1,28 +1,28 @@
	calling_from_make:
	mix compile

	UNAME := $(shell uname)

	-CFLAGS ?= -Wall -Werror -Wno-unused-parameter -pedantic -std=c99 -O2
	+CFLAGS ?= -D_POSIX_C_SOURCE=200809L -Wall -Werror -Wno-unused-parameter -pedantic -std=c99 -O2

	ifeq ($(UNAME), Darwin)
	TARGET_CFLAGS ?= -fPIC -undefined dynamic_lookup -dynamiclib -Wextra
	endif

	ifeq ($(UNAME), Linux)
	TARGET_CFLAGS ?= -fPIC -shared
	endif


	all: priv/exile.so priv/spawner

	priv/exile.so: c_src/exile.c
	mkdir -p priv
	$(CC) -I$(ERL_INTERFACE_INCLUDE_DIR) $(TARGET_CFLAGS) $(CFLAGS) c_src/exile.c -o priv/exile.so

	priv/spawner: c_src/spawner.c
	mkdir -p priv
	$(CC) $(CFLAGS) c_src/spawner.c -o priv/spawner

	clean:
	@rm -rf priv/exile.so priv/spawner
	diff --git a/c_src/exile.c b/c_src/exile.c
	index 213b0b4..ed493e3 100644
	--- a/c_src/exile.c
	+++ b/c_src/exile.c
	@@ -1,383 +1,351 @@
	-#ifndef _POSIX_C_SOURCE
	-#define _POSIX_C_SOURCE 200809L
	-#endif
	-
	#include "erl_nif.h"
	#include <errno.h>
	#include <fcntl.h>
	#include <signal.h>
	#include <stdbool.h>
	#include <stdio.h>
	#include <string.h>
	#include <sys/types.h>
	#include <sys/wait.h>
	#include <unistd.h>
	+#include "utils.h"

	#ifdef ERTS_DIRTY_SCHEDULERS
	#define USE_DIRTY_IO ERL_NIF_DIRTY_JOB_IO_BOUND
	#else
	#define USE_DIRTY_IO 0
	#endif

	-// #define DEBUG
	-
	-#ifdef DEBUG
	-#define debug(...) \
	- do { \
	- enif_fprintf(stderr, "%s:%d\t(fn \"%s\") - ", __FILE__, __LINE__, \
	- __func__); \
	- enif_fprintf(stderr, __VA_ARGS__); \
	- enif_fprintf(stderr, "\n"); \
	- } while (0)
	-#else
	-#define debug(...)
	-#endif
	-
	-#define error(...) \
	- do { \
	- enif_fprintf(stderr, "%s:%d\t(fn: \"%s\") - ", __FILE__, __LINE__, \
	- __func__); \
	- enif_fprintf(stderr, __VA_ARGS__); \
	- enif_fprintf(stderr, "\n"); \
	- } while (0)
	-
	-#define assert_argc(argc, count) \
	- if (argc != count) { \
	- error("number of arguments must be %d", count); \
	- return enif_make_badarg(env); \
	- }
	-
	static const int UNBUFFERED_READ = -1;
	static const int PIPE_BUF_SIZE = 65535;
	-
	static const int FD_CLOSED = -1;

	static ERL_NIF_TERM ATOM_TRUE;
	static ERL_NIF_TERM ATOM_FALSE;
	static ERL_NIF_TERM ATOM_OK;
	static ERL_NIF_TERM ATOM_ERROR;
	static ERL_NIF_TERM ATOM_UNDEFINED;
	static ERL_NIF_TERM ATOM_INVALID_FD;
	static ERL_NIF_TERM ATOM_SELECT_CANCEL_ERROR;
	static ERL_NIF_TERM ATOM_EAGAIN;

	static ERL_NIF_TERM ATOM_SIGKILL;
	static ERL_NIF_TERM ATOM_SIGTERM;

	static void close_fd(int *fd) {
	if (*fd != FD_CLOSED) {
	close(*fd);
	*fd = FD_CLOSED;
	}
	}

	static int cancel_select(ErlNifEnv env, int fd) {
	int ret;

	if (*fd != FD_CLOSED) {
	ret = enif_select(env, *fd, ERL_NIF_SELECT_STOP, fd, NULL, ATOM_UNDEFINED);
	if (ret < 0)
	perror("cancel_select()");

	return ret;
	}

	return 0;
	}

	static void io_resource_dtor(ErlNifEnv env, void obj) {
	debug("Exile io_resource_dtor called");
	}

	static void io_resource_stop(ErlNifEnv env, void obj, int fd,
	int is_direct_call) {
	close_fd(&fd);
	debug("Exile io_resource_stop called %d", fd);
	}

	static void io_resource_down(ErlNifEnv env, void obj, ErlNifPid *pid,
	ErlNifMonitor *monitor) {
	int fd = (int )obj;
	cancel_select(env, fd);
	debug("Exile io_resource_down called");
	}

	static ErlNifResourceTypeInit io_rt_init;

	static ErlNifResourceType *FD_RT;

	static inline ERL_NIF_TERM make_ok(ErlNifEnv *env, ERL_NIF_TERM term) {
	return enif_make_tuple2(env, ATOM_OK, term);
	}

	static inline ERL_NIF_TERM make_error(ErlNifEnv *env, ERL_NIF_TERM term) {
	return enif_make_tuple2(env, ATOM_ERROR, term);
	}

	/* time is assumed to be in microseconds */
	static void notify_consumed_timeslice(ErlNifEnv *env, ErlNifTime start,
	ErlNifTime stop) {
	ErlNifTime pct;

	pct = (ErlNifTime)((stop - start) / 10);
	if (pct > 100)
	pct = 100;
	else if (pct == 0)
	pct = 1;
	enif_consume_timeslice(env, pct);
	}

	static int select_write(ErlNifEnv env, int fd) {
	int ret =
	enif_select(env, *fd, ERL_NIF_SELECT_WRITE, fd, NULL, ATOM_UNDEFINED);

	if (ret != 0)
	perror("select_write()");
	return ret;
	}

	static ERL_NIF_TERM nif_write(ErlNifEnv *env, int argc,
	const ERL_NIF_TERM argv[]) {
	- assert_argc(argc, 2);
	+ ASSERT_ARGC(argc, 2);

	ErlNifTime start;
	ssize_t size;
	ErlNifBinary bin;
	int write_errno;
	int *fd;

	start = enif_monotonic_time(ERL_NIF_USEC);

	if (!enif_get_resource(env, argv[0], FD_RT, (void **)&fd))
	return make_error(env, ATOM_INVALID_FD);

	if (enif_inspect_binary(env, argv[1], &bin) != true)
	return enif_make_badarg(env);

	if (bin.size == 0)
	return enif_make_badarg(env);

	/* should we limit the bin.size here? */
	size = write(*fd, bin.data, bin.size);
	write_errno = errno;

	notify_consumed_timeslice(env, start, enif_monotonic_time(ERL_NIF_USEC));

	if (size >= (ssize_t)bin.size) { // request completely satisfied
	return make_ok(env, enif_make_int(env, size));
	} else if (size >= 0) { // request partially satisfied
	int retval = select_write(env, fd);
	if (retval != 0)
	return make_error(env, enif_make_int(env, retval));
	return make_ok(env, enif_make_int(env, size));
	} else if (write_errno == EAGAIN \|\| write_errno == EWOULDBLOCK) { // busy
	int retval = select_write(env, fd);
	if (retval != 0)
	return make_error(env, enif_make_int(env, retval));
	return make_error(env, ATOM_EAGAIN);
	} else {
	perror("write()");
	return make_error(env, enif_make_int(env, write_errno));
	}
	}

	static int select_read(ErlNifEnv env, int fd) {
	int ret =
	enif_select(env, *fd, ERL_NIF_SELECT_READ, fd, NULL, ATOM_UNDEFINED);

	if (ret != 0)
	perror("select_read()");
	return ret;
	}

	static ERL_NIF_TERM nif_create_fd(ErlNifEnv *env, int argc,
	const ERL_NIF_TERM argv[]) {
	- assert_argc(argc, 1);
	+ ASSERT_ARGC(argc, 1);

	ERL_NIF_TERM term;
	ErlNifPid pid;
	int *fd;
	int ret;

	fd = enif_alloc_resource(FD_RT, sizeof(int));

	if (!enif_get_int(env, argv[0], fd))
	goto error_exit;

	if (!enif_self(env, &pid)) {
	error("failed get self pid");
	goto error_exit;
	}

	ret = enif_monitor_process(env, fd, &pid, NULL);

	if (ret < 0) {
	error("no down callback is provided");
	goto error_exit;
	} else if (ret > 0) {
	error("pid is not alive");
	goto error_exit;
	}

	term = enif_make_resource(env, fd);
	enif_release_resource(fd);

	return make_ok(env, term);

	-error_exit:
	+ error_exit:
	enif_release_resource(fd);
	return ATOM_ERROR;
	}

	static ERL_NIF_TERM read_fd(ErlNifEnv env, int fd, int max_size) {
	if (max_size == UNBUFFERED_READ) {
	max_size = PIPE_BUF_SIZE;
	} else if (max_size < 1) {
	return enif_make_badarg(env);
	} else if (max_size > PIPE_BUF_SIZE) {
	max_size = PIPE_BUF_SIZE;
	}

	ErlNifTime start = enif_monotonic_time(ERL_NIF_USEC);
	unsigned char buf[max_size];
	ssize_t result = read(*fd, buf, max_size);
	int read_errno = errno;

	ERL_NIF_TERM bin_term = 0;
	if (result >= 0) {
	/* no need to release this binary */
	unsigned char *temp = enif_make_new_binary(env, result, &bin_term);
	memcpy(temp, buf, result);
	}

	notify_consumed_timeslice(env, start, enif_monotonic_time(ERL_NIF_USEC));

	if (result >= 0) {
	return make_ok(env, bin_term);
	} else if (read_errno == EAGAIN \|\| read_errno == EWOULDBLOCK) { // busy
	int retval = select_read(env, fd);
	if (retval != 0)
	return make_error(env, enif_make_int(env, retval));
	return make_error(env, ATOM_EAGAIN);
	} else {
	perror("read_fd()");
	return make_error(env, enif_make_int(env, read_errno));
	}
	}

	static ERL_NIF_TERM nif_read(ErlNifEnv *env, int argc,
	const ERL_NIF_TERM argv[]) {
	- assert_argc(argc, 2);
	+ ASSERT_ARGC(argc, 2);

	int max_size;
	int *fd;

	if (!enif_get_resource(env, argv[0], FD_RT, (void **)&fd))
	return make_error(env, ATOM_INVALID_FD);

	if (!enif_get_int(env, argv[1], &max_size))
	return enif_make_badarg(env);

	return read_fd(env, fd, max_size);
	}

	static ERL_NIF_TERM nif_close(ErlNifEnv *env, int argc,
	const ERL_NIF_TERM argv[]) {
	- assert_argc(argc, 1);
	+ ASSERT_ARGC(argc, 1);

	int *fd;

	if (!enif_get_resource(env, argv[0], FD_RT, (void **)&fd))
	return make_error(env, ATOM_INVALID_FD);

	if (cancel_select(env, fd) < 0)
	return make_error(env, ATOM_SELECT_CANCEL_ERROR);

	close_fd(fd);

	return ATOM_OK;
	}

	static ERL_NIF_TERM nif_is_os_pid_alive(ErlNifEnv *env, int argc,
	const ERL_NIF_TERM argv[]) {
	- assert_argc(argc, 1);
	+ ASSERT_ARGC(argc, 1);

	pid_t pid;

	if (!enif_get_int(env, argv[0], (int *)&pid))
	return enif_make_badarg(env);

	int result = kill(pid, 0);

	if (result == 0)
	return ATOM_TRUE;
	else
	return ATOM_FALSE;
	}

	static ERL_NIF_TERM nif_kill(ErlNifEnv *env, int argc,
	const ERL_NIF_TERM argv[]) {
	- assert_argc(argc, 2);
	+ ASSERT_ARGC(argc, 2);

	pid_t pid;
	int ret;

	// we should not assume pid type to be `int`?
	if (!enif_get_int(env, argv[0], (int *)&pid))
	return enif_make_badarg(env);

	if (enif_compare(argv[1], ATOM_SIGKILL) == 0)
	ret = kill(pid, SIGKILL);
	else if (enif_compare(argv[1], ATOM_SIGTERM) == 0)
	ret = kill(pid, SIGTERM);
	else
	return enif_make_badarg(env);

	if (ret != 0) {
	perror("[exile] failed to send signal");
	return make_error(
	env, enif_make_string(env, "failed to send signal", ERL_NIF_LATIN1));
	}

	return ATOM_OK;
	}

	static int on_load(ErlNifEnv env, void *priv, ERL_NIF_TERM load_info) {
	io_rt_init.dtor = io_resource_dtor;
	io_rt_init.stop = io_resource_stop;
	io_rt_init.down = io_resource_down;

	FD_RT =
	enif_open_resource_type_x(env, "exile_resource", &io_rt_init,
	ERL_NIF_RT_CREATE \| ERL_NIF_RT_TAKEOVER, NULL);

	ATOM_TRUE = enif_make_atom(env, "true");
	ATOM_FALSE = enif_make_atom(env, "false");
	ATOM_OK = enif_make_atom(env, "ok");
	ATOM_ERROR = enif_make_atom(env, "error");
	ATOM_UNDEFINED = enif_make_atom(env, "undefined");
	ATOM_INVALID_FD = enif_make_atom(env, "invalid_fd_resource");
	ATOM_EAGAIN = enif_make_atom(env, "eagain");
	ATOM_SELECT_CANCEL_ERROR = enif_make_atom(env, "select_cancel_error");

	ATOM_SIGTERM = enif_make_atom(env, "sigterm");
	ATOM_SIGKILL = enif_make_atom(env, "sigkill");

	return 0;
	}

	static void on_unload(ErlNifEnv env, void priv) {
	debug("exile unload");
	enif_free(priv);
	}

	static ErlNifFunc nif_funcs[] = {
	{"nif_read", 2, nif_read, USE_DIRTY_IO},
	{"nif_create_fd", 1, nif_create_fd, USE_DIRTY_IO},
	{"nif_write", 2, nif_write, USE_DIRTY_IO},
	{"nif_close", 1, nif_close, USE_DIRTY_IO},
	{"nif_is_os_pid_alive", 1, nif_is_os_pid_alive, USE_DIRTY_IO},
	{"nif_kill", 2, nif_kill, USE_DIRTY_IO}};

	ERL_NIF_INIT(Elixir.Exile.ProcessNif, nif_funcs, &on_load, NULL, NULL,
	&on_unload)
	diff --git a/c_src/spawner.c b/c_src/spawner.c
	index 3d4db90..104307c 100644
	--- a/c_src/spawner.c
	+++ b/c_src/spawner.c
	@@ -1,256 +1,252 @@
	-#ifndef _POSIX_C_SOURCE
	-#define _POSIX_C_SOURCE 200809L
	-#endif
	-
	#include <fcntl.h>
	#include <stdbool.h>
	#include <stddef.h>
	#include <stdio.h>
	#include <stdlib.h>
	#include <string.h>
	#include <sys/socket.h>
	#include <sys/un.h>
	#include <sys/wait.h>
	#include <unistd.h>

	// these definitions are Linux only at the moment
	#ifndef CMSG_LEN
	socklen_t CMSG_LEN(size_t len) {
	return (CMSG_DATA((struct cmsghdr )NULL) - (unsigned char )NULL) + len;
	}
	#endif

	#ifndef CMSG_SPACE
	socklen_t CMSG_SPACE(size_t len) {
	struct msghdr msg;
	struct cmsghdr cmsg;
	msg.msg_control = &cmsg;
	msg.msg_controllen =
	~0; /* To maximize the chance that CMSG_NXTHDR won't return NULL */
	cmsg.cmsg_len = CMSG_LEN(len);
	return (unsigned char )CMSG_NXTHDR(&msg, &cmsg) - (unsigned char )&cmsg;
	}
	#endif

	// #define DEBUG

	#ifdef DEBUG
	#define debug(...) \
	do { \
	fprintf(stderr, "%s:%d\t(fn \"%s\") - ", __FILE__, __LINE__, __func__); \
	fprintf(stderr, __VA_ARGS__); \
	fprintf(stderr, "\n"); \
	} while (0)
	#else
	#define debug(...)
	#endif

	#define error(...) \
	do { \
	fprintf(stderr, "%s:%d\t(fn: \"%s\") - ", __FILE__, __LINE__, __func__); \
	fprintf(stderr, __VA_ARGS__); \
	fprintf(stderr, "\n"); \
	} while (0)

	static const int PIPE_READ = 0;
	static const int PIPE_WRITE = 1;

	/* We are choosing an exit code which is not reserved see:
	* https://www.tldp.org/LDP/abs/html/exitcodes.html. */
	static const int FORK_EXEC_FAILURE = 125;

	static int set_flag(int fd, int flags) {
	return fcntl(fd, F_SETFL, fcntl(fd, F_GETFL) \| flags);
	}

	static int send_io_fds(int socket, int stdin_fd, int stdout_fd, int stderr_fd) {
	struct msghdr msg = {0};
	struct cmsghdr *cmsg;
	int fds[3];
	char buf[CMSG_SPACE(3 * sizeof(int))];
	char dup[256];
	struct iovec io;

	memset(buf, '\0', sizeof(buf));

	io.iov_base = &dup;
	io.iov_len = sizeof(dup);

	msg.msg_iov = &io;
	msg.msg_iovlen = 1;
	msg.msg_control = buf;
	msg.msg_controllen = sizeof(buf);

	cmsg = CMSG_FIRSTHDR(&msg);
	cmsg->cmsg_level = SOL_SOCKET;
	cmsg->cmsg_type = SCM_RIGHTS;
	cmsg->cmsg_len = CMSG_LEN(3 * sizeof(int));

	fds[0] = stdin_fd;
	fds[1] = stdout_fd;
	fds[2] = stderr_fd;

	debug("stdout: %d, stderr: %d", stdout_fd, stderr_fd);

	memcpy((int )CMSG_DATA(cmsg), fds, 3 sizeof(int));

	if (sendmsg(socket, &msg, 0) < 0) {
	debug("Failed to send message");
	return EXIT_FAILURE;
	}

	return EXIT_SUCCESS;
	}

	static void close_pipes(int pipes[3][2]) {
	for (int i = 0; i < 3; i++) {
	if (pipes[i][PIPE_READ] > 0)
	close(pipes[i][PIPE_READ]);
	if (pipes[i][PIPE_WRITE] > 0)
	close(pipes[i][PIPE_WRITE]);
	}
	}

	static int exec_process(char const bin, char const *args, int socket,
	bool use_stderr) {
	int pipes[3][2] = {{0, 0}, {0, 0}, {0, 0}};
	int r_cmdin, w_cmdin, r_cmdout, w_cmdout, r_cmderr, w_cmderr;
	int i;

	if (pipe(pipes[STDIN_FILENO]) == -1 \|\| pipe(pipes[STDOUT_FILENO]) == -1 \|\|
	pipe(pipes[STDERR_FILENO]) == -1) {
	perror("[spawner] failed to create pipes");
	close_pipes(pipes);
	return 1;
	}

	debug("created pipes");

	r_cmdin = pipes[STDIN_FILENO][PIPE_READ];
	w_cmdin = pipes[STDIN_FILENO][PIPE_WRITE];

	r_cmdout = pipes[STDOUT_FILENO][PIPE_READ];
	w_cmdout = pipes[STDOUT_FILENO][PIPE_WRITE];

	r_cmderr = pipes[STDERR_FILENO][PIPE_READ];
	w_cmderr = pipes[STDERR_FILENO][PIPE_WRITE];

	if (set_flag(r_cmdin, O_CLOEXEC) < 0 \|\| set_flag(w_cmdout, O_CLOEXEC) < 0 \|\|
	set_flag(w_cmderr, O_CLOEXEC) < 0 \|\|
	set_flag(w_cmdin, O_CLOEXEC \| O_NONBLOCK) < 0 \|\|
	set_flag(r_cmdout, O_CLOEXEC \| O_NONBLOCK) < 0 \|\|
	set_flag(r_cmderr, O_CLOEXEC \| O_NONBLOCK) < 0) {
	perror("[spawner] failed to set flags for pipes");
	close_pipes(pipes);
	return 1;
	}

	debug("set fd flags to pipes");

	if (send_io_fds(socket, w_cmdin, r_cmdout, r_cmderr) != EXIT_SUCCESS) {
	perror("[spawner] failed to send fd via socket");
	close_pipes(pipes);
	return 1;
	}

	debug("sent fds over UDS");

	close(STDIN_FILENO);
	close(w_cmdin);
	if (dup2(r_cmdin, STDIN_FILENO) < 0) {
	perror("[spawner] failed to dup to stdin");
	_exit(FORK_EXEC_FAILURE);
	}

	close(STDOUT_FILENO);
	close(r_cmdout);
	if (dup2(w_cmdout, STDOUT_FILENO) < 0) {
	perror("[spawner] failed to dup to stdout");
	_exit(FORK_EXEC_FAILURE);
	}

	if (use_stderr) {
	close(STDERR_FILENO);
	close(r_cmderr);
	if (dup2(w_cmderr, STDERR_FILENO) < 0) {
	perror("[spawner] failed to dup to stderr");
	_exit(FORK_EXEC_FAILURE);
	}
	} else {
	close(r_cmderr);
	close(w_cmderr);
	}

	/* Close all non-standard io fds. Not closing STDERR */
	for (i = STDERR_FILENO + 1; i < sysconf(_SC_OPEN_MAX); i++)
	close(i);

	debug("exec %s", bin);

	execvp(bin, args);
	perror("[spawner] execvp(): failed");

	_exit(FORK_EXEC_FAILURE);
	}

	static int spawn(const char socket_path, const char use_stderr_str,
	const char bin, char const *args) {
	int socket_fd;
	struct sockaddr_un socket_addr;
	bool use_stderr;

	if (strcmp(use_stderr_str, "true") == 0) {
	use_stderr = true;
	} else {
	use_stderr = false;
	}

	socket_fd = socket(AF_UNIX, SOCK_STREAM, 0);

	if (socket_fd == -1) {
	debug("Failed to create socket");
	return EXIT_FAILURE;
	}

	debug("created domain socket");

	memset(&socket_addr, 0, sizeof(struct sockaddr_un));
	socket_addr.sun_family = AF_UNIX;
	strncpy(socket_addr.sun_path, socket_path, sizeof(socket_addr.sun_path) - 1);

	if (connect(socket_fd, (struct sockaddr *)&socket_addr,
	sizeof(struct sockaddr_un)) == -1) {
	debug("Failed to connect to socket");
	return EXIT_FAILURE;
	}

	debug("connected to exile");

	if (exec_process(bin, args, socket_fd, use_stderr) != 0)
	return EXIT_FAILURE;

	// we should never reach here
	return EXIT_SUCCESS;
	}

	int main(int argc, const char *argv[]) {
	int status, i;
	const char **exec_argv;

	if (argc < 4) {
	debug("expected at least 3 arguments, passed %d", argc);
	status = EXIT_FAILURE;
	} else {
	exec_argv = malloc((argc - 3 + 1) * sizeof(char *));

	for (i = 3; i < argc; i++)
	exec_argv[i - 3] = argv[i];

	exec_argv[i - 3] = NULL;

	debug("socket path: %s use_stderr: %s bin: %s", argv[1], argv[2], argv[3]);
	status = spawn(argv[1], argv[2], argv[3], (char const )exec_argv);
	}

	exit(status);
	}
	diff --git a/c_src/utils.h b/c_src/utils.h
	new file mode 100644
	index 0000000..0b36ac4
	--- /dev/null
	+++ b/c_src/utils.h
	@@ -0,0 +1,39 @@
	+#ifndef EXILE_UTILS_H
	+#define EXILE_UTILS_H
	+
	+#include "erl_nif.h"
	+#include <stdbool.h>
	+
	+// #define DEBUG
	+
	+#ifdef DEBUG
	+#define debug(...) \
	+ do { \
	+ enif_fprintf(stderr, "%s:%d\t(fn \"%s\") - ", __FILE__, __LINE__, \
	+ __func__); \
	+ enif_fprintf(stderr, __VA_ARGS__); \
	+ enif_fprintf(stderr, "\n"); \
	+ } while (0)
	+#define start_timing() ErlNifTime __start = enif_monotonic_time(ERL_NIF_USEC)
	+#define elapsed_microseconds() (enif_monotonic_time(ERL_NIF_USEC) - __start)
	+#else
	+#define debug(...)
	+#define start_timing()
	+#define elapsed_microseconds() 0
	+#endif
	+
	+#define error(...) \
	+ do { \
	+ enif_fprintf(stderr, "%s:%d\t(fn: \"%s\") - ", __FILE__, __LINE__, \
	+ __func__); \
	+ enif_fprintf(stderr, __VA_ARGS__); \
	+ enif_fprintf(stderr, "\n"); \
	+ } while (0)
	+
	+#define ASSERT_ARGC(argc, count) \
	+ if (argc != count) { \
	+ error("number of arguments must be %d", count); \
	+ return enif_make_badarg(env); \
	+ }
	+
	+#endif

File Metadata

Mime Type: text/x-diff
Expires: Thu, Nov 28, 2:45 AM (1 d, 19 h)
Storage Engine: blob
Storage Format: Raw Data
Storage Handle: 40806
Default Alt Text: (20 KB)

No OneTemporaryActions

View Options

File Metadata

Event Timeline

No OneTemporary
Actions