ivy/frontend/cmd/repl.c

#include "../debug.h"
#include "../line-ed/line-ed.h"
#include "cmd.h"

#include <blue/cmd.h>
#include <blue/term.h>
#include <ivy/lang/ast.h>
#include <ivy/lang/lex.h>
#include <stdbool.h>

enum {
	OPT_LEX_ONLY = 0x1000u,
};

static void skip_line(struct ivy_lexer *lex)
{
	while (ivy_lexer_tokens_available(lex)) {
		struct ivy_token *tok = ivy_lexer_read(lex);
		bool line_end = (tok->t_type == IVY_TOK_LINEFEED);

		ivy_token_destroy(tok);

		if (line_end) {
			break;
		}
	}
}

int repl(const b_command *cmd, const b_arglist *args, const b_array *_)
{
	bool lex_only
		= b_arglist_get_count(args, OPT_LEX_ONLY, B_COMMAND_INVALID_ID) > 0;

	struct line_ed *ed = line_ed_create();
	line_ed_set_flags(ed, LINE_ED_REMOVE_CONTINUATIONS);

	struct ivy_lexer *lex;
	enum ivy_status status = ivy_lexer_create(&lex);

	if (status != IVY_OK) {
		line_ed_destroy(ed);
		return -1;
	}

	ivy_lexer_set_source(lex, &ed->l_line_source);

	struct ivy_parser *parser;
	status = ivy_parser_create(&parser);

	if (status != IVY_OK) {
		ivy_lexer_destroy(lex);
		line_ed_destroy(ed);
		return -1;
	}

	while (true) {
		struct ivy_token *tok = ivy_lexer_read(lex);
		status = ivy_lexer_get_status(lex);
		if (status == IVY_ERR_EOF) {
			break;
		}

		if (status != IVY_OK) {
			b_err("lex error (%s)",
			      ivy_status_to_string(ivy_lexer_get_status(lex)));
			continue;
		}

		print_lex_token(tok);

		if (lex_only) {
			ivy_token_destroy(tok);
			continue;
		}

		status = ivy_parser_push_token(parser, tok);

		if (status != IVY_OK) {
			b_err("parse error (%s)", ivy_status_to_string(status));
			ivy_token_destroy(tok);
			skip_line(lex);
			continue;
		}

		if (ivy_lexer_tokens_available(lex)) {
			continue;
		}

		struct ivy_ast_node *root = ivy_parser_root_node(parser);
		ivy_ast_node_print(root);
	}

	ivy_parser_destroy(parser);
	ivy_lexer_destroy(lex);
	line_ed_destroy(ed);
	return 0;
}

B_COMMAND(CMD_REPL, CMD_ROOT)
{
	B_COMMAND_NAME("shell");
	B_COMMAND_SHORT_NAME('S');
	B_COMMAND_DESC("start an interactive Ivy shell.");
	B_COMMAND_HELP_OPTION();
	B_COMMAND_FUNCTION(repl);

	B_COMMAND_OPTION(OPT_LEX_ONLY)
	{
		B_OPTION_LONG_NAME("lex-only");
		B_OPTION_SHORT_NAME('L');
		B_OPTION_DESC(
			"print the lexical tokens generated by the user "
			"input.");
	}
}