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

move next word reading to its own function

Browse source
This commit is contained in:
tocariimaa 2025-02-05 13:32:26 -03:00
parent d188cb033d
commit a033c22ff3
1 changed files with 19 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
pila.c
View file

@ -387,14 +387,30 @@ compile_end_nat(RpnState *st)
add_word(st, w); add_word(st, w);
} }
void Str
tick_nat(RpnState *st) next_word(RpnState *st)
{
skip_whitespace(&st->rsp, st->rep);
return read_word_name(&st->rsp, st->rep);
}
Word *
next_word_read_get(RpnState *st)
{ {
Str wn; Str wn;
skip_whitespace(&st->rsp, st->rep); skip_whitespace(&st->rsp, st->rep);
wn = read_word_name(&st->rsp, st->rep); wn = read_word_name(&st->rsp, st->rep);
wn = Str_new(wn.s, wn.len); wn = Str_new(wn.s, wn.len);
Word *w = search_word(st, wn); Word *w = search_word(st, wn);
if (w == nil)
return nil;
return w;
}
void
tick_nat(RpnState *st)
{
Word *w = next_word_read_get(st);
if (w == nil) { if (w == nil) {
push_val(st, BOX_INTN(0)); push_val(st, BOX_INTN(0));
return; return;
@ -442,9 +458,7 @@ to_number_nat(RpnState *st)
void void
parse_word_nat(RpnState *st) parse_word_nat(RpnState *st)
{ {
skip_whitespace(&st->rsp, st->rep); push_val(st, BOX_STR(next_word(st)));
Str wn = read_word_name(&st->rsp, st->rep);
push_val(st, BOX_STR(wn));
} }
void void