Hamlib/lowe/lowe.c

320 wiersze
6.6 KiB
C

/*
* Hamlib Lowe backend - main file
* Copyright (c) 2003 by Stephane Fillod
*
* $Id: lowe.c,v 1.2 2003-10-01 19:31:59 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 <stdio.h>
#include <stdlib.h>
#include <string.h> /* String function definitions */
#include <unistd.h> /* UNIX standard function definitions */
#include <math.h>
#include "hamlib/rig.h"
#include "serial.h"
#include "misc.h"
#include "register.h"
#include "lowe.h"
#define BUFSZ 64
#define CR "\x0d"
#define EOM CR
#define MD_USB "USB"
#define MD_LSB "LSB"
#define MD_FAX "FAX"
#define MD_CW "CW"
#define MD_FM "FM"
#define MD_AM "AM"
#define MD_AMS "AMS"
/*
* lowe_transaction
* We assume that rig!=NULL, rig->state!= NULL, data!=NULL, data_len!=NULL
*/
int lowe_transaction(RIG *rig, const char *cmd, int cmd_len, char *data, int *data_len)
{
int retval;
struct rig_state *rs;
rs = &rig->state;
serial_flush(&rs->rigport);
retval = write_block(&rs->rigport, cmd, cmd_len);
if (retval != RIG_OK)
return retval;
/* no data expected, TODO: flush input? */
if (!data || !data_len)
return 0;
*data_len = read_string(&rs->rigport, data, BUFSZ, CR, 1);
return RIG_OK;
}
/*
* lowe_set_freq
* Assumes rig!=NULL
*/
int lowe_set_freq(RIG *rig, vfo_t vfo, freq_t freq)
{
unsigned char freqbuf[16], ackbuf[16];
int freq_len, ack_len, retval;
/*
*/
freq_len = sprintf(freqbuf,"FRQ%f" EOM, (float)freq/1000);
retval = lowe_transaction(rig, freqbuf, freq_len, ackbuf, &ack_len);
return retval;
}
/*
* lowe_get_freq
* Assumes rig!=NULL
*/
int lowe_get_freq(RIG *rig, vfo_t vfo, freq_t *freq)
{
unsigned char freqbuf[16];
int freq_len, retval;
float f_freq;
retval = lowe_transaction(rig, "FRQ?" EOM, 5, freqbuf, &freq_len);
if (retval != RIG_OK)
return retval;
freqbuf[freq_len < 16 ? freq_len : 15] = '\0';
sscanf(freqbuf+1, "%f", &f_freq);
*freq = f_freq*1000;
return retval;
}
/*
* lowe_set_mode
* Assumes rig!=NULL
*/
int lowe_set_mode(RIG *rig, vfo_t vfo, rmode_t mode, pbwidth_t width)
{
unsigned char mdbuf[16], ackbuf[16];
unsigned char *mode_sel;
int mdbuf_len, ack_len, retval;
switch (mode) {
case RIG_MODE_CW: mode_sel = MD_CW; break;
case RIG_MODE_USB: mode_sel = MD_USB; break;
case RIG_MODE_LSB: mode_sel = MD_LSB; break;
case RIG_MODE_FM: mode_sel = MD_FM; break;
case RIG_MODE_AM: mode_sel = MD_AM; break;
case RIG_MODE_RTTY: mode_sel = MD_FAX; break; /* TBC */
case RIG_MODE_AMS: mode_sel = MD_AMS; break;
default:
rig_debug(RIG_DEBUG_ERR,"lowe_set_mode: "
"unsupported mode %d\n", mode);
return -RIG_EINVAL;
}
mdbuf_len = sprintf(mdbuf, "MOD%s" EOM, mode_sel);
retval = lowe_transaction (rig, mdbuf, mdbuf_len, ackbuf, &ack_len);
return retval;
}
/*
* lowe_get_mode
* Assumes rig!=NULL
*/
int lowe_get_mode(RIG *rig, vfo_t vfo, rmode_t *mode, pbwidth_t *width)
{
unsigned char mdbuf[16];
int mdbuf_len, retval;
retval = lowe_transaction (rig, "MOD?" EOM, 5, mdbuf, &mdbuf_len);
if (retval != RIG_OK)
return retval;
if (!strcmp(mdbuf+1, MD_CW))
*mode = RIG_MODE_CW;
else if (!strcmp(mdbuf+1, MD_USB))
*mode = RIG_MODE_USB;
else if (!strcmp(mdbuf+1, MD_LSB))
*mode = RIG_MODE_LSB;
else if (!strcmp(mdbuf+1, MD_FM))
*mode = RIG_MODE_FM;
else if (!strcmp(mdbuf+1, MD_FAX)) /* TBC */
*mode = RIG_MODE_RTTY;
else if (!strcmp(mdbuf+1, MD_AMS))
*mode = RIG_MODE_AMS;
else if (!strcmp(mdbuf+1, MD_AM))
*mode = RIG_MODE_AM;
else {
rig_debug(RIG_DEBUG_WARN,"%s: unknown mode '%s'\n",
__FUNCTION__, mdbuf);
return -RIG_EPROTO;
}
*width = RIG_PASSBAND_NORMAL;
return retval;
}
/*
* lowe_get_level
* Assumes rig!=NULL
*/
int lowe_get_level(RIG *rig, vfo_t vfo, setting_t level, value_t *val)
{
unsigned char lvlbuf[16];
int lvl_len, retval;
if (level != RIG_LEVEL_STRENGTH)
return -RIG_EINVAL;
retval = lowe_transaction(rig, "RSS?" EOM, 5, lvlbuf, &lvl_len);
if (retval != RIG_OK)
return retval;
lvlbuf[lvl_len < 16 ? lvl_len : 15] = '\0';
sscanf(lvlbuf+1, "%d", &val->i);
val->i += 60; /* dBm */
return retval;
}
/*
* lowe_reset
* Assumes rig!=NULL
*/
int lowe_reset(RIG *rig, reset_t reset)
{
static unsigned char ackbuf[BUFSZ];
int retval, ack_len;
retval = lowe_transaction(rig, "RES" EOM, 4, ackbuf, &ack_len);
return retval;
}
/*
* lowe_get_info
* Assumes rig!=NULL
*/
const char *lowe_get_info(RIG *rig)
{
static unsigned char idbuf[BUFSZ];
int retval, id_len;
/* hack: no idea what INF is for */
retval = lowe_transaction(rig, "INF?" EOM, 5, idbuf, &id_len);
/* this is the real one */
retval = lowe_transaction(rig, "TYP?" EOM, 5, idbuf, &id_len);
if (retval != RIG_OK)
return NULL;
idbuf[id_len] = '\0';
return idbuf;
}
/*
* probe_lowe(port_t *port, rig_probe_func_t cfunc, rig_ptr_t data)
*/
DECLARE_PROBERIG_BACKEND(lowe)
{
static unsigned char idbuf[BUFSZ];
int retval, id_len;
if (!port)
return RIG_MODEL_NONE;
if (port->type.rig != RIG_PORT_SERIAL)
return RIG_MODEL_NONE;
port->parm.serial.rate = hf235_caps.serial_rate_max;
port->write_delay = port->post_write_delay = 0;
port->timeout = 50;
port->retry = 1;
retval = serial_open(port);
if (retval != RIG_OK)
return RIG_MODEL_NONE;
retval = write_block(port, "TYP?" EOM, 4);
id_len = read_string(port, idbuf, BUFSZ, CR, 2);
close(port->fd);
if (retval != RIG_OK || id_len <= 0 || id_len >= BUFSZ)
return RIG_MODEL_NONE;
idbuf[id_len] = '\0';
if (!strcmp(idbuf, "HF-235")) {
if (cfunc)
(*cfunc)(port, RIG_MODEL_HF235, data);
return RIG_MODEL_HF235;
}
/*
* not found...
*/
if (memcmp(idbuf, "ID" EOM, 3)) /* catch loopback serial */
rig_debug(RIG_DEBUG_VERBOSE,"probe_lowe: found unknown device "
"with ID '%s', please report to Hamlib "
"developers.\n", idbuf);
return RIG_MODEL_NONE;
}
/*
* initrigs_lowe is called by rig_backend_load
*/
DECLARE_INITRIG_BACKEND(lowe)
{
rig_debug(RIG_DEBUG_VERBOSE, "lowe: _init called\n");
rig_register(&hf235_caps);
return RIG_OK;
}