ivy/lang/ast/expr/expr.c

#include "expr.h"

#include "../node.h"

void expr_add_terminator(struct expr_parser_state *state, unsigned short tok)
{
	if (state->s_nr_terminators < EXPR_TERMINATOR_MAX) {
		state->s_terminators[state->s_nr_terminators++] = tok;
	}
}

void expr_copy_terminators(
	const struct expr_parser_state *src, struct expr_parser_state *dest)
{
	dest->s_nr_terminators = src->s_nr_terminators;

	for (unsigned int i = 0; i < src->s_nr_terminators; i++) {
		dest->s_terminators[i] = src->s_terminators[i];
	}
}

bool expr_terminates_at_token(struct expr_parser_state *state, unsigned short tok)
{
	for (unsigned int i = 0; i < EXPR_TERMINATOR_MAX; i++) {
		if (state->s_terminators[i] == tok) {
			return true;
		}
	}

	return false;
}

static enum ivy_status add_child(
	struct parser_state *parent, struct ivy_ast_node *child)
{
	struct expr_parser_state *state = (struct expr_parser_state *)parent;
	switch (state->s_type) {
	case EXPR_TYPE_STMT:
		return IVY_ERR_NOT_SUPPORTED;
	case EXPR_TYPE_ARITH:
		return arith_add_child(parent, child);
	default:
		return IVY_ERR_NOT_SUPPORTED;
	}
}

struct ast_node_type expr_node_ops = {
	.n_add_child = add_child,
	.n_state_size = sizeof(struct expr_parser_state),
        .n_node_size = sizeof(struct ivy_ast_expr_node),
        .n_token_parsers = {
		TOK_PARSER(IDENT, arith_parse_ident),
		TOK_PARSER(INT, arith_parse_operand),
		TOK_PARSER(DOUBLE, arith_parse_operand),
		TOK_PARSER(ATOM, arith_parse_operand),
		TOK_PARSER(STRING, arith_parse_operand),
		TOK_PARSER(STR_START, arith_parse_fstring),
		TOK_PARSER(SYMBOL, arith_parse_operator),
		TOK_PARSER(LABEL, arith_parse_label),
	},
	.n_symbol_parsers = {
		SYM_PARSER(LEFT_PAREN, arith_parse_left_paren),
		SYM_PARSER(RIGHT_PAREN, arith_parse_right_paren),
		SYM_PARSER(LEFT_BRACE, arith_parse_left_brace),
		SYM_PARSER(RIGHT_BRACE, arith_parse_right_brace),
		SYM_PARSER(LEFT_BRACKET, arith_parse_left_bracket),
		SYM_PARSER(RIGHT_BRACKET, arith_parse_right_bracket),
		SYM_PARSER(SEMICOLON, arith_parse_semicolon),
		SYM_PARSER(UNDERSCORE, arith_parse_operand),
		SYM_PARSER(CARET, arith_parse_caret),
		/* treat colons as empty labels */
		SYM_PARSER(COLON, arith_parse_label),
		SYM_PARSER(COMMA, arith_parse_comma),
		SYM_PARSER(DOT, arith_parse_dot),
		SYM_PARSER(BANG, arith_parse_bang),
		SYM_PARSER(EQUAL_RIGHT_ANGLE, arith_parse_equal_right_angle),
	},
	.n_keyword_parsers = {
		/* statement keywords */
		KW_PARSER(FOR, stmt_parse_for),
		KW_PARSER(WHILE, stmt_parse_while),
		KW_PARSER(BREAK, stmt_parse_break),
		KW_PARSER(CONTINUE, stmt_parse_continue),
		KW_PARSER(TRY, stmt_parse_try),
		KW_PARSER(MATCH, stmt_parse_match),
		KW_PARSER(IF, stmt_parse_if),
		KW_PARSER(THEN, stmt_parse_end),
		KW_PARSER(ELSE, stmt_parse_end),
		KW_PARSER(ELIF, stmt_parse_end),
		KW_PARSER(CATCH, stmt_parse_end),
		KW_PARSER(FINALLY, stmt_parse_end),
		KW_PARSER(END, stmt_parse_end),

		/* keyword constants */
		KW_PARSER(TRUE, arith_parse_operand),
		KW_PARSER(FALSE, arith_parse_operand),
		KW_PARSER(NULL, arith_parse_operand),

		/* operator/block keywords */
		KW_PARSER(IN, arith_parse_in),
		KW_PARSER(IS, arith_parse_operator),
		KW_PARSER(DO, arith_parse_do),
	}
};