tocariimaa/pila
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

add branch word

Browse source
This commit is contained in:
tocariimaa 2025-02-05 13:33:29 -03:00
parent 63799ae8e8
commit 96709aa013
1 changed files with 19 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
pila.c
View file

@ -477,6 +477,24 @@ find_word_nat(RpnState *st)
push_val(st, BOX_INTN((u64)w)); push_val(st, BOX_INTN((u64)w));
} }
void
branch_nat(RpnState *st)
{
Value predw = pop_val(st);
if (predw.kind != VAL_INT) {
return;
}
Str wn = next_word(st);
if (predw.intn == PILA_TRUE) {
Word *w = search_word(st, wn);
if (w == nil) {
signal_errorf(st, "no such word '%.*s'", (int)wn.len, wn.s);
return;
}
eval_word(st, w);
}
}
void void
add_word(RpnState *st, Word *w) add_word(RpnState *st, Word *w)
{ {
@ -682,6 +700,7 @@ main(int argc, char **argv)
{.name = Sl("emit"), .kind = WORD_NATIVE, .nat = emit_nat }, {.name = Sl("emit"), .kind = WORD_NATIVE, .nat = emit_nat },
{.name = Sl("."), .kind = WORD_NATIVE, .nat = print_nat }, {.name = Sl("."), .kind = WORD_NATIVE, .nat = print_nat },
{.name = Sl(","), .kind = WORD_NATIVE, .nat = getch_nat }, {.name = Sl(","), .kind = WORD_NATIVE, .nat = getch_nat },
{.name = Sl("branch"), .kind = WORD_NATIVE, .nat = branch_nat },
}; };
for (isize i = 0; i < countof(natws); ++i) for (isize i = 0; i < countof(natws); ++i)
add_word(&st, &natws[i]); add_word(&st, &natws[i]);