61 lines
1.3 KiB
C
61 lines
1.3 KiB
C
|
#include <blue/cmd.h>
|
||
|
|
#include "cmd.h"
|
||
|
|
#include <ivy/lang/lex.h>
|
||
|
|
#include <ivy/lang/internal.h>
|
||
|
|
#include <blue/term.h>
|
||
|
|
|
||
|
|
enum {
|
||
|
|
OPT_PRINT_SYMBOLS = 0x1000,
|
||
|
|
OPT_PRINT_KEYWORDS,
|
||
|
|
};
|
||
|
|
|
||
|
|
static int internal(const b_command *cmd, const b_arglist *args, const b_array *_)
|
||
|
|
{
|
||
|
|
struct ivy_lexer *lex;
|
||
|
|
enum ivy_status status = ivy_lexer_create(&lex);
|
||
|
|
|
||
|
|
if (status != IVY_OK) {
|
||
|
|
b_err("failed to initialise lexer (error %s)",
|
||
|
|
ivy_status_to_string(status));
|
||
|
|
return -1;
|
||
|
|
}
|
||
|
|
|
||
|
|
if (b_arglist_get_count(args, OPT_PRINT_SYMBOLS, B_COMMAND_INVALID_ID)) {
|
||
|
|
internal_lexer_print_symbol_tree(lex);
|
||
|
|
}
|
||
|
|
|
||
|
|
if (b_arglist_get_count(args, OPT_PRINT_KEYWORDS, B_COMMAND_INVALID_ID)) {
|
||
|
|
internal_lexer_print_keyword_dict(lex);
|
||
|
|
}
|
||
|
|
|
||
|
|
ivy_lexer_destroy(lex);
|
||
|
|
|
||
|
|
return 0;
|
||
|
|
}
|
||
|
|
|
||
|
|
B_COMMAND(CMD_INTERNAL, CMD_ROOT)
|
||
|
|
{
|
||
|
|
B_COMMAND_NAME("internal");
|
||
|
|
B_COMMAND_SHORT_NAME('X');
|
||
|
|
B_COMMAND_DESC("internal frontend debugging tools.");
|
||
|
|
B_COMMAND_FUNCTION(internal);
|
||
|
|
|
||
|
|
B_COMMAND_OPTION(OPT_PRINT_SYMBOLS)
|
||
|
|
{
|
||
|
|
B_OPTION_LONG_NAME("print-symbols");
|
||
|
|
B_OPTION_SHORT_NAME('s');
|
||
|
|
B_OPTION_DESC(
|
||
|
|
"print the symbol tree used by the language lexer.");
|
||
|
|
}
|
||
|
|
|
||
|
|
B_COMMAND_OPTION(OPT_PRINT_KEYWORDS)
|
||
|
|
{
|
||
|
|
B_OPTION_LONG_NAME("print-keywords");
|
||
|
|
B_OPTION_SHORT_NAME('k');
|
||
|
|
B_OPTION_DESC(
|
||
|
|
"print the keyword dictionary used by the language lexer.");
|
||
|
|
}
|
||
|
|
|
||
|
|
B_COMMAND_HELP_OPTION();
|
||
|
|
}
|