feat(serial): своя обёртка последовательного порта — macOS собирается

RTL-модуль Serial собирается только для [android, linux, netbsd, openbsd,
win32, win64] — Darwin в списке нет (rtl-extra/fpmake.pp). Из-за этого под
macOS CAT по последовательному порту стоял заглушкой, а CWKeyer не собирался
вовсе.

★Скопировать чужой исходник было нельзя. Serial.SerSetParams кладёт B-константу
скорости прямо в c_cflag — идиома Linux, где это битовая маска. На BSD и macOS
B115200 это просто ЧИСЛО 115200, и в c_cflag прилетает $1C200: CLOCAL | HUPCL |
CCTS_OFLOW плюс мусор в поле CSIZE. Молча включается аппаратный CTS-flow, и
передача встаёт, если железка не держит CTS, — а ошибки никакой, порт
«открылся».

Новый SerialPort.pas:
* Unix — termios напрямую, Linux и macOS ОДНИМ путём (разница спрятана в
  константах RTL; Darwin даёт и termio, и все TIOCM_*). Скорость только через
  CFSetISpeed/CFSetOSpeed, c_cflag собирается с нуля чистой SerCFlags;
  CRTSCTS — исключительно по явной просьбе; сырой режим и VMIN/VTIME явные;
  open с O_NONBLOCK и снятием флага сразу после (часть USB-драйверов, как и
  tty-устройство на маке, висит в open до DCD).
* Windows — тонкая переадресация в RTL Serial: там он есть и в termios не лезет.
* Неуспех SerOpen на ВСЕХ платформах даёт SER_INVALID_HANDLE (RTL возвращал 0
  под Windows и −1 под Unix, из-за чего вызывающие держали свои развилки).
  Проверка — SerValid.

Точки вызова: CATSerial и CWKeyer переведены на обёртку, заглушка
CAT_SERIAL_STUB и платформенные {$IFDEF} вокруг хендлов убраны. Имена портов по
умолчанию и подсказка в настройках теперь платформенные (SerDefaultPortName /
SerPortNameHint): на маке порт зовётся /dev/cu.usbserial-XXXX, и '/dev/ttyS0'
там — заведомо неверная подсказка; осмысленного умолчания не существует,
поэтому пусто.

Новый стенд test/serial (36 проверок) — на псевдотерминале: открытие, termios
обратным чтением, ★«CRTSCTS сам не включился», ★«в c_cflag нет ничего, кроме
наших флагов», формат через чистую SerCFlags (обратным чтением его не
проверить: pty восьмибитно-чистый и молча меняет CS7 на CS8), обмен, срок
таймаута, CR не превращается в CR+LF, эха нет, и сквозной прогон CAT через
обёртку. Негативный контроль: с `or Cardinal(BitsPerSec)` в SerSetParams (та
самая идиома, что ломает RTL на BSD) проверка c_cflag падает — «1CAB0 против
8B0».

test/platform расширен: теперь сим-компилирует и SerialPort, для его
Windows-ветки добавлена заглушка модуля Serial с теми же сигнатурами.

Модемные линии (DTR/RTS/CTS/DSR/CD/RI) на pty не проверяются — ioctl TIOCM*
там не работает; это остаётся на живой порт.

Co-Authored-By: Claude Opus 5 <noreply@anthropic.com>
Claude-Session: https://claude.ai/code/session_01Bkwwyj7xVRrqnSVEseTRfV

Settings.pas

@@ -7,7 +7,7 @@ unit Settings;
 {$mode objfpc}{$H+}
 interface
 uses SysUtils, Classes, Math, fpJSON, jsonparser, jsonscanner, PlatformUtils,
-  RadioModes;
+  SerialPort, RadioModes;
 
 const
   SETTINGS_FILE  = 'hpsdr_settings.json';
@@ -1048,11 +1048,7 @@ begin
   // CAT defaults
   for i := 0 to 3 do begin
     G.CATSerialEnabled[i]  := False;
-    {$IFDEF MSWINDOWS}
-    G.CATSerialPort[i]     := 'COM' + IntToStr(i+1);
-    {$ELSE}
-    G.CATSerialPort[i]     := '/dev/ttyS' + IntToStr(i);
-    {$ENDIF}
+    G.CATSerialPort[i]     := SerDefaultPortName(i);
     G.CATSerialBaud[i]     := 9600;
     G.CATSerialDataBits[i] := 8;
     G.CATSerialStopBits[i] := 1;
@@ -1314,11 +1310,7 @@ begin
   // CAT serial settings
   for i := 0 to 3 do begin
     G.CATSerialEnabled[i]  := JB(GObj,'cat_serial_en_'+IntToStr(i), False);
-    {$IFDEF MSWINDOWS}
-    G.CATSerialPort[i]     := JS(GObj,'cat_serial_port_'+IntToStr(i), 'COM'+IntToStr(i+1));
-    {$ELSE}
-    G.CATSerialPort[i]     := JS(GObj,'cat_serial_port_'+IntToStr(i), '/dev/ttyS'+IntToStr(i));
-    {$ENDIF}
+    G.CATSerialPort[i]     := JS(GObj,'cat_serial_port_'+IntToStr(i), SerDefaultPortName(i));
     G.CATSerialBaud[i]     := JI(GObj,'cat_serial_baud_'+IntToStr(i), 9600);
     G.CATSerialDataBits[i] := JI(GObj,'cat_serial_dbits_'+IntToStr(i), 8);
     G.CATSerialStopBits[i] := JI(GObj,'cat_serial_sbits_'+IntToStr(i), 1);
@@ -1658,11 +1650,7 @@ begin
   for i := 0 to 3 do
   begin
     G.CATSerialEnabled[i]  := JB(O, 'ser_en_'    +IntToStr(i), False);
-    {$IFDEF MSWINDOWS}
-    G.CATSerialPort[i]     := JS(O, 'ser_port_'  +IntToStr(i), 'COM'+IntToStr(i+1));
-    {$ELSE}
-    G.CATSerialPort[i]     := JS(O, 'ser_port_'  +IntToStr(i), '/dev/ttyS'+IntToStr(i));
-    {$ENDIF}
+    G.CATSerialPort[i]     := JS(O, 'ser_port_'  +IntToStr(i), SerDefaultPortName(i));
     G.CATSerialBaud[i]     := JI(O, 'ser_baud_'  +IntToStr(i), 9600);
     G.CATSerialDataBits[i] := JI(O, 'ser_dbits_' +IntToStr(i), 8);
     G.CATSerialStopBits[i] := JI(O, 'ser_sbits_' +IntToStr(i), 1);