#include <pic18.h>
#include <stdio.h>
#include <htc.h>
#include <string.h>

#include "lcd.h"
#include "Delay.h"
// Delay.h is included inside lcd.c

#define LCD_LENGTH 16
#define LCD_ROWS 2
#define BUFFER 128
#define PWRFAIL RB1
#define FIREDET RB2
#define FEEDING RB3
#define EMPTYTANK RB4


unsigned char global_Pot_Hi, global_Pot_Lo;
unsigned char global_LCD_Buffer[LCD_ROWS][LCD_LENGTH];
unsigned char global_serial_send[BUFFER], global_serial_recieve_buffer[BUFFER];
bit global_recieve_done = 0, global_interval_changed = 0;
unsigned int global_serial_byte_counter = 0, global_sms_counter = 1, global_time_counter = 0;
unsigned int global_emergency_counter = 600, global_time_interval = 3600;
unsigned char global_temp = 0;

unsigned short global_imei_tversum;

unsigned char cell_nr[15] = ""; // = "21681784";
bit global_modem_init = 0;

__EEPROM_DATA( 60, 0, 1, 8, '2', '1', '6', '8');
__EEPROM_DATA( '1', '7', '8', '4',0,0,0,0);

void serial_recieved(void);
void serial_send(void);
void update_lcd(void);
void convertTemp(void);
void timer1_interrupt(void);
void on_recieve(void);
void on_initial_recieve(void);


void reset_recieve_buffer(void)
{
	global_recieve_done = 0; 
	global_serial_byte_counter=0;
}	


void ad_init(void) // Nicked from H7
{
	// AD Conversion clock
	ADCS0 = 0;
	ADCS1 = 0;
	ADCS2 = 0;

	//Select AN0/RA0 for AD source
		// In this (000) setup, it's only RA0/AN0 that does ad convertion.
	CHS0=0;
	CHS1=0;
	CHS2=0;
	
	//Only AN0 is selected for AD and with Vdd/Vss as limits
	PCFG0=0;
	PCFG1=1;
	PCFG2=1;
	PCFG3=1;
	
	//Result is right justified
	ADFM=1; 
	
	//Fire up for A/D converter module
	ADON=1;
}

void rs232_init(void)
{
	SPEN	= 0;	// Serial Port Enable Bit... 0 = disabled
	TRISC6	= 0;	
	TRISC7	= 1;

	SPBRG	= 207;	// 1200 baud rate... 25 = 9600
					// x = (Fosc / (16*[baud rate]) )-1
	TXSTA	= 0x24;	// Enables BRGH and TXEN inthe TXSTA register
	RCSTA	= 0x90;	// 0x90 enables SPEN and CREN in the RCSTA register
}

void interrupt_init(void)
{
	// Assumes that all interrupts default is 0
	PEIE	= 1;
	GIE		= 1;
	RCIE	= 1;	// Recieve interrupt enable.
	IPEN	= 0;	// Nfo interrupt priority
	TXIE	= 0;	// Serial interrupt enabled
	TMR1IE	= 1;	// Enables timer 1
}	

void timer_init(void)
{
	TMR1CS = 1; //use external clock
	
	T1CKPS1 = 1; //1:8 prescale
	T1CKPS0 = 1;
	
	TMR1H = 0xEF;
	TMR1L = 0xFF;

	T1OSCEN = 1; //enable oscillator circuit	
	RD16 = 0; //normal 8 bit writes
	TMR1ON = 1;
}

void pic18_io_init(void)
{
	TRISA0	= 1;	// analog input
	TRISA1	= 0;	// Output
	TRISB1	= 1;	// TRISB1-4 Digital input
	TRISB2	= 1;
	TRISB3	= 1;
	TRISB4	= 1;
}	

void sms_init(void)
{
	int i;

	reset_recieve_buffer();
	sprintf(global_serial_send,"at+cgsn\r");
	serial_send();
	DelaySek(1);
	while(!global_recieve_done) ;


	sprintf(global_serial_send,"%s", "at+cpin=8043\r");
	serial_send();
	
	while(global_modem_init == 0)
	{
		on_initial_recieve();
	}
}


void interrupt interrupt_handler(void)
{
	// Finds out what interrupt have been trigged, and starts the respective function.
	if(RCIF == 1)			// Serial recieve interrupt
	{
		serial_recieved();
		RCIF = 0;
	}
	
	if(TMR1IF == 1)			// timer1 interrupt trigger.
	{
		timer1_interrupt();
		TMR1IF = 0;
	}
}		


void serial_send(void)
{
	int i;
	char data_byte;
	for(i = 0; i < BUFFER; i++)
	{
		data_byte = global_serial_send[i];
		if( data_byte == '\r')
			i = (BUFFER - 1);
		TXREG = data_byte;
		while(TRMT==0) ;
		DelayMs(10);
	}
	DelayMs(250);
	DelayMs(250);
}	

