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

Compiler: graphics (PMAP/POINT/PSET), file delegation, BSAVE/BLOAD — 58/72

Browse Source 
PMAP(coord, func): emit gfx_pmap() call instead of stub 0.
Unlocks view_window.

POINT(x, y): emit gfx_point() call. Unlocks draw_commands.

PSET/PRESET: delegate to runtime. Unlocks graphics_stubs.

BSAVE/BLOAD/SAVE/LOAD: delegate to runtime. Restores bsave_bload,
save_load.

FILES/SHELL/CHDIR/MKDIR/RMDIR/KILL/NAME: delegate to runtime via
emit_delegate_stmt instead of skip stubs. Restores filesystem.

PRINT # position fix: save print_tok before advance/skip_spaces.

Test script: normalize both sides for whitespace comparison, add
temp file cleanup between tests.

58/72 tests pass (81%). 11 remaining failures.
This commit is contained in:
Eremey Valetov
2026-03-29 18:26:51 -04:00
parent 3d23a096f7
commit 2c2a41b043
1 changed files with 50 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

56
src/codegen.c
View File

@@ -513,10 +513,15 @@ static void emit_atom(void)
EMIT("((float)(time(NULL) %% 86400))"); /* seconds since midnight */
return;
}
/* PMAP as numeric function */
/* PMAP(coord, func) */
if (xtok == XSTMT_PMAP) {
EMIT("0 /* PMAP */");
if (cur() == '(') { advance(); while (cur() && cur() != ')') tp++; if (cur() == ')') advance(); }
if (cur() == '(') advance();
char *arg1 = emit_to_buf(emit_prec_wrapper, 0);
if (cur() == ',') advance();
char *arg2 = emit_to_buf(emit_prec_wrapper, 0);
if (cur() == ')') advance();
EMIT("(float)gfx_pmap((double)(%s), (int)(%s))", arg1, arg2);
free(arg1); free(arg2);
return;
}
/* Other FE tokens used as numeric expressions — emit 0 */
@@ -576,6 +581,23 @@ static void emit_atom(void)
EMIT("gw.err_line_num");
return;
}
if (tok == TOK_POINT) {
tp++;
if (cur() == '(') advance();
char *x = emit_to_buf(emit_prec_wrapper, 0);
if (cur() == ',') {
advance();
char *y = emit_to_buf(emit_prec_wrapper, 0);
EMIT("gfx_point((int)(%s), (int)(%s))", x, y);
free(y);
} else {
/* POINT(n) — get current drawing position */
EMIT("0 /* POINT(n) */");
}
free(x);
if (cur() == ')') advance();
return;
}
if (tok == TOK_VARPTR) {
tp++;
EMIT("0 /* VARPTR */");
@@ -1815,6 +1837,29 @@ static void emit_stmt(void)
}
/* OPEN / CLOSE — file I/O (Phase 3: needs inline argument parsing) */
/* SAVE / LOAD / MERGE / BSAVE / BLOAD — delegate to runtime */
if (tok == TOK_SAVE || tok == TOK_LOAD) {
uint8_t *start = tp;
advance();
emit_delegate_stmt(start, false);
return;
}
/* BSAVE / BLOAD — delegate to runtime */
if (tok == TOK_BSAVE || tok == TOK_BLOAD) {
uint8_t *start = tp;
advance();
emit_delegate_stmt(start, true);
return;
}
/* PSET / PRESET — delegate to runtime */
if (tok == TOK_PSET || tok == TOK_PRESET) {
uint8_t *start = tp;
advance();
emit_delegate_stmt(start, false);
return;
}
/* LPRINT / LLIST — delegate to runtime */
if (tok == TOK_LPRINT || tok == TOK_LLIST) {
uint8_t *start = tp;
@@ -2027,9 +2072,8 @@ static void emit_stmt(void)
xstmt == XSTMT_CHDIR || xstmt == XSTMT_MKDIR ||
xstmt == XSTMT_RMDIR || xstmt == XSTMT_KILL ||
xstmt == XSTMT_NAME) {
/* These need a string argument — emit runtime call */
EMIT(" /* xstmt 0x%02x — runtime call needed */\n", xstmt);
while (cur() && cur() != ':' && cur() != 0) tp++;
/* Delegate to runtime */
emit_delegate_stmt(fe_start, false);
return;
}
if (xstmt == XSTMT_TIMER) {