#include "TEF6686.h"
#include <stdarg.h>

void devTEF_Set_Cmd(TEF_MODULE module, uint8_t cmd, uint16_t len, ...) {
  if(len > 10) return;
  uint8_t buf[22];
  va_list vArgs;
  va_start(vArgs, len);
  buf[0] = module;
  buf[1] = cmd;
  buf[2] = 1;

  for (uint16_t i = 0; i < len; i++) {
      uint16_t temp = va_arg(vArgs, int);
      buf[3 + 2*i] = High_16bto8b(temp);
      buf[3 + 2*i + 1] = Low_16bto8b(temp);
  }

  va_end(vArgs);
  Tuner_WriteBuffer(buf, len * 2 + 3);
}

bool devTEF_Get_Cmd(TEF_MODULE module, uint8_t cmd, uint8_t *receive, uint16_t len) {
  uint8_t buf[3] = {module, cmd, 1};

  Tuner_WriteBuffer(buf, sizeof(buf));
  return Tuner_ReadBuffer(receive, len);
}

uint8_t devTEF_APPL_Get_Operation_Status() {
  uint8_t buf[2];
  while(!devTEF_Get_Cmd(TEF_APPL, Cmd_Get_Operation_Status, buf, sizeof(buf))) delay(1);
  return Convert8bto16b(buf);
}

void devTEF_Radio_Get_Quality_Data(uint16_t *status, int16_t *level, uint16_t *usn, uint16_t *wam, int16_t *offset, uint16_t *bandwidth, uint16_t *audiolevel) {
  uint8_t buf[14];
  devTEF_Get_Cmd(TEF_FM, Cmd_Get_Quality_Data, buf, sizeof(buf));

  int16_t _level = Convert8bto16b(buf + 2);
  if (_level < -200) _level = -200;
  if (_level > 1200) _level = 1200;
  uint16_t _usn = Convert8bto16b(buf + 4);
  uint16_t _wam = Convert8bto16b(buf + 6);

  if(status != NULL) *status = Convert8bto16b(buf);
  if(level != NULL) *level = _level;
  if(usn != NULL) *usn = _usn;
  if(wam != NULL) *wam = _wam;
  if(offset != NULL) *offset = Convert8bto16b(buf + 8);
  if(bandwidth != NULL) *bandwidth = Convert8bto16b(buf + 10) / 10;
  if(audiolevel != NULL) *audiolevel = Convert8bto16b(buf + 12) / 10;
}

void devTEF_Radio_Get_RDS_Status(uint16_t *status, uint16_t *A_block, uint16_t *B_block, uint16_t *C_block, uint16_t *D_block, uint16_t *dec_error) {
  uint8_t buf[12];
  devTEF_Get_Cmd(TEF_FM, Cmd_Get_RDS_Status, buf, sizeof(buf));
  if(status != NULL) *status = Convert8bto16b(buf);
  if(A_block != NULL) *A_block = Convert8bto16b(buf + 2);
  if(B_block != NULL) *B_block = Convert8bto16b(buf + 4);
  if(C_block != NULL) *C_block = Convert8bto16b(buf + 6);
  if(D_block != NULL) *D_block = Convert8bto16b(buf + 8);
  if(dec_error != NULL) *dec_error = Convert8bto16b(buf + 10);
}

void devTEF_Radio_Get_RDS_Data(uint16_t *status, uint16_t *A_block, uint16_t *B_block, uint16_t *C_block, uint16_t *D_block, uint16_t *dec_error) {
  uint8_t buf[12];
  devTEF_Get_Cmd(TEF_FM, Cmd_Get_RDS_Data, buf, sizeof(buf));
  if(status != NULL) *status = Convert8bto16b(buf);
  if(A_block != NULL) *A_block = Convert8bto16b(buf + 2);
  if(B_block != NULL) *B_block = Convert8bto16b(buf + 4);
  if(C_block != NULL) *C_block = Convert8bto16b(buf + 6);
  if(D_block != NULL) *D_block = Convert8bto16b(buf + 8);
  if(dec_error != NULL) *dec_error = Convert8bto16b(buf + 10);
}

void devTEF_Radio_Set_Wavegen(bool mode, int16_t amplitude, uint16_t freq) {
  devTEF_Set_Cmd(TEF_AUDIO, Cmd_Set_Input, 1, mode ? 240 : 0);
  if (mode) devTEF_Set_Cmd(TEF_AUDIO, Cmd_Set_WaveGen, 6, 5, 0, amplitude * 10, freq, amplitude * 10, freq);
  else devTEF_Set_Cmd(TEF_AUDIO, Cmd_Set_WaveGen, 6, 0);
}