libc: Solid-C совместимость (П3) + rename/isatty (П4); scanf-семейство
- <dos.h>: getdate/gettime/setdate/settime (структуры Turbo-C, обёртки над getdatetime), getdisk/setdisk (ESTEX $02/$01), absread/abswrite (BIOS $55/$56, rst 8 — номера найдены в solid-c DOS.ASM; сектор 0 = boot логического диска) - scanf/fscanf/sscanf: своё C-ядро _scanf_core (%d %u %x %o %c %s, модификатор l, ширина, подавление '*', %%); в SDCC z80 scanf нет, asm solid-c не портируем из-за чужого ABI; 22 хост-теста ядра - хвост П2: fdopen/freopen/fclosall/fgetpos/fsetpos поверх таблицы FILE; парсер режима и выдача слота вынесены в _file_mode/_file_slot - rename() — ESTEX RENAME $10; isatty(fd) = fd <= 0 (tty только псевдо-fd 0/-1/-2: из CLI DSS манипуляторы идут с 1 — verified, fd 1 не резерв, под Flex Navigator его держит навигатор) - errno.h: Solid-C имена ошибок (EZERO/EINVFNC/ENOFILE/...) как алиасы - <sprinter_solid.h> — зонтичный заголовок для портирования; ltell/_setargv в sprinter_compat.h; div/ldiv — из SDCC (проверено) - tests/solidt — smoke всех П3/П4 API, зелёный в MAME (вкл. absread boot-сектора с сигнатурой 55AA) Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>
This commit is contained in:
@@ -19,6 +19,18 @@
|
||||
/* Таблица потоков (_file_slots.c); свободный слот: flags == 0. */
|
||||
extern FILE _file_slots[OPEN_MAX];
|
||||
|
||||
/* Найти свободный слот и взвести atexit(_fclosall) при первом
|
||||
* использовании. Слот НЕ помечается занятым — вызывающий заполняет
|
||||
* поля и последним ставит flags. NULL + errno=EMFILE, если все
|
||||
* заняты. (_file_slot.c; используют fopen и fdopen.) */
|
||||
FILE *_file_slot_take(void);
|
||||
|
||||
/* Транслировать строку режима fopen ("r/w/a", '+' в любом месте
|
||||
* хвоста, 'b'/'t' игнорируются) в флаги open() (возврат) и наши
|
||||
* _F_-флаги (*ff). -1 + errno=EINVAL при плохом режиме.
|
||||
* (_file_mode.c; используют fopen, fdopen, freopen.) */
|
||||
int _file_mode_flags(const char *mode, uint8_t *ff);
|
||||
|
||||
/* Обеспечить буфер: вернуть fp->buf, при необходимости malloc(BUFSIZ).
|
||||
* NULL = malloc не дал — вызывающий уходит на небуферизованный путь
|
||||
* (прямой syscall на 1 байт), поток продолжает работать. */
|
||||
|
||||
@@ -0,0 +1,43 @@
|
||||
/*
|
||||
* _file_mode_flags — парсер строки режима fopen/fdopen/freopen.
|
||||
* Поддержаны r, w, a; '+' в любом месте хвоста; 'b'/'t' игнорируются —
|
||||
* весь I/O на Sprinter бинарный.
|
||||
*/
|
||||
|
||||
#include <fcntl.h>
|
||||
#include <errno.h>
|
||||
#include "_file.h"
|
||||
|
||||
int _file_mode_flags(const char *mode, uint8_t *ff)
|
||||
{
|
||||
if (!mode || !*mode) {
|
||||
errno = EINVAL;
|
||||
return -1;
|
||||
}
|
||||
int oflags = 0;
|
||||
uint8_t f = 0;
|
||||
char base = *mode;
|
||||
int plus = 0;
|
||||
for (const char *p = mode + 1; *p; p++) {
|
||||
if (*p == '+') plus = 1;
|
||||
}
|
||||
switch (base) {
|
||||
case 'r':
|
||||
oflags = plus ? O_RDWR : O_RDONLY;
|
||||
f = _F_READ | (plus ? _F_WRITE : 0);
|
||||
break;
|
||||
case 'w':
|
||||
oflags = (plus ? O_RDWR : O_WRONLY) | O_CREAT | O_TRUNC;
|
||||
f = _F_WRITE | (plus ? _F_READ : 0);
|
||||
break;
|
||||
case 'a':
|
||||
oflags = (plus ? O_RDWR : O_WRONLY) | O_CREAT | O_APPEND;
|
||||
f = _F_WRITE | _F_APPEND | (plus ? _F_READ : 0);
|
||||
break;
|
||||
default:
|
||||
errno = EINVAL;
|
||||
return -1;
|
||||
}
|
||||
*ff = f;
|
||||
return oflags;
|
||||
}
|
||||
@@ -0,0 +1,30 @@
|
||||
/*
|
||||
* _file_slot_take — найти свободный слот таблицы потоков и при первом
|
||||
* обращении взвести atexit(_fclosall), чтобы exit() сбрасывал
|
||||
* несброшенную запись всех потоков (требование стандарта).
|
||||
* Слот НЕ помечается занятым — вызывающий (fopen/fdopen) заполняет
|
||||
* поля и последним выставляет flags.
|
||||
*/
|
||||
|
||||
#include <sprinter_exit.h> /* atexit */
|
||||
#include <errno.h>
|
||||
#include "_file.h"
|
||||
|
||||
FILE *_file_slot_take(void)
|
||||
{
|
||||
static uint8_t atexit_armed;
|
||||
|
||||
FILE *fp = _file_slots;
|
||||
for (uint8_t i = 0; ; i++, fp++) {
|
||||
if (i >= OPEN_MAX) {
|
||||
errno = EMFILE;
|
||||
return 0;
|
||||
}
|
||||
if (fp->flags == 0) break;
|
||||
}
|
||||
if (!atexit_armed) {
|
||||
atexit_armed = 1;
|
||||
atexit(_fclosall);
|
||||
}
|
||||
return fp;
|
||||
}
|
||||
@@ -0,0 +1,11 @@
|
||||
/*
|
||||
* fclosall — закрыть все открытые потоки таблицы (имя Solid-C);
|
||||
* публичная обёртка над _fclosall, который и так навешен на atexit.
|
||||
*/
|
||||
|
||||
#include "_file.h"
|
||||
|
||||
void fclosall(void)
|
||||
{
|
||||
_fclosall();
|
||||
}
|
||||
@@ -0,0 +1,30 @@
|
||||
/*
|
||||
* fdopen — завернуть уже открытый низкоуровневый fd в поток FILE*
|
||||
* (Solid-C категория C). Режим должен соответствовать тому, с которым
|
||||
* открывался fd — библиотека проверить это не может. После fdopen
|
||||
* файл закрывается через fclose (не close!): fclose сбросит буфер и
|
||||
* закроет сам fd. Счётчик _fd_guard не трогаем — fd уже посчитан
|
||||
* своим open().
|
||||
*/
|
||||
|
||||
#include <errno.h>
|
||||
#include "_file.h"
|
||||
|
||||
FILE *fdopen(int fd, const char *mode)
|
||||
{
|
||||
if (fd < 0) { errno = EBADF; return 0; }
|
||||
|
||||
uint8_t ff;
|
||||
if (_file_mode_flags(mode, &ff) < 0) return 0;
|
||||
|
||||
FILE *fp = _file_slot_take();
|
||||
if (!fp) return 0;
|
||||
|
||||
fp->fd = fd;
|
||||
fp->buf = 0;
|
||||
fp->curp = 0;
|
||||
fp->level = 0;
|
||||
fp->hold = EOF;
|
||||
fp->flags = ff;
|
||||
return fp;
|
||||
}
|
||||
@@ -0,0 +1,15 @@
|
||||
/*
|
||||
* fgetpos — запомнить текущую позицию потока в *pos (fpos_t = long,
|
||||
* без побочных эффектов — через ftell). 0 при успехе, -1 + errno.
|
||||
*/
|
||||
|
||||
#include "_file.h"
|
||||
|
||||
int fgetpos(FILE *fp, fpos_t *pos)
|
||||
{
|
||||
if (!pos) return -1;
|
||||
long p = ftell(fp);
|
||||
if (p < 0) return -1;
|
||||
*pos = p;
|
||||
return 0;
|
||||
}
|
||||
+9
-66
@@ -1,89 +1,32 @@
|
||||
/*
|
||||
* fopen — открыть файл как буферизованный поток FILE* (вариант B+).
|
||||
*
|
||||
* FILE берётся из статической таблицы _file_slots (свободный слот:
|
||||
* flags == 0), без malloc — сам буфер выделится лениво при первой
|
||||
* операции. Первый успешный fopen вешает _fclosall на atexit, чтобы
|
||||
* exit() сбрасывал несброшенную запись всех потоков.
|
||||
* FILE берётся из статической таблицы (_file_slot_take, он же взводит
|
||||
* atexit(_fclosall)); сам буфер выделится лениво при первой операции.
|
||||
* NULL при: плохом режиме (EINVAL), занятой таблице (EMFILE), ошибке
|
||||
* open (errno от него).
|
||||
*/
|
||||
|
||||
#include <stdlib.h>
|
||||
#include <sprinter_exit.h> /* atexit */
|
||||
#include <fcntl.h>
|
||||
#include <unistd.h>
|
||||
#include <errno.h>
|
||||
#include "_file.h"
|
||||
|
||||
/* Транслировать строку режима fopen() в подмножество флагов open(),
|
||||
* которое понимает libc/io/open.c. Поддержаны r, w, a, "+" в любом
|
||||
* месте хвоста; "b"/"t" игнорируются — весь I/O бинарный. */
|
||||
static int mode_to_flags(const char *mode, uint8_t *file_flags)
|
||||
{
|
||||
if (!mode || !*mode) {
|
||||
errno = EINVAL;
|
||||
return -1;
|
||||
}
|
||||
int oflags = 0;
|
||||
uint8_t ff = 0;
|
||||
char base = *mode;
|
||||
int plus = 0;
|
||||
for (const char *p = mode + 1; *p; p++) {
|
||||
if (*p == '+') plus = 1;
|
||||
}
|
||||
switch (base) {
|
||||
case 'r':
|
||||
oflags = plus ? O_RDWR : O_RDONLY;
|
||||
ff = _F_READ | (plus ? _F_WRITE : 0);
|
||||
break;
|
||||
case 'w':
|
||||
oflags = (plus ? O_RDWR : O_WRONLY) | O_CREAT | O_TRUNC;
|
||||
ff = _F_WRITE | (plus ? _F_READ : 0);
|
||||
break;
|
||||
case 'a':
|
||||
oflags = (plus ? O_RDWR : O_WRONLY) | O_CREAT | O_APPEND;
|
||||
ff = _F_WRITE | _F_APPEND | (plus ? _F_READ : 0);
|
||||
break;
|
||||
default:
|
||||
errno = EINVAL;
|
||||
return -1;
|
||||
}
|
||||
*file_flags = ff;
|
||||
return oflags;
|
||||
}
|
||||
|
||||
FILE *fopen(const char *path, const char *mode)
|
||||
{
|
||||
static uint8_t atexit_armed;
|
||||
|
||||
uint8_t ff;
|
||||
int oflags = mode_to_flags(mode, &ff);
|
||||
if (oflags < 0) return NULL;
|
||||
int oflags = _file_mode_flags(mode, &ff);
|
||||
if (oflags < 0) return 0;
|
||||
|
||||
/* Свободный слот таблицы — ДО open, чтобы не открывать зря. */
|
||||
FILE *fp = _file_slots;
|
||||
for (uint8_t i = 0; ; i++, fp++) {
|
||||
if (i >= OPEN_MAX) {
|
||||
errno = EMFILE;
|
||||
return NULL;
|
||||
}
|
||||
if (fp->flags == 0) break;
|
||||
}
|
||||
FILE *fp = _file_slot_take(); /* слот — ДО open, чтобы не открывать зря */
|
||||
if (!fp) return 0;
|
||||
|
||||
int fd = open(path, oflags);
|
||||
if (fd < 0) return NULL;
|
||||
if (fd < 0) return 0;
|
||||
|
||||
fp->fd = fd;
|
||||
fp->buf = NULL;
|
||||
fp->curp = NULL;
|
||||
fp->buf = 0;
|
||||
fp->curp = 0;
|
||||
fp->level = 0;
|
||||
fp->hold = EOF;
|
||||
fp->flags = ff; /* последним — занимает слот */
|
||||
|
||||
if (!atexit_armed) {
|
||||
atexit_armed = 1;
|
||||
atexit(_fclosall); /* exit() сбросит все потоки */
|
||||
}
|
||||
return fp;
|
||||
}
|
||||
|
||||
@@ -0,0 +1,42 @@
|
||||
/*
|
||||
* freopen — переоткрыть поток на другой файл, переиспользуя тот же
|
||||
* FILE* (и его буфер, если уже выделен).
|
||||
*
|
||||
* Для файлового потока: сброс буфера, close старого fd, open нового.
|
||||
* Для консольного псевдопотока (stdout/stderr/stdin): превращает его
|
||||
* в файловый — работает ТОЛЬКО для операций через FILE* (fputs(...,
|
||||
* stdout) и т.п.); printf/puts/putchar идут через ESTEX напрямую и
|
||||
* НЕ перенаправляются. NULL при ошибке (поток при этом закрыт —
|
||||
* по стандарту).
|
||||
*/
|
||||
|
||||
#include <fcntl.h>
|
||||
#include <unistd.h>
|
||||
#include "_file.h"
|
||||
|
||||
FILE *freopen(const char *path, const char *mode, FILE *fp)
|
||||
{
|
||||
if (!fp) return 0;
|
||||
|
||||
uint8_t ff;
|
||||
int oflags = _file_mode_flags(mode, &ff);
|
||||
|
||||
/* Закрыть текущее содержимое потока (буфер сохраняем). */
|
||||
if (!(fp->flags & (_F_CONIN | _F_CONOUT))) {
|
||||
_file_sync(fp);
|
||||
close(fp->fd);
|
||||
}
|
||||
fp->flags = 0; /* пока свободен/закрыт */
|
||||
fp->level = 0;
|
||||
fp->curp = fp->buf;
|
||||
fp->hold = EOF;
|
||||
|
||||
if (oflags < 0) return 0; /* плохой режим — поток закрыт */
|
||||
|
||||
int fd = open(path, oflags);
|
||||
if (fd < 0) return 0;
|
||||
|
||||
fp->fd = fd;
|
||||
fp->flags = ff;
|
||||
return fp;
|
||||
}
|
||||
@@ -0,0 +1,27 @@
|
||||
/*
|
||||
* fscanf — форматированный ввод из потока; ядро — _scanf_core поверх
|
||||
* fgetc/ungetc (putback гарантирован полем hold).
|
||||
*/
|
||||
|
||||
#include <stdarg.h>
|
||||
#include "_file.h"
|
||||
#include "../stdio/_scanf.h"
|
||||
|
||||
static int fs_get(void *ctx)
|
||||
{
|
||||
return fgetc((FILE *)ctx);
|
||||
}
|
||||
|
||||
static void fs_unget(void *ctx, int c)
|
||||
{
|
||||
ungetc(c, (FILE *)ctx);
|
||||
}
|
||||
|
||||
int fscanf(FILE *fp, const char *fmt, ...)
|
||||
{
|
||||
va_list ap;
|
||||
va_start(ap, fmt);
|
||||
int r = _scanf_core(fs_get, fs_unget, fp, fmt, ap);
|
||||
va_end(ap);
|
||||
return r;
|
||||
}
|
||||
@@ -0,0 +1,12 @@
|
||||
/*
|
||||
* fsetpos — восстановить позицию потока из *pos (парный fgetpos);
|
||||
* fseek(SEEK_SET) — сбрасывает буфер и ungetc. 0 или -1 + errno.
|
||||
*/
|
||||
|
||||
#include "_file.h"
|
||||
|
||||
int fsetpos(FILE *fp, const fpos_t *pos)
|
||||
{
|
||||
if (!pos) return -1;
|
||||
return fseek(fp, *pos, SEEK_SET);
|
||||
}
|
||||
@@ -0,0 +1,28 @@
|
||||
/*
|
||||
* scanf — форматированный ввод с консоли (stdin: ESTEX WAITKEY через
|
||||
* getchar без эха; для строчного ввода с редактированием удобнее
|
||||
* gets/cgets + sscanf).
|
||||
*/
|
||||
|
||||
#include <stdarg.h>
|
||||
#include "_file.h"
|
||||
#include "../stdio/_scanf.h"
|
||||
|
||||
static int sc_get(void *ctx)
|
||||
{
|
||||
return fgetc((FILE *)ctx);
|
||||
}
|
||||
|
||||
static void sc_unget(void *ctx, int c)
|
||||
{
|
||||
ungetc(c, (FILE *)ctx);
|
||||
}
|
||||
|
||||
int scanf(const char *fmt, ...)
|
||||
{
|
||||
va_list ap;
|
||||
va_start(ap, fmt);
|
||||
int r = _scanf_core(sc_get, sc_unget, stdin, fmt, ap);
|
||||
va_end(ap);
|
||||
return r;
|
||||
}
|
||||
Reference in New Issue
Block a user