/*
 *  Hamlib TAPR backend - main file
 *  Copyright (c) 2003 by Stephane Fillod
 *
 *	$Id: tapr.c,v 1.1 2003-10-07 22:15:49 fillods Exp $
 *
 *   This library is free software; you can redistribute it and/or modify
 *   it under the terms of the GNU Library General Public License as
 *   published by the Free Software Foundation; either version 2 of
 *   the License, or (at your option) any later version.
 *
 *   This program 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 Library General Public License for more details.
 *
 *   You should have received a copy of the GNU Library General Public
 *   License along with this library; if not, write to the Free Software
 *   Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 *
 */

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

#include <stdlib.h>
#include <string.h>  /* String function definitions */
#include <unistd.h>  /* UNIX standard function definitions */

#include "hamlib/rig.h"
#include "register.h"
#include "serial.h"

#include "tapr.h"

#define ESC '$'
#define CMD_LEN 6

#define CMD7 7

#define NU1 1
#define NU2 2
#define NU3 3
#define NU4 4

/*
 * tapr_cmd
 * We assume that rig!=NULL, rig->state!= NULL, data!=NULL
 * Otherwise, you'll get a nice seg fault. You've been warned!
 * TODO: error case handling
 */
static int tapr_cmd(RIG *rig, unsigned char cmd, unsigned char c1, unsigned char c2, unsigned char c3, unsigned char c4)
{
	int retval;
	struct rig_state *rs;
	unsigned char cmdbuf[CMD_LEN];

	rs = &rig->state;

	serial_flush(&rs->rigport);

	cmdbuf[0] = ESC;
	cmdbuf[1] = cmd;
	cmdbuf[2] = c1;
	cmdbuf[3] = c2;
	cmdbuf[4] = c3;
	cmdbuf[5] = c4;

	retval = write_block(&rs->rigport, cmdbuf, 6);
	if (retval != RIG_OK)
		return retval;

	return RIG_OK;
}



/*
 * tapr_set_freq
 * Assumes rig!=NULL
 */
int tapr_set_freq(RIG *rig, vfo_t vfo, freq_t freq)
{
	unsigned int dsp_dph, dsp_deltap_lo, dsp_deltap_hi;
	int retval;

	return -RIG_ENIMPL;	/* FIXME! */

	dsp_dph=(unsigned int) (1.365333333*(double)(freq-MHz(144)+15000UL));
	dsp_deltap_lo = 0xff & dsp_dph;
	dsp_deltap_hi = 0xff & (dsp_dph >> 8);
	retval =  tapr_cmd (rig, CMD7, 0, NU1, dsp_deltap_lo, dsp_deltap_hi);

	return retval;
}


/*
 * tapr_set_mode
 * Assumes rig!=NULL
 */
int tapr_set_mode(RIG *rig, vfo_t vfo, rmode_t mode, pbwidth_t width)
{
	return -RIG_ENIMPL;
}


/*
 * initrigs_tapr is called by rig_backend_load
 */
DECLARE_INITRIG_BACKEND(tapr)
{
	rig_debug(RIG_DEBUG_VERBOSE, "tapr: _init called\n");

	rig_register(&dsp10_caps);

	return RIG_OK;
}