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

CATSerial.pas

@@ -8,28 +8,23 @@ unit CATSerial;
    3. Передаёт команду в TCATEngine.Parse()
    4. Отправляет ответ обратно в порт
 
-  Платформы:
-   • Linux : /dev/ttyS0..3, /dev/ttyUSB0, etc.
-   • Windows: COM1..COM4 (имя порта вводится вручную)
+  Платформы (имя порта вводится вручную, подсказка — SerPortNameHint):
+   • Linux  : /dev/ttyS0..3, /dev/ttyUSB0, /dev/ttyACM0
+   • macOS  : /dev/cu.usbserial-XXXX
+   • Windows: COM1..COM4
 
-  Зависимости: CATEngine, Serial (FPC fcl-serial RTL unit)
+  Зависимости: CATEngine, SerialPort (наша обёртка; RTL-модуль Serial под macOS
+  не собирается вовсе — см. шапку SerialPort.pas).
 }
 {$IFDEF FPC}
   {$MODE Delphi}
 {$ENDIF}
 
-{$IFDEF DARWIN}
-  {$DEFINE CAT_SERIAL_STUB}
-{$ENDIF}
-
 interface
 
 uses
   Classes, SysUtils,
-  {$IFNDEF CAT_SERIAL_STUB}
-  Serial,   // FPC cross-platform serial unit
-  {$ENDIF}
-  {$IFDEF MSWINDOWS}Windows,{$ENDIF}
+  SerialPort,
   SyncObjs,
   CATEngine;
 
@@ -50,10 +45,6 @@ type
     Andromeda: Boolean;  // порт — передняя панель Andromeda/G2 (push ZZZI наружу)
   end;
 
-  {$IFDEF CAT_SERIAL_STUB}
-  TSerialHandle = PtrInt;
-  {$ENDIF}
-
   TCATSerialPort = class;
 
   { TCATSerialThread — per-port listener thread }
@@ -150,9 +141,6 @@ var
   ch: Byte;
   n:  LongInt;
 begin
-  {$IFDEF CAT_SERIAL_STUB}
-  Exit;
-  {$ELSE}
   FHandle := FOwner.Handle;
   while not Terminated do begin
     n := SerReadTimeout(FHandle, ch, 50);
@@ -161,7 +149,6 @@ begin
       if ch = Ord(';') then ProcessBuffer;
     end;
   end;
-  {$ENDIF}
 end;
 
 { ── TCATSerialPort ────────────────────────────────────────────────────────── }
@@ -171,11 +158,7 @@ begin
   inherited Create;
   FEngine := AEngine;
   FConfig := ACfg;
-  {$IFDEF MSWINDOWS}
-  FHandle := INVALID_HANDLE_VALUE;
-  {$ELSE}
-  FHandle := -1;
-  {$ENDIF}
+  FHandle := SER_INVALID_HANDLE;
   FLock   := TCriticalSection.Create;
   FActive := False;
 end;
@@ -188,52 +171,34 @@ begin
 end;
 
 function TCATSerialPort.OpenPort: Boolean;
-  {$IFNDEF CAT_SERIAL_STUB}
 var
   h:   TSerialHandle;
   par: TParityType;
-  {$ENDIF}
 begin
   Result := False;
-  {$IFDEF CAT_SERIAL_STUB}
-  FLastError := 'serial support not built on this platform';
-  {$ELSE}
   h := SerOpen(FConfig.PortName);
-  {$IFDEF MSWINDOWS}
-  if h = TSerialHandle(INVALID_HANDLE_VALUE) then
-  {$ELSE}
-  if h < 0 then
-  {$ENDIF}
+  if not SerValid(h) then
   begin
     FLastError := 'не удалось открыть ' + FConfig.PortName;
     Exit;
   end;
 
   case FConfig.Parity of
-    cspNone: par := Serial.NoneParity;
-    cspOdd:  par := Serial.OddParity;
-    cspEven: par := Serial.EvenParity;
-  else       par := Serial.NoneParity;
+    cspOdd:  par := OddParity;
+    cspEven: par := EvenParity;
+  else       par := NoneParity;
   end;
 
   SerSetParams(h, FConfig.BaudRate, FConfig.DataBits, par, FConfig.StopBits, []);
   FHandle    := h;
   FLastError := '';
   Result     := True;
-  {$ENDIF}
 end;
 
 procedure TCATSerialPort.ClosePort;
 begin
-  {$IFNDEF CAT_SERIAL_STUB}
-  {$IFDEF MSWINDOWS}
-  if FHandle <> INVALID_HANDLE_VALUE then SerClose(FHandle);
-  FHandle := INVALID_HANDLE_VALUE;
-  {$ELSE}
-  if FHandle >= 0 then SerClose(FHandle);
-  FHandle := -1;
-  {$ENDIF}
-  {$ENDIF}
+  if SerValid(FHandle) then SerClose(FHandle);
+  FHandle := SER_INVALID_HANDLE;
 end;
 
 procedure TCATSerialPort.Start;
@@ -262,14 +227,7 @@ end;
 procedure TCATSerialPort.SendStr(const S: string);
 var buf: AnsiString;
 begin
-  {$IFDEF CAT_SERIAL_STUB}
-  Exit;
-  {$ELSE}
-  {$IFDEF MSWINDOWS}
-  if FHandle = INVALID_HANDLE_VALUE then Exit;
-  {$ELSE}
-  if FHandle < 0 then Exit;
-  {$ENDIF}
+  if not SerValid(FHandle) then Exit;
   FLock.Acquire;
   try
     buf := AnsiString(S);
@@ -279,7 +237,6 @@ begin
     // ignore write errors (port may have been closed)
   end;
   FLock.Release;
-  {$ENDIF}
 end;
 
 { ── TCATSerialManager ─────────────────────────────────────────────────────── }