/*
*  Hamlib Kenwood backend - TS850 description
*  Copyright (c) 2000-2004 by Stephane Fillod
*
*
 *   This library is free software; you can redistribute it and/or
 *   modify it under the terms of the GNU Lesser General Public
 *   License as published by the Free Software Foundation; either
 *   version 2.1 of the License, or (at your option) any later version.
 *
 *   This library 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
 *   Lesser General Public License for more details.
 *
 *   You should have received a copy of the GNU Lesser General Public
 *   License along with this library; if not, write to the Free Software
 *   Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
*
*/

#ifdef HAVE_CONFIG_H
#include "config.h"
#endif

#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include <math.h>

#include <hamlib/rig.h>
#include <cal.h>
#include "kenwood.h"


#define TS850_ALL_MODES (RIG_MODE_AM|RIG_MODE_CW|RIG_MODE_CWR|RIG_MODE_SSB|RIG_MODE_FM|RIG_MODE_RTTY|RIG_MODE_RTTYR)
#define TS850_OTHER_TX_MODES (RIG_MODE_CW|RIG_MODE_CWR|RIG_MODE_SSB|RIG_MODE_FM|RIG_MODE_RTTY|RIG_MODE_RTTYR)
#define TS850_AM_TX_MODES (RIG_MODE_AM)

#define TS850_FUNC_ALL (RIG_FUNC_AIP|RIG_FUNC_LOCK)

#define TS850_LEVEL_GET (RIG_LEVEL_SWR|RIG_LEVEL_COMP|RIG_LEVEL_ALC|RIG_LEVEL_CWPITCH|RIG_LEVEL_RAWSTR|RIG_LEVEL_STRENGTH|RIG_LEVEL_SLOPE_LOW|RIG_LEVEL_SLOPE_HIGH)
#define TS850_LEVEL_SET (RIG_LEVEL_CWPITCH|RIG_LEVEL_SLOPE_LOW|RIG_LEVEL_SLOPE_HIGH)

#define TS850_VFO (RIG_VFO_A|RIG_VFO_B)

#define TS850_VFO_OPS (RIG_OP_UP|RIG_OP_DOWN)

#define TS850_CHANNEL_CAPS \
.freq=1,\
.mode=1,\
.tx_freq=1,\
.tx_mode=1,\
.split=1,\
.flags=RIG_CHFLAG_SKIP, \
.ctcss_tone=1

#define TS850_STR_CAL { 4, \
	{ \
		{   0, -54 }, \
		{  15, 0 }, \
		{  22,30 }, \
		{  30, 66}, \
	} }


static struct kenwood_priv_caps  ts850_priv_caps  = {
	.cmdtrm =  EOM_KEN,
};

/* forward definitions */
static int ts850_set_rit(RIG * rig, vfo_t vfo, shortfreq_t rit);
static int ts850_set_xit(RIG * rig, vfo_t vfo, shortfreq_t rit);
static int ts850_get_level(RIG *rig, vfo_t vfo, setting_t level, value_t *val);
static int ts850_set_channel (RIG * rig, const channel_t * chan);

static const struct confparams ts850_ext_parms[] = {
	{ TOK_FINE, "fine", "Fine", "Fine step mode",
		NULL, RIG_CONF_CHECKBUTTON, { } },
	{ TOK_VOICE, "voice", "Voice", "Voice recall",
		NULL, RIG_CONF_BUTTON, { } },
	{ TOK_XIT, "xit", "XIT", "XIT",
		NULL, RIG_CONF_CHECKBUTTON, { } },
	{ TOK_RIT, "rit", "RIT", "RIT",
		NULL, RIG_CONF_CHECKBUTTON, { } },
  	{ RIG_CONF_END, NULL, }
};

