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.

112 lines
2.2 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/argparser.h"
#include "ruc/format/color.h"
2 years ago
#include "ast.h"
#include "error.h"
#include "forward.h"
2 years ago
#include "lexer.h"
#include "printer.h"
#include "reader.h"
#include "settings.h"
#if 0
namespace blaze {
auto read(std::string_view input) -> ValuePtr
2 years ago
{
Lexer lexer(input);
2 years ago
lexer.tokenize();
if (Settings::the().get("dump-lexer") == "1") {
lexer.dump();
}
Reader reader(std::move(lexer.tokens()));
2 years ago
reader.read();
if (Settings::the().get("dump-reader") == "1") {
reader.dump();
}
2 years ago
return reader.node();
}
auto eval(ValuePtr ast, EnvironmentPtr) -> ValuePtr
2 years ago
{
return ast;
2 years ago
}
} // namespace blaze
auto print(blaze::ValuePtr exp) -> std::string
2 years ago
{
blaze::Printer printer;
return printer.print(exp);
2 years ago
}
auto rep(std::string_view input) -> void
2 years ago
{
blaze::Error::the().clearErrors();
blaze::Error::the().setInput(input);
print("{}\n", print(blaze::eval(blaze::read(input), nullptr)).c_str());
2 years ago
}
static auto cleanup(int signal) -> void
{
print("\033[0m");
std::exit(signal);
}
auto main(int argc, char* argv[]) -> int
2 years ago
{
bool dump_lexer = false;
bool dump_reader = false;
bool pretty_print = false;
// CLI arguments
ruc::ArgParser arg_parser;
arg_parser.addOption(dump_lexer, 'l', "dump-lexer", nullptr, nullptr);
arg_parser.addOption(dump_reader, 'r', "dump-reader", nullptr, nullptr);
arg_parser.addOption(pretty_print, 'c', "color", nullptr, nullptr);
arg_parser.parse(argc, argv);
// Set settings
blaze::Settings::the().set("dump-lexer", dump_lexer ? "1" : "0");
blaze::Settings::the().set("dump-reader", dump_reader ? "1" : "0");
blaze::Settings::the().set("pretty-print", pretty_print ? "1" : "0");
// Signal callbacks
std::signal(SIGINT, cleanup);
std::signal(SIGTERM, cleanup);
2 years ago
while (true) {
if (!pretty_print) {
print("user> ");
}
else {
print(fg(ruc::format::TerminalColor::Blue), "user>");
print(" \033[1m");
}
2 years ago
std::string line;
std::getline(std::cin, line);
if (pretty_print) {
print("\033[0m");
}
2 years ago
// Exit with Ctrl-D
if (std::cin.eof() || std::cin.fail()) {
break;
}
rep(line);
}
return 0;
}
#endif