mirror of
https://git.vladimir.cc/vladimir/ewsdr.git
synced 2026-08-25 17:27:32 +00:00
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
This commit is contained in:
Claude Opus 5
+50
-27
@@ -1,44 +1,67 @@
|
||||
#!/bin/sh
|
||||
# Проверка ветвей PlatformUtils под Windows и macOS БЕЗ этих платформ.
|
||||
# Проверка платформенных ветвей БЕЗ самих платформ (Windows и macOS).
|
||||
#
|
||||
# Зачем. Кросс-RTL обычно не установлен, поэтому ветки {$IFDEF WINDOWS} и
|
||||
# {$IFDEF DARWIN} на Linux не компилируются ВООБЩЕ — ошибка в них всплывает
|
||||
# только на сборочной машине, через полчаса после коммита. Так и вышло: unit
|
||||
# только на сборочной машине, через полчаса после коммита. Так и вышло: модуль
|
||||
# Windows, добавленный ради QueryPerformanceCounter, перекрыл однопараметрический
|
||||
# SysUtils.GetEnvironmentVariable, и win64-сборка легла на трёх вызовах.
|
||||
#
|
||||
# Как. Копию PlatformUtils.pas переписываем так, чтобы платформенные условия
|
||||
# читались как наши собственные (-dSIMWIN / -dSIMMAC), и компилируем БЕЗ
|
||||
# ЛИНКОВКИ (-Cn): системных функций на Linux нет, но синтаксис, типы и — главное —
|
||||
# разрешение имён проверяются по-настоящему. Для Windows подкладывается
|
||||
# заглушка unit Windows с теми же перекрывающими объявлениями (win_stub/).
|
||||
# Как. Копии файлов переписываются так, чтобы платформенные условия читались как
|
||||
# наши собственные (-dSIMWIN / -dSIMMAC), и компилируются БЕЗ ЛИНКОВКИ (-Cn):
|
||||
# системных функций на Linux нет, но синтаксис, типы и — главное — разрешение
|
||||
# имён проверяются по-настоящему. Для Windows подкладываются заглушки модулей
|
||||
# Windows и Serial (win_stub/) с теми же объявлениями, что у настоящих.
|
||||
#
|
||||
# Чего проверка НЕ делает: живых вызовов системных счётчиков. Их правильность
|
||||
# Чего проверка НЕ делает: живых вызовов системных функций. Их правильность
|
||||
# доказывает только прогон на самой платформе.
|
||||
set -e
|
||||
cd "$(dirname "$0")"
|
||||
SRC=../../PlatformUtils.pas
|
||||
HERE=$(pwd)
|
||||
ROOT=../..
|
||||
FILES="PlatformUtils.pas SerialPort.pas"
|
||||
WORK=$(mktemp -d)
|
||||
trap 'rm -rf "$WORK"' EXIT
|
||||
FAILED=0
|
||||
COUNT=0
|
||||
|
||||
# ── Windows ──
|
||||
mkdir -p "$WORK/win"
|
||||
cp win_stub/Windows.pas "$WORK/win/"
|
||||
sed -e 's/{\$IFDEF WINDOWS}/{$IFDEF SIMWIN}/g' \
|
||||
-e 's/{\$IFNDEF WINDOWS}/{$IFNDEF SIMWIN}/g' "$SRC" > "$WORK/win/PlatformUtils.pas"
|
||||
( cd "$WORK/win" && fpc -B -Mobjfpc -dHEADLESS -dSIMWIN -Fu. -FU. -Cn PlatformUtils.pas >"$WORK/win.log" 2>&1 ) \
|
||||
|| { echo "WINDOWS-ветка НЕ компилируется:"; cat "$WORK/win.log"; exit 1; }
|
||||
echo " ok PlatformUtils: ветка WINDOWS компилируется (заглушка unit Windows перекрывает SysUtils, как настоящий)"
|
||||
sim_build() { # $1 = win|mac
|
||||
MODE=$1
|
||||
DIR="$WORK/$MODE"
|
||||
mkdir -p "$DIR"
|
||||
if [ "$MODE" = win ]; then
|
||||
cp win_stub/*.pas "$DIR/"
|
||||
DEF=-dSIMWIN
|
||||
else
|
||||
DEF=-dSIMMAC
|
||||
fi
|
||||
for F in $FILES; do
|
||||
if [ "$MODE" = win ]; then
|
||||
sed -e 's/{\$IFDEF WINDOWS}/{$IFDEF SIMWIN}/g' \
|
||||
-e 's/{\$IFNDEF WINDOWS}/{$IFNDEF SIMWIN}/g' \
|
||||
-e 's/{\$IF DEFINED(WINDOWS)}/{$IF DEFINED(SIMWIN)}/g' \
|
||||
"$ROOT/$F" > "$DIR/$F"
|
||||
else
|
||||
sed -e 's/{\$IFDEF LINUX}/{$IFDEF SIMLINUX}/g' \
|
||||
-e 's/{\$IFDEF DARWIN}/{$IFDEF SIMMAC}/g' \
|
||||
-e 's/{\$ELSEIF DEFINED(DARWIN)}/{$ELSEIF DEFINED(SIMMAC)}/g' \
|
||||
-e 's/{\$IF DEFINED(DARWIN) AND NOT DEFINED(HEADLESS)}/{$IF DEFINED(SIMMAC) AND NOT DEFINED(HEADLESS)}/g' \
|
||||
"$ROOT/$F" > "$DIR/$F"
|
||||
fi
|
||||
COUNT=$((COUNT + 1))
|
||||
if ( cd "$DIR" && fpc -B -Mobjfpc -dHEADLESS $DEF -Fu. -FU. -Cn "$F" >"$DIR/$F.log" 2>&1 ); then
|
||||
echo " ok $F: ветка $MODE компилируется"
|
||||
else
|
||||
echo " FAIL $F: ветка $MODE НЕ компилируется"
|
||||
cat "$DIR/$F.log"
|
||||
FAILED=$((FAILED + 1))
|
||||
fi
|
||||
done
|
||||
}
|
||||
|
||||
# ── macOS ──
|
||||
mkdir -p "$WORK/mac"
|
||||
sed -e 's/{\$IFDEF LINUX}/{$IFDEF SIMLINUX}/g' \
|
||||
-e 's/{\$IFDEF DARWIN}/{$IFDEF SIMMAC}/g' \
|
||||
-e 's/{\$IF DEFINED(DARWIN) AND NOT DEFINED(HEADLESS)}/{$IF DEFINED(SIMMAC) AND NOT DEFINED(HEADLESS)}/g' \
|
||||
"$SRC" > "$WORK/mac/PlatformUtils.pas"
|
||||
( cd "$WORK/mac" && fpc -B -Mobjfpc -dHEADLESS -dSIMMAC -Fu. -FU. -Cn PlatformUtils.pas >"$WORK/mac.log" 2>&1 ) \
|
||||
|| { echo "DARWIN-ветка НЕ компилируется:"; cat "$WORK/mac.log"; exit 1; }
|
||||
echo " ok PlatformUtils: ветка DARWIN компилируется (mach_absolute_time, без линковки)"
|
||||
sim_build win
|
||||
sim_build mac
|
||||
|
||||
echo
|
||||
echo "Итого: 2 проверки, провалено 0"
|
||||
echo "Итого: $COUNT проверок, провалено $FAILED"
|
||||
[ "$FAILED" -eq 0 ]
|
||||
|
||||
@@ -0,0 +1,54 @@
|
||||
unit Serial;
|
||||
|
||||
{
|
||||
Заглушка RTL-модуля Serial для проверки WINDOWS-ветки SerialPort.pas на Linux.
|
||||
Повторяет ровно ту часть API, которую наша обёртка переадресует под Windows,
|
||||
включая типы: разъезд сигнатур должен ловиться здесь, а не на сборочной
|
||||
машине.
|
||||
}
|
||||
|
||||
{$MODE Delphi}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
SysUtils;
|
||||
|
||||
type
|
||||
TSerialHandle = THandle;
|
||||
TParityType = (NoneParity, OddParity, EvenParity);
|
||||
TSerialFlags = set of (RtsCtsFlowControl);
|
||||
|
||||
function SerOpen(const DeviceName: string): TSerialHandle;
|
||||
procedure SerClose(Handle: TSerialHandle);
|
||||
procedure SerSetParams(Handle: TSerialHandle; BitsPerSec: LongInt;
|
||||
ByteSize: Integer; Parity: TParityType; StopBits: Integer;
|
||||
Flags: TSerialFlags);
|
||||
function SerRead(Handle: TSerialHandle; var Buffer; Count: LongInt): LongInt;
|
||||
function SerWrite(Handle: TSerialHandle; const Buffer; Count: LongInt): LongInt;
|
||||
function SerReadTimeout(Handle: TSerialHandle; var Buffer; mSec: LongInt): LongInt;
|
||||
procedure SerSetDTR(Handle: TSerialHandle; State: Boolean);
|
||||
procedure SerSetRTS(Handle: TSerialHandle; State: Boolean);
|
||||
function SerGetCTS(Handle: TSerialHandle): Boolean;
|
||||
function SerGetDSR(Handle: TSerialHandle): Boolean;
|
||||
function SerGetCD(Handle: TSerialHandle): Boolean;
|
||||
function SerGetRI(Handle: TSerialHandle): Boolean;
|
||||
|
||||
implementation
|
||||
|
||||
function SerOpen(const DeviceName: string): TSerialHandle; begin Result := 0; end;
|
||||
procedure SerClose(Handle: TSerialHandle); begin end;
|
||||
procedure SerSetParams(Handle: TSerialHandle; BitsPerSec: LongInt;
|
||||
ByteSize: Integer; Parity: TParityType; StopBits: Integer;
|
||||
Flags: TSerialFlags); begin end;
|
||||
function SerRead(Handle: TSerialHandle; var Buffer; Count: LongInt): LongInt; begin Result := 0; end;
|
||||
function SerWrite(Handle: TSerialHandle; const Buffer; Count: LongInt): LongInt; begin Result := 0; end;
|
||||
function SerReadTimeout(Handle: TSerialHandle; var Buffer; mSec: LongInt): LongInt; begin Result := 0; end;
|
||||
procedure SerSetDTR(Handle: TSerialHandle; State: Boolean); begin end;
|
||||
procedure SerSetRTS(Handle: TSerialHandle; State: Boolean); begin end;
|
||||
function SerGetCTS(Handle: TSerialHandle): Boolean; begin Result := False; end;
|
||||
function SerGetDSR(Handle: TSerialHandle): Boolean; begin Result := False; end;
|
||||
function SerGetCD(Handle: TSerialHandle): Boolean; begin Result := False; end;
|
||||
function SerGetRI(Handle: TSerialHandle): Boolean; begin Result := False; end;
|
||||
|
||||
end.
|
||||
Reference in New Issue
Block a user