/*
* ts850 rig capabilities.
* Notice that some rigs share the same functions.
* Also this struct is READONLY!
*/
const struct rig_caps ts850_caps = {
	.rig_model =  RIG_MODEL_TS850,
	.model_name = "TS-850",
	.mfg_name =  "Kenwood",
	.version =  BACKEND_VER ".1",
	.copyright =  "LGPL",
	.status =  RIG_STATUS_BETA,
	.rig_type =  RIG_TYPE_TRANSCEIVER,
	.ptt_type =  RIG_PTT_RIG,
	.dcd_type =  RIG_DCD_RIG,
	.port_type =  RIG_PORT_SERIAL,
	.serial_rate_min =  4800,
	.serial_rate_max =  4800,
	.serial_data_bits =  8,
	.serial_stop_bits =  2,
	.serial_parity =  RIG_PARITY_NONE,
	.serial_handshake =  RIG_HANDSHAKE_HARDWARE,
	.write_delay =  0,
	.post_write_delay =  100,
	.timeout =  480000,  // When you tune a Kenwood, the reply is delayed until you stop.
	.retry =  0,

	.has_get_func =  TS850_FUNC_ALL,
	.has_set_func =  TS850_FUNC_ALL,
	.has_get_level =  TS850_LEVEL_GET,
	.has_set_level =  TS850_LEVEL_SET,
	.has_get_parm =  RIG_PARM_NONE,
	.has_set_parm =  RIG_PARM_NONE,
	.level_gran =  {},
	.parm_gran =  {},
	.extparms = ts850_ext_parms,
  	.ctcss_list =  kenwood38_ctcss_list,
	.dcs_list =  NULL,
	.preamp =   { RIG_DBLST_END, },
	.attenuator =   { RIG_DBLST_END, },
	.max_rit =  kHz(1.27),
	.max_xit =  kHz(1.27),
	.max_ifshift =  Hz(0),
	.vfo_ops=TS850_VFO_OPS,
	.targetable_vfo =  RIG_TARGETABLE_FREQ,
	.transceive =  RIG_TRN_RIG,
	.bank_qty =   0,
	.chan_desc_sz =  3,
	.chan_list =  {
		{  0, 89, RIG_MTYPE_MEM ,{TS850_CHANNEL_CAPS}},
		{ 90, 99, RIG_MTYPE_EDGE ,{TS850_CHANNEL_CAPS}},
		RIG_CHAN_END,
	},

	.rx_range_list1 =  {
		{kHz(100),MHz(30),TS850_ALL_MODES,-1,-1,TS850_VFO},
		RIG_FRNG_END,
	}, /* rx range */
	.tx_range_list1 =  {
		{kHz(1810),kHz(1850),TS850_OTHER_TX_MODES,W(5),W(100),TS850_VFO},	/* 100W class */
		{kHz(1810),kHz(1850),TS850_AM_TX_MODES,W(2),W(40),TS850_VFO},		/* 40W class */
		{kHz(3500),kHz(3800),TS850_OTHER_TX_MODES,W(5),W(100),TS850_VFO},
		{kHz(3500),kHz(3800),TS850_AM_TX_MODES,W(2),W(40),TS850_VFO},
		{MHz(7),kHz(7100),TS850_OTHER_TX_MODES,W(5),W(100),TS850_VFO},
		{MHz(7),kHz(7100),TS850_AM_TX_MODES,W(2),W(40),TS850_VFO},
		{kHz(10100),kHz(10150),TS850_OTHER_TX_MODES,W(5),W(100),TS850_VFO},
		{kHz(10100),kHz(10150),TS850_AM_TX_MODES,W(2),W(40),TS850_VFO},
		{MHz(14),kHz(14350),TS850_OTHER_TX_MODES,W(5),W(100),TS850_VFO},
		{MHz(14),kHz(14350),TS850_AM_TX_MODES,W(2),W(40),TS850_VFO},
		{kHz(18068),kHz(18168),TS850_OTHER_TX_MODES,W(5),W(100),TS850_VFO},
		{kHz(18068),kHz(18168),TS850_AM_TX_MODES,W(2),W(40),TS850_VFO},
		{MHz(21),kHz(21450),TS850_OTHER_TX_MODES,W(5),W(100),TS850_VFO},
		{MHz(21),kHz(21450),TS850_AM_TX_MODES,W(2),W(40),TS850_VFO},
		{kHz(24890),kHz(24990),TS850_OTHER_TX_MODES,W(5),W(100),TS850_VFO},
		{kHz(24890),kHz(24990),TS850_AM_TX_MODES,W(2),W(40),TS850_VFO},
		{MHz(28),kHz(29700),TS850_OTHER_TX_MODES,W(5),W(100),TS850_VFO},
		{MHz(28),kHz(29700),TS850_AM_TX_MODES,W(2),W(40),TS850_VFO},
		RIG_FRNG_END,
	},

	.rx_range_list2 =  {
		{kHz(100),MHz(30),TS850_ALL_MODES,-1,-1,TS850_VFO},
		RIG_FRNG_END,
	}, /* rx range */
	.tx_range_list2 =  {
		{kHz(1800),MHz(2)-1,TS850_OTHER_TX_MODES,W(5),W(100),TS850_VFO},	/* 100W class */
		{kHz(1800),MHz(2)-1,TS850_AM_TX_MODES,W(2),W(40),TS850_VFO},		/* 40W class */
		{kHz(3500),MHz(4)-1,TS850_OTHER_TX_MODES,W(5),W(100),TS850_VFO},
		{kHz(3500),MHz(4)-1,TS850_AM_TX_MODES,W(2),W(40),TS850_VFO},
		{MHz(7),kHz(7300),TS850_OTHER_TX_MODES,W(5),W(100),TS850_VFO},
		{MHz(7),kHz(7300),TS850_AM_TX_MODES,W(2),W(40),TS850_VFO},
		{kHz(10100),kHz(10150),TS850_OTHER_TX_MODES,W(5),W(100),TS850_VFO},
		{kHz(10100),kHz(10150),TS850_AM_TX_MODES,W(2),W(40),TS850_VFO},
		{MHz(14),kHz(14350),TS850_OTHER_TX_MODES,W(5),W(100),TS850_VFO},
		{MHz(14),kHz(14350),TS850_AM_TX_MODES,W(2),W(40),TS850_VFO},
		{kHz(18068),kHz(18168),TS850_OTHER_TX_MODES,W(5),W(100),TS850_VFO},
		{kHz(18068),kHz(18168),TS850_AM_TX_MODES,W(2),W(40),TS850_VFO},
		{MHz(21),kHz(21450),TS850_OTHER_TX_MODES,W(5),W(100),TS850_VFO},
		{MHz(21),kHz(21450),TS850_AM_TX_MODES,W(2),W(40),TS850_VFO},
		{kHz(24890),kHz(24990),TS850_OTHER_TX_MODES,W(5),W(100),TS850_VFO},
		{kHz(24890),kHz(24990),TS850_AM_TX_MODES,W(2),W(40),TS850_VFO},
		{MHz(28),kHz(29700),TS850_OTHER_TX_MODES,W(5),W(100),TS850_VFO},
		{MHz(28),kHz(29700),TS850_AM_TX_MODES,W(2),W(40),TS850_VFO},
		RIG_FRNG_END,
	}, /* tx range */
	.tuning_steps =  {
		{TS850_ALL_MODES,0},	/* any tuning step */
		RIG_TS_END,
	},
	/* mode/filter list, remember: order matters! */
	.filters =  {
		{TS850_ALL_MODES, kHz(12)},
		{TS850_ALL_MODES, kHz(6)},
		{TS850_ALL_MODES, kHz(2.7)},
		{TS850_ALL_MODES, Hz(500)},
		{TS850_ALL_MODES, Hz(250)},
		RIG_FLT_END,
	},
	.str_cal = TS850_STR_CAL,
	.priv =  (void *)&ts850_priv_caps,

        .rig_init = kenwood_init,
	.rig_open = kenwood_open,
        .rig_cleanup = kenwood_cleanup,
	.set_freq =  kenwood_set_freq,
	.get_freq =  kenwood_get_freq,
	.set_rit =  ts850_set_rit,
	.get_rit =  kenwood_get_rit,
	.set_xit =  ts850_set_xit,
	.get_xit =  kenwood_get_xit,
	.set_mode = kenwood_set_mode,
	.get_mode = kenwood_get_mode_if,
	.set_vfo =  kenwood_set_vfo,
	.get_vfo =  kenwood_get_vfo_if,
	.set_split_vfo =  kenwood_set_split_vfo,
	.set_ctcss_tone = kenwood_set_ctcss_tone_tn,
	.get_ctcss_tone = kenwood_get_ctcss_tone,
	.get_ptt =  kenwood_get_ptt,
	.set_ptt =  kenwood_set_ptt_safe,
	.set_func = kenwood_set_func,
	.get_func = kenwood_get_func,
	.set_level = kenwood_set_level,
	.get_level =  ts850_get_level,
	.vfo_op =  kenwood_vfo_op,
	.set_mem =  kenwood_set_mem,
	.get_mem =  kenwood_get_mem_if,
	.get_channel = kenwood_get_channel,
	.set_channel = ts850_set_channel,
	.set_trn =  kenwood_set_trn
};

