#include <stdlib.h>
#include <avr/io.h>
#include <avr/interrupt.h>
#include <avr/pgmspace.h>
#include <util/delay.h>
#include <string.h>
#include "utils.h"
#include "main.h"
#include "uart.h"

#define BUFSIZE 40
#define CURRENT_MAX     30000       // 30 Ampere is max

volatile uint16_t syscounter = 0;
volatile uint8_t digitbuffer[6] = { 0,0,0,0,0,0 };
volatile uint8_t leddigitbuffer[4] = { 0,0,0,0 };
uint8_t digit = 0;
uint8_t leddigit = 0;

// values send over uart from powerboard
uint16_t voltage = 0;
int16_t current_in = 0;
int16_t current_out = 0;
uint8_t dumpsw = 0; //TODO: make bitfield
uint8_t loadsw = 0; //TODO: make bitfield
uint8_t gensw = 0;  //TODO: make bitfield
uint16_t display = 0;

uint16_t power_gen = 0;
uint16_t power_load = 0;

unsigned char data_count = 0;
unsigned char data_in[BUFSIZE];
char command_in[BUFSIZE];

const uint8_t segment_translate[10] = {
    63, 6, 91, 79, 102, 109, 125, 7, 127, 111
};

const uint8_t smallbar_translate[9] = {
    0x00, 0x01, 0x03, 0x07, 0x0f, 0x1f, 0x3f, 0x7f, 0xff
};

const uint8_t bigbar_translate[15][2] = {
    { 0x00, 0xc0},
	{ 0x00, 0x60},
	{ 0x00, 0x30},
	{ 0x00, 0x18},
	{ 0x00, 0x0c},
	{ 0x00, 0x06},
	{ 0x00, 0x03},
	{ 0x01, 0x01},
	{ 0x03, 0x00},
	{ 0x06, 0x00},
	{ 0x0c, 0x00},
	{ 0x18, 0x00},
	{ 0x30, 0x00},
	{ 0x60, 0x00},
	{ 0xc0, 0x00}
};



//static void timer_init(void) {
	// clock is 8MHz
	//TCCR1B |= _BV(WGM12) | _BV(CS11) | _BV(CS10) ; // CTC Mode for Timer 1 (16Bit) with prescale of 64
	//OCR1A   = 250;    // 500Hz
	//TIMSK   = _BV(OCIE1A);
	//sei();	// enable interrupts
//}
// Timer init
ISR( TIMER1_COMPA_vect )                // Interruptbehandlungsroutine
{
  OCR1A = 2500-OCR1A;			// Das Servosignal wird aus der Differenz von
                                        // Periodenlänge (2500*0,008ms=20ms) und letztem
                                        // Vergleichswert (OCR1A) gebildet 
}

static void ports_init(void) {
    // make column / digit driver pins to output
  DDRB = 0b11111100;
  PORTB = (1<<PB1) | (1<<PB0);          // Pullup für PB0 und PB1
 
  TCCR1A = (1<<COM1A0);                 // Togglen bei Compare Match
  TCCR1B = (1<<WGM12) | (1<<CS11);      // CTC-Mode; Prescaler 8
  TIMSK  = (1<<OCIE1A);                 // Timer-Compare Interrupt an
    // make data ports to output

}

void process_command() {
    if(strstr(command_in,"A") != NULL) {
        // we have an A and B (from check in work_uart()
        // so our message should be complete and consist of:
        // A$voltage,$current_in,$current_out,$power_in,$power_out,loadsw,dumpsw,gensw\n

        //A12.5,65464,00000,00000,00000,1,0,1B

        char *token;
        uint8_t tokencounter = 0;

        char *start = strrchr(command_in, 'A');

        // remove first (B is ignored by atoi)
        start++;

        token = strtok(start, ",");

        while( token ) {
            switch(tokencounter) {
                case 0:
                    voltage = atoi(token);
                    break;
                case 1:
                    current_in = atoi(token);
                    break;
                case 2:
                    current_out = atoi(token);
                    break;
                case 3:
                    power_gen = atoi(token);
                    break;
                case 4:
                    power_load = atoi(token);
                    break;
                case 5:
                    if(atoi(token) == 1) loadsw = 1;
                    else loadsw = 0;
                    break;
                case 6:
                    if(atoi(token) == 1) dumpsw = 1;
                    else dumpsw = 0;
                    break;
                case 7:
                    if(atoi(token) == 1) gensw = 1;
                    else gensw = 0;
                    break;
            }

            tokencounter++;
            token = strtok(NULL, ",");
        }
    }
}

static void work_uart(){
    unsigned int c = uart_getc();
}

    if ( !(c & UART_NO_DATA) ) {
        data_in[data_count] = c;

        if (data_in[data_count] == 'B') {
            data_count = 0;

            memcpy(command_in, data_in, BUFSIZE);
            memset(data_in, 0, BUFSIZE);

            process_command();
        } else {
            data_count++;
        }
    }
}
static void set_servo(uint16_t value){

/// magic need to happen hear
    display = value;
/// magic end
    OCR1A = display;
    sei();
}


static void demo_display(void) {

	for(uint8_t i = 0; i< 16;i++) {
		leddigitbuffer[0] = bigbar_translate[i][0];
		leddigitbuffer[1] = bigbar_translate[i][1];
		wait(5);
	}

	for(uint8_t i = 0; i< 9;i++) {
		leddigitbuffer[2] = smallbar_translate[i];
		wait(5);
	}

	for(uint8_t i = 0; i< 9;i++) {
		leddigitbuffer[3] = smallbar_translate[i];
		wait(5);
	}

	for(uint8_t j = 0; j< 3;j++) {
		for(uint8_t i = 0; i< 6; i++) {
	    	digitbuffer[i] = 0xff;		
    	}
		wait(20);
		for(uint8_t i = 0; i< 6; i++) {
			digitbuffer[i] = 0x00;
    	}
		wait(20);
	}

	for(uint8_t i = 0; i< 3;i++) {
		leddigitbuffer[i] = 0x00;
	}

}

int main(void) {
	ports_init();
	timer_init();
    uart_init(UART_BAUD_SELECT(19200,F_CPU));
    memset(data_in, 0, BUFSIZE);


	demo_display();

	while(1) {

	    work_uart();

        if(syscounter >= 100) {
            uart_putc('a'); // send a to receive values
            set_servo(power_gen)



            syscounter = 0;
        }
	}
	
	return(0);
}

// system timer
SIGNAL(TIMER1_COMPA_vect) {
	syscounter++;

	// output to sevensegment and leds
	// make this here to reduce display flicker
    digit++;
    if(digit >5) digit = 0;
    leddigit++;
    if(leddigit >3) leddigit = 0;

    SEVENSEG_PORT = digitbuffer[digit];
    SEVENSEGDIG_PORT = _BV(digit+DIG0);

    LED_PORT = leddigitbuffer[leddigit];
    LEDDIG_PORT = _BV(leddigit);
}