#include <stdio.h>
#include <stdlib.h>
#include <stdint.h>
#include <string.h>
#include <errno.h>
#include <fcntl.h>
#include <unistd.h>

#include <erl_interface.h>

int
main (void)
{
	ETERM *message, *arg;
	unsigned char buf[35];

	buf[0] = 0x83;
	buf[1] = 0x68;
	buf[2] = 0x03;
	buf[3] = 0x64;
	buf[4] = 0x00;
	buf[5] = 0x11;
	buf[6] = 0x61;
	buf[7] = 0x64;
	buf[8] = 0x64;
	buf[9] = 0x5f;
	buf[10] = 0x64;
	buf[11] = 0x72;
	buf[12] = 0x69;
	buf[13] = 0x76;
	buf[14] = 0x65;
	buf[15] = 0x5f;
	buf[16] = 0x73;
	buf[17] = 0x63;
	buf[18] = 0x72;
	buf[19] = 0x61;
	buf[20] = 0x74;
	buf[21] = 0x63;
	buf[22] = 0x68;
	buf[23] = 0x6e;
	buf[24] = 0x08;
	buf[25] = 0x01;
	buf[26] = 0x00;
	buf[27] = 0x00;
	buf[28] = 0x00;
	buf[29] = 0x00;
	buf[30] = 0x00;
	buf[31] = 0x00;
	buf[32] = 0x00;
	buf[33] = 0x80;
	buf[34] = 0x6a;

	erl_init (NULL, 0);

	message = erl_decode (buf);
	printf("TYPE is %d\n", ERL_TYPE (message));

	arg = ERL_TUPLE_ELEMENT(message, 1);
	printf("TYPE is %d\n", ERL_TYPE (arg));

	return 0;
}

/*
int main (int argc, char **argv)
{
	uint32_t im = INT_MIN;
	printf("INT_MIN: %d (%u)\n", im, im);
	return 0;
}
*/