/*
* Function definitions below
*/

int ts850_set_rit(RIG * rig, vfo_t vfo, shortfreq_t rit)
{
	char buf[50], infobuf[50];
	unsigned char c;
	int retval, len, i;
	size_t info_len;

	info_len = 0;
	if (rit == 0) {
		retval = kenwood_transaction(rig, "RT0", 3, infobuf, &info_len);
		if (retval != RIG_OK)
			return retval;
	} else {
		retval = kenwood_transaction(rig, "RT1", 3, infobuf, &info_len);
		if (retval != RIG_OK)
			return retval;
	}

	if (rit > 0)
		c = 'U';
	else
		c = 'D';
	len = sprintf(buf, "R%c", c);

	info_len = 0;
	retval = kenwood_transaction(rig, "RC", 2, infobuf, &info_len);
	if (retval != RIG_OK)
		return retval;

	for (i = 0; i < abs(rint(rit/20)); i++)
	{
		info_len = 0;
		retval = kenwood_transaction(rig, buf, len, infobuf, &info_len);
		if (retval != RIG_OK)
			return retval;
	}

	return RIG_OK;
}

int ts850_set_xit(RIG * rig, vfo_t vfo, shortfreq_t xit)
{
	char buf[50], infobuf[50];
	unsigned char c;
	int retval, len, i;
	size_t info_len;

	info_len = 0;
	if (xit == 0) {
		retval = kenwood_transaction(rig, "XT0", 3, infobuf, &info_len);
		if (retval != RIG_OK)
			return retval;
	} else {
		retval = kenwood_transaction(rig, "XT1", 3, infobuf, &info_len);
		if (retval != RIG_OK)
			return retval;
	}

	info_len = 0;
	retval = kenwood_transaction(rig, "RC", 2, infobuf, &info_len);
	if (retval != RIG_OK)
		return retval;

	if (xit > 0)
		c = 'U';
	else
		c = 'D';
	len = sprintf(buf, "R%c", c);

	for (i = 0; i < abs(rint(xit/20)); i++)
	{
		info_len = 0;
		retval = kenwood_transaction(rig, buf, len, infobuf, &info_len);
		if (retval != RIG_OK)
			return retval;
	}

	return RIG_OK;
}

