Interpreters/abcs
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Add negate operation.

Browse Source
This commit is contained in:
Danila Fedorin 2018-08-14 19:05:14 -07:00
parent bd5aed1615
commit 7825489b35
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/main.cpp
View File

@ -152,7 +152,7 @@ FUNCTION(to_string_num) {
number* num = (number*) libab_unwrap_param(params, 0);
mpfr_exp_t exp;
char* str = mpfr_get_str(NULL, &exp, 10, requested_precision, num->value, MPFR_RNDN);
std::string output_string = std::string(str).insert(1, 1, '.');
std::string output_string = std::string(str).insert((mpfr_sgn(num->value) < 0) ? 2 : 1, 1, '.');
if(exp != 1) {
output_string += "e";
output_string += std::to_string(exp - 1);
@ -189,6 +189,16 @@ OPERATOR_FUNCTION(minus, -)
OPERATOR_FUNCTION(times, *)
OPERATOR_FUNCTION(divide, /)
FUNCTION(negate) {
number* value = (number*) libab_unwrap_param(params, 0);
mpfr_t negative;
mpfr_init2(negative, PRECISION);
mpfr_neg(negative, value->value, MPFR_RNDN);
abacus_ref to_return = create_value<number>(ab, new number(std::move(negative)));
libab_ref_copy(to_return, into);
return LIBAB_SUCCESS;
}
FUNCTION(quit) {
close_requested = true;
libab_get_unit_value(ab, into);
@ -290,6 +300,7 @@ int main() {
ab.add_function("minus", function_minus, "(num, num)->num");
ab.add_function("times", function_times, "(num, num)->num");
ab.add_function("divide", function_divide, "(num, num)->num");
ab.add_function("negate", function_negate, "(num)->num");
while(!close_requested) {
std::cout << "> ";