fix(serial): ноль — законный дескриптор, а имя порта нормализуем целиком

Два замечания по обёртке, оба верные.

1. SerValid считал ноль невалидным на всех платформах. На Unix дескриптор 0 —
   обычный номер: если стандартный ввод закрыт (демон, запуск из службы),
   fpOpen отдаст именно его. Порт при этом объявлялся неоткрытым И оставался
   незакрытым — SerClose смотрит на ту же проверку. Относительно прежней
   unix-проверки `h < 0` это была регрессия. Теперь признак неудачи ровно один
   и на всех платформах — SER_INVALID_HANDLE; ноль, которым RTL под Windows
   сообщает об отказе, переводится в него внутри SerOpen (как и было).

2. SerWinDeviceName обрезала пробелы только по пути COM10+. Для ' COM3 ' и
   ' \\.\COM12 ' возвращалось исходное имя с пробелами, а CreateFile их не
   прощает: оператор, скопировавший имя с хвостовым пробелом, получал «не
   удалось открыть» на ровном месте. Теперь опознанное имя возвращается
   нормализованным; неопознанное (путь на Unix, COM3: с двоеточием) — по-прежнему
   без единого изменения, трогать чужой путь мы не вправе.

Стенд: 52 проверки. Новая часть C2 закрывает стандартный ввод, открывает порт
как дескриптор 0 и гоняет через него байты — ★негативный контроль: с прежним
`and (Handle <> 0)` она падает двумя проверками. Плюс нормализация пробелов у
короткого имени и у полной формы.

Co-Authored-By: Claude Opus 5 <noreply@anthropic.com>
Claude-Session: https://claude.ai/code/session_01Bkwwyj7xVRrqnSVEseTRfV
This commit is contained in:
2026-08-24 22:31:04 +03:00
co-authored by Claude Opus 5
parent 53c21223a3
commit 03afaf3083
3 changed files with 71 additions and 8 deletions
+5
View File
@@ -12,6 +12,11 @@ test/serial/run.sh
* **Открытие**: несуществующий порт даёт `SER_INVALID_HANDLE` (а не ноль и не
случайное число), живой — годный хендл.
***Дескриптор 0 — законный порт**: стенд закрывает стандартный ввод, после
чего порт открывается именно как `0`, и проверяет, что он считается годным и
через него идут данные. Признак неудачи ровно один — `SER_INVALID_HANDLE`.
Проверка вида «ноль = ошибка» теряла бы рабочий порт у демона и вдобавок не
закрывала дескриптор (`SerClose` смотрит на ту же проверку).
***Имя устройства для Windows**: `COM10` и выше `CreateFile` открывает только
в форме `\\.\COM10` — короткое имя система резолвит лишь для `COM1..COM9`, а у
USB-переходников номер за десяток заезжает легко. Правило чистое
+46
View File
@@ -137,6 +137,13 @@ begin
SerWinDeviceName('com12') = '\\.\com12', SerWinDeviceName('com12'));
Check('пробелы вокруг имени не мешают',
SerWinDeviceName(' COM12 ') = '\\.\COM12', SerWinDeviceName(' COM12 '));
// ★Пробелы CreateFile не прощает и коротким именам тоже: опознанное имя
// отдаём нормализованным, а не «как ввели».
Check('пробелы снимаются и у короткого имени',
SerWinDeviceName(' COM3 ') = 'COM3', '[' + SerWinDeviceName(' COM3 ') + ']');
Check('пробелы снимаются и у полной формы',
SerWinDeviceName(' \\.\COM12 ') = '\\.\COM12',
'[' + SerWinDeviceName(' \\.\COM12 ') + ']');
Check('уже полная форма не удваивается',
SerWinDeviceName('\\.\COM12') = '\\.\COM12');
Check('путь Unix не трогаем',
@@ -295,6 +302,44 @@ begin
fpClose(Master);
end;
// ── C2. Законный дескриптор 0 ──────────────────────────────────────────────
procedure TestFdZero;
// ★Регрессия, которую легко внести и невозможно заметить на рабочем столе: на
// Unix дескриптор 0 — обычный номер, и если стандартный ввод закрыт (демон,
// запуск из службы), порт откроется именно как 0. Проверка вида «хендл ноль =
// ошибка» тогда не только теряет рабочий порт, но и оставляет дескриптор
// незакрытым: SerClose смотрит на ту же проверку.
var
Master, H: cint;
Slave: string;
B: Byte;
N: LongInt;
begin
WriteLn('C2. Дескриптор 0 — законный порт (стандартный ввод закрыт)');
if not OpenPty(Master, Slave) then
begin
Check('псевдотерминал создан', False);
Exit;
end;
fpClose(0); // освобождаем нулевой дескриптор
H := SerOpen(Slave);
if H <> 0 then
WriteLn(' .. дескриптор 0 занял не порт (', H, ') — проверка ослаблена')
else
Check('порт открылся как дескриптор 0', True);
Check('★нулевой дескриптор считается годным', SerValid(H), IntToStr(H));
SerSetParams(H, 9600, 8, NoneParity, 1, []);
MasterWrite(Master, 'X');
N := SerReadTimeout(H, B, 500);
Check('через него идут данные', (N = 1) and (B = Ord('X')),
Format('n=%d b=%d', [N, B]));
SerClose(H);
fpClose(Master);
// Возвращаем стандартный ввод на место: иначе следующий открытый файл снова
// сядет на нулевой дескриптор, и это уже будет случайностью, а не проверкой.
fpOpen('/dev/null', O_RDONLY);
end;
// ── D. Сквозной прогон: CAT поверх обёртки ─────────────────────────────────
procedure TestCatThrough;
// Байты на мастере → поток CATSerial → разбор в TCATEngine → ответ обратно.
@@ -350,6 +395,7 @@ begin
TestWinName;
TestParams;
TestIO;
TestFdZero;
TestCatThrough;
WriteLn;
WriteLn(Format('Итого: %d проверок, провалено %d', [Passed + Failed, Failed]));