static char mode_to_char(rmode_t mode)
{
	switch (mode) {
		case RIG_MODE_CW:       return(MD_CW);
		case RIG_MODE_CWR:      return(MD_CWR);
		case RIG_MODE_USB:      return(MD_USB);
		case RIG_MODE_LSB:      return(MD_LSB);
		case RIG_MODE_FM:       return(MD_FM);
		case RIG_MODE_AM:       return(MD_AM);
		case RIG_MODE_RTTY:     return(MD_FSK);
		case RIG_MODE_RTTYR:    return(MD_FSKR);
		default:
			rig_debug(RIG_DEBUG_WARN,"%s: unsupported mode %d\n", __func__,mode);
	}
	return(RIG_MODE_NONE);
}

int ts850_get_level(RIG *rig, vfo_t vfo, setting_t level, value_t *val)
{
	char lvlbuf[50];
	int i, retval;
	size_t lvl_len;

	if(vfo!=RIG_VFO_CURR)
		return -RIG_EINVAL;

	switch (level) {
		case RIG_LEVEL_RAWSTR:
		lvl_len = 50;
		retval = kenwood_transaction (rig, "SM", 2, lvlbuf, &lvl_len);
		if (retval != RIG_OK)
			return retval;
		lvlbuf[6]='\0';
		val->i=atoi(&lvlbuf[2]);
		break;

		case RIG_LEVEL_STRENGTH:
		lvl_len = 50;
		retval = kenwood_transaction (rig, "SM", 2, lvlbuf, &lvl_len);
		if (retval != RIG_OK)
			return retval;
		lvlbuf[6]='\0';
		val->i=atoi(&lvlbuf[2]);
		//val->i = (val->i * 4) - 54;  Old approximate way of doing it.
		val->i = (int)rig_raw2val(val->i,&rig->caps->str_cal);
		break;

		case RIG_LEVEL_SWR:
			lvl_len = 0;
		retval = kenwood_transaction (rig, "RM1", 3, lvlbuf, &lvl_len);
		if (retval != RIG_OK)
			return retval;
		lvl_len = 50;
		retval = kenwood_transaction (rig, "RM", 2, lvlbuf, &lvl_len);
		if (retval != RIG_OK)
			return retval;
		lvlbuf[7]='\0';
		i=atoi(&lvlbuf[3]);
		if(i == 30)
			val->f = 150.0; /* infinity :-) */
		else
			val->f = 60.0/(30.0-(float)i)-1.0;
		break;

		case RIG_LEVEL_COMP:
			lvl_len = 0;
		retval = kenwood_transaction (rig, "RM2", 3, lvlbuf, &lvl_len);
		if (retval != RIG_OK)
			return retval;
		lvl_len = 50;
		retval = kenwood_transaction (rig, "RM", 2, lvlbuf, &lvl_len);
		if (retval != RIG_OK)
			return retval;
		lvlbuf[7]='\0';
		val->f=(float)atoi(&lvlbuf[3])/30.0;
		break;

		case RIG_LEVEL_ALC:
			lvl_len = 0;
		retval = kenwood_transaction (rig, "RM3", 3, lvlbuf, &lvl_len);
		if (retval != RIG_OK)
			return retval;
		lvl_len = 50;
		retval = kenwood_transaction (rig, "RM", 2, lvlbuf, &lvl_len);
		if (retval != RIG_OK)
			return retval;
		lvlbuf[7]='\0';
		val->f=(float)atoi(&lvlbuf[3])/30.0;
		break;

		case RIG_LEVEL_CWPITCH:
			lvl_len = 25;
		retval = kenwood_transaction (rig, "PT", 2, lvlbuf, &lvl_len);
		if (retval != RIG_OK)
			return retval;
		lvlbuf[4]='\0';
		val->i=atoi(&lvlbuf[2]);
		val->i=(val->i-8)*50+800;
		break;


		default:
			return kenwood_get_level (rig, vfo, level, val);
	}
	return retval; // Never gets here.
}

