snark13
737c974400
- Split tests/ (libc feature tests) and examples/ (real apps); shared
app.mk in repo root, was examples/example.mk
- libc/io/* split into libc/{conio,env,errno,file,mouse,string,sys,
time,video}/ — clearer module boundaries
- New examples/mdview/: markdown viewer (Phases 1-5 + light nested
lists). Headers (H1-H4), HR, ulist/olist/quote with nesting via
leading spaces, fenced code blocks, inline emphasis (bold/italic/
underscore/code), wrap/unwrap mode with soft wrap (F2), horizontal
pan (← →) with '>' truncation indicator
- libc additions: scroll() in conio (ESTEX SCROLL), strlwr/strupr,
gets() test
- Makefile updates across tests/ for the new shared app.mk path
Co-Authored-By: Claude Opus 4.7 <noreply@anthropic.com>
94 lines
2.7 KiB
C
94 lines
2.7 KiB
C
/*
|
|
* getenv / putenv via ESTEX ENVIRON ($46).
|
|
*
|
|
* ESTEX $46 subfn 1 (getenv):
|
|
* in: HL = name (ASCIIZ), DE = output buffer (caller-owned)
|
|
* out: CF=0 + A != 0 → variable found, value written into [DE..end-1]
|
|
* CF=0 + A == 0 → variable not present (note: this is the
|
|
* opposite of what DiskSyscalls.txt v1.6 docs
|
|
* claim — verified empirically and against
|
|
* solid-c's IO.ASM:763-766 implementation)
|
|
* CF=1 → error, A = code
|
|
* DE on exit points at one past the last byte written
|
|
*
|
|
* ESTEX $46 subfn 2 (putenv):
|
|
* in: HL = "NAME=value" (NUL-terminated)
|
|
* out: CF=1 / A = error code on failure
|
|
*
|
|
* We hand back a pointer into a private 128-byte buffer for getenv().
|
|
* Caller must copy the bytes before the next getenv() call if they
|
|
* need to outlive it.
|
|
*/
|
|
|
|
#include <stdint.h>
|
|
#include <sprinter.h>
|
|
|
|
static char env_buf[128];
|
|
|
|
char *getenv(const char *name) __naked
|
|
{
|
|
(void)name;
|
|
__asm
|
|
push ix
|
|
;; HL = name on entry; we need to also load 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;
|
|
}
|
|
|
|
int putenv(const char *namevalue) __naked
|
|
{
|
|
(void)namevalue;
|
|
__asm
|
|
push ix
|
|
ld bc, #0x0246 ; ESTEX ENVIRON; subfn: setenv
|
|
rst #0x10
|
|
pop ix
|
|
jr c, _putenv_err
|
|
ld de, #0
|
|
ret
|
|
_putenv_err:
|
|
call __errno_set
|
|
ld de, #-1
|
|
ret
|
|
__endasm;
|
|
}
|
|
|
|
/* ESTEX $46 subfn 0 (sysenv):
|
|
* in: HL = caller-owned buffer
|
|
* out: caller's buffer is filled with one NUL-terminated "NAME=value"
|
|
* per env var, then a trailing extra NUL marks the end:
|
|
* "PATH=...\0SOLID=H\0\0"
|
|
* return: buf on success, -1 on error (errno set).
|
|
* Buffer must be large enough for the whole environment.
|
|
*/
|
|
char *sysenv(char *buf) __naked
|
|
{
|
|
(void)buf;
|
|
__asm
|
|
push ix
|
|
push hl ; stash buffer pointer (= return value)
|
|
ld bc, #0x0046 ; ESTEX ENVIRON; subfn 0 = sysenv
|
|
rst #0x10
|
|
pop de ; DE = buffer pointer
|
|
pop ix
|
|
ret nc ; success: DE already has buf
|
|
;; CF=1 → A = ESTEX error code.
|
|
call __errno_set
|
|
ld de, #-1
|
|
ret
|
|
__endasm;
|
|
}
|