ew8bak/ewsdr
1
0
Fork 0
mirror of https://git.vladimir.cc/vladimir/ewsdr.git synced 2026-08-25 17:27:32 +00:00
Code Issues Packages Projects Releases Wiki Activity

fix(cat): ZZVB копировал VFO при опросе, KY писал в сокет без MSG_NOSIGNAL

Browse Source 
Три замечания ревью в CAT-слое.

ZZVB. Команда была переписана под заглушку VAC (усиление приёма в
виртуальном кабеле, которого у нас нет), но заменили только комментарий —
тело осталось прежним, от старого ошибочного алиаса «обмен VFO». А ветка с
пустым суффиксом — это ФОРМА ОПРОСА: логгер, который просто спрашивает
«ZZVB;», молча затирал VFO B частотой VFO A, то есть терял сплит оператора и
даже не получал в ответ ошибку. Соседи по этому же диффу (ZZVA, ZZVG, ZZVS,
ZZAA, ZZAP, ZZBI, ZZBM, ZZDN, ZZMA, ZZMV, ZZQM, ZZOA, ZZPO, ZZSR) тело
получили, ZZVB — нет. Теперь это строчная заглушка в таблице, рядом с ZZVC и
ZZVD, которые про тот же несуществующий VAC.

ZZEB. Число полос эквалайзера принималось любое из 0..10 и уходило прямо в
TTXSettings.EQNumBands, то есть в СОХРАНЯЕМЫЙ TX-профиль. Потребители знают
ровно два случая: WDSPEngine.PushTXEQProfile ветвится на «3», редактор в
настройках — на 3 и 10. «ZZEB000…;» записывал ноль полос, всё прочее тихо
играло по полной 11-узловой кривой с чужой подписью. Принимаем только 3 и 10.

CATTcp.SendStr. Писал в сокет голым fpSend/send с флагами 0. В этой же ветке
WebUtils.SockSend получил MSG_NOSIGNAL ровно потому, что запись в закрытый
клиентом сокет иначе приходит как SIGPIPE, а он по умолчанию убивает процесс
целиком; обработчика сигнала в дереве нет. CAT про это забыли, а добавленный
здесь же цикл дозаписи расширил окно: длинный ответ (IF, ZZEB, список
режимов) уходит теперь несколькими send, и каждый может застать клиента уже
ушедшим. Пишем через WebUtils.SockSend — заодно ушла платформенная развилка.

Co-Authored-By: Claude Opus 5 <noreply@anthropic.com>
This commit is contained in:
ew8bak
2026-08-20 10:44:14 +03:00
co-authored by Claude Opus 5
parent 84b90b23c0
commit fe6fb9e292
2 changed files with 10 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files
CATEngine.pas
+5 -13
View File
@@ -408,7 +408,6 @@ type
function ZZUX(const s: string): string;
function ZZUY(const s: string): string;
function ZZVA(const s: string): string;
function ZZVB(const s: string): string;
function ZZVG(const s: string): string;
function ZZVN: string;
function ZZVS(const s: string): string;
@@ -1583,7 +1582,7 @@ begin
else if ext = 'UX' then ans := ZZUX(s)
else if ext = 'UY' then ans := ZZUY(s)
else if ext = 'VA' then ans := ZZVA(s)
else if ext = 'VB' then ans := ZZVB(s)
else if ext = 'VB' then ans := '' // STUB: усиление приёма в VAC — VAC нет
else if ext = 'VC' then ans := '' // STUB: усиление передачи в VAC — VAC нет
else if ext = 'VD' then ans := '' // STUB: частота дискретизации VAC — VAC нет
else if ext = 'VE' then ans := '' // STUB: кнопка VOX — VOX нет
@@ -1956,7 +1955,10 @@ begin
end;
if Length(s) <> 36 then Exit(CAT_ERROR);
if not TryStrToInt(Copy(s, 1, 3), nb) then Exit(CAT_ERROR);
if (nb < 0) or (nb > High(G)) then Exit(CAT_ERROR);
// Сетка эквалайзера бывает только трёх- или десятиполосной: движок
// (PushTXEQProfile) и редактор в настройках знают ровно эти два случая,
// любое другое число полос уехало бы в сохранённый TX-профиль мусором.
if (nb <> 3) and (nb <> 10) then Exit(CAT_ERROR);
FillChar(G, SizeOf(G), 0);
for i := 0 to nb do
begin
@@ -2590,16 +2592,6 @@ begin
Result := OnOff(s, nil, nil);
end;
function TCATEngine.ZZVB(const s: string): string;
// ZZVB: усиление приёма в VAC — STUB: виртуального аудиокабеля нет.
begin
if Length(s) = 0 then begin
if Assigned(FCtx.GetVfoA) and Assigned(FCtx.SetVfoB) then
FCtx.SetVfoB(FCtx.GetVfoA);
Result := '';
end else Result := CAT_ERROR;
end;
function TCATEngine.ZZVG(const s: string): string;
// ZZVG: усиление VOX — STUB: VOX'а нет.
// (Громкость — это ZZAG; раньше ZZVG был ошибочно заалиашен на неё.)