kopia lustrzana https://github.com/Hamlib/Hamlib
Initial release
git-svn-id: https://hamlib.svn.sourceforge.net/svnroot/hamlib/trunk@519 7ae35d74-ebe9-4afe-98af-79ac388436b8Hamlib-1.1.2
Stéphane Fillod, F8CFE
rodzic
252c7d75d3
commit
2a98be2010
|
|
@ -0,0 +1,10 @@
|
|||
lib_LTLIBRARIES = libhamlib-alinco.la
|
||||
libhamlib_alinco_la_SOURCES = dx77.c alinco.c
|
||||
libhamlib_alinco_la_LDFLAGS = -avoid-version # -module
|
||||
libhamlib_alinco_la_LIBADD = ../src/libhamlib.la
|
||||
|
||||
lib_LIBRARIES = libhamlib-alinco.a
|
||||
libhamlib_alinco_a_SOURCES = dx77.c alinco.c
|
||||
libhamlib_alinco_a_LIBADD = ../src/libhamlib.la
|
||||
|
||||
noinst_HEADERS = alinco.h
|
||||
|
|
@ -0,0 +1,418 @@
|
|||
# Makefile.in generated automatically by automake 1.4-p2 from Makefile.am
|
||||
|
||||
# Copyright (C) 1994, 1995-8, 1999 Free Software Foundation, Inc.
|
||||
# This Makefile.in is free software; the Free Software Foundation
|
||||
# gives unlimited permission to copy and/or distribute it,
|
||||
# with or without modifications, as long as this notice is preserved.
|
||||
|
||||
# This program is distributed in the hope that it will be useful,
|
||||
# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
|
||||
# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
|
||||
# PARTICULAR PURPOSE.
|
||||
|
||||
|
||||
SHELL = @SHELL@
|
||||
|
||||
srcdir = @srcdir@
|
||||
top_srcdir = @top_srcdir@
|
||||
VPATH = @srcdir@
|
||||
prefix = @prefix@
|
||||
exec_prefix = @exec_prefix@
|
||||
|
||||
bindir = @bindir@
|
||||
sbindir = @sbindir@
|
||||
libexecdir = @libexecdir@
|
||||
datadir = @datadir@
|
||||
sysconfdir = @sysconfdir@
|
||||
sharedstatedir = @sharedstatedir@
|
||||
localstatedir = @localstatedir@
|
||||
libdir = @libdir@
|
||||
infodir = @infodir@
|
||||
mandir = @mandir@
|
||||
includedir = @includedir@
|
||||
oldincludedir = /usr/include
|
||||
|
||||
DESTDIR =
|
||||
|
||||
pkgdatadir = $(datadir)/@PACKAGE@
|
||||
pkglibdir = $(libdir)/@PACKAGE@
|
||||
pkgincludedir = $(includedir)/@PACKAGE@
|
||||
|
||||
top_builddir = ..
|
||||
|
||||
ACLOCAL = @ACLOCAL@
|
||||
AUTOCONF = @AUTOCONF@
|
||||
AUTOMAKE = @AUTOMAKE@
|
||||
AUTOHEADER = @AUTOHEADER@
|
||||
|
||||
INSTALL = @INSTALL@
|
||||
INSTALL_PROGRAM = @INSTALL_PROGRAM@ $(AM_INSTALL_PROGRAM_FLAGS)
|
||||
INSTALL_DATA = @INSTALL_DATA@
|
||||
INSTALL_SCRIPT = @INSTALL_SCRIPT@
|
||||
transform = @program_transform_name@
|
||||
|
||||
NORMAL_INSTALL = :
|
||||
PRE_INSTALL = :
|
||||
POST_INSTALL = :
|
||||
NORMAL_UNINSTALL = :
|
||||
PRE_UNINSTALL = :
|
||||
POST_UNINSTALL = :
|
||||
host_alias = @host_alias@
|
||||
host_triplet = @host@
|
||||
AR = @AR@
|
||||
AS = @AS@
|
||||
CC = @CC@
|
||||
DLLTOOL = @DLLTOOL@
|
||||
DLL_PRELOAD = @DLL_PRELOAD@
|
||||
ECHO = @ECHO@
|
||||
EXEEXT = @EXEEXT@
|
||||
INCLTDL = @INCLTDL@
|
||||
INCLUDES = @INCLUDES@
|
||||
LIBLTDL = @LIBLTDL@
|
||||
LIBOBJS = @LIBOBJS@
|
||||
LIBTOOL = @LIBTOOL@
|
||||
LIBWINRADIO = @LIBWINRADIO@
|
||||
LN_S = @LN_S@
|
||||
LTLIBWINRADIO = @LTLIBWINRADIO@
|
||||
MAKEINFO = @MAKEINFO@
|
||||
NET = @NET@
|
||||
OBJDUMP = @OBJDUMP@
|
||||
OBJEXT = @OBJEXT@
|
||||
PACKAGE = @PACKAGE@
|
||||
RANLIB = @RANLIB@
|
||||
RIGMATRIX = @RIGMATRIX@
|
||||
STRIP = @STRIP@
|
||||
VERSION = @VERSION@
|
||||
V_MAJOR = @V_MAJOR@
|
||||
V_MINOR = @V_MINOR@
|
||||
WINDRES = @WINDRES@
|
||||
WINRADIODEPS = @WINRADIODEPS@
|
||||
WINRADIOLNK = @WINRADIOLNK@
|
||||
hamlibdocdir = @hamlibdocdir@
|
||||
|
||||
lib_LTLIBRARIES = libhamlib-alinco.la
|
||||
libhamlib_alinco_la_SOURCES = dx77.c alinco.c
|
||||
libhamlib_alinco_la_LDFLAGS = -avoid-version # -module
|
||||
libhamlib_alinco_la_LIBADD = ../src/libhamlib.la
|
||||
|
||||
lib_LIBRARIES = libhamlib-alinco.a
|
||||
libhamlib_alinco_a_SOURCES = dx77.c alinco.c
|
||||
libhamlib_alinco_a_LIBADD = ../src/libhamlib.la
|
||||
|
||||
noinst_HEADERS = alinco.h
|
||||
mkinstalldirs = $(SHELL) $(top_srcdir)/mkinstalldirs
|
||||
CONFIG_HEADER = ../include/config.h
|
||||
CONFIG_CLEAN_FILES =
|
||||
LIBRARIES = $(lib_LIBRARIES)
|
||||
|
||||
|
||||
DEFS = @DEFS@ -I. -I$(srcdir) -I../include
|
||||
CPPFLAGS = @CPPFLAGS@
|
||||
LDFLAGS = @LDFLAGS@
|
||||
LIBS = @LIBS@
|
||||
libhamlib_alinco_a_DEPENDENCIES = ../src/libhamlib.la
|
||||
libhamlib_alinco_a_OBJECTS = dx77.$(OBJEXT) alinco.$(OBJEXT)
|
||||
LTLIBRARIES = $(lib_LTLIBRARIES)
|
||||
|
||||
libhamlib_alinco_la_DEPENDENCIES = ../src/libhamlib.la
|
||||
libhamlib_alinco_la_OBJECTS = dx77.lo alinco.lo
|
||||
CFLAGS = @CFLAGS@
|
||||
COMPILE = $(CC) $(DEFS) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS)
|
||||
LTCOMPILE = $(LIBTOOL) --mode=compile $(CC) $(DEFS) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS)
|
||||
CCLD = $(CC)
|
||||
LINK = $(LIBTOOL) --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(LDFLAGS) -o $@
|
||||
HEADERS = $(noinst_HEADERS)
|
||||
|
||||
DIST_COMMON = Makefile.am Makefile.in
|
||||
|
||||
|
||||
DISTFILES = $(DIST_COMMON) $(SOURCES) $(HEADERS) $(TEXINFOS) $(EXTRA_DIST)
|
||||
|
||||
TAR = tar
|
||||
GZIP_ENV = --best
|
||||
DEP_FILES = .deps/alinco.P .deps/dx77.P
|
||||
SOURCES = $(libhamlib_alinco_a_SOURCES) $(libhamlib_alinco_la_SOURCES)
|
||||
OBJECTS = $(libhamlib_alinco_a_OBJECTS) $(libhamlib_alinco_la_OBJECTS)
|
||||
|
||||
all: all-redirect
|
||||
.SUFFIXES:
|
||||
.SUFFIXES: .S .c .lo .o .obj .s
|
||||
$(srcdir)/Makefile.in: Makefile.am $(top_srcdir)/configure.in $(ACLOCAL_M4)
|
||||
cd $(top_srcdir) && $(AUTOMAKE) --gnu alinco/Makefile
|
||||
|
||||
Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status $(BUILT_SOURCES)
|
||||
cd $(top_builddir) \
|
||||
&& CONFIG_FILES=$(subdir)/$@ CONFIG_HEADERS= $(SHELL) ./config.status
|
||||
|
||||
|
||||
mostlyclean-libLIBRARIES:
|
||||
|
||||
clean-libLIBRARIES:
|
||||
-test -z "$(lib_LIBRARIES)" || rm -f $(lib_LIBRARIES)
|
||||
|
||||
distclean-libLIBRARIES:
|
||||
|
||||
maintainer-clean-libLIBRARIES:
|
||||
|
||||
install-libLIBRARIES: $(lib_LIBRARIES)
|
||||
@$(NORMAL_INSTALL)
|
||||
$(mkinstalldirs) $(DESTDIR)$(libdir)
|
||||
@list='$(lib_LIBRARIES)'; for p in $$list; do \
|
||||
if test -f $$p; then \
|
||||
echo " $(INSTALL_DATA) $$p $(DESTDIR)$(libdir)/$$p"; \
|
||||
$(INSTALL_DATA) $$p $(DESTDIR)$(libdir)/$$p; \
|
||||
else :; fi; \
|
||||
done
|
||||
@$(POST_INSTALL)
|
||||
@list='$(lib_LIBRARIES)'; for p in $$list; do \
|
||||
if test -f $$p; then \
|
||||
echo " $(RANLIB) $(DESTDIR)$(libdir)/$$p"; \
|
||||
$(RANLIB) $(DESTDIR)$(libdir)/$$p; \
|
||||
else :; fi; \
|
||||
done
|
||||
|
||||
uninstall-libLIBRARIES:
|
||||
@$(NORMAL_UNINSTALL)
|
||||
list='$(lib_LIBRARIES)'; for p in $$list; do \
|
||||
rm -f $(DESTDIR)$(libdir)/$$p; \
|
||||
done
|
||||
|
||||
# FIXME: We should only use cygpath when building on Windows,
|
||||
# and only if it is available.
|
||||
.c.obj:
|
||||
$(COMPILE) -c `cygpath -w $<`
|
||||
|
||||
.s.o:
|
||||
$(COMPILE) -c $<
|
||||
|
||||
.S.o:
|
||||
$(COMPILE) -c $<
|
||||
|
||||
mostlyclean-compile:
|
||||
-rm -f *.o core *.core
|
||||
-rm -f *.$(OBJEXT)
|
||||
|
||||
clean-compile:
|
||||
|
||||
distclean-compile:
|
||||
-rm -f *.tab.c
|
||||
|
||||
maintainer-clean-compile:
|
||||
|
||||
.s.lo:
|
||||
$(LIBTOOL) --mode=compile $(COMPILE) -c $<
|
||||
|
||||
.S.lo:
|
||||
$(LIBTOOL) --mode=compile $(COMPILE) -c $<
|
||||
|
||||
mostlyclean-libtool:
|
||||
-rm -f *.lo
|
||||
|
||||
clean-libtool:
|
||||
-rm -rf .libs _libs
|
||||
|
||||
distclean-libtool:
|
||||
|
||||
maintainer-clean-libtool:
|
||||
|
||||
libhamlib-alinco.a: $(libhamlib_alinco_a_OBJECTS) $(libhamlib_alinco_a_DEPENDENCIES)
|
||||
-rm -f libhamlib-alinco.a
|
||||
$(AR) cru libhamlib-alinco.a $(libhamlib_alinco_a_OBJECTS) $(libhamlib_alinco_a_LIBADD)
|
||||
$(RANLIB) libhamlib-alinco.a
|
||||
|
||||
mostlyclean-libLTLIBRARIES:
|
||||
|
||||
clean-libLTLIBRARIES:
|
||||
-test -z "$(lib_LTLIBRARIES)" || rm -f $(lib_LTLIBRARIES)
|
||||
|
||||
distclean-libLTLIBRARIES:
|
||||
|
||||
maintainer-clean-libLTLIBRARIES:
|
||||
|
||||
install-libLTLIBRARIES: $(lib_LTLIBRARIES)
|
||||
@$(NORMAL_INSTALL)
|
||||
$(mkinstalldirs) $(DESTDIR)$(libdir)
|
||||
@list='$(lib_LTLIBRARIES)'; for p in $$list; do \
|
||||
if test -f $$p; then \
|
||||
echo "$(LIBTOOL) --mode=install $(INSTALL) $$p $(DESTDIR)$(libdir)/$$p"; \
|
||||
$(LIBTOOL) --mode=install $(INSTALL) $$p $(DESTDIR)$(libdir)/$$p; \
|
||||
else :; fi; \
|
||||
done
|
||||
|
||||
uninstall-libLTLIBRARIES:
|
||||
@$(NORMAL_UNINSTALL)
|
||||
list='$(lib_LTLIBRARIES)'; for p in $$list; do \
|
||||
$(LIBTOOL) --mode=uninstall rm -f $(DESTDIR)$(libdir)/$$p; \
|
||||
done
|
||||
|
||||
libhamlib-alinco.la: $(libhamlib_alinco_la_OBJECTS) $(libhamlib_alinco_la_DEPENDENCIES)
|
||||
$(LINK) -rpath $(libdir) $(libhamlib_alinco_la_LDFLAGS) $(libhamlib_alinco_la_OBJECTS) $(libhamlib_alinco_la_LIBADD) $(LIBS)
|
||||
|
||||
tags: TAGS
|
||||
|
||||
ID: $(HEADERS) $(SOURCES) $(LISP)
|
||||
list='$(SOURCES) $(HEADERS)'; \
|
||||
unique=`for i in $$list; do echo $$i; done | \
|
||||
awk ' { files[$$0] = 1; } \
|
||||
END { for (i in files) print i; }'`; \
|
||||
here=`pwd` && cd $(srcdir) \
|
||||
&& mkid -f$$here/ID $$unique $(LISP)
|
||||
|
||||
TAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) $(LISP)
|
||||
tags=; \
|
||||
here=`pwd`; \
|
||||
list='$(SOURCES) $(HEADERS)'; \
|
||||
unique=`for i in $$list; do echo $$i; done | \
|
||||
awk ' { files[$$0] = 1; } \
|
||||
END { for (i in files) print i; }'`; \
|
||||
test -z "$(ETAGS_ARGS)$$unique$(LISP)$$tags" \
|
||||
|| (cd $(srcdir) && etags $(ETAGS_ARGS) $$tags $$unique $(LISP) -o $$here/TAGS)
|
||||
|
||||
mostlyclean-tags:
|
||||
|
||||
clean-tags:
|
||||
|
||||
distclean-tags:
|
||||
-rm -f TAGS ID
|
||||
|
||||
maintainer-clean-tags:
|
||||
|
||||
distdir = $(top_builddir)/$(PACKAGE)-$(VERSION)/$(subdir)
|
||||
|
||||
subdir = alinco
|
||||
|
||||
distdir: $(DISTFILES)
|
||||
here=`cd $(top_builddir) && pwd`; \
|
||||
top_distdir=`cd $(top_distdir) && pwd`; \
|
||||
distdir=`cd $(distdir) && pwd`; \
|
||||
cd $(top_srcdir) \
|
||||
&& $(AUTOMAKE) --include-deps --build-dir=$$here --srcdir-name=$(top_srcdir) --output-dir=$$top_distdir --gnu alinco/Makefile
|
||||
@for file in $(DISTFILES); do \
|
||||
d=$(srcdir); \
|
||||
if test -d $$d/$$file; then \
|
||||
cp -pr $$d/$$file $(distdir)/$$file; \
|
||||
else \
|
||||
test -f $(distdir)/$$file \
|
||||
|| ln $$d/$$file $(distdir)/$$file 2> /dev/null \
|
||||
|| cp -p $$d/$$file $(distdir)/$$file || :; \
|
||||
fi; \
|
||||
done
|
||||
|
||||
DEPS_MAGIC := $(shell mkdir .deps > /dev/null 2>&1 || :)
|
||||
|
||||
-include $(DEP_FILES)
|
||||
|
||||
mostlyclean-depend:
|
||||
|
||||
clean-depend:
|
||||
|
||||
distclean-depend:
|
||||
-rm -rf .deps
|
||||
|
||||
maintainer-clean-depend:
|
||||
|
||||
%.o: %.c
|
||||
@echo '$(COMPILE) -c $<'; \
|
||||
$(COMPILE) -Wp,-MD,.deps/$(*F).pp -c $<
|
||||
@-cp .deps/$(*F).pp .deps/$(*F).P; \
|
||||
tr ' ' '\012' < .deps/$(*F).pp \
|
||||
| sed -e 's/^\\$$//' -e '/^$$/ d' -e '/:$$/ d' -e 's/$$/ :/' \
|
||||
>> .deps/$(*F).P; \
|
||||
rm .deps/$(*F).pp
|
||||
|
||||
%.lo: %.c
|
||||
@echo '$(LTCOMPILE) -c $<'; \
|
||||
$(LTCOMPILE) -Wp,-MD,.deps/$(*F).pp -c $<
|
||||
@-sed -e 's/^\([^:]*\)\.o[ ]*:/\1.lo \1.o :/' \
|
||||
< .deps/$(*F).pp > .deps/$(*F).P; \
|
||||
tr ' ' '\012' < .deps/$(*F).pp \
|
||||
| sed -e 's/^\\$$//' -e '/^$$/ d' -e '/:$$/ d' -e 's/$$/ :/' \
|
||||
>> .deps/$(*F).P; \
|
||||
rm -f .deps/$(*F).pp
|
||||
info-am:
|
||||
info: info-am
|
||||
dvi-am:
|
||||
dvi: dvi-am
|
||||
check-am: all-am
|
||||
check: check-am
|
||||
installcheck-am:
|
||||
installcheck: installcheck-am
|
||||
install-exec-am: install-libLIBRARIES install-libLTLIBRARIES
|
||||
install-exec: install-exec-am
|
||||
|
||||
install-data-am:
|
||||
install-data: install-data-am
|
||||
|
||||
install-am: all-am
|
||||
@$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am
|
||||
install: install-am
|
||||
uninstall-am: uninstall-libLIBRARIES uninstall-libLTLIBRARIES
|
||||
uninstall: uninstall-am
|
||||
all-am: Makefile $(LIBRARIES) $(LTLIBRARIES) $(HEADERS)
|
||||
all-redirect: all-am
|
||||
install-strip:
|
||||
$(MAKE) $(AM_MAKEFLAGS) AM_INSTALL_PROGRAM_FLAGS=-s install
|
||||
installdirs:
|
||||
$(mkinstalldirs) $(DESTDIR)$(libdir) $(DESTDIR)$(libdir)
|
||||
|
||||
|
||||
mostlyclean-generic:
|
||||
|
||||
clean-generic:
|
||||
|
||||
distclean-generic:
|
||||
-rm -f Makefile $(CONFIG_CLEAN_FILES)
|
||||
-rm -f config.cache config.log stamp-h stamp-h[0-9]*
|
||||
|
||||
maintainer-clean-generic:
|
||||
mostlyclean-am: mostlyclean-libLIBRARIES mostlyclean-compile \
|
||||
mostlyclean-libtool mostlyclean-libLTLIBRARIES \
|
||||
mostlyclean-tags mostlyclean-depend mostlyclean-generic
|
||||
|
||||
mostlyclean: mostlyclean-am
|
||||
|
||||
clean-am: clean-libLIBRARIES clean-compile clean-libtool \
|
||||
clean-libLTLIBRARIES clean-tags clean-depend \
|
||||
clean-generic mostlyclean-am
|
||||
|
||||
clean: clean-am
|
||||
|
||||
distclean-am: distclean-libLIBRARIES distclean-compile \
|
||||
distclean-libtool distclean-libLTLIBRARIES \
|
||||
distclean-tags distclean-depend distclean-generic \
|
||||
clean-am
|
||||
-rm -f libtool
|
||||
|
||||
distclean: distclean-am
|
||||
|
||||
maintainer-clean-am: maintainer-clean-libLIBRARIES \
|
||||
maintainer-clean-compile maintainer-clean-libtool \
|
||||
maintainer-clean-libLTLIBRARIES maintainer-clean-tags \
|
||||
maintainer-clean-depend maintainer-clean-generic \
|
||||
distclean-am
|
||||
@echo "This command is intended for maintainers to use;"
|
||||
@echo "it deletes files that may require special tools to rebuild."
|
||||
|
||||
maintainer-clean: maintainer-clean-am
|
||||
|
||||
.PHONY: mostlyclean-libLIBRARIES distclean-libLIBRARIES \
|
||||
clean-libLIBRARIES maintainer-clean-libLIBRARIES uninstall-libLIBRARIES \
|
||||
install-libLIBRARIES mostlyclean-compile distclean-compile \
|
||||
clean-compile maintainer-clean-compile mostlyclean-libtool \
|
||||
distclean-libtool clean-libtool maintainer-clean-libtool \
|
||||
mostlyclean-libLTLIBRARIES distclean-libLTLIBRARIES \
|
||||
clean-libLTLIBRARIES maintainer-clean-libLTLIBRARIES \
|
||||
uninstall-libLTLIBRARIES install-libLTLIBRARIES tags mostlyclean-tags \
|
||||
distclean-tags clean-tags maintainer-clean-tags distdir \
|
||||
mostlyclean-depend distclean-depend clean-depend \
|
||||
maintainer-clean-depend info-am info dvi-am dvi check check-am \
|
||||
installcheck-am installcheck install-exec-am install-exec \
|
||||
install-data-am install-data install-am install uninstall-am uninstall \
|
||||
all-redirect all-am all installdirs mostlyclean-generic \
|
||||
distclean-generic clean-generic maintainer-clean-generic clean \
|
||||
mostlyclean distclean maintainer-clean
|
||||
|
||||
|
||||
# Tell versions [3.59,3.63) of GNU make to not export all variables.
|
||||
# Otherwise a system limit (for SysV at least) may be exceeded.
|
||||
.NOEXPORT:
|
||||
|
|
@ -0,0 +1,834 @@
|
|||
/*
|
||||
* hamlib - (C) Frank Singleton 2000 (vk3fcs@ix.netcom.com)
|
||||
*
|
||||
* alinco.c - Copyright (C) 2001 Stephane Fillod
|
||||
* This shared library provides an API for communicating
|
||||
* via serial interface to a Kenwood radio.
|
||||
*
|
||||
*
|
||||
* $Id: alinco.c,v 1.1 2001-06-03 17:39:59 f4cfe Exp $
|
||||
*
|
||||
*
|
||||
*
|
||||
* This program is free software; you can redistribute it and/or
|
||||
* modify it under the terms of the GNU 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 General Public License for more details.
|
||||
*
|
||||
* You should have received a copy of the GNU General Public License
|
||||
* along with this program; if not, write to the Free Software
|
||||
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
||||
*
|
||||
*/
|
||||
|
||||
#include <stdlib.h>
|
||||
#include <stdio.h> /* Standard input/output definitions */
|
||||
#include <string.h> /* String function definitions */
|
||||
#include <unistd.h> /* UNIX standard function definitions */
|
||||
#include <fcntl.h> /* File control definitions */
|
||||
#include <errno.h> /* Error number definitions */
|
||||
#include <termios.h> /* POSIX terminal control definitions */
|
||||
#include <sys/ioctl.h>
|
||||
#include <math.h>
|
||||
|
||||
#include <hamlib/rig.h>
|
||||
#include <hamlib/riglist.h>
|
||||
#include <serial.h>
|
||||
#include <misc.h>
|
||||
#include "alinco.h"
|
||||
|
||||
|
||||
#define EOM "\r"
|
||||
|
||||
/*
|
||||
* modes in use by the "2G" command
|
||||
*/
|
||||
#define MD_LSB '0'
|
||||
#define MD_USB '1'
|
||||
#define MD_CWL '2'
|
||||
#define MD_CWU '3'
|
||||
#define MD_AM '4'
|
||||
#define MD_FM '5'
|
||||
|
||||
#define AL "AL"
|
||||
#define CMD_TXFREQ "0A" /* Transmit frequency */
|
||||
#define CMD_RXFREQ "0B" /* Receive frequency */
|
||||
#define CMD_VFO "1A"
|
||||
#define CMD_MEMMD "1B" /* Memory mode */
|
||||
#define CMD_CHAN "1D" /* Channel Display */
|
||||
#define CMD_UPDWN "2A" /* UP/DOWN */
|
||||
#define CMD_MON "2B" /* Check Transmit Frequency */
|
||||
#define CMD_PWR "2C" /* Transmit Output Power */
|
||||
#define CMD_SCAN "2D" /* Scanning */
|
||||
#define CMD_PRIO "2E" /* Priority */
|
||||
#define CMD_SPLT "2F" /* Split */
|
||||
#define CMD_MODE "2G" /* Mode */
|
||||
#define CMD_RFGAIN "2H" /* RF Gain */
|
||||
#define CMD_AGC "2I"
|
||||
#define CMD_FLTER "2J" /* Filter */
|
||||
#define CMD_NB "2K"
|
||||
#define CMD_CTCSS "2L"
|
||||
#define CMD_TUNE "2M"
|
||||
#define CMD_SELECT "2N"
|
||||
#define CMD_MCALL "2V" /* Memory Channel Call Up */
|
||||
#define CMD_SDATA "2W" /* Set Data */
|
||||
|
||||
/* Data Output Commands */
|
||||
#define CMD_SMETER "3A" /* S-meter read */
|
||||
#define CMD_PTT "3B" /* PTT status read */
|
||||
#define CMD_SQL "3C" /* Squelch status */
|
||||
#define CMD_RIT "3D" /* RIT status */
|
||||
#define CMD_RMEM "3E" /* Current Memory-channel Number read */
|
||||
#define CMD_RMV "3G" /* Memory/VFO -mode read */
|
||||
#define CMD_RDATA "3H" /* Current Data read */
|
||||
#define CMD_RSPLT "3I" /* Split read */
|
||||
#define CMD_RPOWER "3J" /* Transmitter Output read */
|
||||
#define CMD_RSELECT "3K" /* SELECT Postion read */
|
||||
|
||||
|
||||
/*
|
||||
* alinco_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
|
||||
*/
|
||||
int alinco_transaction(RIG *rig, const char *cmd, int cmd_len, char *data, int *data_len)
|
||||
{
|
||||
int i, count;
|
||||
struct rig_state *rs;
|
||||
|
||||
rs = &rig->state;
|
||||
|
||||
write_block(rs->fd, cmd, cmd_len, rs->write_delay, rs->post_write_delay);
|
||||
|
||||
/* no data expected, TODO: flush input? */
|
||||
if (!data || !data_len)
|
||||
return 0;
|
||||
/*
|
||||
* buffered read are quite helpful here!
|
||||
* However, an automate with a state model would be more efficient..
|
||||
*/
|
||||
i = 0;
|
||||
do {
|
||||
count = fread_block(rs->stream, data+i, 1, rs->timeout);
|
||||
if (count > 0)
|
||||
i += count;
|
||||
} while (count > 0);
|
||||
|
||||
*data_len = i;
|
||||
|
||||
return i;
|
||||
}
|
||||
|
||||
/*
|
||||
* alinco_set_vfo
|
||||
* Assumes rig!=NULL
|
||||
*/
|
||||
int alinco_set_vfo(RIG *rig, vfo_t vfo)
|
||||
{
|
||||
char cmdbuf[16];
|
||||
int cmd_len;
|
||||
char vfo_num;
|
||||
|
||||
switch (vfo) {
|
||||
case RIG_VFO_A: vfo_num = '1'; break;
|
||||
case RIG_VFO_B: vfo_num = '2'; break;
|
||||
case RIG_VFO_MEM:
|
||||
return alinco_transaction (rig, AL CMD_MEMMD "0" EOM,
|
||||
strlen(AL CMD_MEMMD "0" EOM), NULL, NULL);
|
||||
default:
|
||||
rig_debug(RIG_DEBUG_ERR,"alinco_set_vfo: unsupported VFO %d\n",
|
||||
vfo);
|
||||
return -RIG_EINVAL;
|
||||
}
|
||||
cmd_len = sprintf(cmdbuf, AL CMD_VFO "%c" EOM, vfo_num);
|
||||
|
||||
alinco_transaction (rig, cmdbuf, cmd_len, NULL, NULL);
|
||||
|
||||
return RIG_OK;
|
||||
}
|
||||
|
||||
/*
|
||||
* alinco_get_vfo
|
||||
* Assumes rig!=NULL, !vfo
|
||||
*/
|
||||
int alinco_get_vfo(RIG *rig, vfo_t *vfo)
|
||||
{
|
||||
char vfobuf[16];
|
||||
int vfo_len;
|
||||
|
||||
alinco_transaction(rig, AL CMD_RMV EOM, strlen(AL CMD_RMV EOM),
|
||||
vfobuf, &vfo_len);
|
||||
|
||||
if (vfo_len != 4 || vfo_len != 6) {
|
||||
rig_debug(RIG_DEBUG_ERR,"alinco_get_vfo: wrong answer %s, "
|
||||
"len=%d\n", vfobuf, vfo_len);
|
||||
return -RIG_ERJCTED;
|
||||
}
|
||||
vfobuf[vfo_len] = '\0';
|
||||
|
||||
if (!strcmp(vfobuf, "VFOA"))
|
||||
*vfo = RIG_VFO_A;
|
||||
else if (!strcmp(vfobuf, "VFOB"))
|
||||
*vfo = RIG_VFO_B;
|
||||
else if (!strcmp(vfobuf, "Memory") || !strcmp(vfobuf, "MEMO"))
|
||||
*vfo = RIG_VFO_MEM;
|
||||
else {
|
||||
rig_debug(RIG_DEBUG_ERR,"alinco_get_vfo: unsupported VFO %s\n",
|
||||
vfobuf);
|
||||
return -RIG_EPROTO;
|
||||
}
|
||||
return RIG_OK;
|
||||
}
|
||||
|
||||
/*
|
||||
* alinco_set_freq
|
||||
* Assumes rig!=NULL
|
||||
*/
|
||||
int alinco_set_freq(RIG *rig, vfo_t vfo, freq_t freq)
|
||||
{
|
||||
char freqbuf[16];
|
||||
int freq_len;
|
||||
|
||||
/* max 10 digits */
|
||||
if (freq >= GHz(10))
|
||||
return -RIG_EINVAL;
|
||||
|
||||
/* at least 6 digits */
|
||||
freq_len = sprintf(freqbuf, AL CMD_RXFREQ "%06Ld" EOM, freq);
|
||||
|
||||
alinco_transaction (rig, freqbuf, freq_len, NULL, NULL);
|
||||
|
||||
return RIG_OK;
|
||||
}
|
||||
|
||||
/*
|
||||
* where databuf points to a 26 char long buffer
|
||||
*/
|
||||
static int current_data_read(RIG *rig, char *databuf)
|
||||
{
|
||||
int data_len;
|
||||
|
||||
alinco_transaction (rig, AL CMD_RDATA EOM, strlen(AL CMD_RDATA EOM),
|
||||
databuf, &data_len);
|
||||
|
||||
if (data_len != 26) {
|
||||
rig_debug(RIG_DEBUG_ERR,"alinco_current_data_read: "
|
||||
"wrong answer %s, len=%d\n", databuf, data_len);
|
||||
return -RIG_ERJCTED;
|
||||
}
|
||||
return RIG_OK;
|
||||
}
|
||||
|
||||
/*
|
||||
* alinco_get_freq
|
||||
* Assumes rig!=NULL, freq!=NULL
|
||||
*/
|
||||
int alinco_get_freq(RIG *rig, vfo_t vfo, freq_t *freq)
|
||||
{
|
||||
int retval;
|
||||
char freqbuf[32];
|
||||
|
||||
retval = current_data_read(rig, freqbuf);
|
||||
if (retval != RIG_OK)
|
||||
return retval;
|
||||
|
||||
/* extract RX freq */
|
||||
freqbuf[16] = '\0';
|
||||
sscanf(freqbuf+6, "%Ld", freq);
|
||||
|
||||
return RIG_OK;
|
||||
}
|
||||
|
||||
/*
|
||||
* alinco_set_mode
|
||||
* Assumes rig!=NULL
|
||||
*/
|
||||
int alinco_set_mode(RIG *rig, vfo_t vfo, rmode_t mode, pbwidth_t width)
|
||||
{
|
||||
char mdbuf[16];
|
||||
int mdbuf_len, narrow_filter;
|
||||
char amode;
|
||||
|
||||
switch (mode) {
|
||||
/* FIXME: MD_CWL or MD_CWU? */
|
||||
case RIG_MODE_CW: amode = MD_CWL; break;
|
||||
case RIG_MODE_USB: amode = MD_USB; break;
|
||||
case RIG_MODE_LSB: amode = MD_LSB; break;
|
||||
case RIG_MODE_FM: amode = MD_FM; break;
|
||||
case RIG_MODE_AM: amode = MD_AM; break;
|
||||
default:
|
||||
rig_debug(RIG_DEBUG_ERR,
|
||||
"alinco_set_mode: unsupported mode %d\n",
|
||||
mode);
|
||||
return -RIG_EINVAL;
|
||||
}
|
||||
|
||||
mdbuf_len = sprintf(mdbuf, AL CMD_MODE "%c" EOM, amode);
|
||||
alinco_transaction (rig, mdbuf, mdbuf_len, NULL, NULL);
|
||||
|
||||
/*
|
||||
* TODO: please DX77 owners, check this, I'm not sure
|
||||
* which passband is default!
|
||||
*/
|
||||
if (width != RIG_PASSBAND_NORMAL &&
|
||||
width < rig_passband_normal(rig, mode))
|
||||
narrow_filter = 1;
|
||||
else
|
||||
narrow_filter = 0;
|
||||
|
||||
mdbuf_len = sprintf(mdbuf, AL CMD_FLTER "%02d" EOM, narrow_filter);
|
||||
alinco_transaction (rig, mdbuf, mdbuf_len, NULL, NULL);
|
||||
|
||||
return RIG_OK;
|
||||
}
|
||||
|
||||
/*
|
||||
* alinco_get_mode
|
||||
* Assumes rig!=NULL, mode!=NULL
|
||||
*/
|
||||
int alinco_get_mode(RIG *rig, vfo_t vfo, rmode_t *mode, pbwidth_t *width)
|
||||
{
|
||||
int retval;
|
||||
int settings;
|
||||
char modebuf[32];
|
||||
|
||||
retval = current_data_read(rig, modebuf);
|
||||
if (retval != RIG_OK)
|
||||
return retval;
|
||||
|
||||
/* FIXME: CWL&CWU: what are they? CW & CWR? */
|
||||
switch (modebuf[3]) {
|
||||
case MD_CWL:
|
||||
case MD_CWU: *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;
|
||||
default:
|
||||
rig_debug(RIG_DEBUG_ERR,
|
||||
"alinco_get_mode: unknown mode %c%c\n",
|
||||
modebuf[2],modebuf[3]);
|
||||
return -RIG_EINVAL;
|
||||
}
|
||||
modebuf[2] = '\0';
|
||||
settings = strtol(modebuf, (char **)NULL, 16);
|
||||
/*
|
||||
* TODO: please DX77 owners, check this, I'm not sure
|
||||
* which passband is default!
|
||||
*/
|
||||
if (settings & 0x02)
|
||||
*width = rig_passband_narrow(rig, *mode);
|
||||
else
|
||||
*width = rig_passband_normal(rig, *mode);
|
||||
|
||||
return RIG_OK;
|
||||
}
|
||||
|
||||
/*
|
||||
* icom_set_split
|
||||
* Assumes rig!=NULL
|
||||
*/
|
||||
int icom_set_split(RIG *rig, vfo_t vfo, split_t split)
|
||||
{
|
||||
int cmd_len;
|
||||
char cmdbuf[32];
|
||||
|
||||
cmd_len = sprintf(cmdbuf, AL CMD_SPLT "%d" EOM,
|
||||
split==RIG_SPLIT_ON ? 1 : 0);
|
||||
|
||||
return alinco_transaction (rig, cmdbuf, cmd_len, NULL, NULL);
|
||||
}
|
||||
|
||||
/*
|
||||
* icom_get_split
|
||||
* Assumes rig!=NULL, split!=NULL
|
||||
*/
|
||||
int icom_get_split(RIG *rig, vfo_t vfo, split_t *split)
|
||||
{
|
||||
int splt_len;
|
||||
char spltbuf[32];
|
||||
|
||||
alinco_transaction (rig, AL CMD_RSPLT EOM, strlen(AL CMD_RSPLT EOM),
|
||||
spltbuf, &splt_len);
|
||||
|
||||
if (splt_len != 2) {
|
||||
rig_debug(RIG_DEBUG_ERR,"alinco_get_split: wrong answer %s, "
|
||||
"len=%d\n", spltbuf, splt_len);
|
||||
return -RIG_ERJCTED;
|
||||
}
|
||||
spltbuf[splt_len] = '\0';
|
||||
|
||||
if (!strcmp(spltbuf, "OF"))
|
||||
*split = RIG_SPLIT_OFF;
|
||||
else if (!strcmp(spltbuf, "ON"))
|
||||
*split = RIG_SPLIT_ON;
|
||||
else {
|
||||
rig_debug(RIG_DEBUG_ERR,"alinco_get_split: unsupported SPLIT %s\n",
|
||||
spltbuf);
|
||||
return -RIG_EPROTO;
|
||||
}
|
||||
return RIG_OK;
|
||||
}
|
||||
|
||||
/*
|
||||
* alinco_set_split_freq
|
||||
* Assumes rig!=NULL
|
||||
*/
|
||||
int alinco_set_split_freq(RIG *rig, vfo_t vfo, freq_t rx_freq, freq_t tx_freq)
|
||||
{
|
||||
char freqbuf[16];
|
||||
int freq_len;
|
||||
int retval;
|
||||
|
||||
/* max 10 digits */
|
||||
if (tx_freq >= GHz(10))
|
||||
return -RIG_EINVAL;
|
||||
|
||||
retval = alinco_set_freq(rig, vfo, rx_freq);
|
||||
if (retval != RIG_OK)
|
||||
return retval;
|
||||
|
||||
/* at least 6 digits */
|
||||
freq_len = sprintf(freqbuf, AL CMD_TXFREQ "%06Ld" EOM, tx_freq);
|
||||
|
||||
retval = alinco_transaction (rig, freqbuf, freq_len, NULL, NULL);
|
||||
|
||||
return retval;
|
||||
}
|
||||
|
||||
/*
|
||||
* alinco_get_split_freq
|
||||
* Assumes rig!=NULL, rx_freq!=NULL, tx_freq!=NULL
|
||||
*/
|
||||
int alinco_get_split_freq(RIG *rig, vfo_t vfo, freq_t *rx_freq, freq_t *tx_freq)
|
||||
{
|
||||
int retval;
|
||||
char freqbuf[32];
|
||||
|
||||
retval = current_data_read(rig, freqbuf);
|
||||
if (retval != RIG_OK)
|
||||
return retval;
|
||||
|
||||
/* extract TX freq first, as RX kills freqbuf[16] */
|
||||
freqbuf[26] = '\0';
|
||||
sscanf(freqbuf+16, "%Ld", tx_freq);
|
||||
|
||||
/* extract RX freq */
|
||||
freqbuf[16] = '\0';
|
||||
sscanf(freqbuf+6, "%Ld", rx_freq);
|
||||
|
||||
return RIG_OK;
|
||||
}
|
||||
|
||||
|
||||
/*
|
||||
* icom_get_rit
|
||||
* Assumes rig!=NULL, split!=NULL
|
||||
*/
|
||||
int icom_get_rit(RIG *rig, vfo_t vfo, shortfreq_t *rit)
|
||||
{
|
||||
int rit_len;
|
||||
char ritbuf[32];
|
||||
|
||||
/* read in Hertz unit */
|
||||
alinco_transaction (rig, AL CMD_RIT "0" EOM, strlen(AL CMD_RIT "0" EOM),
|
||||
ritbuf, &rit_len);
|
||||
|
||||
if (rit_len > 5 || (ritbuf[0] != '+' && ritbuf[0] != '-')) {
|
||||
rig_debug(RIG_DEBUG_ERR,"alinco_get_rit: wrong answer %s, "
|
||||
"len=%d\n", ritbuf, rit_len);
|
||||
return -RIG_ERJCTED;
|
||||
}
|
||||
ritbuf[rit_len] = '\0';
|
||||
|
||||
*rit = atoi(ritbuf);
|
||||
|
||||
return RIG_OK;
|
||||
}
|
||||
|
||||
|
||||
/*
|
||||
* alinco_set_func
|
||||
* Assumes rig!=NULL
|
||||
*/
|
||||
int alinco_set_func(RIG *rig, vfo_t vfo, setting_t func, int status)
|
||||
{
|
||||
int cmd_len;
|
||||
char cmdbuf[32];
|
||||
|
||||
/* Optimize:
|
||||
* sort the switch cases with the most frequent first
|
||||
*/
|
||||
switch (func) {
|
||||
case RIG_FUNC_TONE:
|
||||
cmd_len = sprintf(cmdbuf, AL CMD_CTCSS "%02d" EOM, status?51:0);
|
||||
|
||||
return alinco_transaction (rig, cmdbuf, cmd_len, NULL, NULL);
|
||||
|
||||
case RIG_FUNC_FAGC:
|
||||
cmd_len = sprintf(cmdbuf, AL CMD_AGC "%02d" EOM, status?1:2);
|
||||
|
||||
return alinco_transaction (rig, cmdbuf, cmd_len, NULL, NULL);
|
||||
|
||||
case RIG_FUNC_NB:
|
||||
cmd_len = sprintf(cmdbuf, AL CMD_NB "%d" EOM, status?1:0);
|
||||
|
||||
return alinco_transaction (rig, cmdbuf, cmd_len, NULL, NULL);
|
||||
|
||||
case RIG_FUNC_MON:
|
||||
cmd_len = sprintf(cmdbuf, AL CMD_MON "%d" EOM, status?1:0);
|
||||
|
||||
return alinco_transaction (rig, cmdbuf, cmd_len, NULL, NULL);
|
||||
|
||||
default:
|
||||
rig_debug(RIG_DEBUG_ERR,"Unsupported set_func %d\n", func);
|
||||
return -RIG_EINVAL;
|
||||
}
|
||||
|
||||
return RIG_OK;
|
||||
}
|
||||
|
||||
|
||||
/*
|
||||
* alinco_get_func
|
||||
* Assumes rig!=NULL, status!=NULL
|
||||
*/
|
||||
int alinco_get_func(RIG *rig, vfo_t vfo, setting_t func, int *status)
|
||||
{
|
||||
int retval;
|
||||
int settings;
|
||||
char funcbuf[32];
|
||||
|
||||
/* Optimize:
|
||||
* sort the switch cases with the most frequent first
|
||||
*/
|
||||
switch (func) {
|
||||
case RIG_FUNC_TONE:
|
||||
retval = current_data_read(rig, funcbuf);
|
||||
if (retval != RIG_OK)
|
||||
return retval;
|
||||
funcbuf[2] = '\0';
|
||||
settings = strtol(funcbuf, (char **)NULL, 16);
|
||||
*status = settings & 0x08 ? 1 : 0;
|
||||
break;
|
||||
|
||||
case RIG_FUNC_FAGC:
|
||||
retval = current_data_read(rig, funcbuf);
|
||||
if (retval != RIG_OK)
|
||||
return retval;
|
||||
funcbuf[2] = '\0';
|
||||
settings = strtol(funcbuf, (char **)NULL, 16);
|
||||
*status = settings & 0x01 ? 1 : 0;
|
||||
break;
|
||||
|
||||
case RIG_FUNC_NB:
|
||||
retval = current_data_read(rig, funcbuf);
|
||||
if (retval != RIG_OK)
|
||||
return retval;
|
||||
funcbuf[2] = '\0';
|
||||
settings = strtol(funcbuf, (char **)NULL, 16);
|
||||
*status = settings & 0x04 ? 1 : 0;
|
||||
break;
|
||||
|
||||
default:
|
||||
rig_debug(RIG_DEBUG_ERR,"Unsupported get_func %d\n", func);
|
||||
return -RIG_EINVAL;
|
||||
}
|
||||
|
||||
return RIG_OK;
|
||||
}
|
||||
|
||||
/*
|
||||
* alinco_set_level
|
||||
* Assumes rig!=NULL
|
||||
* FIXME: cannot support PREAMP and ATT both at same time (make sens though)
|
||||
*/
|
||||
int alinco_set_level(RIG *rig, vfo_t vfo, setting_t level, value_t val)
|
||||
{
|
||||
int cmd_len, lvl;
|
||||
char cmdbuf[32];
|
||||
|
||||
/* Optimize:
|
||||
* sort the switch cases with the most frequent first
|
||||
*/
|
||||
switch (level) {
|
||||
case RIG_LEVEL_PREAMP:
|
||||
switch (val.i) {
|
||||
case 0: lvl = 0; break;
|
||||
case 10: lvl = 1; break;
|
||||
default: rig_debug(RIG_DEBUG_ERR, "Unsupported Preamp %d\n",
|
||||
val.i);
|
||||
return -RIG_EINVAL;
|
||||
}
|
||||
cmd_len = sprintf(cmdbuf, AL CMD_RFGAIN "%02d" EOM, lvl);
|
||||
|
||||
return alinco_transaction (rig, cmdbuf, cmd_len, NULL, NULL);
|
||||
|
||||
case RIG_LEVEL_ATT:
|
||||
switch (val.i) {
|
||||
case 0: lvl = 0; break;
|
||||
case 10: lvl = 11; break;
|
||||
case 20: lvl = 10; break;
|
||||
default: rig_debug(RIG_DEBUG_ERR, "Unsupported Att %d\n",
|
||||
val.i);
|
||||
return -RIG_EINVAL;
|
||||
}
|
||||
cmd_len = sprintf(cmdbuf, AL CMD_RFGAIN "%02d" EOM, lvl);
|
||||
|
||||
return alinco_transaction (rig, cmdbuf, cmd_len, NULL, NULL);
|
||||
|
||||
case RIG_LEVEL_RFPOWER:
|
||||
cmd_len = sprintf(cmdbuf, AL CMD_PWR "%1d" EOM, val.f<0.5 ? 1 : 0);
|
||||
|
||||
return alinco_transaction (rig, cmdbuf, cmd_len, NULL, NULL);
|
||||
|
||||
default:
|
||||
rig_debug(RIG_DEBUG_ERR,"Unsupported get_level %d\n", level);
|
||||
return -RIG_EINVAL;
|
||||
}
|
||||
|
||||
return RIG_OK;
|
||||
}
|
||||
|
||||
|
||||
/*
|
||||
* alinco_get_level
|
||||
* Assumes rig!=NULL, val!=NULL
|
||||
*/
|
||||
int alinco_get_level(RIG *rig, vfo_t vfo, setting_t level, value_t *val)
|
||||
{
|
||||
struct alinco_priv_caps *priv;
|
||||
int retval, lvl_len;
|
||||
char lvlbuf[32];
|
||||
|
||||
priv = (struct alinco_priv_caps*)rig->caps->priv;
|
||||
|
||||
/* Optimize:
|
||||
* sort the switch cases with the most frequent first
|
||||
*/
|
||||
switch (level) {
|
||||
case RIG_LEVEL_STRENGTH:
|
||||
/* read A/D converted value */
|
||||
alinco_transaction (rig, AL CMD_SMETER "1" EOM,
|
||||
strlen(AL CMD_SMETER "1" EOM), lvlbuf, &lvl_len);
|
||||
|
||||
if (lvl_len != 5) {
|
||||
rig_debug(RIG_DEBUG_ERR,"alinco_get_level: wrong answer"
|
||||
"len=%d\n", lvl_len);
|
||||
return -RIG_ERJCTED;
|
||||
}
|
||||
|
||||
lvlbuf[5] = '\0';
|
||||
val->i = rig_raw2val(atoi(lvlbuf+3), &priv->str_cal);
|
||||
break;
|
||||
|
||||
case RIG_LEVEL_SQLSTAT:
|
||||
return -RIG_ENIMPL; /* get_dcd ? */
|
||||
|
||||
case RIG_LEVEL_PREAMP:
|
||||
retval = current_data_read(rig, lvlbuf);
|
||||
if (retval != RIG_OK)
|
||||
return retval;
|
||||
switch (lvlbuf[5]) {
|
||||
case '2':
|
||||
case '3':
|
||||
case '0': val->i = 0; break;
|
||||
case '1': val->i = 10; break;
|
||||
default: rig_debug(RIG_DEBUG_ERR, "Unknown RF Gain %c%c\n",
|
||||
lvlbuf[4], lvlbuf[5]);
|
||||
}
|
||||
break;
|
||||
|
||||
case RIG_LEVEL_ATT:
|
||||
retval = current_data_read(rig, lvlbuf);
|
||||
if (retval != RIG_OK)
|
||||
return retval;
|
||||
switch (lvlbuf[5]) {
|
||||
case '1':
|
||||
case '0': val->i = 0; break;
|
||||
case '2': val->i = 20; break;
|
||||
case '3': val->i = 10; break;
|
||||
default: rig_debug(RIG_DEBUG_ERR, "Unknown RF Gain %c%c\n",
|
||||
lvlbuf[4], lvlbuf[5]);
|
||||
}
|
||||
break;
|
||||
|
||||
case RIG_LEVEL_RFPOWER:
|
||||
alinco_transaction (rig, AL CMD_RPOWER EOM,
|
||||
strlen(AL CMD_RPOWER EOM), lvlbuf, &lvl_len);
|
||||
|
||||
if (lvl_len != 1) {
|
||||
rig_debug(RIG_DEBUG_ERR,"alinco_get_level: wrong answer"
|
||||
"len=%d\n", lvl_len);
|
||||
return -RIG_ERJCTED;
|
||||
}
|
||||
|
||||
/* H or L */
|
||||
val->f = lvlbuf[0] == 'H' ? 1.0 : 0.0;
|
||||
break;
|
||||
|
||||
default:
|
||||
rig_debug(RIG_DEBUG_ERR,"Unsupported get_level %d\n", level);
|
||||
return -RIG_EINVAL;
|
||||
}
|
||||
|
||||
return RIG_OK;
|
||||
}
|
||||
|
||||
/*
|
||||
* alinco_set_ctcss
|
||||
* Assumes rig!=NULL, rig->caps->ctcss_list != NULL
|
||||
*/
|
||||
int alinco_set_ctcss(RIG *rig, vfo_t vfo, tone_t tone)
|
||||
{
|
||||
const struct rig_caps *caps;
|
||||
unsigned char tonebuf[16];
|
||||
int tone_len;
|
||||
int i;
|
||||
|
||||
caps = rig->caps;
|
||||
|
||||
/* TODO: replace 200 by something like RIGTONEMAX */
|
||||
for (i = 0; caps->ctcss_list[i] != 0 && i<200; i++) {
|
||||
if (caps->ctcss_list[i] == tone)
|
||||
break;
|
||||
}
|
||||
if (caps->ctcss_list[i] != tone)
|
||||
return -RIG_EINVAL;
|
||||
|
||||
tone_len = sprintf(tonebuf, AL CMD_CTCSS "%02d" EOM, i+1);
|
||||
|
||||
return alinco_transaction (rig, tonebuf, tone_len, NULL, NULL);
|
||||
}
|
||||
|
||||
/*
|
||||
* alinco_get_ptt
|
||||
* Assumes rig!=NULL, ptt!=NULL
|
||||
*/
|
||||
int alinco_get_ptt(RIG *rig, vfo_t vfo, ptt_t *ptt)
|
||||
{
|
||||
char pttbuf[16];
|
||||
int ptt_len;
|
||||
|
||||
alinco_transaction (rig, AL CMD_PTT EOM, strlen(AL CMD_PTT EOM),
|
||||
pttbuf, &ptt_len);
|
||||
|
||||
if (ptt_len != 3 || ptt_len != 4) {
|
||||
rig_debug(RIG_DEBUG_ERR,"alinco_get_ptt: wrong answer %s, "
|
||||
"len=%d\n", pttbuf, ptt_len);
|
||||
return -RIG_ERJCTED;
|
||||
}
|
||||
pttbuf[ptt_len] = '\0';
|
||||
|
||||
if (!strcmp(pttbuf, "SEND"))
|
||||
*ptt = RIG_PTT_OFF;
|
||||
else if (!strcmp(pttbuf, "REV"))
|
||||
*ptt = RIG_PTT_ON;
|
||||
else {
|
||||
rig_debug(RIG_DEBUG_ERR,"alinco_get_ptt: unknown PTT %s\n",
|
||||
pttbuf);
|
||||
return -RIG_EPROTO;
|
||||
}
|
||||
return RIG_OK;
|
||||
}
|
||||
|
||||
|
||||
/*
|
||||
* alinco_get_dcd
|
||||
* Assumes rig!=NULL, dcd!=NULL
|
||||
*/
|
||||
int alinco_get_dcd(RIG *rig, vfo_t vfo, dcd_t *dcd)
|
||||
{
|
||||
char dcdbuf[16];
|
||||
int dcd_len;
|
||||
|
||||
alinco_transaction (rig, AL CMD_SQL EOM, strlen(AL CMD_SQL EOM),
|
||||
dcdbuf, &dcd_len);
|
||||
|
||||
if (dcd_len != 4 || dcd_len != 5) {
|
||||
rig_debug(RIG_DEBUG_ERR,"alinco_get_dcd: wrong answer %s, "
|
||||
"len=%d\n", dcdbuf, dcd_len);
|
||||
return -RIG_ERJCTED;
|
||||
}
|
||||
dcdbuf[dcd_len] = '\0';
|
||||
|
||||
if (!strcmp(dcdbuf, "OPEN"))
|
||||
*dcd = RIG_DCD_ON;
|
||||
else if (!strcmp(dcdbuf, "CLOSE"))
|
||||
*dcd = RIG_DCD_OFF;
|
||||
else {
|
||||
rig_debug(RIG_DEBUG_ERR,"alinco_get_dcd: unknown SQL %s\n",
|
||||
dcdbuf);
|
||||
return -RIG_EPROTO;
|
||||
}
|
||||
return RIG_OK;
|
||||
}
|
||||
|
||||
/*
|
||||
* alinco_set_mem
|
||||
* Assumes rig!=NULL
|
||||
* FIXME: check we're in memory mode first
|
||||
*/
|
||||
int alinco_set_mem(RIG *rig, vfo_t vfo, int ch)
|
||||
{
|
||||
char cmdbuf[16];
|
||||
int cmd_len;
|
||||
|
||||
if (ch < 0 || ch > 99)
|
||||
return -RIG_EINVAL;
|
||||
|
||||
cmd_len = sprintf(cmdbuf, AL CMD_MCALL "%02d" EOM, ch);
|
||||
|
||||
alinco_transaction (rig, cmdbuf, cmd_len, NULL, NULL);
|
||||
|
||||
return RIG_OK;
|
||||
}
|
||||
|
||||
/*
|
||||
* alinco_get_mem
|
||||
* Assumes rig!=NULL, !vfo
|
||||
*/
|
||||
int alinco_get_mem(RIG *rig, vfo_t vfo, int *ch)
|
||||
{
|
||||
char membuf[16];
|
||||
int mem_len;
|
||||
|
||||
alinco_transaction (rig, AL CMD_RMEM EOM, strlen(AL CMD_RMEM EOM),
|
||||
membuf, &mem_len);
|
||||
|
||||
if (mem_len != 2) {
|
||||
rig_debug(RIG_DEBUG_ERR,"alinco_get_mem: wrong answer %s, "
|
||||
"len=%d\n", membuf, mem_len);
|
||||
return -RIG_ERJCTED;
|
||||
}
|
||||
membuf[mem_len] = '\0';
|
||||
|
||||
*ch = atoi(membuf);
|
||||
if (*ch < 0 || *ch > 99) {
|
||||
rig_debug(RIG_DEBUG_ERR,"alinco_get_mem: unknown mem %s\n",
|
||||
membuf);
|
||||
return -RIG_EPROTO;
|
||||
}
|
||||
|
||||
return RIG_OK;
|
||||
}
|
||||
|
||||
|
||||
/*
|
||||
* init_alinco is called by rig_backend_load
|
||||
*/
|
||||
int init_alinco(void *be_handle)
|
||||
{
|
||||
rig_debug(RIG_DEBUG_VERBOSE, "alinco: _init called\n");
|
||||
|
||||
rig_register(&dx77_caps);
|
||||
|
||||
return RIG_OK;
|
||||
}
|
||||
|
||||
|
|
@ -0,0 +1,67 @@
|
|||
/*
|
||||
* hamlib - (C) Frank Singleton 2000 (vk3fcs@ix.netcom.com)
|
||||
*
|
||||
* alinco.h - Copyright (C) 2001 Stephane Fillod
|
||||
* This shared library provides an API for communicating
|
||||
* via serial interface to a Alinco radio.
|
||||
*
|
||||
*
|
||||
* $Id: alinco.h,v 1.1 2001-06-03 17:39:59 f4cfe Exp $
|
||||
*
|
||||
*
|
||||
* This program is free software; you can redistribute it and/or
|
||||
* modify it under the terms of the GNU 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 General Public License for more details.
|
||||
*
|
||||
* You should have received a copy of the GNU General Public License
|
||||
* along with this program; if not, write to the Free Software
|
||||
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
||||
*
|
||||
*/
|
||||
|
||||
#ifndef _ALINCO_H
|
||||
#define _ALINCO_H 1
|
||||
|
||||
#include <hamlib/rig.h>
|
||||
#include <cal.h>
|
||||
|
||||
struct alinco_priv_caps {
|
||||
cal_table_t str_cal;
|
||||
};
|
||||
|
||||
int alinco_set_vfo(RIG *rig, vfo_t vfo);
|
||||
int alinco_get_vfo(RIG *rig, vfo_t *vfo);
|
||||
int alinco_set_freq(RIG *rig, vfo_t vfo, freq_t freq);
|
||||
int alinco_get_freq(RIG *rig, vfo_t vfo, freq_t *freq);
|
||||
int alinco_set_mode(RIG *rig, vfo_t vfo, rmode_t mode, pbwidth_t width);
|
||||
int alinco_get_mode(RIG *rig, vfo_t vfo, rmode_t *mode, pbwidth_t *width);
|
||||
int alinco_set_split(RIG *rig, vfo_t vfo, split_t split);
|
||||
int alinco_get_split(RIG *rig, vfo_t vfo, split_t *split);
|
||||
int alinco_set_split_freq(RIG *rig, vfo_t vfo, freq_t rx_freq, freq_t tx_freq);
|
||||
int alinco_get_split_freq(RIG *rig, vfo_t vfo, freq_t *rx_freq, freq_t *tx_freq);
|
||||
int alinco_set_func(RIG *rig, vfo_t vfo, setting_t func, int status);
|
||||
int alinco_get_func(RIG *rig, vfo_t vfo, setting_t func, int *status);
|
||||
int alinco_set_level(RIG *rig, vfo_t vfo, setting_t level, value_t val);
|
||||
int alinco_get_level(RIG *rig, vfo_t vfo, setting_t level, value_t *val);
|
||||
int alinco_set_parm(RIG *rig, vfo_t vfo, setting_t parm, value_t val);
|
||||
int alinco_get_parm(RIG *rig, vfo_t vfo, setting_t parm, value_t *val);
|
||||
int alinco_set_ctcss(RIG *rig, vfo_t vfo, tone_t tone);
|
||||
int alinco_get_rit(RIG *rig, vfo_t vfo, shortfreq_t *rit);
|
||||
int alinco_get_ptt(RIG *rig, vfo_t vfo, ptt_t *ptt);
|
||||
int alinco_get_dcd(RIG *rig, vfo_t vfo, dcd_t *dcd);
|
||||
int alinco_set_mem(RIG *rig, vfo_t vfo, int ch);
|
||||
int alinco_get_mem(RIG *rig, vfo_t vfo, int *ch);
|
||||
|
||||
extern const struct rig_caps dx77_caps;
|
||||
|
||||
extern int init_alinco(void *be_handle);
|
||||
|
||||
|
||||
#endif /* _ALINCO_H */
|
||||
|
||||
|
|
@ -0,0 +1,204 @@
|
|||
/*
|
||||
* hamlib - (C) Frank Singleton 2000 (vk3fcs@ix.netcom.com)
|
||||
*
|
||||
* dx77.c - Copyright (C) 2001 Stephane Fillod
|
||||
* This shared library provides an API for communicating
|
||||
* via serial interface to a Alinco radio.
|
||||
*
|
||||
*
|
||||
* $Id: dx77.c,v 1.1 2001-06-03 17:39:59 f4cfe Exp $
|
||||
*
|
||||
*
|
||||
*
|
||||
* This program is free software; you can redistribute it and/or
|
||||
* modify it under the terms of the GNU 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 General Public License for more details.
|
||||
*
|
||||
* You should have received a copy of the GNU General Public License
|
||||
* along with this program; if not, write to the Free Software
|
||||
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
||||
*
|
||||
*/
|
||||
|
||||
#include <stdlib.h>
|
||||
#include <stdio.h> /* Standard input/output definitions */
|
||||
#include <string.h> /* String function definitions */
|
||||
#include <unistd.h> /* UNIX standard function definitions */
|
||||
#include <fcntl.h> /* File control definitions */
|
||||
#include <errno.h> /* Error number definitions */
|
||||
#include <termios.h> /* POSIX terminal control definitions */
|
||||
#include <sys/ioctl.h>
|
||||
|
||||
#include <hamlib/rig.h>
|
||||
#include <hamlib/riglist.h>
|
||||
#include "alinco.h"
|
||||
|
||||
|
||||
#define DX77_ALL_MODES (RIG_MODE_AM|RIG_MODE_CW|RIG_MODE_SSB|RIG_MODE_FM)
|
||||
#define DX77_OTHER_TX_MODES (RIG_MODE_CW|RIG_MODE_SSB|RIG_MODE_FM)
|
||||
#define DX77_AM_TX_MODES RIG_MODE_AM
|
||||
|
||||
#define DX77_FUNC (RIG_FUNC_FAGC|RIG_FUNC_NB|RIG_FUNC_TONE|RIG_FUNC_COMP)
|
||||
|
||||
#define DX77_LEVEL_ALL (RIG_LEVEL_SQLSTAT|RIG_LEVEL_STRENGTH|RIG_LEVEL_RFPOWER|RIG_LEVEL_KEYSPD|RIG_LEVEL_BKINDL|RIG_LEVEL_CWPITCH)
|
||||
|
||||
#define DX77_PARM_ALL (RIG_PARM_BEEP|RIG_PARM_BACKLIGHT)
|
||||
|
||||
#define DX77_VFO (RIG_VFO_A|RIG_VFO_B)
|
||||
|
||||
/* 90 is S9 */
|
||||
#define DX77_STR_CAL { 13, { \
|
||||
{ 0, -60 }, \
|
||||
{ 28, -48 }, \
|
||||
{ 36, -42 }, \
|
||||
{ 42, -36 }, \
|
||||
{ 50, -30 }, \
|
||||
{ 58, -24 }, \
|
||||
{ 66, -18 }, \
|
||||
{ 74, -12 }, \
|
||||
{ 82, -6 }, \
|
||||
{ 90, 0 }, \
|
||||
{ 132, 20 }, \
|
||||
{ 174, 40 }, \
|
||||
{ 216, 60 }, \
|
||||
} }
|
||||
|
||||
static const struct alinco_priv_caps dx77_priv_caps = {
|
||||
DX77_STR_CAL
|
||||
};
|
||||
|
||||
/*
|
||||
* dx77 rig capabilities.
|
||||
*
|
||||
* protocol is documented at
|
||||
* http://www.alinco.com/pdf.files/DX77-77_SOFTWARE_MANUAL.pdf
|
||||
*
|
||||
* This backend was a pleasure to develop. Documentation is clear,
|
||||
* and the protocol logical. I'm wondering is the rig's good too. --SF
|
||||
*
|
||||
* TODO:
|
||||
* - get_parm/set_parm and some LEVELs left (Set Data "2W" command).
|
||||
* - tuner
|
||||
* - up/down
|
||||
* - scan
|
||||
*/
|
||||
const struct rig_caps dx77_caps = {
|
||||
rig_model: RIG_MODEL_DX77,
|
||||
model_name:"DX-77",
|
||||
mfg_name: "Alinco",
|
||||
version: "0.1",
|
||||
copyright: "GPL",
|
||||
status: RIG_STATUS_UNTESTED,
|
||||
rig_type: RIG_TYPE_TRANSCEIVER,
|
||||
ptt_type: RIG_PTT_NONE,
|
||||
dcd_type: RIG_DCD_NONE,
|
||||
port_type: RIG_PORT_SERIAL,
|
||||
serial_rate_min: 9600,
|
||||
serial_rate_max: 9600,
|
||||
serial_data_bits: 8,
|
||||
serial_stop_bits: 2,
|
||||
serial_parity: RIG_PARITY_NONE,
|
||||
serial_handshake: RIG_HANDSHAKE_NONE,
|
||||
write_delay: 0,
|
||||
post_write_delay: 0,
|
||||
timeout: 200,
|
||||
retry: 3,
|
||||
|
||||
has_get_func: DX77_FUNC,
|
||||
has_set_func: DX77_FUNC|RIG_FUNC_MON,
|
||||
has_get_level: DX77_LEVEL_ALL,
|
||||
has_set_level: RIG_LEVEL_SET(DX77_LEVEL_ALL),
|
||||
has_get_parm: DX77_PARM_ALL,
|
||||
has_set_parm: RIG_PARM_SET(DX77_PARM_ALL),
|
||||
level_gran: {}, /* FIXME: granularity */
|
||||
parm_gran: {},
|
||||
ctcss_list: common_ctcss_list,
|
||||
dcs_list: NULL,
|
||||
preamp: { 10, RIG_DBLST_END },
|
||||
attenuator: { 10, 20, RIG_DBLST_END },
|
||||
max_rit: kHz(1),
|
||||
max_xit: Hz(0),
|
||||
max_ifshift: Hz(0),
|
||||
targetable_vfo: 0,
|
||||
transceive: RIG_TRN_OFF,
|
||||
bank_qty: 0,
|
||||
chan_desc_sz: 0,
|
||||
|
||||
chan_list: {
|
||||
{ 0, 99, RIG_MTYPE_MEM, 0 },
|
||||
RIG_CHAN_END,
|
||||
},
|
||||
|
||||
rx_range_list1: { RIG_FRNG_END, }, /* FIXME: enter region 1 setting */
|
||||
tx_range_list1: { RIG_FRNG_END, },
|
||||
rx_range_list2: {
|
||||
{kHz(500),MHz(30),DX77_ALL_MODES,-1,-1,DX77_VFO},
|
||||
RIG_FRNG_END,
|
||||
},
|
||||
tx_range_list2: {
|
||||
{kHz(1800),MHz(2)-100,DX77_OTHER_TX_MODES,W(10),W(100),DX77_VFO},
|
||||
{kHz(1800),MHz(2)-100,DX77_AM_TX_MODES,W(4),W(40),DX77_VFO},
|
||||
{kHz(3500),MHz(4)-100,DX77_OTHER_TX_MODES,W(10),W(100),DX77_VFO},
|
||||
{kHz(3500),MHz(4)-100,DX77_AM_TX_MODES,W(4),W(40),DX77_VFO},
|
||||
{MHz(7),kHz(7300),DX77_OTHER_TX_MODES,W(10),W(100),DX77_VFO},
|
||||
{MHz(7),kHz(7300),DX77_AM_TX_MODES,W(4),W(40),DX77_VFO},
|
||||
{kHz(10100),kHz(10150),DX77_OTHER_TX_MODES,W(10),W(100),DX77_VFO},
|
||||
{kHz(10100),kHz(10150),DX77_AM_TX_MODES,W(4),W(40),DX77_VFO},
|
||||
{MHz(14),kHz(14350),DX77_OTHER_TX_MODES,W(10),W(100),DX77_VFO},
|
||||
{MHz(14),kHz(14350),DX77_AM_TX_MODES,W(4),W(40),DX77_VFO},
|
||||
{kHz(18068),kHz(18168),DX77_OTHER_TX_MODES,W(10),W(100),DX77_VFO},
|
||||
{kHz(18068),kHz(18168),DX77_AM_TX_MODES,W(4),W(40),DX77_VFO},
|
||||
{MHz(21),kHz(21450),DX77_OTHER_TX_MODES,W(10),W(100),DX77_VFO},
|
||||
{MHz(21),kHz(21450),DX77_AM_TX_MODES,W(4),W(40),DX77_VFO},
|
||||
{kHz(24890),kHz(24990),DX77_OTHER_TX_MODES,W(10),W(100),DX77_VFO},
|
||||
{kHz(24890),kHz(24990),DX77_AM_TX_MODES,W(4),W(40),DX77_VFO},
|
||||
{MHz(28),kHz(29700),DX77_OTHER_TX_MODES,W(10),W(100),DX77_VFO},
|
||||
{MHz(28),kHz(29700),DX77_AM_TX_MODES,W(4),W(40),DX77_VFO},
|
||||
RIG_FRNG_END,
|
||||
},
|
||||
tuning_steps: {
|
||||
{DX77_ALL_MODES,10}, /* FIXME: add other ts */
|
||||
RIG_TS_END,
|
||||
},
|
||||
/* mode/filter list, remember: order matters! */
|
||||
filters: {
|
||||
{RIG_MODE_SSB|RIG_MODE_CW, kHz(2.7)},
|
||||
{RIG_MODE_AM|RIG_MODE_FM, kHz(8)},
|
||||
{RIG_MODE_AM, kHz(2.7)},
|
||||
RIG_FLT_END,
|
||||
},
|
||||
priv: (void*)&dx77_priv_caps,
|
||||
|
||||
set_freq: alinco_set_freq,
|
||||
get_freq: alinco_get_freq,
|
||||
set_mode: alinco_set_mode,
|
||||
get_mode: alinco_get_mode,
|
||||
set_vfo: alinco_set_vfo,
|
||||
get_vfo: alinco_get_vfo,
|
||||
set_split: alinco_set_split,
|
||||
get_split: alinco_get_split,
|
||||
set_split_freq: alinco_set_split_freq,
|
||||
get_split_freq: alinco_get_split_freq,
|
||||
set_ctcss: alinco_set_ctcss,
|
||||
get_rit: alinco_get_rit,
|
||||
get_ptt: alinco_get_ptt,
|
||||
get_dcd: alinco_get_dcd,
|
||||
set_func: alinco_set_func,
|
||||
get_func: alinco_get_func,
|
||||
set_level: alinco_set_level,
|
||||
get_level: alinco_get_level,
|
||||
set_mem: alinco_set_mem,
|
||||
get_mem: alinco_get_mem,
|
||||
|
||||
};
|
||||
|
||||
/*
|
||||
* Function definitions below
|
||||
*/
|
||||
|
||||
Ładowanie…
Reference in New Issue