/*
 *
 *  mur.sat
 *
 *  Somewhen in the year 2012, mur.at will have a nano satellite launched
 *  into a low earth orbit (310 km above the surface of our planet). The
 *  satellite itself is a TubeSat personal satellite kit, developed and
 *  launched by interorbital systems. mur.sat is a joint venture of mur.at,
 *  ESC im Labor and realraum.
 *
 *  Please visit the project hompage at sat.mur.at for further information.
 *
 *
 *  Copyright (C) 2013 Christian Pointner <equinox@mur.at>
 *
 *  This file is part of mur.sat.
 *
 *  mur.sat is free software: you can redistribute it and/or modify
 *  it under the terms of the GNU General Public License as published by
 *  the Free Software Foundation, either version 3 of the License, or
 *  any later version.
 *
 *  mur.sat is distributed in the hope that it will be useful,
 *  but WITHOUT ANY WARRANTY; without even the implied warranty of
 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 *  GNU General Public License for more details.
 *
 *  You should have received a copy of the GNU General Public License
 *  along with mur.sat. If not, see <http://www.gnu.org/licenses/>.
 *
 */

#include <avr/io.h>
#include <avr/wdt.h>
#include <avr/interrupt.h>
#include <avr/power.h>
#include <stdio.h>

#include "led.h"
#include "util.h"
#include "usbio.h"

#include "rda1846.h"
#include "rda1846_defines.h"

#define DEFAULT_FREQ 145900
//#define DEFAULT_FREQ 409750
int32_t current_freq_kHz = DEFAULT_FREQ;

static void set_default_freq(void)
{
  printf("setting frequency to %d.%03d MHz .. ", (uint16_t)(current_freq_kHz / 1000),
                                                 (uint16_t)(current_freq_kHz % 1000));
  current_freq_kHz = DEFAULT_FREQ;
  if(rda1846_set_freq_kHz(current_freq_kHz))
    printf("error\r\n");
  else
    printf("ok\r\n");
}

static int32_t print_actual_freq(void)
{
  int32_t f = rda1846_get_freq_kHz();
  if(f < 0)
    printf("actual frequency: NaN MHz\r\n");
  else
    printf("actual frequency: %d.%03d MHz\r\n", (uint16_t)(f / 1000), (uint16_t)(f % 1000));
  return f;
}

static void update_current_freq(void)
{
  printf("setting frequency to %d.%03d MHz .. ", (uint16_t)(current_freq_kHz / 1000),
                                                 (uint16_t)(current_freq_kHz % 1000));
  rda1846_powerdown();

  if(rda1846_set_freq_kHz(current_freq_kHz))
    printf("error\r\n");
  else
    printf("ok\r\n");

  rda1846_wakeup();

  /* current_freq_kHz = print_actual_freq(); */
  /* if(current_freq_kHz < 0) */
  /*   current_freq_kHz = DEFAULT_FREQ; */
}

static void print_status(void)
{
  int16_t rssi = rda1846_get_rssi();
  printf("rssi: ");
  if(rssi < 0) {
    printf("-");
    rssi*=-1;
  }
  printf("%d.%03d dB\r\n", (uint16_t)(rssi / 8), (uint16_t)((rssi % 8)*125));

  int16_t vssi = rda1846_get_vssi();
  if(vssi < 0)
    printf("vssi: NaN mV\r\n");
  else
    printf("vssi: %d mV\r\n", vssi);

  uint16_t flags = rda1846_get_flags();
  if(flags == 0xFFFF)
    printf("flags: ERROR\r\n");
  else
    printf("flags: %04X\r\n", flags);

  print_actual_freq();
}

static void print_dtmf(void)
{
  uint8_t idx1, idx2, code;
  if(rda1846_get_dtmf(&idx1, &idx2, &code))
    printf("DTMF: ERROR\r\n");
  else
    printf("DTMF: tone1=%d, tone2=%d, code=0x%02X\r\n", idx1, idx2, code);
}


static void handle_cmd(uint8_t cmd)
{
  switch(cmd) {
  case '0': rda1846_gpio_AA(); led_off(); printf("led OFF\r\n"); break;
  case '1': rda1846_gpio_55(); led_on(); printf("led ON\r\n"); break;
  case 't': led_toggle(); printf("led TOGGLE\r\n"); break;
  case '!': reset2bootloader(); break;

  case 'r': rda1846_soft_reset(); printf("soft resetting RDA1846.\r\n"); break;
  case 'i': rda1846_reg_init(); printf("initializing RDA1846.\r\n"); break;
  case 'F': set_default_freq(); break;

  case 'g': rda1846_gpio_off(); printf("GPIO off\r\n"); break;
  case 'G': rda1846_gpio_default(); printf("GPIO to defaults\r\n"); break;

  case 'f': print_actual_freq(); break;
  case 's': print_status(); break;
  case 'd': print_dtmf(); break;
  case 'D': rda1846_dump_register(); break;

  case 'p': rda1846_powerdown(); break;
  case 'P': rda1846_wakeup(); break;

  case 'I': rda1846_idle(); break;
  case 'R': rda1846_receive(); break;
  case 'T': rda1846_transmit(); break;

  case '+': current_freq_kHz+=25; update_current_freq(); break;
  case '-': current_freq_kHz-=25; update_current_freq(); break;
  default: printf("\r\n"); return;
  }
}

int main(void)
{
  MCUSR &= ~(1 << WDRF);
  wdt_disable();

  cpu_init();
  led_init();
  usbio_init();

  rda1846_init();

  sei();
  for(;;) {
    int16_t BytesReceived = usbio_bytes_received();
    while(BytesReceived > 0) {
      int ReceivedByte = fgetc(stdin);
      if(ReceivedByte != EOF) {
        handle_cmd(ReceivedByte);
      }
      BytesReceived--;
    }

    usbio_task();
  }
}