120 lines
2.7 KiB
C
120 lines
2.7 KiB
C
#include "ctx.h"
|
|
#include "node.h"
|
|
|
|
#include <blue/object/string.h>
|
|
#include <ivy/lang/lex.h>
|
|
#include <stdio.h>
|
|
|
|
struct class_parser_state {
|
|
struct parser_state s_base;
|
|
enum {
|
|
AREA_IDENT,
|
|
AREA_BODY,
|
|
} s_current_area;
|
|
int s_prev_token;
|
|
};
|
|
|
|
static enum ivy_status parse_ident(struct ivy_parser *ctx, struct ivy_token *tok)
|
|
{
|
|
struct class_parser_state *state
|
|
= parser_get_state(ctx, struct class_parser_state);
|
|
|
|
struct ivy_ast_class_node *node
|
|
= (struct ivy_ast_class_node *)(state->s_base.s_node);
|
|
|
|
if (state->s_current_area != AREA_IDENT) {
|
|
return IVY_ERR_BAD_SYNTAX;
|
|
}
|
|
|
|
if (state->s_prev_token == IVY_TOK_IDENT) {
|
|
return IVY_ERR_BAD_SYNTAX;
|
|
}
|
|
|
|
node->n_ident = tok;
|
|
state->s_prev_token = IVY_TOK_IDENT;
|
|
return IVY_OK;
|
|
}
|
|
|
|
static enum ivy_status parse_end(struct ivy_parser *ctx, struct ivy_token *tok)
|
|
{
|
|
struct class_parser_state *state
|
|
= parser_get_state(ctx, struct class_parser_state);
|
|
|
|
struct ivy_ast_class_node *node
|
|
= (struct ivy_ast_class_node *)(state->s_base.s_node);
|
|
|
|
if (state->s_current_area == AREA_IDENT) {
|
|
return IVY_ERR_BAD_SYNTAX;
|
|
}
|
|
|
|
parser_pop_state(ctx, STATE_ADD_NODE_TO_PARENT);
|
|
return IVY_OK;
|
|
}
|
|
|
|
static enum ivy_status parse_linefeed(struct ivy_parser *ctx, struct ivy_token *tok)
|
|
{
|
|
struct class_parser_state *state
|
|
= parser_get_state(ctx, struct class_parser_state);
|
|
|
|
if (state->s_current_area != AREA_IDENT) {
|
|
return IVY_OK;
|
|
}
|
|
|
|
if (state->s_prev_token != IVY_TOK_IDENT) {
|
|
return IVY_ERR_BAD_SYNTAX;
|
|
}
|
|
|
|
state->s_prev_token = IVY_TOK_LINEFEED;
|
|
state->s_current_area = AREA_BODY;
|
|
return IVY_OK;
|
|
}
|
|
|
|
static enum ivy_status add_child(
|
|
struct ivy_ast_node *parent, struct ivy_ast_node *child)
|
|
{
|
|
struct ivy_ast_class_node *c = (struct ivy_ast_class_node *)parent;
|
|
|
|
switch (child->n_type) {
|
|
case IVY_AST_MSGH:
|
|
b_queue_push_back(&c->n_msg_handlers, &child->n_entry);
|
|
break;
|
|
case IVY_AST_PROPERTY:
|
|
b_queue_push_back(&c->n_properties, &child->n_entry);
|
|
break;
|
|
default:
|
|
return IVY_ERR_NOT_SUPPORTED;
|
|
}
|
|
|
|
return IVY_OK;
|
|
}
|
|
|
|
static void print(struct ivy_ast_node *node)
|
|
{
|
|
struct ivy_ast_class_node *c = (struct ivy_ast_class_node *)node;
|
|
|
|
printf("%s(%s)\n", ivy_ast_node_type_to_string(node->n_type),
|
|
c->n_ident->t_str);
|
|
}
|
|
|
|
static void init_state(struct parser_state *sp)
|
|
{
|
|
struct class_parser_state *state = (struct class_parser_state *)sp;
|
|
state->s_prev_token = IVY_KW_CLASS;
|
|
state->s_current_area = AREA_IDENT;
|
|
}
|
|
|
|
struct ast_node_type class_node_ops = {
|
|
.n_add_child = add_child,
|
|
.n_print = print,
|
|
.n_init_state = init_state,
|
|
.n_state_size = sizeof(struct class_parser_state),
|
|
.n_node_size = sizeof(struct ivy_ast_class_node),
|
|
.n_token_parsers = {
|
|
[IVY_TOK_IDENT] = parse_ident,
|
|
[IVY_TOK_LINEFEED] = parse_linefeed,
|
|
},
|
|
.n_keyword_parsers = {
|
|
[IVY_KW_END] = parse_end,
|
|
},
|
|
};
|