libsodium

// -*- mode: c; tab-width: 8; indent-tabs-mode: 1; st-rulers: [70] -*-
// vim: ts=8 sw=8 ft=c noet

#include "libsodium_api_version.h"

SODIUM_EXPORT
const char *sodium_version_string(void);

SODIUM_EXPORT
int         sodium_library_version_major(void);

SODIUM_EXPORT
int         sodium_library_version_minor(void);

static void	LS_API_EXEC(version, version_string);
static void	LS_API_EXEC(version, library_version_major);
static void	LS_API_EXEC(version, library_version_minor);

libsodium_function_t	libsodium_functions_version[] = {
	LS_API_R_ARG0(version, version_string),
	LS_API_R_ARG0(version, library_version_major),
	LS_API_R_ARG0(version, library_version_minor),
	{NULL}
};

/* version_version_string/0 */

static void
LS_API_EXEC(version, version_string)
{
	const char *string;

	string = sodium_version_string();

	ErlDrvTermData spec[] = {
		LS_RES_TAG(request),
		ERL_DRV_BUF2BINARY, (ErlDrvTermData)(string), strlen(string),
		ERL_DRV_TUPLE, 2
	};

	LS_RESPOND(request, spec, __FILE__, __LINE__);
}

/* version_library_version_major/0 */

static void
LS_API_EXEC(version, library_version_major)
{
	int major;

	major = sodium_library_version_major();

	ErlDrvTermData spec[] = {
		LS_RES_TAG(request),
		ERL_DRV_INT, (ErlDrvSInt)(major),
		ERL_DRV_TUPLE, 2
	};

	LS_RESPOND(request, spec, __FILE__, __LINE__);
}

/* version_library_version_minor/0 */

static void
LS_API_EXEC(version, library_version_minor)
{
	int minor;

	minor = sodium_library_version_minor();

	ErlDrvTermData spec[] = {
		LS_RES_TAG(request),
		ERL_DRV_INT, (ErlDrvSInt)(minor),
		ERL_DRV_TUPLE, 2
	};

	LS_RESPOND(request, spec, __FILE__, __LINE__);
}