diff options
Diffstat (limited to 'miscutils')
| -rw-r--r-- | miscutils/bc.c | 41 |
1 files changed, 20 insertions, 21 deletions
diff --git a/miscutils/bc.c b/miscutils/bc.c index a5d7a01c0..0e61642a7 100644 --- a/miscutils/bc.c +++ b/miscutils/bc.c @@ -435,9 +435,9 @@ typedef enum BcLexType { BC_LEX_COMMA, BC_LEX_RBRACKET, - BC_LEX_LBRACE, + BC_LEX_LBRACE, // '{' is 0x7B, '}' is 0x7D, BC_LEX_SCOLON, - BC_LEX_RBRACE, + BC_LEX_RBRACE, // should be LBRACE+2: code uses (c - '{' + BC_LEX_LBRACE) BC_LEX_STR, BC_LEX_NAME, @@ -589,9 +589,6 @@ typedef struct BcParse { BcFunc *func; size_t fidx; -//TODO: needed? Example? - size_t nbraces; - size_t in_funcdef; } BcParse; @@ -2777,7 +2774,9 @@ static void bc_lex_whitespace(BcLex *l) l->t.t = BC_LEX_WHITESPACE; for (;;) { char c = l->buf[l->i]; - if (c == '\n' || !isspace(c)) + if (c == '\n') // this is BC_LEX_NLINE, not BC_LEX_WHITESPACE + break; + if (!isspace(c)) break; l->i++; } @@ -3003,6 +3002,7 @@ static BC_STATUS zbc_lex_next(BcLex *l) // Loop until failure or we don't have whitespace. This // is so the parser doesn't get inundated with whitespace. + // Comments are also BC_LEX_WHITESPACE tokens and eaten here. s = BC_STATUS_SUCCESS; do { dbg_lex("next string to parse:'%.*s'", @@ -3149,9 +3149,9 @@ static BC_STATUS zbc_lex_comment(BcLex *l) const char *buf = l->buf; l->t.t = BC_LEX_WHITESPACE; - i = ++l->i; + i = l->i; /* here buf[l->i] is the '*' of opening comment delimiter */ for (;;) { - char c = buf[i]; + char c = buf[++i]; check_star: if (c == '*') { c = buf[++i]; @@ -3164,7 +3164,6 @@ static BC_STATUS zbc_lex_comment(BcLex *l) RETURN_STATUS(bc_error("comment end could not be found")); } nls += (c == '\n'); - i++; } l->i = i + 1; @@ -3184,10 +3183,14 @@ static BC_STATUS zbc_lex_token(BcLex *l) // This is the workhorse of the lexer. switch (c) { - case '\0': + case '\0': // probably never reached + l->i--; + l->t.t = BC_LEX_EOF; + l->newline = true; + break; case '\n': + l->t.t = BC_LEX_NLINE; l->newline = true; - l->t.t = !c ? BC_LEX_EOF : BC_LEX_NLINE; break; case '\t': case '\v': @@ -3556,7 +3559,7 @@ static void bc_parse_pushIndex(BcParse *p, size_t idx) } } -static void bc_parse_number(BcParse *p, BcInst *prev, size_t *nexs) +static void bc_parse_number(BcParse *p) { char *num = xstrdup(p->l.t.v.v); size_t idx = G.prog.consts.len; @@ -3565,9 +3568,6 @@ static void bc_parse_number(BcParse *p, BcInst *prev, size_t *nexs) bc_parse_push(p, BC_INST_NUM); bc_parse_pushIndex(p, idx); - - ++(*nexs); - (*prev) = BC_INST_NUM; } IF_BC(static BC_STATUS zbc_parse_stmt_or_funcdef(BcParse *p);) @@ -3624,7 +3624,6 @@ static void bc_parse_reset(BcParse *p) p->l.i = p->l.len; p->l.t.t = BC_LEX_EOF; - p->nbraces = 0; bc_vec_pop_all(&p->exits); bc_vec_pop_all(&p->conds); @@ -3650,7 +3649,6 @@ static void bc_parse_create(BcParse *p, size_t func) bc_vec_init(&p->conds, sizeof(size_t), NULL); bc_vec_init(&p->ops, sizeof(BcLexType), NULL); - // p->nbraces = 0; - already is bc_parse_updateFunc(p, func); } @@ -4846,7 +4844,9 @@ static BcStatus bc_parse_expr_empty_ok(BcParse *p, uint8_t flags, BcParseNext ne { if (BC_PARSE_LEAF(prev, rprn)) return bc_error_bad_expression(); - bc_parse_number(p, &prev, &nexprs); + bc_parse_number(p); + nexprs++; + prev = BC_INST_NUM; paren_expr = get_token = true; rprn = bin_last = false; @@ -5111,7 +5111,8 @@ static BC_STATUS zdc_parse_token(BcParse *p, BcLexType t, uint8_t flags) if (p->l.t.t != BC_LEX_NUMBER) RETURN_STATUS(bc_error_bad_token()); } - bc_parse_number(p, &prev, &p->nbraces); + bc_parse_number(p); + prev = BC_INST_NUM; if (t == BC_LEX_NEG) bc_parse_push(p, BC_INST_NEG); get_token = true; break; @@ -5159,8 +5160,6 @@ static BC_STATUS zdc_parse_expr(BcParse *p, uint8_t flags) BcInst inst; BcLexType t; - if (flags & BC_PARSE_NOCALL) p->nbraces = G.prog.results.len; - for (t = p->l.t.t; !s && t != BC_LEX_EOF; t = p->l.t.t) { inst = dc_parse_insts[t]; |