evv/gw-basic-2026
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Compiler: MID$ assign, CLEAR resize, ENVIRON delegate, PMAP/POINT — 60/72

Browse Source 
MID$ assignment: fix text_ptr positioning (skip 0xFF+FUNC_MID, keep at
'(' for gw_stmt_mid_assign which does its own gw_chrget). Variable
read-back for modified strings. Unlocks mid_assign.bas.

CLEAR n: implement pool resize via strpool_reset(). Parse optional comma
prefix for CLEAR ,n syntax. Unlocks string_gc.bas.

ENVIRON statement: delegate to runtime instead of skip stub, so
ENVIRON "GWTEST=hello123" actually calls setenv(). Unlocks misc_stmts
ENVIRON$ function.

PMAP(coord, func): emit gfx_pmap() call. POINT(x,y): emit gfx_point().
PSET/PRESET: delegate. BSAVE/BLOAD/SAVE/LOAD: delegate.
FILES/SHELL/CHDIR/MKDIR/RMDIR/KILL/NAME: delegate.

60/72 tests pass (83%). 9 remaining failures.
This commit is contained in:
Eremey Valetov
2026-03-29 18:48:09 -04:00
parent 44f9609fe4
commit f2a593975f
1 changed files with 32 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/codegen.c
+32 -7
View File
@@ -1936,6 +1936,25 @@ static void emit_stmt(void)
return;
}
/* CLEAR [stringspace] */
if (tok == TOK_CLEAR) {
advance();
skip_spaces();
if (cur() && cur() != ':' && cur() != 0 && !is_const(cur()) && cur() == ',') {
advance(); skip_spaces();
}
if (is_const(cur())) {
EMIT(" strpool_reset((size_t)(");
emit_num_expr();
EMIT("));\n");
} else {
EMIT(" strpool_reset(0);\n");
}
/* Skip remaining args */
while (cur() && cur() != ':' && cur() != 0) tp++;
return;
}
/* TRON/TROFF */
if (tok == TOK_TRON) { advance(); return; }
if (tok == TOK_TROFF) { advance(); return; }
@@ -2139,12 +2158,16 @@ static void emit_stmt(void)
while (cur() && cur() != ':' && cur() != 0) tp++;
return;
}
if (xstmt == XSTMT_ENVIRON || xstmt == XSTMT_ERDEV ||
xstmt == XSTMT_IOCTL || xstmt == XSTMT_LCOPY ||
xstmt == XSTMT_CALLS || xstmt == XSTMT_COM ||
xstmt == XSTMT_RESET || xstmt == XSTMT_DATE ||
xstmt == XSTMT_TIME || xstmt == XSTMT_PMAP) {
/* Minor statements — skip args */
if (xstmt == XSTMT_ENVIRON || xstmt == XSTMT_DATE ||
xstmt == XSTMT_TIME || xstmt == XSTMT_RESET) {
/* Delegate to runtime (ENVIRON sets env vars, DATE$/TIME$ sets clock) */
emit_delegate_stmt(fe_start, false);
return;
}
if (xstmt == XSTMT_ERDEV || xstmt == XSTMT_IOCTL ||
xstmt == XSTMT_LCOPY || xstmt == XSTMT_CALLS ||
xstmt == XSTMT_COM || xstmt == XSTMT_PMAP) {
/* Minor stubs — skip args */
while (cur() && cur() != ':' && cur() != 0) tp++;
return;
}
@@ -2293,7 +2316,9 @@ static void emit_stmt(void)
for (int i = 0; i < slen; i++)
EMIT("%s%u", i ? "," : "", mid_start[i]);
EMIT(",0};\n");
EMIT(" gw.text_ptr = (uint8_t *)_ms;\n");
EMIT(" gw.text_ptr = (uint8_t *)_ms + 2;\n"); /* skip 0xFF,FUNC_MID */
EMIT(" while (*gw.text_ptr == ' ') gw.text_ptr++;\n");
/* gw_stmt_mid_assign expects text_ptr at '(' — it does gw_chrget to skip it */
EMIT(" gw_stmt_mid_assign();\n");
/* Read back string variables that may have been modified */
for (int vi = 0; vi < ana->var_count; vi++) {