fix get_ctcss_tone by using IF command

git-svn-id: https://hamlib.svn.sourceforge.net/svnroot/hamlib/trunk@1152 7ae35d74-ebe9-4afe-98af-79ac388436b8
Hamlib-1.1.4
Joop Stakenborg, PG4I 2002-09-04 15:08:23 +00:00
rodzic b8421bde97
commit c97b6db6fa
1 zmienionych plików z 8 dodań i 9 usunięć

Wyświetl plik

@ -2,7 +2,7 @@
* Hamlib Kenwood backend - main file * Hamlib Kenwood backend - main file
* Copyright (c) 2000-2002 by Stephane Fillod * Copyright (c) 2000-2002 by Stephane Fillod
* *
* $Id: kenwood.c,v 1.42 2002-09-04 14:36:11 pa4tu Exp $ * $Id: kenwood.c,v 1.43 2002-09-04 15:08:23 pa4tu Exp $
* *
* This library is free software; you can redistribute it and/or modify * This library is free software; you can redistribute it and/or modify
* it under the terms of the GNU Library General Public License as * it under the terms of the GNU Library General Public License as
@ -951,20 +951,19 @@ int kenwood_get_ctcss_tone(RIG *rig, vfo_t vfo, tone_t *tone)
caps = rig->caps; caps = rig->caps;
/* TODO: replace menu no 57 by a define */
tone_len = 50; tone_len = 50;
retval = kenwood_transaction (rig, "EX057;", 6, tonebuf, &tone_len); retval = kenwood_transaction (rig, "IF;", 3, tonebuf, &tone_len);
if (retval != RIG_OK) if (retval != RIG_OK)
return retval; return retval;
if (tone_len != 10) { if (tone_len != 38 || tonebuf[1] != 'F') {
rig_debug(RIG_DEBUG_ERR,"kenwood_get_ctcss_tone: unexpected reply " rig_debug(RIG_DEBUG_ERR,"kenwood_get_ctss_tone: wrong answer len=%d\n",
"'%s', len=%d\n", tonebuf, tone_len); tone_len);
return -RIG_ERJCTED; return -RIG_ERJCTED;
} }
sscanf(tonebuf+5, "%u", (int*)&tone_idx); tonebuf[36] = '\0';
tone_idx = atoi(&tonebuf[34]);
if (tone_idx == 0) { if (tone_idx == 0) {
rig_debug(RIG_DEBUG_ERR,"kenwood_get_ctcss_tone: Unexpected CTCSS " rig_debug(RIG_DEBUG_ERR,"kenwood_get_ctcss_tone: Unexpected CTCSS "