81 lines
2.1 KiB
C++
81 lines
2.1 KiB
C++
#include <iostream>
|
|
#include <map>
|
|
#include <mpfr.h>
|
|
#include <readline/readline.h>
|
|
#include <readline/history.h>
|
|
#include <fstream>
|
|
#include <sstream>
|
|
#include "types.hpp"
|
|
#include "ref.hpp"
|
|
#include "repl_functions.hpp"
|
|
#include "string_functions.hpp"
|
|
#include "abacus.hpp"
|
|
extern "C" {
|
|
#include "libabacus.h"
|
|
#include "table.h"
|
|
#include "value.h"
|
|
#include "util.h"
|
|
}
|
|
|
|
// == Global State (uh-oh)
|
|
bool close_requested = false;
|
|
long requested_precision = 3;
|
|
|
|
FUNCTION(quit) {
|
|
close_requested = true;
|
|
libab_get_unit_value(ab, into);
|
|
return LIBAB_SUCCESS;
|
|
}
|
|
|
|
FUNCTION(request_precision) {
|
|
number* value = (number*) libab_unwrap_param(params, 0);
|
|
requested_precision = std::min(PRECISION / 4, std::max(2, value->to_int()));
|
|
libab_get_unit_value(ab, into);
|
|
return LIBAB_SUCCESS;
|
|
}
|
|
|
|
void run_rc(abacus& ab) {
|
|
std::ifstream rcfile("./.abcsrc");
|
|
std::ostringstream str;
|
|
if(rcfile.good()) {
|
|
str << rcfile.rdbuf();
|
|
ab.run(str.str());
|
|
}
|
|
}
|
|
|
|
int main() {
|
|
abacus ab;
|
|
rl_bind_key('\t', rl_insert);
|
|
size_t index = 0;
|
|
|
|
ab.add_standard();
|
|
ab.add_function("quit", function_quit, "()->unit");
|
|
ab.add_function("request_precision", function_request_precision, "(num)->unit");
|
|
|
|
ab.add_function("print", function_print_string, "(str)->unit");
|
|
ab.add_function("to_string", function_to_string_num, "(num)->str");
|
|
ab.add_function("to_string", function_to_string_bool, "(bool)->str");
|
|
ab.add_function("to_string", function_to_string_unit, "(unit)->str");
|
|
|
|
run_rc(ab);
|
|
while(!close_requested) {
|
|
char* data = readline(" > ");
|
|
std::string buffer(data);
|
|
add_history(data);
|
|
free(data);
|
|
|
|
ref value = ab.run(buffer);
|
|
if(value == nullptr) {
|
|
std::cout << "Invalid expression." << std::endl;
|
|
} else {
|
|
std::string name = "r" + std::to_string(index);
|
|
std::string ans = "ans";
|
|
ab.add_variable(name, value);
|
|
ab.add_variable(ans, value);
|
|
index++;
|
|
|
|
std::cout << name << " = " << ab.to_string(value) << std::endl;
|
|
}
|
|
}
|
|
}
|