int ts850_set_channel (RIG * rig, const channel_t * chan)
{
	char cmdbuf[30], membuf[30];
	int retval, cmd_len;
	size_t mem_len;
	int num,freq,tx_freq,tone;
	char mode,tx_mode,tones;

	num=chan->channel_num;
	freq=(int)chan->freq;
	mode=mode_to_char(chan->mode);
	if(chan->split==RIG_SPLIT_ON) {
		tx_freq=(int)chan->tx_freq;
		tx_mode=mode_to_char(chan->tx_mode);
	} else {
		tx_freq=0;
		tx_mode='\0';
	}

	for (tone = 1; rig->caps->ctcss_list[tone-1] != 0 && tone<39; tone++) {
		if (rig->caps->ctcss_list[tone-1] == chan->ctcss_tone)
			break;
	}
	if(chan->ctcss_tone!=0) {
		tones='1';
	} else {
		tones='0';
		tone=0;
	}

	cmd_len = sprintf(cmdbuf, "MW0 %02d%011d%c0%c%02d ",
					  num,freq,mode,tones,tone);
	mem_len = 0;
	retval = kenwood_transaction (rig, cmdbuf, cmd_len, membuf, &mem_len);
	if (retval != RIG_OK)
		return retval;

	cmd_len = sprintf(cmdbuf, "MW1 %02d%011d%c0%c%02d ",
					  num,tx_freq,tx_mode,tones,tone);
	mem_len = 0;
	retval = kenwood_transaction (rig, cmdbuf, cmd_len, membuf, &mem_len);
	if (retval != RIG_OK)
		return retval;

	return RIG_OK;
}