mirror
/
Hamlib
kopia lustrzana https://github.com/Hamlib/Hamlib
1
0
Forkuj 0
Kod Zgłoszenia Projekty Wydania Wiki Aktywność
Hamlib/bindings/rig.swg

622 wiersze
18 KiB
Plaintext
Czysty Wina Historia

/*
* Hamlib bindings - Rig interface
* Copyright (c) 2001-2008 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
*
*/
%inline %{
typedef struct Rig {
RIG *rig;
struct rig_caps *caps; /* shortcut to RIG->caps */
struct rig_state *state; /* shortcut to RIG->state */
int error_status;
int do_exception;
} Rig;
typedef char * char_string;
typedef channel_t * channel_t_p;
typedef channel_t * const_channel_t_p;
%}
%extend channel {
channel(vfo_t vfo = RIG_VFO_CURR, int ch = 0) {
channel_t *chan;
chan = (channel_t*)malloc(sizeof(channel_t));
if (!chan)
return NULL;
memset(chan, 0, sizeof(channel_t));
chan->vfo = vfo;
chan->channel_num = ch;
return chan;
}
~channel (void) {
/* TODO: free ext_levels */
free(self);
}
}
%include "carrays.i"
%array_class(struct channel, channelArray);
%array_class(tone_t, toneArray);
/*
* declare wrapper method with one argument besides RIG* and optional no target vfo
*/
#define METHOD1(f, t1) void f (t1 _##t1 _VFO_DECL) \
{ self->error_status = rig_##f(self->rig _VFO_ARG, _##t1); }
#define METHOD2(f, t1, t2) void f (t1 _##t1##_1, t2 _##t2##_2 _VFO_DECL) \
{ self->error_status = rig_##f(self->rig _VFO_ARG, _##t1##_1, _##t2##_2); }
#define METHOD2_INIT(f, t1, t2, i2) void f (t1 _##t1##_1, t2 _##t2##_2 = i2 _VFO_DECL) \
{ self->error_status = rig_##f(self->rig _VFO_ARG, _##t1##_1, _##t2##_2); }
#define METHOD3(f, t1) void f ( vfo_t vfo, t1 _##t1) \
{ self->error_status = rig_##f(self->rig _VFO_ARG, _##t1); }
#define METHOD3_INIT(f, t1, t2, t3, i3) void f (t1 _##t1##_1, t2 _##t2##_2, t3 _##t3##_3 = i3 _VFO_DECL) \
{ self->error_status = rig_##f(self->rig _VFO_ARG, _##t1##_1, _##t2##_2, _##t3##_3); }
/*
* declare wrapper method with one output argument besides RIG* (no target vfo)
*/
#define METHOD1GET(f, t1) t1 f (void) \
{ t1 _##t1; self->error_status = rig_##f(self->rig, &_##t1); return _##t1; }
/*
* declare wrapper method with one output argument besides RIG* and vfo
*/
#define METHOD1VGET(f, t1) t1 f (vfo_t vfo = RIG_VFO_CURR) \
{ t1 _##t1; self->error_status = rig_##f(self->rig, vfo, &_##t1); return _##t1; }
#ifndef SWIGLUA
#define METHODSIMPLESET(f, t1, fld, chk) void set_##f (setting_t stg, t1 fld _VFO_DECL) \
{ value_t val = {0}; if (chk) { \
self->error_status = -RIG_EINVAL; /* invalid type */ \
return; \
} \
val.fld = fld; \
self->error_status = rig_set_##f(self->rig _VFO_ARG , stg, val); \
}
#else
#define METHODSIMPLESET(f, t1, fld, chk) void set_##f (setting_t stg, t1 fld _VFO_DECL) \
{ value_t val = {0}; \
if (chk) { \
int ival = (int)fld; \
val.i = fld; \
} \
else { \
val.fld = fld; \
} \
self->error_status = rig_set_##f(self->rig _VFO_ARG , stg, val); \
}
#endif
/*
* RIG_CONF_ extparm's type:
* NUMERIC: val.f
* COMBO: val.i, starting from 0
* STRING: val.s
* CHECKBUTTON: val.i 0/1
*/
#ifndef SWIGLUA
#define METHODSUPERSET(f, t1, fld, chk) void set_##f (const char *name, t1 fld _VFO_DECL) \
{ setting_t stg; value_t val = {0}; \
stg = rig_parse_##f(name); \
if (!rig_has_set_##f(self->rig, stg)) { \
const struct confparams *cfp; \
cfp = rig_ext_lookup(self->rig, name); \
if (!cfp) { \
self->error_status = -RIG_EINVAL; /* no such parameter */ \
return; \
} \
switch (cfp->type) { \
case RIG_CONF_NUMERIC: \
val.fld = fld; \
break; \
case RIG_CONF_CHECKBUTTON: \
case RIG_CONF_COMBO: \
val.i = (int)fld; \
break; \
case RIG_CONF_STRING: \
self->error_status = -RIG_EINVAL; /* invalid type */ \
return; \
default: \
self->error_status = -RIG_ECONF; \
return; \
} \
self->error_status = rig_set_ext_##f(self->rig _VFO_ARG, cfp->token, val); \
return; \
} \
if (chk) { \
self->error_status = -RIG_EINVAL; /* invalid type */ \
return; \
} \
val.fld = fld; \
self->error_status = rig_set_##f(self->rig _VFO_ARG , stg, val); \
}
#else
#define METHODSUPERSET(f, t1, fld, chk) void set_##f (const char *name, t1 fld _VFO_DECL) \
{ setting_t stg; value_t val = {0}; \
stg = rig_parse_##f(name); \
if (!rig_has_set_##f(self->rig, stg)) { \
const struct confparams *cfp; \
cfp = rig_ext_lookup(self->rig, name); \
if (!cfp) { \
self->error_status = -RIG_EINVAL; /* no such parameter */ \
return; \
} \
switch (cfp->type) { \
case RIG_CONF_NUMERIC: \
val.fld = fld; \
break; \
case RIG_CONF_CHECKBUTTON: \
case RIG_CONF_COMBO: \
val.i = (int)fld; \
break; \
case RIG_CONF_STRING: \
self->error_status = -RIG_EINVAL; /* invalid type */ \
return; \
default: \
self->error_status = -RIG_ECONF; \
return; \
} \
self->error_status = rig_set_ext_##f(self->rig _VFO_ARG, cfp->token, val); \
return; \
} \
if (chk) { \
int ival = (int)fld; \
val.i = ival; \
} \
else { \
val.fld = fld; \
} \
self->error_status = rig_set_##f(self->rig _VFO_ARG , stg, val); \
}
#endif
#define METHODSTRSET(f) void set_##f (const char *name, const char *s _VFO_DECL) \
{ value_t val = {0}; /* only ext_level/parm's can have string values */ \
const struct confparams *cfp; \
cfp = rig_ext_lookup(self->rig, name); \
if (!cfp) { \
self->error_status = -RIG_EINVAL; /* no such parameter */ \
return; \
} \
if (cfp->type != RIG_CONF_STRING) { \
self->error_status = -RIG_EINVAL; /* invalid type */ \
return; \
} \
val.cs = s; \
self->error_status = rig_set_ext_##f(self->rig _VFO_ARG, cfp->token, val); \
}
#define METHODSIMPLEGET(f, t1, fld, chk) t1 get_##f##_##fld (setting_t stg _VFO_DECL) \
{ value_t val = {0}; if (chk) { \
self->error_status = -RIG_EINVAL; /* invalid type */ \
return val.fld; /* undefined value */ \
} \
self->error_status = rig_get_##f(self->rig _VFO_ARG , stg, &val); \
return val.fld; \
}
#define METHODSUPERGET(fct, t1, fld, chk) t1 get_##fct##_##fld(const char *name _VFO_DECL) \
{ setting_t stg; value_t val = {0}; \
stg = rig_parse_##fct(name); \
if (!rig_has_get_##fct(self->rig, stg)) { \
const struct confparams *cfp; \
cfp = rig_ext_lookup(self->rig, name); \
if (!cfp) { \
self->error_status = -RIG_EINVAL; /* no such parameter */ \
return val.fld; /* undefined */ \
} \
if (cfp->type == RIG_CONF_STRING) { \
self->error_status = -RIG_EINVAL; \
return val.fld; /* undefined */ \
} \
self->error_status = rig_get_ext_##fct(self->rig _VFO_ARG, cfp->token, &val); \
switch (cfp->type) { \
case RIG_CONF_NUMERIC: \
return (t1)val.f; \
case RIG_CONF_CHECKBUTTON: \
case RIG_CONF_COMBO: \
return (t1)val.i; \
default: \
self->error_status = -RIG_ECONF; \
return val.fld; /* undefined */ \
} \
} \
if (chk) { \
self->error_status = -RIG_EINVAL; /* invalid type */ \
return val.fld; /* undefined */ \
} \
self->error_status = rig_get_##fct(self->rig _VFO_ARG , stg, &val); \
return val.fld; \
}
#define METHODSTRGET(f) void get_##f (const char *name, char *returnstr _VFO_DECL) \
{ value_t val = {0}; /* only ext_level/parm's can have string values */ \
const struct confparams *cfp; \
returnstr[0] = '\0'; \
cfp = rig_ext_lookup(self->rig, name); \
if (!cfp || cfp->type != RIG_CONF_STRING) { \
self->error_status = -RIG_EINVAL; /* no such parameter/invalid type */ \
return; \
} \
val.s = returnstr; \
self->error_status = rig_get_ext_##f(self->rig _VFO_ARG, cfp->token, &val); \
}
/*
* string as return value
* NB: The %apply has to be outside the %extend,
* but the %cstring_bounded_output must be inside.
*/
%ignore MAX_RETURNSTR;
#define MAX_RETURNSTR 256
#ifndef SWIGJAVA
%apply char *OUTPUT { char *returnstr };
#endif
/*
* Rig class alike
*/
%extend Rig {
#ifndef SWIGLUA
#ifndef SWIG_CSTRING_UNIMPL
#ifndef SWIGJAVA
%cstring_bounded_output(char *returnstr, MAX_RETURNSTR);
#endif
#endif
#endif
Rig(int rig_model) {
Rig *r;
r = (Rig*)malloc(sizeof(Rig));
if (!r)
return NULL;
r->rig = rig_init(rig_model);
if (!r->rig) {
free(r);
return NULL;
}
/* install shortcuts */
r->caps = r->rig->caps;
r->state = &r->rig->state;
r->do_exception = 0; /* default is disabled */
r->error_status = RIG_OK;
return r;
}
~Rig () {
rig_cleanup(self->rig);
free(self);
}
/*
* return code checking
*/
%exception {
arg1->error_status = RIG_OK;
$action
if (arg1->error_status != RIG_OK && arg1->do_exception)
SWIG_exception(SWIG_UnknownError, rigerror(arg1->error_status));
}
void open () {
self->error_status = rig_open(self->rig);
}
void close () {
self->error_status = rig_close(self->rig);
}
/*
* group all vfo, and non vfo apart
*/
#define _VFO_ARG ,vfo
#define _VFO_DECL ,vfo_t vfo = RIG_VFO_CURR
METHOD3(set_freq, freq_t)
METHOD2_INIT(set_mode, rmode_t, pbwidth_t, RIG_PASSBAND_NORMAL)
METHOD3(set_ptt, ptt_t)
METHOD3(set_rptr_shift, rptr_shift_t)
METHOD3(set_rptr_offs, shortfreq_t)
METHOD3(set_ctcss_tone, tone_t)
METHOD3(set_dcs_code, tone_t)
METHOD3(set_ctcss_sql, tone_t)
METHOD1(set_dcs_sql, tone_t)
METHOD3(set_split_freq, freq_t)
METHOD2_INIT(set_split_mode, rmode_t, pbwidth_t, RIG_PASSBAND_NORMAL)
METHOD3_INIT(set_split_freq_mode, freq_t, rmode_t, pbwidth_t, RIG_PASSBAND_NORMAL)
METHOD2(set_split_vfo, split_t, vfo_t)
METHOD3(set_rit, shortfreq_t)
METHOD3(set_xit, shortfreq_t)
METHOD3(set_ts, shortfreq_t)
METHOD2(set_ant, ant_t, value_t)
METHOD2(set_func, setting_t, int)
METHOD2(set_ext_func, token_t, int)
METHOD3(set_bank, int)
METHOD3(set_mem, int)
METHOD3(send_dtmf, const_char_string)
METHOD3(send_morse, const_char_string)
METHOD3(vfo_op, vfo_op_t)
METHOD2(scan, scan_t, int)
METHODSIMPLESET(level, int, i, RIG_LEVEL_IS_FLOAT(stg))
METHODSIMPLESET(level, float, f, !RIG_LEVEL_IS_FLOAT(stg))
METHODSUPERSET(level, int, i, RIG_LEVEL_IS_FLOAT(stg))
METHODSUPERSET(level, float, f, !RIG_LEVEL_IS_FLOAT(stg))
METHODSTRSET(level)
METHOD2(set_ext_level, token_t, value_t)
METHODSIMPLEGET(level, int, i, RIG_LEVEL_IS_FLOAT(stg))
METHODSIMPLEGET(level, float, f, !RIG_LEVEL_IS_FLOAT(stg))
METHODSUPERGET(level, int, i, RIG_LEVEL_IS_FLOAT(stg))
METHODSUPERGET(level, float, f, !RIG_LEVEL_IS_FLOAT(stg))
METHODSTRGET(level)
/*
* these ones take no vfo arg
*/
#undef _VFO_ARG
#undef _VFO_DECL
#define _VFO_ARG
#define _VFO_DECL
METHOD1(set_vfo, vfo_t) /* particular case */
METHOD1(set_powerstat, powerstat_t)
METHOD1(set_trn, int)
METHOD1(has_get_level, setting_t)
METHOD1(has_set_parm, setting_t)
METHOD1(has_set_func, setting_t)
METHOD1(reset, reset_t)
METHOD1(has_scan, scan_t)
METHOD1(has_vfo_op, vfo_op_t)
METHOD1(passband_normal, rmode_t)
METHOD1(passband_narrow, rmode_t)
METHOD1(passband_wide, rmode_t)
METHOD1(ext_token_lookup, const_char_string) /* level & parm */
METHOD1(token_lookup, const_char_string) /* conf */
METHOD2(set_conf, token_t, const_char_string)
METHOD2(set_ext_parm, token_t, value_t)
METHODSIMPLESET(parm, int, i, RIG_PARM_IS_FLOAT(stg))
METHODSIMPLESET(parm, float, f, !RIG_PARM_IS_FLOAT(stg))
METHODSUPERSET(parm, int, i, RIG_PARM_IS_FLOAT(stg))
METHODSUPERSET(parm, float, f, !RIG_PARM_IS_FLOAT(stg))
METHODSTRSET(parm)
METHODSIMPLEGET(parm, int, i, RIG_PARM_IS_FLOAT(stg))
METHODSIMPLEGET(parm, float, f, !RIG_PARM_IS_FLOAT(stg))
METHODSUPERGET(parm, int, i, RIG_PARM_IS_FLOAT(stg))
METHODSUPERGET(parm, float, f, !RIG_PARM_IS_FLOAT(stg))
METHODSTRGET(parm)
void set_conf(const char *name, const char *val) {
token_t tok = rig_token_lookup(self->rig, name);
if (tok == RIG_CONF_END)
self->error_status = -RIG_EINVAL;
else
self->error_status = rig_set_conf(self->rig, tok, val);
}
/* TODO: get_ext_parm_list, level, conf, .. */
/* get functions */
METHOD1VGET(get_freq, freq_t)
extern void get_mode(rmode_t * OUTPUT, pbwidth_t * OUTPUT, vfo_t vfo = RIG_VFO_CURR);
extern void get_split_mode(rmode_t * OUTPUT, pbwidth_t * OUTPUT, vfo_t vfo = RIG_VFO_CURR);
METHOD1GET(get_vfo, vfo_t)
METHOD1VGET(get_ptt, ptt_t)
METHOD1VGET(get_rptr_shift, rptr_shift_t)
METHOD1VGET(get_rptr_offs, shortfreq_t)
METHOD1VGET(get_ctcss_tone, tone_t)
METHOD1VGET(get_dcs_code, tone_t)
METHOD1VGET(get_ctcss_sql, tone_t)
METHOD1VGET(get_dcs_sql, tone_t)
METHOD1VGET(get_split_freq, freq_t)
void get_split_vfo(split_t *split, vfo_t *tx_vfo, vfo_t vfo = RIG_VFO_CURR)
{ self->error_status = rig_get_split_vfo(self->rig, vfo, split, tx_vfo); }
METHOD1VGET(get_rit, shortfreq_t)
METHOD1VGET(get_xit, shortfreq_t)
METHOD1VGET(get_ts, shortfreq_t)
extern void get_ant(ant_t *ant_rx, ant_t *ant_tx, ant_t *ant_curr, value_t * OUTPUT, ant_t ant, vfo_t vfo = RIG_VFO_CURR);
METHOD1VGET(get_mem, int)
METHOD1GET(get_powerstat, powerstat_t)
METHOD1GET(get_trn, int)
METHOD1VGET(get_dcd, dcd_t)
int mem_count(void) {
return rig_mem_count(self->rig);
}
const chan_t *lookup_mem_caps(int channel_num = RIG_MEM_CAPS_ALL)
{
return rig_lookup_mem_caps(self->rig, channel_num);
}
void set_channel(const struct channel *chan) {
self->error_status = rig_set_channel(self->rig, chan);
}
void get_channel(struct channel *chan, int read_only) {
self->error_status = rig_get_channel(self->rig, chan, read_only);
/* TODO: handle ext_level's */
}
void chan_clear(struct channel *chans, int nb_chans = 1) {
memset(chans, 0, sizeof(struct channel)*nb_chans);
}
void get_chan_all(struct channel *chans) {
self->error_status = rig_get_chan_all(self->rig, chans);
/* TODO: handle ext_level's */
}
/*
* Rem: does swig has to be told that returned object need to be handled by gc?
*/
struct channel *get_chan_all(void);
/* get_channel() returns current VFO data
* get_channel(10) returns content of memory #10
* get_channel(0, RIG_VFO_A) returns VFO A data
* Rem: does swig has to be told that returned object need to be handled by gc?
*/
struct channel *get_channel(int read_only, int channel_num = INT_MAX, vfo_t vfo = RIG_VFO_MEM) {
struct channel *chan;
chan = new_channel(channel_num != INT_MAX ? vfo : RIG_VFO_CURR, channel_num);
if (!chan)
{
self->error_status = -RIG_ENOMEM;
return NULL;
}
self->error_status = rig_get_channel(self->rig, chan, read_only);
/* TODO: copy ext_level's */
return chan;
}
void get_conf(token_t tok, char *returnstr) {
returnstr[0] = '\0';
self->error_status = rig_get_conf(self->rig, tok, returnstr);
}
void get_conf(const char *name, char *returnstr) {
returnstr[0] = '\0';
token_t tok = rig_token_lookup(self->rig, name);
if (tok == RIG_CONF_END)
self->error_status = -RIG_EINVAL;
else
self->error_status = rig_get_conf(self->rig, tok, returnstr);
}
void recv_dtmf(char *returnstr, vfo_t vfo = RIG_VFO_CURR) {
int len = MAX_RETURNSTR;
self->error_status = rig_recv_dtmf(self->rig, vfo, returnstr, &len);
returnstr[len] = '\0';
}
const char * get_info(void) {
const char *s;
s = rig_get_info(self->rig);
self->error_status = s ? RIG_OK : -RIG_EINVAL;
return s;
}
int get_func(setting_t func, vfo_t vfo = RIG_VFO_CURR) {
int status;
self->error_status = rig_get_func(self->rig, vfo, func, &status);
return status;
}
int get_ext_func(token_t func, vfo_t vfo = RIG_VFO_CURR) {
int status;
self->error_status = rig_get_ext_func(self->rig, vfo, func, &status);
return status;
}
//#ifndef SWIGJAVA
/* TODO */
void get_level(setting_t level, vfo_t vfo = RIG_VFO_CURR)
{ value_t val = {0}; self->error_status = rig_get_level(self->rig, vfo, level, &val);
//if (RIG_LEVEL_IS_FLOAT(level))
/* TODO: dynamic casting */
}
void get_ext_level(token_t token, vfo_t vfo = RIG_VFO_CURR)
{ value_t val = {0}; self->error_status = rig_get_level(self->rig, vfo, token, &val);
//if (RIG_LEVEL_IS_FLOAT(level))
/* TODO: dynamic casting */
}
void get_parm(setting_t parm)
{ value_t val = {0}; self->error_status = rig_get_parm(self->rig, parm, &val);
//if (RIG_LEVEL_IS_FLOAT(parm))
/* TODO: dynamic casting */
}
void get_ext_parm(token_t parm)
{ value_t val = {0}; self->error_status = rig_get_parm(self->rig, parm, &val);
//if (RIG_LEVEL_IS_FLOAT(parm))
/* TODO: dynamic casting */
}
//#endif
};
%{
/*
* these ones return 2 values, here is a perl example:
* ($mode, $width) = $rig->get_mode();
*/
void Rig_get_mode(Rig *self, rmode_t *mode, pbwidth_t *width, vfo_t vfo)
{
self->error_status = rig_get_mode(self->rig, vfo, mode, width);
}
void Rig_get_split_mode(Rig *self, rmode_t *mode, pbwidth_t *width, vfo_t vfo)
{
self->error_status = rig_get_split_mode(self->rig, vfo, mode, width);
}
/*
* these ones return 3 values
*/
void Rig_get_split_freq_mode(Rig *self, vfo_t vfo, freq_t *tx_freq, rmode_t *tx_mode, pbwidth_t *tx_width)
{
self->error_status = rig_get_split_freq_mode(self->rig, vfo, tx_freq, tx_mode, tx_width);
}
/*
* these ones return 4 values
*/
void Rig_get_ant(Rig *self, ant_t *ant_rx, ant_t *ant_tx, ant_t *ant_curr, value_t *option, ant_t ant, vfo_t vfo)
{
self->error_status = rig_get_ant(self->rig, vfo, ant, option, ant_curr, ant_tx, ant_rx);
}
struct channel *Rig_get_chan_all(Rig *self)
{
struct channel *chans;
int nb_chans = rig_mem_count(self->rig);
/* TODO: memleak: typemap to release that memory */
chans = calloc(sizeof (struct channel), nb_chans);
if (!chans)
{
self->error_status = -RIG_ENOMEM;
return NULL;
}
self->error_status = rig_get_chan_all(self->rig, chans);
/* TODO: copy ext_level's */
return chans;
}
%}
Reference in New Issue View Git Blame Kopiuj bezpośredni odnośnik