2001-12-17 22:40:34 +00:00
|
|
|
/*
|
|
|
|
* Hamlib JRC backend - main file
|
2005-01-24 23:04:35 +00:00
|
|
|
* Copyright (c) 2001-2005 by Stephane Fillod
|
2001-12-17 22:40:34 +00:00
|
|
|
*
|
2005-04-20 16:43:29 +00:00
|
|
|
* $Id: jrc.c,v 1.25 2005-04-20 16:43:29 fillods Exp $
|
2001-12-17 22:40:34 +00:00
|
|
|
*
|
|
|
|
* 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
|
|
|
|
|
2003-10-01 19:32:04 +00:00
|
|
|
#include <stdio.h>
|
2001-12-17 22:40:34 +00:00
|
|
|
#include <stdlib.h>
|
|
|
|
#include <string.h> /* String function definitions */
|
|
|
|
#include <unistd.h> /* UNIX standard function definitions */
|
2004-05-19 08:57:50 +00:00
|
|
|
#include <math.h>
|
2001-12-17 22:40:34 +00:00
|
|
|
|
2003-04-07 22:42:11 +00:00
|
|
|
#include "hamlib/rig.h"
|
|
|
|
#include "serial.h"
|
|
|
|
#include "misc.h"
|
|
|
|
#include "cal.h"
|
2003-04-16 22:30:43 +00:00
|
|
|
#include "register.h"
|
2001-12-17 22:40:34 +00:00
|
|
|
|
|
|
|
#include "jrc.h"
|
|
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
* Carriage return
|
|
|
|
*/
|
|
|
|
#define EOM "\r"
|
|
|
|
|
2002-03-13 23:37:13 +00:00
|
|
|
#define BUFSZ 32
|
|
|
|
|
2001-12-17 22:40:34 +00:00
|
|
|
/*
|
|
|
|
* modes in use by the "2G" command
|
|
|
|
*/
|
|
|
|
#define MD_RTTY '0'
|
|
|
|
#define MD_CW '1'
|
|
|
|
#define MD_USB '2'
|
|
|
|
#define MD_LSB '3'
|
|
|
|
#define MD_AM '4'
|
|
|
|
#define MD_FM '5'
|
|
|
|
#define MD_AMS '6'
|
2004-08-08 20:13:19 +00:00
|
|
|
#define MD_FAX '6'
|
|
|
|
#define MD_ECSS_USB '7'
|
|
|
|
#define MD_ECSS_LSB '8'
|
2001-12-17 22:40:34 +00:00
|
|
|
#define MD_WFM '9'
|
|
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
* jrc_transaction
|
|
|
|
* We assume that rig!=NULL, rig->state!= NULL, data!=NULL, data_len!=NULL
|
|
|
|
* Otherwise, you'll get a nice seg fault. You've been warned!
|
|
|
|
* TODO: error case handling
|
|
|
|
*/
|
2005-04-13 22:31:46 +00:00
|
|
|
static int jrc_transaction(RIG *rig, const char *cmd, int cmd_len, char *data, int *data_len)
|
2001-12-17 22:40:34 +00:00
|
|
|
{
|
2002-03-13 23:37:13 +00:00
|
|
|
int retval;
|
2001-12-17 22:40:34 +00:00
|
|
|
struct rig_state *rs;
|
|
|
|
|
|
|
|
rs = &rig->state;
|
|
|
|
|
|
|
|
serial_flush(&rs->rigport);
|
|
|
|
|
2005-04-20 16:43:29 +00:00
|
|
|
Hold_Decode(rig);
|
|
|
|
|
2001-12-17 22:40:34 +00:00
|
|
|
retval = write_block(&rs->rigport, cmd, cmd_len);
|
2005-04-20 16:43:29 +00:00
|
|
|
if (retval != RIG_OK) {
|
|
|
|
Unhold_Decode(rig);
|
2005-04-13 22:31:46 +00:00
|
|
|
return retval;
|
2005-04-20 16:43:29 +00:00
|
|
|
}
|
2001-12-17 22:40:34 +00:00
|
|
|
|
2005-04-20 16:43:29 +00:00
|
|
|
if (!data || !data_len) {
|
|
|
|
Unhold_Decode(rig);
|
2005-04-13 22:31:46 +00:00
|
|
|
return 0;
|
2005-04-20 16:43:29 +00:00
|
|
|
}
|
2002-03-13 23:37:13 +00:00
|
|
|
|
2005-04-10 21:47:14 +00:00
|
|
|
retval = read_string(&rs->rigport, data, BUFSZ, EOM, strlen(EOM));
|
2005-04-20 16:43:29 +00:00
|
|
|
|
|
|
|
Unhold_Decode(rig);
|
|
|
|
|
2005-04-10 21:47:14 +00:00
|
|
|
if (retval < 0)
|
|
|
|
return retval;
|
|
|
|
*data_len = retval;
|
2001-12-17 22:40:34 +00:00
|
|
|
|
|
|
|
return RIG_OK;
|
|
|
|
}
|
|
|
|
|
2005-04-13 22:31:46 +00:00
|
|
|
static int jrc2rig_mode(RIG *rig, char jmode, char jwidth,
|
|
|
|
rmode_t *mode, pbwidth_t *width)
|
|
|
|
{
|
|
|
|
switch (jmode) {
|
|
|
|
case MD_RTTY: *mode = RIG_MODE_RTTY; break;
|
|
|
|
case MD_CW: *mode = RIG_MODE_CW; break;
|
|
|
|
case MD_USB: *mode = RIG_MODE_USB; break;
|
|
|
|
case MD_LSB: *mode = RIG_MODE_LSB; break;
|
|
|
|
case MD_AM: *mode = RIG_MODE_AM; break;
|
|
|
|
case MD_FM: *mode = RIG_MODE_FM; break;
|
|
|
|
case MD_AMS: if (rig->caps->rig_model == RIG_MODEL_NRD535) {
|
|
|
|
*mode = RIG_MODE_FAX;
|
|
|
|
} else {
|
|
|
|
*mode = RIG_MODE_AMS;
|
|
|
|
}
|
|
|
|
break;
|
|
|
|
case MD_ECSS_USB: *mode = RIG_MODE_ECSSUSB; break;
|
|
|
|
case MD_ECSS_LSB: *mode = RIG_MODE_ECSSLSB; break;
|
|
|
|
case MD_WFM: *mode = RIG_MODE_WFM; break;
|
|
|
|
default:
|
|
|
|
rig_debug(RIG_DEBUG_ERR,
|
|
|
|
"%s: unsupported mode %c\n",
|
|
|
|
__FUNCTION__, jmode);
|
|
|
|
*mode = RIG_MODE_NONE;
|
|
|
|
return -RIG_EINVAL;
|
|
|
|
}
|
|
|
|
|
|
|
|
/*
|
|
|
|
* determine passband
|
|
|
|
*/
|
|
|
|
switch (jwidth) {
|
|
|
|
case '0':
|
|
|
|
*width = s_Hz(6000); //wide
|
|
|
|
break;
|
|
|
|
case '1':
|
|
|
|
*width = s_Hz(2000); //inter
|
|
|
|
break;
|
|
|
|
case '2':
|
|
|
|
*width = s_Hz(1000); //narr
|
|
|
|
break;
|
|
|
|
case '3':
|
|
|
|
*width = s_Hz(12000); //aux - nrd535 only
|
|
|
|
break;
|
|
|
|
default:
|
|
|
|
rig_debug(RIG_DEBUG_ERR,
|
|
|
|
"%s: unsupported width %c\n",
|
|
|
|
__FUNCTION__, jwidth);
|
|
|
|
*width = RIG_PASSBAND_NORMAL;
|
|
|
|
return -RIG_EINVAL;
|
|
|
|
}
|
|
|
|
|
|
|
|
return RIG_OK;
|
|
|
|
}
|
|
|
|
|
|
|
|
static int rig2jrc_mode(RIG *rig, rmode_t mode, pbwidth_t width,
|
|
|
|
char *jmode, char *jwidth)
|
|
|
|
{
|
|
|
|
switch (mode) {
|
|
|
|
case RIG_MODE_RTTY: *jmode = MD_RTTY; break;
|
|
|
|
case RIG_MODE_CW: *jmode = MD_CW; break;
|
|
|
|
case RIG_MODE_USB: *jmode = MD_USB; break;
|
|
|
|
case RIG_MODE_LSB: *jmode = MD_LSB; break;
|
|
|
|
case RIG_MODE_AM: *jmode = MD_AM; break;
|
|
|
|
case RIG_MODE_FM: *jmode = MD_FM; break;
|
|
|
|
case RIG_MODE_AMS: *jmode = MD_AMS; break;
|
|
|
|
case RIG_MODE_FAX: *jmode = MD_FAX; break;
|
|
|
|
case RIG_MODE_ECSSUSB: *jmode = MD_ECSS_USB; break;
|
|
|
|
case RIG_MODE_ECSSLSB: *jmode = MD_ECSS_LSB; break;
|
|
|
|
case RIG_MODE_WFM: *jmode = MD_WFM; break;
|
|
|
|
default:
|
|
|
|
rig_debug(RIG_DEBUG_ERR,
|
|
|
|
"%s: unsupported mode %d\n", __FUNCTION__, mode);
|
|
|
|
return -RIG_EINVAL;
|
|
|
|
}
|
|
|
|
|
|
|
|
if (width == RIG_PASSBAND_NORMAL)
|
|
|
|
width = rig_passband_normal(rig, mode);
|
|
|
|
|
|
|
|
if (width <= s_Hz(1500))
|
|
|
|
*jwidth = '2'; /*narr*/
|
|
|
|
else if (width <= s_Hz(4000))
|
|
|
|
*jwidth = '1'; /*inter*/
|
|
|
|
else if (width <= s_Hz(9000))
|
|
|
|
*jwidth = '0'; /*wide*/
|
|
|
|
else if (rig->caps->rig_model == RIG_MODEL_NRD535)
|
|
|
|
*jwidth = '3'; /*aux - nrd535 only*/
|
|
|
|
else
|
|
|
|
*jwidth = '1'; /*inter*/
|
|
|
|
|
|
|
|
return RIG_OK;
|
|
|
|
}
|
|
|
|
|
2001-12-17 22:40:34 +00:00
|
|
|
|
|
|
|
int jrc_open(RIG *rig)
|
|
|
|
{
|
|
|
|
int retval;
|
|
|
|
|
|
|
|
/* Turning computer control ON */
|
|
|
|
|
|
|
|
retval = jrc_transaction(rig, "H1" EOM, 3, NULL, NULL);
|
|
|
|
return retval;
|
|
|
|
}
|
|
|
|
|
|
|
|
int jrc_close(RIG *rig)
|
|
|
|
{
|
|
|
|
int retval;
|
|
|
|
|
|
|
|
/* Turning computer control OFF */
|
|
|
|
|
|
|
|
retval = jrc_transaction(rig, "H0" EOM, 3, NULL, NULL);
|
|
|
|
return retval;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
* jrc_set_freq
|
|
|
|
* Assumes rig!=NULL
|
|
|
|
*/
|
|
|
|
int jrc_set_freq(RIG *rig, vfo_t vfo, freq_t freq)
|
|
|
|
{
|
2005-04-13 18:20:37 +00:00
|
|
|
struct jrc_priv_caps *priv = (struct jrc_priv_caps*)rig->caps->priv;
|
|
|
|
char freqbuf[BUFSZ];
|
|
|
|
int freq_len;
|
2001-12-17 22:40:34 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
if (freq >= (freq_t)pow(10, priv->max_freq_len))
|
|
|
|
return -RIG_EINVAL;
|
2001-12-17 22:40:34 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
freq_len = sprintf(freqbuf, "F%0*"PRIll EOM, priv->max_freq_len, (long long)freq);
|
2001-12-17 22:40:34 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
return jrc_transaction (rig, freqbuf, freq_len, NULL, NULL);
|
2001-12-17 22:40:34 +00:00
|
|
|
}
|
|
|
|
|
2005-04-20 16:43:29 +00:00
|
|
|
static int get_current_istate(RIG *rig, char *buf, int *buf_len)
|
|
|
|
{
|
|
|
|
int retval;
|
|
|
|
|
|
|
|
/*
|
|
|
|
* JRCs use "I" to get information,
|
|
|
|
* but the command is not available in remote mode
|
|
|
|
*/
|
|
|
|
retval = jrc_transaction (rig, "H0"EOM "I1"EOM "I" EOM, 8, buf, buf_len);
|
|
|
|
|
|
|
|
/* and back to remote mode */
|
|
|
|
jrc_transaction (rig, "I0"EOM "H1"EOM, 6, NULL, NULL);
|
|
|
|
|
|
|
|
return retval;
|
|
|
|
}
|
|
|
|
|
2001-12-17 22:40:34 +00:00
|
|
|
/*
|
|
|
|
* jrc_get_freq
|
|
|
|
* Assumes rig!=NULL, freq!=NULL
|
|
|
|
*/
|
|
|
|
int jrc_get_freq(RIG *rig, vfo_t vfo, freq_t *freq)
|
|
|
|
{
|
2005-04-13 18:20:37 +00:00
|
|
|
struct jrc_priv_caps *priv = (struct jrc_priv_caps*)rig->caps->priv;
|
|
|
|
int freq_len, retval;
|
|
|
|
char freqbuf[BUFSZ];
|
2001-12-17 22:40:34 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
//note: JRCs use "I" to get information
|
2005-04-20 16:43:29 +00:00
|
|
|
retval = get_current_istate(rig, freqbuf, &freq_len);
|
2005-04-13 18:20:37 +00:00
|
|
|
if (retval != RIG_OK)
|
|
|
|
return retval;
|
2004-08-08 20:13:19 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
//I command returns Iabdffffffffg<CR>
|
|
|
|
if (freqbuf[0] != 'I' || freq_len != priv->info_len) {
|
|
|
|
rig_debug(RIG_DEBUG_ERR,"jrc_get_freq: wrong answer %s, "
|
|
|
|
"len=%d\n", freqbuf, freq_len);
|
|
|
|
return -RIG_ERJCTED;
|
|
|
|
}
|
|
|
|
freqbuf[4+priv->max_freq_len] = '\0';
|
2001-12-17 22:40:34 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
/* extract freq */
|
|
|
|
sscanf(freqbuf+4, "%"SCNfreq, freq);
|
2001-12-17 22:40:34 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
return RIG_OK;
|
2001-12-17 22:40:34 +00:00
|
|
|
}
|
|
|
|
|
2004-08-31 03:47:52 +00:00
|
|
|
/*
|
|
|
|
* jrc_set_vfo
|
|
|
|
* Assumes rig!=NULL
|
|
|
|
*/
|
|
|
|
int jrc_set_vfo(RIG *rig, vfo_t vfo)
|
|
|
|
{
|
|
|
|
unsigned char cmdbuf[16];
|
|
|
|
int cmd_len, retval;
|
|
|
|
char vfo_function;
|
|
|
|
|
|
|
|
switch (vfo) {
|
|
|
|
case RIG_VFO_VFO: vfo_function = 'F'; break;
|
|
|
|
case RIG_VFO_MEM: vfo_function = 'C'; break;
|
|
|
|
default:
|
|
|
|
rig_debug(RIG_DEBUG_ERR,"jrc_set_vfo: unsupported VFO %d\n",
|
|
|
|
vfo);
|
|
|
|
return -RIG_EINVAL;
|
|
|
|
}
|
|
|
|
|
|
|
|
cmd_len = sprintf(cmdbuf, "%c" EOM, vfo_function);
|
|
|
|
|
|
|
|
retval = jrc_transaction (rig, cmdbuf, cmd_len, NULL, NULL);
|
|
|
|
|
|
|
|
return retval;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
2001-12-17 22:40:34 +00:00
|
|
|
/*
|
|
|
|
* jrc_set_mode
|
|
|
|
* Assumes rig!=NULL
|
|
|
|
*/
|
|
|
|
int jrc_set_mode(RIG *rig, vfo_t vfo, rmode_t mode, pbwidth_t width)
|
|
|
|
{
|
2005-04-13 18:20:37 +00:00
|
|
|
char mdbuf[BUFSZ];
|
|
|
|
int retval, mdbuf_len;
|
2005-04-13 22:31:46 +00:00
|
|
|
char amode, awidth;
|
2005-04-13 18:20:37 +00:00
|
|
|
|
2005-04-13 22:31:46 +00:00
|
|
|
retval = rig2jrc_mode(rig, mode, width, &amode, &awidth);
|
|
|
|
if (retval != RIG_OK)
|
|
|
|
return retval;
|
2001-12-17 22:40:34 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
mdbuf_len = sprintf(mdbuf, "D" "%c" EOM, amode);
|
|
|
|
retval = jrc_transaction (rig, mdbuf, mdbuf_len, NULL, NULL);
|
|
|
|
if (retval != RIG_OK)
|
|
|
|
return retval;
|
2004-05-19 08:57:50 +00:00
|
|
|
|
2005-04-13 22:31:46 +00:00
|
|
|
mdbuf_len = sprintf(mdbuf, "B" "%c" EOM, awidth);
|
|
|
|
retval = jrc_transaction (rig, mdbuf, mdbuf_len, NULL, NULL);
|
|
|
|
if (retval != RIG_OK)
|
|
|
|
return retval;
|
2001-12-17 22:40:34 +00:00
|
|
|
|
2005-04-13 22:31:46 +00:00
|
|
|
return RIG_OK;
|
2001-12-17 22:40:34 +00:00
|
|
|
}
|
|
|
|
|
2004-05-19 08:57:50 +00:00
|
|
|
/*
|
|
|
|
* jrc_get_mode
|
2005-04-20 16:43:29 +00:00
|
|
|
* Assumes rig!=NULL, mode!=NULL, width!=NULL
|
2004-05-19 08:57:50 +00:00
|
|
|
*/
|
|
|
|
int jrc_get_mode(RIG *rig, vfo_t vfo, rmode_t *mode, pbwidth_t *width)
|
|
|
|
{
|
2005-04-13 18:20:37 +00:00
|
|
|
struct jrc_priv_caps *priv = (struct jrc_priv_caps*)rig->caps->priv;
|
2005-04-20 16:43:29 +00:00
|
|
|
int md_len, retval;
|
|
|
|
char mdbuf[BUFSZ];
|
2005-04-13 18:20:37 +00:00
|
|
|
char cmode;
|
|
|
|
char cwidth;
|
2004-05-19 08:57:50 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
//note: JRCs use "I" to get information
|
2005-04-20 16:43:29 +00:00
|
|
|
retval = get_current_istate(rig, mdbuf, &md_len);
|
2005-04-13 18:20:37 +00:00
|
|
|
if (retval != RIG_OK)
|
|
|
|
return retval;
|
2004-05-19 08:57:50 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
//I command returns Iabdffffffffg<CR>
|
2005-04-20 16:43:29 +00:00
|
|
|
if (mdbuf[0] != 'I' || md_len != priv->info_len) {
|
2005-04-13 18:20:37 +00:00
|
|
|
rig_debug(RIG_DEBUG_ERR,"jrc_get_mode: wrong answer %s, "
|
2005-04-20 16:43:29 +00:00
|
|
|
"len=%d\n", mdbuf, md_len);
|
2005-04-13 18:20:37 +00:00
|
|
|
return -RIG_ERJCTED;
|
|
|
|
}
|
2004-05-19 08:57:50 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
/* extract width and mode */
|
2005-04-20 16:43:29 +00:00
|
|
|
cwidth = mdbuf[2];
|
|
|
|
cmode = mdbuf[3];
|
2004-05-19 08:57:50 +00:00
|
|
|
|
2005-04-13 22:31:46 +00:00
|
|
|
retval = jrc2rig_mode(rig, cmode, cwidth,
|
|
|
|
mode, width);
|
2005-04-13 18:20:37 +00:00
|
|
|
|
2005-04-13 22:31:46 +00:00
|
|
|
return retval;
|
2004-05-19 08:57:50 +00:00
|
|
|
}
|
|
|
|
|
2001-12-17 22:40:34 +00:00
|
|
|
/*
|
|
|
|
* jrc_set_func
|
|
|
|
* Assumes rig!=NULL
|
|
|
|
*/
|
|
|
|
int jrc_set_func(RIG *rig, vfo_t vfo, setting_t func, int status)
|
|
|
|
{
|
2005-04-13 18:20:37 +00:00
|
|
|
int cmd_len;
|
|
|
|
char cmdbuf[BUFSZ];
|
2001-12-17 22:40:34 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
/* Optimize:
|
|
|
|
* sort the switch cases with the most frequent first
|
|
|
|
*/
|
|
|
|
switch (func) {
|
|
|
|
case RIG_FUNC_FAGC:
|
|
|
|
/* FIXME: FAGC levels */
|
|
|
|
cmd_len = sprintf(cmdbuf, "G%d" EOM, status?1:2);
|
2001-12-17 22:40:34 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
return jrc_transaction (rig, cmdbuf, cmd_len, NULL, NULL);
|
2001-12-17 22:40:34 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
case RIG_FUNC_NB:
|
|
|
|
/* FIXME: NB1 and NB2 */
|
|
|
|
cmd_len = sprintf(cmdbuf, "N%d" EOM, status?1:0);
|
2001-12-17 22:40:34 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
return jrc_transaction (rig, cmdbuf, cmd_len, NULL, NULL);
|
2001-12-17 22:40:34 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
/*
|
|
|
|
* FIXME: which BB mode for NR and BC at same time ?
|
|
|
|
*/
|
|
|
|
case RIG_FUNC_NR:
|
|
|
|
cmd_len = sprintf(cmdbuf, "BB%d" EOM, status?1:0);
|
2001-12-17 22:40:34 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
return jrc_transaction (rig, cmdbuf, cmd_len, NULL, NULL);
|
2001-12-17 22:40:34 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
case RIG_FUNC_BC:
|
|
|
|
cmd_len = sprintf(cmdbuf, "BB%d" EOM, status?2:0);
|
2001-12-17 22:40:34 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
return jrc_transaction (rig, cmdbuf, cmd_len, NULL, NULL);
|
2001-12-17 22:40:34 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
case RIG_FUNC_LOCK:
|
|
|
|
cmd_len = sprintf(cmdbuf, "DD%d" EOM, status?1:0);
|
2001-12-17 22:40:34 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
return jrc_transaction (rig, cmdbuf, cmd_len, NULL, NULL);
|
2001-12-17 22:40:34 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
default:
|
|
|
|
rig_debug(RIG_DEBUG_ERR,"Unsupported set_func %d\n", func);
|
|
|
|
return -RIG_EINVAL;
|
|
|
|
}
|
2001-12-17 22:40:34 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
return RIG_OK;
|
2001-12-17 22:40:34 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
* jrc_get_func
|
|
|
|
* Assumes rig!=NULL, status!=NULL
|
|
|
|
*/
|
|
|
|
int jrc_get_func(RIG *rig, vfo_t vfo, setting_t func, int *status)
|
|
|
|
{
|
2005-04-13 18:20:37 +00:00
|
|
|
struct jrc_priv_caps *priv = (struct jrc_priv_caps*)rig->caps->priv;
|
|
|
|
int retval, func_len;
|
|
|
|
char funcbuf[BUFSZ];
|
|
|
|
|
|
|
|
/* Optimize:
|
|
|
|
* sort the switch cases with the most frequent first
|
|
|
|
*/
|
|
|
|
switch (func) {
|
|
|
|
case RIG_FUNC_FAGC:
|
|
|
|
/* FIXME: FAGC levels */
|
|
|
|
//retval = jrc_transaction (rig, "G" EOM, 2, funcbuf, &func_len);
|
2005-04-20 16:43:29 +00:00
|
|
|
retval = get_current_istate(rig, funcbuf, &func_len);
|
2005-04-13 18:20:37 +00:00
|
|
|
if (retval != RIG_OK)
|
|
|
|
return retval;
|
|
|
|
|
|
|
|
//if (func_len != 3 || func_len != 6) {
|
|
|
|
if (funcbuf[0] != 'I' || func_len != priv->info_len) {
|
|
|
|
rig_debug(RIG_DEBUG_ERR,"jrc_get_func: wrong answer %s, "
|
|
|
|
"len=%d\n", funcbuf, func_len);
|
|
|
|
return -RIG_ERJCTED;
|
|
|
|
}
|
|
|
|
//*status = funcbuf[1] != '2';
|
|
|
|
*status = funcbuf[4+priv->max_freq_len] != '2';
|
|
|
|
|
|
|
|
return RIG_OK;
|
|
|
|
|
|
|
|
case RIG_FUNC_NB:
|
|
|
|
/* FIXME: NB1 and NB2 */
|
|
|
|
retval = jrc_transaction (rig, "N" EOM, 2, funcbuf, &func_len);
|
|
|
|
if (retval != RIG_OK)
|
|
|
|
return retval;
|
|
|
|
|
|
|
|
if (func_len != 3) {
|
|
|
|
rig_debug(RIG_DEBUG_ERR,"jrc_get_func: wrong answer %s, "
|
|
|
|
"len=%d\n", funcbuf, func_len);
|
|
|
|
return -RIG_ERJCTED;
|
|
|
|
}
|
|
|
|
*status = funcbuf[1] != '0';
|
|
|
|
|
|
|
|
return RIG_OK;
|
2001-12-17 22:40:34 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
/*
|
|
|
|
* FIXME: which BB mode for NR and BC at same time ?
|
2001-12-17 22:40:34 +00:00
|
|
|
*/
|
2005-04-13 18:20:37 +00:00
|
|
|
case RIG_FUNC_NR:
|
|
|
|
retval = jrc_transaction (rig, "BB" EOM, 3, funcbuf, &func_len);
|
|
|
|
if (retval != RIG_OK)
|
|
|
|
return retval;
|
2001-12-17 22:40:34 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
if (func_len != 3) {
|
|
|
|
rig_debug(RIG_DEBUG_ERR,"jrc_get_func: wrong answer %s, "
|
|
|
|
"len=%d\n", funcbuf, func_len);
|
|
|
|
return -RIG_ERJCTED;
|
2001-12-17 22:40:34 +00:00
|
|
|
}
|
2005-04-13 18:20:37 +00:00
|
|
|
*status = funcbuf[2] == '1';
|
2001-12-17 22:40:34 +00:00
|
|
|
|
|
|
|
return RIG_OK;
|
2005-04-13 18:20:37 +00:00
|
|
|
|
|
|
|
case RIG_FUNC_BC:
|
|
|
|
retval = jrc_transaction (rig, "BB" EOM, 3, funcbuf, &func_len);
|
|
|
|
if (retval != RIG_OK)
|
|
|
|
return retval;
|
|
|
|
|
|
|
|
if (func_len != 3) {
|
|
|
|
rig_debug(RIG_DEBUG_ERR,"jrc_get_func: wrong answer %s, "
|
|
|
|
"len=%d\n", funcbuf, func_len);
|
|
|
|
return -RIG_ERJCTED;
|
|
|
|
}
|
|
|
|
*status = funcbuf[2] == '2';
|
|
|
|
|
|
|
|
return RIG_OK;
|
|
|
|
|
|
|
|
case RIG_FUNC_LOCK:
|
|
|
|
retval = jrc_transaction (rig, "DD" EOM, 3, funcbuf, &func_len);
|
|
|
|
if (retval != RIG_OK)
|
|
|
|
return retval;
|
|
|
|
|
|
|
|
if (func_len != 3) {
|
|
|
|
rig_debug(RIG_DEBUG_ERR,"jrc_get_func: wrong answer %s, "
|
|
|
|
"len=%d\n", funcbuf, func_len);
|
|
|
|
return -RIG_ERJCTED;
|
|
|
|
}
|
|
|
|
*status = funcbuf[1] == '1';
|
|
|
|
|
|
|
|
return RIG_OK;
|
|
|
|
|
|
|
|
default:
|
|
|
|
rig_debug(RIG_DEBUG_ERR,"Unsupported get_func %d\n", func);
|
|
|
|
return -RIG_EINVAL;
|
|
|
|
}
|
|
|
|
|
|
|
|
return RIG_OK;
|
2001-12-17 22:40:34 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
/*
|
|
|
|
* jrc_set_level
|
|
|
|
* Assumes rig!=NULL
|
|
|
|
* FIXME: cannot support PREAMP and ATT both at same time (make sens though)
|
|
|
|
*/
|
|
|
|
int jrc_set_level(RIG *rig, vfo_t vfo, setting_t level, value_t val)
|
|
|
|
{
|
2005-04-13 18:20:37 +00:00
|
|
|
struct jrc_priv_caps *priv = (struct jrc_priv_caps*)rig->caps->priv;
|
|
|
|
int cmd_len;
|
|
|
|
char cmdbuf[BUFSZ];
|
2001-12-17 22:40:34 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
/* Optimize:
|
|
|
|
* sort the switch cases with the most frequent first
|
|
|
|
*/
|
|
|
|
switch (level) {
|
|
|
|
case RIG_LEVEL_ATT:
|
|
|
|
cmd_len = sprintf(cmdbuf, "A%d" EOM, val.i?1:0);
|
2001-12-17 22:40:34 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
return jrc_transaction (rig, cmdbuf, cmd_len, NULL, NULL);
|
2001-12-17 22:40:34 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
case RIG_LEVEL_RF:
|
|
|
|
cmd_len = sprintf(cmdbuf, "HH%03d" EOM, (int)(val.f*255.0));
|
2001-12-17 22:40:34 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
return jrc_transaction (rig, cmdbuf, cmd_len, NULL, NULL);
|
2001-12-17 22:40:34 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
case RIG_LEVEL_AF:
|
|
|
|
cmd_len = sprintf(cmdbuf, "JJ%03d" EOM, (int)(val.f*255.0));
|
2001-12-17 22:40:34 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
return jrc_transaction (rig, cmdbuf, cmd_len, NULL, NULL);
|
2001-12-17 22:40:34 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
case RIG_LEVEL_SQL:
|
|
|
|
cmd_len = sprintf(cmdbuf, "LL%03d" EOM, (int)(val.f*255.0));
|
2004-09-14 22:17:49 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
return jrc_transaction (rig, cmdbuf, cmd_len, NULL, NULL);
|
2004-09-14 22:17:49 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
case RIG_LEVEL_NR:
|
|
|
|
cmd_len = sprintf(cmdbuf, "FF%03d" EOM, (int)(val.f*255.0));
|
2001-12-17 22:40:34 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
return jrc_transaction (rig, cmdbuf, cmd_len, NULL, NULL);
|
2001-12-17 22:40:34 +00:00
|
|
|
|
2005-04-13 22:31:46 +00:00
|
|
|
#if 0
|
|
|
|
case RIG_LEVEL_TONE:
|
2005-04-13 18:20:37 +00:00
|
|
|
cmd_len = sprintf(cmdbuf, "KK%03d" EOM, (int)(val.f*255.0));
|
2004-09-14 22:17:49 +00:00
|
|
|
|
2005-04-13 22:31:46 +00:00
|
|
|
return jrc_transaction (rig, cmdbuf, cmd_len, NULL, NULL);
|
|
|
|
#endif
|
2004-09-14 22:17:49 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
case RIG_LEVEL_NOTCHF:
|
|
|
|
cmd_len = sprintf(cmdbuf, "GG%+04d" EOM, val.i);
|
2001-12-17 22:40:34 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
return jrc_transaction (rig, cmdbuf, cmd_len, NULL, NULL);
|
2001-12-17 22:40:34 +00:00
|
|
|
|
2005-04-13 22:31:46 +00:00
|
|
|
#if 0
|
|
|
|
case RIG_LEVEL_BWC:
|
2005-04-13 18:20:37 +00:00
|
|
|
if (priv->pbs_len == 3)
|
|
|
|
val.i /= 10;
|
|
|
|
|
|
|
|
cmd_len = sprintf(cmdbuf, "W%0*d" EOM, priv->pbs_len, val.i);
|
2004-09-14 22:17:49 +00:00
|
|
|
|
2005-04-13 22:31:46 +00:00
|
|
|
return jrc_transaction (rig, cmdbuf, cmd_len, NULL, NULL);
|
|
|
|
#endif
|
2004-09-14 22:17:49 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
case RIG_LEVEL_AGC:
|
|
|
|
if (val.i < 10)
|
|
|
|
cmd_len = sprintf(cmdbuf, "G%d" EOM,
|
|
|
|
val.i == RIG_AGC_SLOW ? 0 :
|
|
|
|
val.i == RIG_AGC_FAST ? 1 : 2);
|
|
|
|
else
|
|
|
|
cmd_len = sprintf(cmdbuf, "G3%03d" EOM, val.i/20);
|
2001-12-17 22:40:34 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
return jrc_transaction (rig, cmdbuf, cmd_len, NULL, NULL);
|
2004-05-19 08:57:50 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
case RIG_LEVEL_CWPITCH:
|
|
|
|
cmd_len = sprintf(cmdbuf, "%s%+05d" EOM, priv->cw_pitch, val.i);
|
2004-05-19 08:57:50 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
return jrc_transaction (rig, cmdbuf, cmd_len, NULL, NULL);
|
2001-12-17 22:40:34 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
case RIG_LEVEL_IF:
|
|
|
|
if (priv->pbs_len == 3)
|
|
|
|
val.i /= 10;
|
2004-05-19 08:57:50 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
cmd_len = sprintf(cmdbuf, "P%+0*d" EOM, priv->pbs_len+1, val.i);
|
2004-05-19 08:57:50 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
return jrc_transaction (rig, cmdbuf, cmd_len, NULL, NULL);
|
2001-12-17 22:40:34 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
default:
|
|
|
|
rig_debug(RIG_DEBUG_ERR,"Unsupported set_level %d\n", level);
|
|
|
|
return -RIG_EINVAL;
|
|
|
|
}
|
2001-12-17 22:40:34 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
return RIG_OK;
|
2001-12-17 22:40:34 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
* jrc_get_level
|
|
|
|
* Assumes rig!=NULL, val!=NULL
|
|
|
|
*/
|
|
|
|
int jrc_get_level(RIG *rig, vfo_t vfo, setting_t level, value_t *val)
|
|
|
|
{
|
2005-04-13 18:20:37 +00:00
|
|
|
struct jrc_priv_caps *priv = (struct jrc_priv_caps*)rig->caps->priv;
|
|
|
|
int retval, lvl_len, lvl;
|
|
|
|
char lvlbuf[BUFSZ];
|
|
|
|
char cwbuf[BUFSZ];
|
|
|
|
int cw_len;
|
|
|
|
|
|
|
|
switch (level) {
|
|
|
|
case RIG_LEVEL_RAWSTR:
|
|
|
|
/* read A/D converted value */
|
|
|
|
retval = jrc_transaction (rig, "M" EOM, 2, lvlbuf, &lvl_len);
|
|
|
|
if (retval != RIG_OK)
|
|
|
|
return retval;
|
|
|
|
|
|
|
|
if (lvl_len != 5) {
|
|
|
|
rig_debug(RIG_DEBUG_ERR,"jrc_get_level: wrong answer"
|
|
|
|
"len=%d\n", lvl_len);
|
|
|
|
return -RIG_ERJCTED;
|
|
|
|
}
|
|
|
|
|
|
|
|
lvlbuf[4] = '\0';
|
|
|
|
val->i = atoi(lvlbuf+1);
|
|
|
|
break;
|
|
|
|
|
|
|
|
case RIG_LEVEL_STRENGTH:
|
|
|
|
/* read calibrated A/D converted value */
|
|
|
|
retval = jrc_transaction (rig, "M" EOM, 2, lvlbuf, &lvl_len);
|
|
|
|
if (retval != RIG_OK)
|
|
|
|
return retval;
|
|
|
|
|
|
|
|
if (lvl_len != 5) {
|
|
|
|
rig_debug(RIG_DEBUG_ERR,"jrc_get_level: wrong answer"
|
|
|
|
"len=%d\n", lvl_len);
|
|
|
|
return -RIG_ERJCTED;
|
|
|
|
}
|
|
|
|
|
|
|
|
lvlbuf[4] = '\0';
|
|
|
|
val->i = (int)rig_raw2val(atoi(lvlbuf+1), &rig->caps->str_cal);
|
|
|
|
break;
|
|
|
|
|
|
|
|
case RIG_LEVEL_ATT:
|
2005-04-20 16:43:29 +00:00
|
|
|
retval = get_current_istate(rig, lvlbuf, &lvl_len);
|
2005-04-13 18:20:37 +00:00
|
|
|
if (retval != RIG_OK)
|
|
|
|
return retval;
|
|
|
|
|
|
|
|
if (lvlbuf[0] != 'I' || lvl_len != priv->info_len) {
|
|
|
|
rig_debug(RIG_DEBUG_ERR,"jrc_get_level: wrong answer"
|
|
|
|
"len=%d\n", lvl_len);
|
|
|
|
return -RIG_ERJCTED;
|
|
|
|
}
|
|
|
|
|
|
|
|
val->i = lvlbuf[1] == '1' ? 20 : 0;
|
|
|
|
break;
|
|
|
|
|
|
|
|
case RIG_LEVEL_AGC:
|
2005-04-20 16:43:29 +00:00
|
|
|
retval = get_current_istate(rig, lvlbuf, &lvl_len);
|
2005-04-13 18:20:37 +00:00
|
|
|
if (retval != RIG_OK)
|
|
|
|
return retval;
|
|
|
|
|
|
|
|
if (lvlbuf[0] != 'I' || lvl_len != priv->info_len) {
|
|
|
|
rig_debug(RIG_DEBUG_ERR,"jrc_get_level: wrong answer"
|
|
|
|
"len=%d\n", lvl_len);
|
|
|
|
return -RIG_ERJCTED;
|
|
|
|
}
|
|
|
|
|
|
|
|
lvlbuf[priv->info_len-1] = '\0';
|
|
|
|
|
|
|
|
if (priv->info_len==14) {
|
|
|
|
switch (lvlbuf[priv->info_len-2]){
|
|
|
|
case '0' : val->i = RIG_AGC_SLOW; break;
|
|
|
|
case '1' : val->i = RIG_AGC_FAST; break;
|
|
|
|
case '2' : val->i = RIG_AGC_OFF; break;
|
|
|
|
default : val->i = RIG_AGC_FAST;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
else {
|
|
|
|
val->i = atoi(lvlbuf+priv->info_len-4);
|
|
|
|
}
|
|
|
|
break;
|
|
|
|
|
|
|
|
case RIG_LEVEL_RF:
|
|
|
|
retval = jrc_transaction (rig, "HH" EOM, 3, lvlbuf, &lvl_len);
|
|
|
|
if (retval != RIG_OK)
|
|
|
|
return retval;
|
|
|
|
|
|
|
|
if (lvl_len != 6) {
|
|
|
|
rig_debug(RIG_DEBUG_ERR,"jrc_get_level: wrong answer"
|
|
|
|
"len=%d\n", lvl_len);
|
|
|
|
return -RIG_ERJCTED;
|
|
|
|
}
|
|
|
|
/*
|
|
|
|
* 000..255
|
|
|
|
*/
|
|
|
|
sscanf(lvlbuf+2, "%u", &lvl);
|
|
|
|
val->f = (float)lvl/255.0;
|
|
|
|
break;
|
|
|
|
|
|
|
|
case RIG_LEVEL_AF:
|
|
|
|
retval = jrc_transaction (rig, "JJ" EOM, 3, lvlbuf, &lvl_len);
|
|
|
|
if (retval != RIG_OK)
|
|
|
|
return retval;
|
|
|
|
|
|
|
|
if (lvl_len != 6) {
|
|
|
|
rig_debug(RIG_DEBUG_ERR,"jrc_get_level: wrong answer"
|
|
|
|
"len=%d\n", lvl_len);
|
|
|
|
return -RIG_ERJCTED;
|
|
|
|
}
|
|
|
|
/*
|
|
|
|
* 000..255
|
|
|
|
*/
|
|
|
|
sscanf(lvlbuf+2, "%u", &lvl);
|
|
|
|
val->f = (float)lvl/255.0;
|
|
|
|
break;
|
|
|
|
|
|
|
|
case RIG_LEVEL_SQL:
|
|
|
|
retval = jrc_transaction (rig, "LL" EOM, 3, lvlbuf, &lvl_len);
|
|
|
|
if (retval != RIG_OK)
|
|
|
|
return retval;
|
|
|
|
|
|
|
|
if (lvl_len != 6) {
|
|
|
|
rig_debug(RIG_DEBUG_ERR,"jrc_get_level: wrong answer"
|
|
|
|
"len=%d\n", lvl_len);
|
|
|
|
return -RIG_ERJCTED;
|
|
|
|
}
|
|
|
|
/*
|
|
|
|
* 000..255
|
|
|
|
*/
|
|
|
|
sscanf(lvlbuf+2, "%u", &lvl);
|
|
|
|
val->f = (float)lvl/255.0;
|
|
|
|
break;
|
|
|
|
|
|
|
|
case RIG_LEVEL_NR:
|
|
|
|
retval = jrc_transaction (rig, "FF" EOM, 3, lvlbuf, &lvl_len);
|
|
|
|
if (retval != RIG_OK)
|
|
|
|
return retval;
|
|
|
|
|
|
|
|
if (lvl_len != 6) {
|
|
|
|
rig_debug(RIG_DEBUG_ERR,"jrc_get_level: wrong answer"
|
|
|
|
"len=%d\n", lvl_len);
|
|
|
|
return -RIG_ERJCTED;
|
|
|
|
}
|
|
|
|
/*
|
|
|
|
* 000..255
|
|
|
|
*/
|
|
|
|
sscanf(lvlbuf+2, "%u", &lvl);
|
|
|
|
val->f = (float)lvl/255.0;
|
|
|
|
break;
|
|
|
|
|
2005-04-13 22:31:46 +00:00
|
|
|
#if 0
|
|
|
|
case RIG_LEVEL_TONE:
|
2005-04-13 18:20:37 +00:00
|
|
|
retval = jrc_transaction (rig, "KK" EOM, 3, lvlbuf, &lvl_len);
|
|
|
|
if (retval != RIG_OK)
|
|
|
|
return retval;
|
|
|
|
|
|
|
|
if (lvl_len != 6) {
|
|
|
|
rig_debug(RIG_DEBUG_ERR,"jrc_get_level: wrong answer"
|
|
|
|
"len=%d\n", lvl_len);
|
|
|
|
return -RIG_ERJCTED;
|
|
|
|
}
|
|
|
|
|
|
|
|
sscanf(lvlbuf+2, "%u", &lvl);
|
|
|
|
val->f = (float)lvl/255.0;
|
2005-04-13 22:31:46 +00:00
|
|
|
break;
|
|
|
|
#endif
|
2005-04-13 18:20:37 +00:00
|
|
|
|
|
|
|
case RIG_LEVEL_NOTCHF:
|
|
|
|
retval = jrc_transaction (rig, "GG" EOM, 3, lvlbuf, &lvl_len);
|
|
|
|
if (retval != RIG_OK)
|
|
|
|
return retval;
|
|
|
|
|
|
|
|
if (lvl_len != 8) {
|
|
|
|
rig_debug(RIG_DEBUG_ERR,"jrc_get_level: wrong answer"
|
|
|
|
"len=%d\n", lvl_len);
|
|
|
|
return -RIG_ERJCTED;
|
|
|
|
}
|
|
|
|
/*
|
|
|
|
* 000..255
|
|
|
|
*/
|
|
|
|
sscanf(lvlbuf+2, "%d", &lvl);
|
|
|
|
val->f = (float)lvl/255.0;
|
|
|
|
break;
|
|
|
|
|
2005-04-13 22:31:46 +00:00
|
|
|
#if 0
|
|
|
|
case RIG_LEVEL_BWC:
|
2005-04-13 18:20:37 +00:00
|
|
|
retval = jrc_transaction (rig, "W" EOM, 2, lvlbuf, &lvl_len);
|
|
|
|
if (retval != RIG_OK)
|
|
|
|
return retval;
|
|
|
|
|
|
|
|
if (lvlbuf[0] != 'W' || lvl_len != priv->pbs_len+2) {
|
|
|
|
rig_debug(RIG_DEBUG_ERR,"jrc_get_level: wrong answer"
|
|
|
|
"len=%d\n", lvl_len);
|
|
|
|
return -RIG_ERJCTED;
|
|
|
|
}
|
|
|
|
|
|
|
|
sscanf(lvlbuf+1, "%d", &lvl);
|
|
|
|
if (priv->pbs_len == 3)
|
|
|
|
lvl *= 10;
|
|
|
|
|
|
|
|
val->i = lvl;
|
2005-04-13 22:31:46 +00:00
|
|
|
break;
|
|
|
|
#endif
|
2005-04-13 18:20:37 +00:00
|
|
|
|
|
|
|
case RIG_LEVEL_CWPITCH:
|
|
|
|
cw_len = sprintf(cwbuf, "%s" EOM, priv->cw_pitch);
|
|
|
|
|
|
|
|
retval = jrc_transaction (rig, cwbuf, cw_len, lvlbuf, &lvl_len);
|
|
|
|
if (retval != RIG_OK)
|
|
|
|
return retval;
|
|
|
|
|
|
|
|
if (lvl_len != cw_len+5) {
|
|
|
|
rig_debug(RIG_DEBUG_ERR,"jrc_get_level: wrong answer"
|
|
|
|
"len=%d\n", lvl_len);
|
|
|
|
return -RIG_ERJCTED;
|
|
|
|
}
|
|
|
|
|
|
|
|
sscanf(lvlbuf+(cw_len-1), "%05d", &lvl);
|
|
|
|
val->i = lvl;
|
|
|
|
break;
|
|
|
|
|
|
|
|
case RIG_LEVEL_IF:
|
|
|
|
retval = jrc_transaction (rig, "P" EOM, 2, lvlbuf, &lvl_len);
|
|
|
|
if (retval != RIG_OK)
|
|
|
|
return retval;
|
|
|
|
|
|
|
|
if (lvlbuf[0] != 'P' || lvl_len != priv->pbs_info_len) {
|
|
|
|
rig_debug(RIG_DEBUG_ERR,"jrc_get_level: wrong answer"
|
|
|
|
"len=%d\n", lvl_len);
|
|
|
|
return -RIG_ERJCTED;
|
|
|
|
}
|
|
|
|
|
|
|
|
sscanf(lvlbuf+1, "%d", &lvl);
|
|
|
|
if (priv->pbs_len == 3)
|
|
|
|
lvl *= 10;
|
|
|
|
|
|
|
|
val->i = lvl;
|
|
|
|
break;
|
2001-12-17 22:40:34 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
default:
|
|
|
|
rig_debug(RIG_DEBUG_ERR,"Unsupported get_level %d\n", level);
|
|
|
|
return -RIG_EINVAL;
|
|
|
|
}
|
2001-12-17 22:40:34 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
return RIG_OK;
|
2001-12-17 22:40:34 +00:00
|
|
|
}
|
|
|
|
|
2001-12-20 23:03:27 +00:00
|
|
|
/*
|
|
|
|
* jrc_set_parm
|
|
|
|
* Assumes rig!=NULL
|
|
|
|
* FIXME: cannot support PREAMP and ATT both at same time (make sens though)
|
|
|
|
*/
|
|
|
|
int jrc_set_parm(RIG *rig, setting_t parm, value_t val)
|
|
|
|
{
|
2005-04-13 18:20:37 +00:00
|
|
|
struct jrc_priv_caps *priv = (struct jrc_priv_caps*)rig->caps->priv;
|
|
|
|
int cmd_len;
|
|
|
|
char cmdbuf[BUFSZ];
|
|
|
|
int minutes;
|
2001-12-20 23:03:27 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
/* Optimize:
|
|
|
|
* sort the switch cases with the most frequent first
|
|
|
|
*/
|
|
|
|
switch (parm) {
|
|
|
|
case RIG_PARM_BACKLIGHT:
|
|
|
|
cmd_len = sprintf(cmdbuf, "AA%d" EOM, val.f>0.5?0:1);
|
2001-12-20 23:03:27 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
return jrc_transaction (rig, cmdbuf, cmd_len, NULL, NULL);
|
2001-12-20 23:03:27 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
case RIG_PARM_BEEP:
|
2001-12-20 23:03:27 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
cmd_len = sprintf(cmdbuf, "U%0*d" EOM, priv->beep_len, priv->beep + val.i?1:0);
|
2004-08-08 20:13:19 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
return jrc_transaction (rig, cmdbuf, cmd_len, NULL, NULL);
|
2001-12-20 23:03:27 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
case RIG_PARM_TIME:
|
|
|
|
minutes = val.i/60;
|
|
|
|
cmd_len = sprintf(cmdbuf, "R1%02d%02d" EOM,
|
|
|
|
minutes/60, minutes%60);
|
2004-08-08 20:13:19 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
return jrc_transaction (rig, cmdbuf, cmd_len, NULL, NULL);
|
2004-08-08 20:13:19 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
default:
|
|
|
|
rig_debug(RIG_DEBUG_ERR,"Unsupported set_parm %d\n", parm);
|
|
|
|
return -RIG_EINVAL;
|
|
|
|
}
|
2004-08-08 20:13:19 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
return RIG_OK;
|
2001-12-20 23:03:27 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
/*
|
|
|
|
* jrc_get_parm
|
|
|
|
* Assumes rig!=NULL, val!=NULL
|
|
|
|
*/
|
|
|
|
int jrc_get_parm(RIG *rig, setting_t parm, value_t *val)
|
|
|
|
{
|
2005-04-13 18:20:37 +00:00
|
|
|
struct jrc_priv_caps *priv = (struct jrc_priv_caps*)rig->caps->priv;
|
2004-05-19 08:57:50 +00:00
|
|
|
int retval, lvl_len, i;
|
2005-04-13 18:20:37 +00:00
|
|
|
char lvlbuf[BUFSZ];
|
|
|
|
char cmdbuf[BUFSZ];
|
|
|
|
int cmd_len;
|
|
|
|
|
|
|
|
/* Optimize:
|
|
|
|
* sort the switch cases with the most frequent first
|
|
|
|
*/
|
|
|
|
switch (parm) {
|
|
|
|
case RIG_PARM_TIME:
|
|
|
|
retval = jrc_transaction (rig, "R0" EOM, 3, lvlbuf, &lvl_len);
|
|
|
|
if (retval != RIG_OK)
|
|
|
|
return retval;
|
|
|
|
|
|
|
|
/* "Rhhmmss"CR */
|
|
|
|
if (lvl_len != 8) {
|
|
|
|
rig_debug(RIG_DEBUG_ERR,"jrc_get_parm: wrong answer"
|
|
|
|
"len=%d\n", lvl_len);
|
|
|
|
return -RIG_ERJCTED;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* convert ASCII to numeric 0..9 */
|
|
|
|
for (i=1; i<7; i++) {
|
|
|
|
lvlbuf[i] -= '0';
|
|
|
|
}
|
|
|
|
val->i = ((10*lvlbuf[1] + lvlbuf[2])*60 + /* hours */
|
|
|
|
10*lvlbuf[3] + lvlbuf[4])*60 + /* minutes */
|
|
|
|
10*lvlbuf[5] + lvlbuf[6]; /* secondes */
|
|
|
|
break;
|
|
|
|
|
|
|
|
case RIG_PARM_BEEP:
|
|
|
|
cmd_len = sprintf(cmdbuf, "U%d" EOM, priv->beep/10);
|
|
|
|
retval = jrc_transaction (rig, cmdbuf, cmd_len, lvlbuf, &lvl_len);
|
|
|
|
if (retval != RIG_OK)
|
|
|
|
return retval;
|
|
|
|
|
|
|
|
if (lvl_len != priv->beep_len+2) {
|
|
|
|
rig_debug(RIG_DEBUG_ERR,"jrc_get_parm: wrong answer"
|
|
|
|
"len=%d\n", lvl_len);
|
|
|
|
return -RIG_ERJCTED;
|
|
|
|
}
|
|
|
|
|
|
|
|
val->i = lvlbuf[priv->beep_len] == 0 ? 0 : 1;
|
|
|
|
break;
|
2004-08-08 20:13:19 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
default:
|
|
|
|
rig_debug(RIG_DEBUG_ERR,"Unsupported get_parm %d\n", parm);
|
|
|
|
return -RIG_EINVAL;
|
|
|
|
}
|
2001-12-20 23:03:27 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
return RIG_OK;
|
2001-12-20 23:03:27 +00:00
|
|
|
}
|
|
|
|
|
2001-12-17 22:40:34 +00:00
|
|
|
/*
|
|
|
|
* jrc_get_dcd
|
|
|
|
* Assumes rig!=NULL, dcd!=NULL
|
|
|
|
*/
|
|
|
|
int jrc_get_dcd(RIG *rig, vfo_t vfo, dcd_t *dcd)
|
|
|
|
{
|
2005-04-13 18:20:37 +00:00
|
|
|
char dcdbuf[BUFSZ];
|
|
|
|
int dcd_len, retval;
|
2001-12-17 22:40:34 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
retval = jrc_transaction (rig, "Q" EOM, 2, dcdbuf, &dcd_len);
|
|
|
|
if (retval != RIG_OK)
|
|
|
|
return retval;
|
2001-12-17 22:40:34 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
if (dcd_len != 3) {
|
|
|
|
rig_debug(RIG_DEBUG_ERR,"jrc_get_dcd: wrong answer %s, "
|
|
|
|
"len=%d\n", dcdbuf, dcd_len);
|
|
|
|
return -RIG_ERJCTED;
|
|
|
|
}
|
|
|
|
*dcd = dcdbuf[1] == '0' ? RIG_DCD_ON : RIG_DCD_OFF;
|
2001-12-17 22:40:34 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
return RIG_OK;
|
2001-12-17 22:40:34 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
/*
|
|
|
|
* jrc_set_trn
|
|
|
|
* Assumes rig!=NULL
|
|
|
|
*/
|
2001-12-20 08:02:01 +00:00
|
|
|
int jrc_set_trn(RIG *rig, int trn)
|
2001-12-17 22:40:34 +00:00
|
|
|
{
|
2005-04-20 16:43:29 +00:00
|
|
|
unsigned char *trncmd;
|
2001-12-17 22:40:34 +00:00
|
|
|
|
2005-04-20 16:43:29 +00:00
|
|
|
/* transceive mode not available in remote mode
|
|
|
|
* so switch back and forth upon entering/leaving
|
|
|
|
*/
|
|
|
|
trncmd = trn==RIG_TRN_RIG ? "H0"EOM"I1"EOM : "I0"EOM"H1"EOM;
|
2001-12-17 22:40:34 +00:00
|
|
|
|
2005-04-20 16:43:29 +00:00
|
|
|
return jrc_transaction (rig, trncmd, 6, NULL, NULL);
|
2001-12-17 22:40:34 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
/*
|
|
|
|
* jrc_set_powerstat
|
|
|
|
* Assumes rig!=NULL
|
|
|
|
*/
|
|
|
|
int jrc_set_powerstat(RIG *rig, powerstat_t status)
|
|
|
|
{
|
2005-04-13 18:20:37 +00:00
|
|
|
unsigned char pwrbuf[BUFSZ];
|
|
|
|
int pwr_len;
|
2001-12-17 22:40:34 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
pwr_len = sprintf(pwrbuf, "T%d" EOM, status==RIG_POWER_ON?1:0);
|
2001-12-17 22:40:34 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
return jrc_transaction (rig, pwrbuf, pwr_len, NULL, NULL);
|
2001-12-17 22:40:34 +00:00
|
|
|
}
|
|
|
|
|
2004-06-04 21:48:05 +00:00
|
|
|
/*
|
|
|
|
* jrc_get_powerstat
|
|
|
|
* Assumes rig!=NULL
|
|
|
|
*/
|
|
|
|
int jrc_get_powerstat(RIG *rig, powerstat_t *status)
|
|
|
|
{
|
2005-04-13 18:20:37 +00:00
|
|
|
char pwrbuf[BUFSZ];
|
|
|
|
int pwr_len, retval;
|
2004-06-04 21:48:05 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
retval = jrc_transaction (rig, "T" EOM, 2, pwrbuf, &pwr_len);
|
|
|
|
if (retval != RIG_OK)
|
|
|
|
return retval;
|
2004-06-04 21:48:05 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
if (pwr_len != 3) {
|
|
|
|
rig_debug(RIG_DEBUG_ERR,"jrc_get_powerstat: wrong answer %s, "
|
|
|
|
"len=%d\n", pwrbuf, pwr_len);
|
|
|
|
return -RIG_ERJCTED;
|
|
|
|
}
|
|
|
|
*status = pwrbuf[1] == '0' ? RIG_POWER_OFF : RIG_POWER_ON;
|
2004-06-04 21:48:05 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
return RIG_OK;
|
2004-06-04 21:48:05 +00:00
|
|
|
}
|
|
|
|
|
2001-12-17 22:40:34 +00:00
|
|
|
/*
|
|
|
|
* jrc_reset
|
|
|
|
* Assumes rig!=NULL
|
|
|
|
*/
|
|
|
|
int jrc_reset(RIG *rig, reset_t reset)
|
|
|
|
{
|
2005-04-13 18:20:37 +00:00
|
|
|
unsigned char rstbuf[BUFSZ];
|
|
|
|
int rst_len;
|
|
|
|
char rst;
|
|
|
|
|
|
|
|
switch(reset) {
|
|
|
|
case RIG_RESET_MCALL: rst='1'; break; /* mem clear */
|
|
|
|
case RIG_RESET_VFO: rst='2'; break; /* user setup default */
|
|
|
|
case RIG_RESET_MASTER: rst='3'; break; /* 1 + 2 */
|
|
|
|
default:
|
|
|
|
rig_debug(RIG_DEBUG_ERR,"jrc_reset: unsupported reset %d\n",
|
|
|
|
reset);
|
|
|
|
return -RIG_EINVAL;
|
|
|
|
}
|
|
|
|
rst_len = sprintf(rstbuf, "Z%c" EOM, rst);
|
2001-12-17 22:40:34 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
return jrc_transaction (rig, rstbuf, rst_len, NULL, NULL);
|
2001-12-17 22:40:34 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
/*
|
|
|
|
* jrc_set_mem
|
|
|
|
* Assumes rig!=NULL
|
|
|
|
*/
|
|
|
|
int jrc_set_mem(RIG *rig, vfo_t vfo, int ch)
|
|
|
|
{
|
2005-04-13 18:20:37 +00:00
|
|
|
char cmdbuf[BUFSZ];
|
|
|
|
char membuf[BUFSZ];
|
|
|
|
int cmd_len, mem_len;
|
2001-12-17 22:40:34 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
if (ch < 0 || ch > rig->caps->chan_list[0].end)
|
|
|
|
return -RIG_EINVAL;
|
2001-12-17 22:40:34 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
cmd_len = sprintf(cmdbuf, "C%03u" EOM, ch);
|
2001-12-17 22:40:34 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
/* don't care about the Automatic reponse from receiver */
|
2001-12-17 22:40:34 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
return jrc_transaction (rig, cmdbuf, cmd_len, membuf, &mem_len);
|
2001-12-17 22:40:34 +00:00
|
|
|
}
|
|
|
|
|
2004-05-19 08:57:50 +00:00
|
|
|
/*
|
|
|
|
* jrc_get_mem
|
|
|
|
* Assumes rig!=NULL
|
|
|
|
*/
|
|
|
|
int jrc_get_mem(RIG *rig, vfo_t vfo, int *ch)
|
|
|
|
{
|
2005-04-13 18:20:37 +00:00
|
|
|
struct jrc_priv_caps *priv = (struct jrc_priv_caps*)rig->caps->priv;
|
|
|
|
int mem_len, retval;
|
|
|
|
char membuf[BUFSZ];
|
|
|
|
int chan;
|
2004-05-19 08:57:50 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
retval = jrc_transaction (rig, "L" EOM, 2, membuf, &mem_len);
|
|
|
|
if (retval != RIG_OK)
|
|
|
|
return retval;
|
2004-05-19 08:57:50 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
/* need to handle vacant memories LmmmV<cr>, len = 6 */
|
|
|
|
if ((mem_len != priv->mem_len) && (mem_len != 6)) {
|
|
|
|
rig_debug(RIG_DEBUG_ERR,"jrc_get_mem: wrong answer %s, "
|
|
|
|
"len=%d\n", membuf, mem_len);
|
|
|
|
return -RIG_ERJCTED;
|
|
|
|
}
|
|
|
|
membuf[4] = '\0';
|
2004-05-19 08:57:50 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
/*extract current channel*/
|
|
|
|
sscanf(membuf+1, "%d", &chan);
|
|
|
|
*ch = chan;
|
2004-05-19 08:57:50 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
return RIG_OK;
|
2004-05-19 08:57:50 +00:00
|
|
|
}
|
|
|
|
|
2004-09-05 00:33:56 +00:00
|
|
|
/*
|
|
|
|
* jrc_set_chan
|
|
|
|
* Assumes rig!=NULL
|
|
|
|
*/
|
|
|
|
int jrc_set_chan(RIG *rig, const channel_t *chan)
|
|
|
|
{
|
|
|
|
struct jrc_priv_caps *priv = (struct jrc_priv_caps*)rig->caps->priv;
|
|
|
|
char cmdbuf[BUFSZ];
|
2005-04-13 22:31:46 +00:00
|
|
|
int retval, cmd_len;
|
2004-09-05 00:33:56 +00:00
|
|
|
|
|
|
|
sprintf(cmdbuf,"K%03d000",chan->channel_num);
|
|
|
|
|
|
|
|
if (chan->levels[rig_setting2idx(RIG_LEVEL_ATT)].i == 20)
|
|
|
|
cmdbuf[4] = '1';
|
2005-04-13 22:31:46 +00:00
|
|
|
|
|
|
|
retval = rig2jrc_mode(rig, chan->mode, chan->width,
|
|
|
|
&cmdbuf[6], &cmdbuf[5]);
|
|
|
|
if (retval != RIG_OK)
|
|
|
|
return retval;
|
2004-09-05 00:33:56 +00:00
|
|
|
|
2005-01-25 00:22:14 +00:00
|
|
|
sprintf(cmdbuf+7,"%0*"PRIll, priv->max_freq_len, (long long)chan->freq);
|
2004-09-05 00:33:56 +00:00
|
|
|
|
|
|
|
if (priv->mem_len==17) {
|
|
|
|
switch (chan->levels[rig_setting2idx(RIG_LEVEL_AGC)].i) {
|
|
|
|
case RIG_AGC_SLOW : cmdbuf[priv->mem_len-2] = '0'; break;
|
|
|
|
case RIG_AGC_FAST : cmdbuf[priv->mem_len-2] = '1'; break;
|
|
|
|
case RIG_AGC_OFF : cmdbuf[priv->mem_len-2] = '2'; break;
|
|
|
|
default : cmdbuf[priv->mem_len-2] = '1';
|
|
|
|
}
|
|
|
|
}
|
|
|
|
else {
|
|
|
|
sprintf(cmdbuf+priv->mem_len-4,"%03d", chan->levels[rig_setting2idx(RIG_LEVEL_AGC)].i);
|
|
|
|
}
|
|
|
|
|
|
|
|
cmd_len = priv->mem_len;
|
|
|
|
return jrc_transaction (rig, cmdbuf, cmd_len, NULL, NULL);
|
|
|
|
}
|
|
|
|
|
|
|
|
/*
|
|
|
|
* jrc_get_chan
|
|
|
|
* Assumes rig!=NULL
|
|
|
|
*/
|
|
|
|
int jrc_get_chan(RIG *rig, channel_t *chan)
|
|
|
|
{
|
|
|
|
struct jrc_priv_caps *priv = (struct jrc_priv_caps*)rig->caps->priv;
|
|
|
|
char membuf[BUFSZ], cmdbuf[BUFSZ], freqbuf[BUFSZ];
|
|
|
|
int mem_len, cmd_len, retval;
|
|
|
|
|
|
|
|
chan->vfo = RIG_VFO_MEM;
|
|
|
|
chan->ant = RIG_ANT_NONE;
|
|
|
|
chan->freq = 0;
|
|
|
|
chan->mode = RIG_MODE_NONE;
|
|
|
|
chan->width = RIG_PASSBAND_NORMAL;
|
|
|
|
chan->tx_freq = 0;
|
|
|
|
chan->tx_mode = RIG_MODE_NONE;
|
|
|
|
chan->tx_width = RIG_PASSBAND_NORMAL;
|
|
|
|
chan->split = RIG_SPLIT_OFF;
|
|
|
|
chan->tx_vfo = RIG_VFO_NONE;
|
|
|
|
chan->rptr_shift = RIG_RPT_SHIFT_NONE;
|
|
|
|
chan->rptr_offs = 0;
|
|
|
|
chan->tuning_step = 0;
|
|
|
|
chan->rit = 0;
|
|
|
|
chan->xit = 0;
|
|
|
|
chan->funcs = 0;
|
|
|
|
chan->levels[rig_setting2idx(RIG_LEVEL_AGC)].i = RIG_AGC_OFF;
|
|
|
|
chan->levels[rig_setting2idx(RIG_LEVEL_ATT)].i = 0;
|
|
|
|
chan->ctcss_tone = 0;
|
|
|
|
chan->ctcss_sql = 0;
|
|
|
|
chan->dcs_code = 0;
|
|
|
|
chan->dcs_sql = 0;
|
|
|
|
chan->scan_group = 0;
|
|
|
|
chan->flags = RIG_CHFLAG_SKIP;
|
|
|
|
strcpy(chan->channel_desc, "");
|
|
|
|
|
|
|
|
cmd_len = sprintf(cmdbuf, "L%03d%03d" EOM, chan->channel_num, chan->channel_num);
|
|
|
|
retval = jrc_transaction (rig, cmdbuf, cmd_len, membuf, &mem_len);
|
|
|
|
if (retval != RIG_OK)
|
|
|
|
return retval;
|
|
|
|
|
|
|
|
/* need to handle vacant memories LmmmV<cr>, len = 6 */
|
|
|
|
if ((mem_len != priv->mem_len) && (mem_len != 6)) {
|
|
|
|
rig_debug(RIG_DEBUG_ERR,"jrc_get_mem: wrong answer %s, "
|
|
|
|
"len=%d\n", membuf, mem_len);
|
|
|
|
return -RIG_ERJCTED;
|
|
|
|
}
|
|
|
|
|
|
|
|
if (mem_len != 6) {
|
|
|
|
if (membuf[4] == '1')
|
|
|
|
chan->levels[rig_setting2idx(RIG_LEVEL_ATT)].i = 20;
|
2005-04-13 22:31:46 +00:00
|
|
|
|
|
|
|
jrc2rig_mode(rig, membuf[6], membuf[5],
|
|
|
|
&chan->mode, &chan->width);
|
2004-09-05 00:33:56 +00:00
|
|
|
|
|
|
|
strncpy(freqbuf,membuf+7,priv->max_freq_len);
|
|
|
|
freqbuf[priv->max_freq_len] = 0x00;
|
|
|
|
chan->freq = strtol(freqbuf,NULL, 10);
|
|
|
|
|
|
|
|
if (priv->mem_len==17) {
|
|
|
|
switch (membuf[priv->mem_len-2]){
|
|
|
|
case '0' : chan->levels[rig_setting2idx(RIG_LEVEL_AGC)].i = RIG_AGC_SLOW; break;
|
|
|
|
case '1' : chan->levels[rig_setting2idx(RIG_LEVEL_AGC)].i = RIG_AGC_FAST; break;
|
|
|
|
case '2' : chan->levels[rig_setting2idx(RIG_LEVEL_AGC)].i = RIG_AGC_OFF; break;
|
|
|
|
default : chan->levels[rig_setting2idx(RIG_LEVEL_AGC)].i = RIG_AGC_FAST;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
else {
|
|
|
|
strncpy(freqbuf,membuf+priv->mem_len-4,3);
|
|
|
|
chan->levels[rig_setting2idx(RIG_LEVEL_AGC)].i = strtol(freqbuf,NULL, 10);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
return RIG_OK;
|
|
|
|
}
|
|
|
|
|
2001-12-20 23:03:27 +00:00
|
|
|
/*
|
|
|
|
* jrc_vfo_op
|
|
|
|
* Assumes rig!=NULL
|
|
|
|
*/
|
|
|
|
int jrc_vfo_op(RIG *rig, vfo_t vfo, vfo_op_t op)
|
|
|
|
{
|
2005-04-13 18:20:37 +00:00
|
|
|
const char *cmd;
|
|
|
|
|
|
|
|
switch(op) {
|
|
|
|
case RIG_OP_FROM_VFO: cmd="E1" EOM; break;
|
2005-04-13 22:31:46 +00:00
|
|
|
case RIG_OP_UP: cmd="MM25" EOM; break;
|
|
|
|
case RIG_OP_DOWN: cmd="MM24" EOM; break;
|
2005-04-13 18:20:37 +00:00
|
|
|
default:
|
|
|
|
rig_debug(RIG_DEBUG_ERR,"jrc_vfo_op: unsupported op %#x\n",
|
|
|
|
op);
|
|
|
|
return -RIG_EINVAL;
|
|
|
|
}
|
2001-12-20 23:03:27 +00:00
|
|
|
|
2005-04-13 22:31:46 +00:00
|
|
|
return jrc_transaction (rig, cmd, strlen(cmd), NULL, NULL);
|
2001-12-20 23:03:27 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
* jrc_scan, scan operation
|
|
|
|
* Assumes rig!=NULL
|
|
|
|
*
|
2004-08-08 20:13:19 +00:00
|
|
|
* Not really a scan operation so speaking.
|
2001-12-20 23:03:27 +00:00
|
|
|
* You just make the rig increment frequency of decrement continuously,
|
|
|
|
* depending on the sign of ch.
|
|
|
|
* However, using DCD sensing, followed by a stop, you get it.
|
|
|
|
*/
|
|
|
|
int jrc_scan(RIG *rig, vfo_t vfo, scan_t scan, int ch)
|
|
|
|
{
|
2005-04-13 18:20:37 +00:00
|
|
|
const char *scan_cmd = "";
|
|
|
|
|
|
|
|
switch(scan) {
|
|
|
|
case RIG_SCAN_STOP:
|
|
|
|
scan_cmd = "Y0" EOM;
|
|
|
|
break;
|
|
|
|
case RIG_SCAN_SLCT:
|
|
|
|
scan_cmd = ch > 0 ? "Y+" EOM : "Y-" EOM;
|
|
|
|
break;
|
|
|
|
default:
|
|
|
|
rig_debug(RIG_DEBUG_ERR,"Unsupported scan %#x", scan);
|
|
|
|
return -RIG_EINVAL;
|
|
|
|
}
|
2001-12-20 23:03:27 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
return jrc_transaction (rig, scan_cmd, 3, NULL, NULL);
|
2001-12-20 23:03:27 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
/*
|
|
|
|
* jrc_decode is called by sa_sigio, when some asynchronous
|
|
|
|
* data has been received from the rig
|
|
|
|
*/
|
|
|
|
int jrc_decode_event(RIG *rig)
|
|
|
|
{
|
2005-04-13 18:20:37 +00:00
|
|
|
struct jrc_priv_caps *priv = (struct jrc_priv_caps*)rig->caps->priv;
|
|
|
|
struct rig_state *rs;
|
|
|
|
freq_t freq;
|
|
|
|
rmode_t mode;
|
|
|
|
pbwidth_t width;
|
|
|
|
int count;
|
|
|
|
char buf[BUFSZ];
|
2001-12-20 23:03:27 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
rig_debug(RIG_DEBUG_VERBOSE, "jrc: jrc_decode called\n");
|
2001-12-20 23:03:27 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
rs = &rig->state;
|
2001-12-20 23:03:27 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
/* "Iabdfg"CR */
|
|
|
|
//#define SETUP_STATUS_LEN 17
|
2001-12-20 23:03:27 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
//count = read_string(&rs->rigport, buf, SETUP_STATUS_LEN, "", 0);
|
|
|
|
count = read_string(&rs->rigport, buf, priv->info_len, "", 0);
|
|
|
|
if (count < 0) {
|
|
|
|
return count;
|
|
|
|
}
|
|
|
|
buf[31] = '\0'; /* stop run away.. */
|
2001-12-20 23:03:27 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
if (buf[0] != 'I') {
|
|
|
|
rig_debug(RIG_DEBUG_WARN, "jrc: unexpected data: %s\n",
|
|
|
|
buf);
|
|
|
|
return -RIG_EPROTO;
|
|
|
|
}
|
2001-12-20 23:03:27 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
/*
|
|
|
|
* TODO: Attenuator and AGC change notification.
|
|
|
|
*/
|
2001-12-20 23:03:27 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
if (rig->callbacks.freq_event) {
|
2004-08-08 20:13:19 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
//buf[14] = '\0'; /* side-effect: destroy AGC first digit! */
|
|
|
|
buf[4+priv->max_freq_len] = '\0'; /* side-effect: destroy AGC first digit! */
|
|
|
|
sscanf(buf+4, "%"SCNfreq, &freq);
|
|
|
|
return rig->callbacks.freq_event(rig, RIG_VFO_CURR, freq,
|
|
|
|
rig->callbacks.freq_arg);
|
|
|
|
}
|
2004-08-08 20:13:19 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
if (rig->callbacks.mode_event) {
|
|
|
|
jrc2rig_mode(rig, buf[3], buf[2], &mode, &width);
|
|
|
|
return rig->callbacks.mode_event(rig, RIG_VFO_CURR, mode, width,
|
|
|
|
rig->callbacks.freq_arg);
|
|
|
|
}
|
2004-08-08 20:13:19 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
return RIG_OK;
|
2001-12-20 23:03:27 +00:00
|
|
|
}
|
|
|
|
|
2001-12-17 22:40:34 +00:00
|
|
|
|
|
|
|
/*
|
2001-12-28 20:28:04 +00:00
|
|
|
* initrigs_jrc is called by rig_backend_load
|
2001-12-17 22:40:34 +00:00
|
|
|
*/
|
2003-04-16 22:30:43 +00:00
|
|
|
DECLARE_INITRIG_BACKEND(jrc)
|
2001-12-17 22:40:34 +00:00
|
|
|
{
|
2005-04-13 18:20:37 +00:00
|
|
|
rig_debug(RIG_DEBUG_VERBOSE, "jrc: _init called\n");
|
2001-12-17 22:40:34 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
rig_register(&nrd535_caps);
|
|
|
|
rig_register(&nrd545_caps);
|
2001-12-17 22:40:34 +00:00
|
|
|
|
2005-04-13 18:20:37 +00:00
|
|
|
return RIG_OK;
|
2001-12-17 22:40:34 +00:00
|
|
|
}
|
|
|
|
|