ivy/lang/internal.c

#include "lex.h"

#include <fx/ds/number.h>
#include <fx/term/print.h>
#include <ivy/lang/internal.h>
#include <ivy/lang/lex.h>
#include <stdio.h>

static void print_symbol_node(struct ivy_lexer_symbol_node *node, int depth)
{
	for (int i = 0; i < depth; i++) {
		fputs("    ", stdout);
	}

	fx_printf("[cyan]%c[reset]", node->s_char);

	if (node->s_def != NULL) {
		fx_printf(
			" ([magenta]%s[reset])",
			ivy_symbol_to_string(node->s_def->id));
	}

	fx_printf("\n");

	fx_queue_entry *entry = fx_queue_first(&node->s_children);
	while (entry) {
		struct ivy_lexer_symbol_node *child
			= fx_unbox(struct ivy_lexer_symbol_node, entry, s_entry);

		print_symbol_node(child, depth + 1);
		entry = fx_queue_next(entry);
	}
}

void internal_lexer_print_symbol_tree(struct ivy_lexer *lex)
{
	print_symbol_node(lex->lex_sym_tree, -1);
}

void internal_lexer_print_keyword_dict(struct ivy_lexer *lex)
{
	fx_iterator *it = fx_iterator_begin(lex->lex_keywords);
	fx_foreach_ptr(fx_dict_item, item, it)
	{
		const fx_string *kw_name = item->key;
		enum ivy_keyword kw_id = fx_number_get_int(item->value);

		fx_printf(
			"([magenta]%s[reset]) = [green]%s[reset]\n",
			ivy_keyword_to_string(kw_id), fx_string_ptr(kw_name));
	}
}