Make a Lisp
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

82 lines
1.3 KiB

#include <csignal> // std::signal
#include <cstdlib> // std::exit
2 years ago
#include <iostream> // std::cin
#include <string> // std::getline
#include <string_view>
#include "ruc/format/color.h"
2 years ago
#include "ast.h"
#include "lexer.h"
#include "printer.h"
#include "reader.h"
#define PRETTY_PRINT 0
2 years ago
#if 1
auto read(std::string_view data) -> blaze::ASTNode*
{
blaze::Lexer lexer(data);
lexer.tokenize();
// lexer.dump();
blaze::Reader reader(std::move(lexer.tokens()));
reader.read();
// reader.dump();
return reader.node();
}
auto eval(blaze::ASTNode* node) -> blaze::ASTNode*
{
return node;
}
auto print(blaze::ASTNode* node) -> void
{
blaze::Printer printer(node);
printer.dump();
}
auto rep(std::string_view data) -> void
{
print(eval(read(data)));
}
static auto cleanup(int signal) -> void
{
print("\033[0m");
std::exit(signal);
}
2 years ago
auto main() -> int
{
// Signal callbacks
std::signal(SIGINT, cleanup);
std::signal(SIGTERM, cleanup);
2 years ago
while (true) {
#if PRETTY_PRINT
print(fg(ruc::format::TerminalColor::Blue), "user>");
print(" ");
print("\033[1m");
#else
print("user> ");
#endif
2 years ago
std::string line;
std::getline(std::cin, line);
#if PRETTY_PRINT
print("\033[0m");
#endif
2 years ago
// Exit with Ctrl-D
if (std::cin.eof() || std::cin.fail()) {
break;
}
rep(line);
}
return 0;
}
#endif