#include <stdio.h>
#include <stdlib.h>
#include <termios.h>
#include <unistd.h>
#include <errno.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <fcntl.h>
#include <strings.h>
#include <inttypes.h>
#include "ui.h"
#include "nfc.h"
#include "printx.h"
#include "serial.h"

#define	DEVICE1				"/dev/ttyACM0"
#define	SPEED				B19200
#define NFC_POLLING_TIME	500000
#define	NFC_TAG_LENGTH		9
#define	GET_DEVICE_MODEL	'A'
#define	DEVICE_MODEL_NFC	'B'
#define	GET_NFC_STATUS		'C'
#define	NO_TAG_DETECTED		'D'
#define	PROFESSOR_TAG		'E'
#define	STUDENT_TAG			'F'
#define	GET_TAG_DETAILS		'H'

// Globals
int		nfc_fd = -1;
bool	nfcStop = false;
struct	termios saveterm;

bool initNFC()
{
	unsigned char data;
	printx(DEBUG, NFC, "Connecting to interface 1\n");
	if(init_serial(DEVICE1, SPEED, &nfc_fd, &saveterm))
	{
		printx(DEBUG, NFC, "Connected to an interface\n");
		sendData(&nfc_fd, GET_DEVICE_MODEL);
		printx(DEBUG, NFC, "Sended identification request %02x\n", GET_DEVICE_MODEL);
		data = getData(&nfc_fd);
		if(data == DEVICE_MODEL_NFC)
			printx(INFO, NFC, "NFC Arduino connected\n");
		else
			printx(DEBUG, NFC, "NFC Arduino not found, response was %02x\n", data);
	}
	else
	{
		printx(WARNING, NFC, "Unable to connect to such interface\n");
		return false;
	}

	return true;
}

void stopNFC()
{
	close_serial(&nfc_fd, &saveterm);
	nfcStop = true;
}

bool isTagPresent(char* tag)
{
	unsigned char data;
	sendData(&nfc_fd, GET_NFC_STATUS);
	data = getData(&nfc_fd);
	if(data == PROFESSOR_TAG)
	{
		sendData(&nfc_fd, GET_TAG_DETAILS);
		printx(INFO, NFC, "Professor Tag Detected %02x\n", data);
		//return (read(serial_fd, tag, 6) == 6);
	}
	else if(data == STUDENT_TAG)
	{
		sendData(&nfc_fd, GET_TAG_DETAILS);
		printx(INFO, NFC, "Student Tag Detected\n");
		tag[0] = getData(&nfc_fd);
		printx(DEBUG, NFC, "Last read %02x\n", tag[0]);
		tag[1] = getData(&nfc_fd);
		printx(DEBUG, NFC, "Last read %02x\n", tag[1]);
		tag[2] = getData(&nfc_fd);
		printx(DEBUG, NFC, "Last read %02x\n", tag[2]);
		tag[3] = getData(&nfc_fd);
		printx(DEBUG, NFC, "Last read %02x\n", tag[3]);
		tag[4] = getData(&nfc_fd);
		printx(DEBUG, NFC, "Last read %02x\n", tag[4]);
		tag[5] = getData(&nfc_fd);
		printx(DEBUG, NFC, "Last read %02x\n", tag[5]);
		tag[6] = getData(&nfc_fd);
		printx(DEBUG, NFC, "Last read %02x\n", tag[6]);
		tag[7] = getData(&nfc_fd);
		printx(DEBUG, NFC, "Last read %02x\n", tag[7]);
		return true;
	}
	else if(data == NO_TAG_DETECTED)
	{
		printx(DEBUG, NFC, "No Tag Detected\n");
		return false;
	}
	else
	{
		printx(DEBUG, NFC, "Read data did not matched with expected data %02x\n", data);
		return false;
	}
	return false;
}

void* processNFC(void* we)
{
	char myTag[NFC_TAG_LENGTH];
	char buffer[NFC_TAG_LENGTH];

	while(!nfcStop)
	{
		printx(DEBUG, NFC, "Scanning for tags\n");
		if(isTagPresent(buffer))
		{
			sprintf(myTag, "%s", buffer);
			printx(DEBUG, NFC, "Want to send %s as new tag\n", myTag);
			setTagName(myTag);
		}

		usleep(NFC_POLLING_TIME);
	}

	return NULL;
}