void serial_recieved(void)
{
	char data_byte, saved_data[LCD_LENGTH];
	
	data_byte = RCREG;
	
	if (data_byte == '\n')
		return;

	global_serial_recieve_buffer[global_serial_byte_counter] = data_byte;
		
	if (data_byte == '\r')
	{
		global_recieve_done = 1;
		//global_serial_byte_counter = 0;
		global_serial_recieve_buffer[global_serial_byte_counter+1] = 0; //zero terminate
	}	
	else
	{
		global_serial_byte_counter++;
	}
	
}

void timer1_interrupt(void)
{
	TMR1H = 0xEF;
	TMR1L = 0xFF;
	global_time_counter++;
	global_emergency_counter++;
	RA1 = !RA1;
}

void update_lcd(void)
{
	lcd_clear();
	lcd_goto(0x00);
	lcd_puts(global_temp);

}
	
void send_update(void)
{
	sprintf(global_serial_send, "at+cmgs=\"%s\"\r", cell_nr);
	serial_send();
	sprintf(global_serial_send, "%d:%d:%d:%d:%d:%d%c", global_sms_counter, global_temp, FIREDET, EMPTYTANK, FEEDING, PWRFAIL, 0x1A);
	lcd_goto(40);
	lcd_puts(global_serial_send);
	serial_send();
	DelayMs(250);
	global_sms_counter++;
}	

void convertTemp()
{
	short adVal;
	adVal = (global_Pot_Hi << 8) | global_Pot_Lo;
	if( adVal >=840 )
		global_temp = 100;
	else
		global_temp = (adVal / 8.3886);
}



void eeprom_writer(void)
{
	char len,i;
	
	len = strlen(cell_nr);
	eeprom_write(0, (global_time_interval/60));
	eeprom_write(1, global_sms_counter>>8);
	eeprom_write(2, global_sms_counter);
	eeprom_write(3, len);
	
	for (i=0; i<len; ++i)
	{
		eeprom_write(i+4, cell_nr[i] );
	}
}

void eeprom_reader(void)
{
	char len,i;
	
	global_time_interval = eeprom_read(0);
	global_time_interval *= 60;
	global_sms_counter = (eeprom_read(1)<<8) | eeprom_read(2);
	len = eeprom_read(3);
	
	for (i=0; i<len; ++i)
	{
		cell_nr[i] = eeprom_read(i+4);
	}
	
	cell_nr[i] = 0; //zero terminated!
}	

void on_initial_recieve(void)
{
	char imei[16];
	char* ptr;
	char i;
	
	if (strstr(global_serial_recieve_buffer,"+WIND: 11") != 0)
	{
		global_modem_init = 1;

		ptr = strstr(global_serial_recieve_buffer,"cgsn");
		ptr +=4;
		strncpy(imei, ptr,15);
		imei[15] = 0;

		global_imei_tversum = 0;
		for (i=0; i<15; ++i)
		{
			global_imei_tversum += (imei[i] - '0');
		}
		
		
		reset_recieve_buffer();
	}
	

}


void on_recieve(void)
{
	char tmp[17];
	if (global_recieve_done == 0)
		return;
		
	lcd_clear();
	lcd_goto(0x00);
	tmp[0] = 0;
	strncat(tmp,global_serial_recieve_buffer,16);
	lcd_puts(tmp);
	if (strncmp(global_serial_recieve_buffer,"+WIND: 11", 3) == 0)
	{
		global_modem_init = 1;
	}
	
	reset_recieve_buffer();
}

void main()
{
////////////////////
// Running Init's //

	// Running init for various components.
	pic18_io_init();
	rs232_init();
	ad_init();
	lcd_init(0);
	interrupt_init();
	sms_init();
	//eeprom_init();
	timer_init();
	eeprom_reader();
///////////////
// Main loop //


	while(1)
	{
	// If there happends to be a critical state on the system, we send a sms.
		if( (global_temp >= 90 || PWRFAIL == 1 || FIREDET == 0 || FEEDING == 1 || EMPTYTANK == 1) && global_emergency_counter >= 600 )
		{
			send_update();
			global_emergency_counter = 0;
		}
	// Every X sec. a status sms is send.
		if(global_time_counter >= 3600)
		{
			send_update();
			global_time_counter = 0;
		}
	// To avoid buffer overrun.
		if( global_emergency_counter > 7200 )
			global_emergency_counter = 600;

	// Checks if there has been recieved a config sms.
		if(global_interval_changed )
		{
			eeprom_writer();
			global_interval_changed = 0;
		}
	// Checking if A/D convertion is done, and save the data in global_Pot_??
		if(GODONE==0)
		{
			global_Pot_Hi = ADRESH;
			global_Pot_Lo = ADRESL;
			convertTemp();
			update_lcd();
			GODONE = 1;
		}
		
		//if (global_recieve_done)
		//{
			on_recieve();
		//	global_recieve_done = 0;
		//	global_serial_byte_counter = 0;
		//}
	}
}