snark13
4a081501d8
- bios/conio/env/errno/gfx/io/mem/mouse/stdio/stdlib/string/sys/time/ video разложены по модулям: общие статики и helpers — в internal _-модулях (_conio.h/_mouse.h/_gfx.h/_palette.h/_atexit.h/_time.h) - lib/Makefile: LIBC_C = wildcard libc/*/*.c — гранулярность файлов = гранулярность DCE линкера - эффект _CODE: gfx_text 6986→2568 Б, gfx_mous −1745, gfx_demo/d16 −542; ранее timedir −3270, ls −3098, stattest −2995 - комментарии оставшихся модулей переведены на русский; puts: убран мёртвый pchars; videomode_raw разложен на get/set - docs/libc-split-asm-cases.md — правила asm-связок между модулями; docs/libc-roadmap.md — план этапа - восстановлен examples/mdview/SAMPLE.MD (нужен make floppy) Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>
42 lines
1.5 KiB
C
42 lines
1.5 KiB
C
/*
|
||
* getenv — значение переменной окружения через ESTEX ENVIRON ($46, subfn 1):
|
||
* in: HL = имя (ASCIIZ), DE = выходной буфер
|
||
* out: CF=0 + A != 0 → найдена, значение записано в [DE..end-1]
|
||
* CF=0 + A == 0 → переменной нет (примечание: это ПРОТИВОПОЛОЖНО
|
||
* тому, что пишет DiskSyscalls.txt v1.6 — проверено
|
||
* эмпирически и по solid-c IO.ASM:763-766)
|
||
* CF=1 → ошибка, A = код
|
||
*
|
||
* Возвращает указатель в приватный 128-байтный буфер — скопируй до
|
||
* следующего вызова getenv(), если значение должно пережить его.
|
||
* NULL — нет переменной или ошибка (errno).
|
||
*/
|
||
|
||
#include <stdint.h>
|
||
#include <sprinter.h>
|
||
|
||
static char env_buf[128];
|
||
|
||
char *getenv(const char *name) __naked
|
||
{
|
||
(void)name;
|
||
__asm
|
||
push ix
|
||
;; HL = имя на входе; дополнительно DE = env_buf.
|
||
ld de, #_env_buf
|
||
ld bc, #0x0146 ; ESTEX ENVIRON; subfn: getenv
|
||
rst #0x10
|
||
pop ix
|
||
jr c, _getenv_err
|
||
or a, a
|
||
jr Z, _getenv_miss
|
||
ld de, #_env_buf
|
||
ret
|
||
_getenv_err:
|
||
call __errno_set
|
||
_getenv_miss:
|
||
ld de, #0
|
||
ret
|
||
__endasm;
|
||
}
|