diff options
Diffstat (limited to '05/parse.b')
| -rw-r--r-- | 05/parse.b | 79 |
1 files changed, 79 insertions, 0 deletions
@@ -348,6 +348,7 @@ function parse_statement if c == KEYWORD_CASE goto stmt_case if c == KEYWORD_STATIC goto stmt_static_declaration if c == KEYWORD_EXTERN goto stmt_extern_declaration + if c == KEYWORD_WHILE goto stmt_while b = token_is_type(token) if b != 0 goto stmt_local_declaration @@ -366,6 +367,35 @@ function parse_statement ; @NONSTANDARD string Local extern declarations are not supported. byte 0 + :stmt_while + write_statement_header(out, STATEMENT_WHILE, token) + token += 16 + if *1token != SYMBOL_LPAREN goto while_no_lparen + p = token_matching_rparen(token) + token += 16 + out += 8 + *8out = expressions_end + expressions_end = parse_expression(token, p, expressions_end) + token = p + 16 + out += 8 + + ; put the while statement 1 block_depth deeper + p = statement_datas + p += block_depth < 3 + block_depth += 1 + if block_depth >= BLOCK_DEPTH_LIMIT goto too_much_nesting + *8out = *8p + out += 24 + c = *8p + parse_statement(&token, p) ; the body + block_depth -= 1 + + goto parse_statement_ret + :while_no_lparen + token_error(token, .str_while_no_lparen) + :str_while_no_lparen + string No ( after while. + byte 0 :stmt_local_declaration local l_base_type local l_prefix @@ -558,6 +588,8 @@ function parse_statement string No semicolon after goto. byte 0 :stmt_block + local Z + Z = out write_statement_header(out, STATEMENT_BLOCK, token) out += 8 @@ -607,6 +639,9 @@ function parse_statement byte 0 :stmt_empty ; empty statement, e.g. while(something)-> ; <- + ; we do have to output a statement here because otherwise that kind of thing would be screwed up + write_statement_header(out, STATEMENT_NOOP, token) + out += 40 token += 16 ; skip semicolon goto parse_statement_ret @@ -645,6 +680,7 @@ function print_statement_with_depth dat4 = statement + 32 dat4 = *8dat4 + if c == STATEMENT_NOOP goto print_stmt_noop if c == STATEMENT_BLOCK goto print_stmt_block if c == STATEMENT_CONTINUE goto print_stmt_continue if c == STATEMENT_BREAK goto print_stmt_break @@ -652,6 +688,7 @@ function print_statement_with_depth if c == STATEMENT_GOTO goto print_stmt_goto if c == STATEMENT_LABEL goto print_stmt_label if c == STATEMENT_CASE goto print_stmt_case + if c == STATEMENT_WHILE goto print_stmt_while if c == STATEMENT_LOCAL_DECLARATION goto print_stmt_local_decl die(.pristmtNI) @@ -666,6 +703,19 @@ function print_statement_with_depth puts(dat1) putcln(':) return + :print_stmt_noop + putcln(59) + return + :print_stmt_while + puts(.str_stmt_while) + putc(40) + print_expression(dat1) + putcln(41) + print_statement_with_depth(dat2, depth) + return + :str_stmt_while + string while ( + byte 0 :print_stmt_break puts(.str_stmt_break) return @@ -1105,6 +1155,35 @@ function token_skip_to_matching_rsquare string Unmatched [ byte 0 +; token should be pointing to (, this returns the corresponding ) +function token_matching_rparen + argument token + local token0 + local depth + token0 = token + depth = 0 + :matching_rparen_loop + if *1token == SYMBOL_LPAREN goto matching_rparen_incdepth + if *1token == SYMBOL_RPAREN goto matching_rparen_decdepth + if *1token == TOKEN_EOF goto matching_rparen_eof + :matching_rparen_next + token += 16 + goto matching_rparen_loop + :matching_rparen_incdepth + depth += 1 + goto matching_rparen_next + :matching_rparen_decdepth + depth -= 1 + if depth == 0 goto matching_rparen_ret + goto matching_rparen_next + :matching_rparen_ret + return token + + :matching_rparen_eof + token_error(token0, .str_matching_rparen_eof) + :str_matching_rparen_eof + string Unmatched ( + byte 0 ; *p_token should be on a ); this goes back to the corresponding ( ; THERE MUST ACTUALLY BE A MATCHING BRACKET, OTHERWISE THIS WILL DO BAD THINGS |