lorenzo/lc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fixed array subscript and member access parsing.

Browse source
This commit is contained in:
Lorenzo Torres 2025-12-05 19:32:07 +01:00
parent c8e88a6a98
commit 8b4b81e90b
1 changed files with 45 additions and 25 deletions
Download patch file Download diff file Expand all files Collapse all files

36
parser.c
View file

@ -213,6 +213,20 @@ static ast_node *parse_factor(parser *p)
node->expr.flt = parse_float(t->lexeme, t->lexeme_len); node->expr.flt = parse_float(t->lexeme, t->lexeme_len);
return node; return node;
} }
else if (match(p, TOKEN_TRUE)) {
ast_node *node = arena_alloc(p->allocator, sizeof(ast_node));
node->type = NODE_BOOL;
node->position = p->previous->position;
node->expr.boolean = 1;
return node;
}
else if (match(p, TOKEN_FALSE)) {
ast_node *node = arena_alloc(p->allocator, sizeof(ast_node));
node->type = NODE_BOOL;
node->position = p->previous->position;
node->expr.boolean = 0;
return node;
}
else if (match_peek(p, TOKEN_IDENTIFIER)) else if (match_peek(p, TOKEN_IDENTIFIER))
{ {
/* If a `(` is found after an identifier, it should be a call. */ /* If a `(` is found after an identifier, it should be a call. */
@ -396,8 +410,8 @@ ast_node *parse_expression(parser *p)
* If after parsing an expression a `[` character * If after parsing an expression a `[` character
* is found, it should be an array subscript expression. * is found, it should be an array subscript expression.
*/ */
if (match(p, TOKEN_LSQUARE)) if (match_peek(p, TOKEN_LSQUARE)) {
{ while (match(p, TOKEN_LSQUARE)) {
ast_node *index = parse_expression(p); ast_node *index = parse_expression(p);
ast_node *node = arena_alloc(p->allocator, sizeof(ast_node)); ast_node *node = arena_alloc(p->allocator, sizeof(ast_node));
node->type = NODE_ARRAY_SUBSCRIPT; node->type = NODE_ARRAY_SUBSCRIPT;
@ -410,17 +424,21 @@ ast_node *parse_expression(parser *p)
error(p, "expected `]`."); error(p, "expected `]`.");
return NULL; return NULL;
} }
return node;
left = node;
}
return left;
} }
/* /*
* If after parsing an expression a `.` character * If after parsing an expression a `.` character
* is found, it should be a member access expression. * is found, it should be a member access expression.
*/ */
if (match(p, TOKEN_DOT)) if (match_peek(p, TOKEN_DOT))
{
if (!match_peek(p, TOKEN_IDENTIFIER))
{ {
while (match(p, TOKEN_DOT)) {
if (!match_peek(p, TOKEN_IDENTIFIER)) {
error(p, "expected identifier after member access."); error(p, "expected identifier after member access.");
return NULL; return NULL;
} }
@ -428,9 +446,11 @@ ast_node *parse_expression(parser *p)
node->type = NODE_ACCESS; node->type = NODE_ACCESS;
node->position = p->previous->position; node->position = p->previous->position;
node->expr.access.expr = left; node->expr.access.expr = left;
node->expr.access.member = parse_expression(p); node->expr.access.member = parse_factor(p);
return node; left = node;
}
return left;
} }
/* /*