From 65e8f4966d4f5a3984380f0252d52aeccf2b1124 Mon Sep 17 00:00:00 2001
From: Louis <louis@rubet.fr>
Date: Thu, 23 Jul 2015 13:23:05 +0200
Subject: [PATCH] Removed rpn-algebra.h to get closer from RPL category names

---
 src/rpn-algebra.h | 192 ----------------------------------------------
 1 file changed, 192 deletions(-)
 delete mode 100644 src/rpn-algebra.h

diff --git a/src/rpn-algebra.h b/src/rpn-algebra.h
deleted file mode 100644
index cc8f126..0000000
--- a/src/rpn-algebra.h
+++ /dev/null
@@ -1,192 +0,0 @@
-void plus()
-{
-    MIN_ARGUMENTS(2);
-
-    // float
-    if (IS_ARG_TYPE(0, cmd_number))
-    {
-        ARG_MUST_BE_OF_TYPE(1, cmd_number);
-        //TODO really too slow
-        putf(getf() + getf());
-    }
-    // binary
-    else if (IS_ARG_TYPE(0, cmd_binary))
-    {
-        ARG_MUST_BE_OF_TYPE(1, cmd_binary);
-        //TODO really too slow
-        putb(getb() + getb());
-    }
-    //TODO
-#if 0
-    // string
-    else if (IS_ARG_TYPE(0, cmd_string))
-    {
-        ARG_MUST_BE_OF_TYPE(1, cmd_string);
-        string& second = *((ostring*)_stack->back())->_value;
-        _stack->pop_back();
-        *((ostring*)_stack->back())->_value += second;
-    }
-#endif
-    else
-        ERR_CONTEXT(ret_bad_operand_type);
-}
-
-void minus()
-{
-    MIN_ARGUMENTS(2);
-
-    // float
-    if (IS_ARG_TYPE(0, cmd_number))
-    {
-        ARG_MUST_BE_OF_TYPE(1, cmd_number);
-        //TODO really too slow
-        floating_t first = getf();
-        putf(getf() - first);
-    }
-    // binary
-    else if (IS_ARG_TYPE(0, cmd_binary))
-    {
-        ARG_MUST_BE_OF_TYPE(1, cmd_binary);
-        //TODO really too slow
-        integer_t first = getb();
-        putb(getb() - first);
-    }
-    else
-        ERR_CONTEXT(ret_bad_operand_type);
-}
-
-void mul()
-{
-    // float
-    if (IS_ARG_TYPE(0, cmd_number))
-    {
-        ARG_MUST_BE_OF_TYPE(1, cmd_number);
-        //TODO really too slow
-        putf(getf() * getf());
-    }
-    // binary
-    else if (IS_ARG_TYPE(0, cmd_binary))
-    {
-        ARG_MUST_BE_OF_TYPE(1, cmd_binary);
-        //TODO really too slow
-        putb(getb() * getb());
-    }
-    else
-        ERR_CONTEXT(ret_bad_operand_type);
-}
-
-void div()
-{
-    MIN_ARGUMENTS(2);
-
-    // float
-    if (IS_ARG_TYPE(0, cmd_number))
-    {
-        ARG_MUST_BE_OF_TYPE(1, cmd_number);
-        //TODO really too slow
-
-        floating_t first = getf();
-        // arithmetic faults are managed by c++
-        putf(getf() / first);
-    }
-    // binary
-    else if (IS_ARG_TYPE(0, cmd_binary))
-    {
-        ARG_MUST_BE_OF_TYPE(1, cmd_binary);
-        if (((binary*)_stack->get_obj(0))->_value == 0)
-        {
-            ERR_CONTEXT(ret_div_by_zero);
-        }
-        else
-        {
-            //TODO really too slow
-            integer_t first = getb();
-            putb(getb() / first);
-        }
-    }
-    else
-        ERR_CONTEXT(ret_bad_operand_type);
-}
-
-void neg()
-{
-    MIN_ARGUMENTS(1);
-
-    // float
-    if (IS_ARG_TYPE(0, cmd_number))
-        putf(-getf());
-    // binary
-    else if (IS_ARG_TYPE(0, cmd_binary))
-        putb(-getb());
-    else
-        ERR_CONTEXT(ret_bad_operand_type);
-}
-
-void inv()
-{
-    MIN_ARGUMENTS(1);
-    ARG_MUST_BE_OF_TYPE(0, cmd_number);
-
-    // arithmetic faults are managed by c++
-    putf(1 / getf());
-}
-
-void purcent()
-{
-    MIN_ARGUMENTS(2);
-    ARG_MUST_BE_OF_TYPE(0, cmd_number);
-    ARG_MUST_BE_OF_TYPE(1, cmd_number);
-
-    putf((getf() * getf()) / 100);
-}
-
-void purcentCH()
-{
-    MIN_ARGUMENTS(2);
-    ARG_MUST_BE_OF_TYPE(0, cmd_number);
-    ARG_MUST_BE_OF_TYPE(1, cmd_number);
-
-    // arithmetic faults are managed by c++
-    floating_t first = getf();
-    putf((100 * first) / getf());
-}
-
-void power()
-{
-    MIN_ARGUMENTS(2);
-    ARG_MUST_BE_OF_TYPE(0, cmd_number);
-    ARG_MUST_BE_OF_TYPE(1, cmd_number);
-
-    // arithmetic faults are managed by c++
-    floating_t first = getf();
-    putf(powl(getf(), first));
-}
-
-void squareroot()
-{
-    MIN_ARGUMENTS(1);
-    ARG_MUST_BE_OF_TYPE(0, cmd_number);
-
-    // arithmetic faults are managed by c++
-    putf(sqrtl(getf()));
-}
-
-void square()
-{
-    MIN_ARGUMENTS(1);
-    ARG_MUST_BE_OF_TYPE(0, cmd_number);
-
-    floating_t first = getf();
-    putf(first * first);
-}
-
-void modulo()
-{
-    MIN_ARGUMENTS(2);
-    ARG_MUST_BE_OF_TYPE(0, cmd_number);
-    ARG_MUST_BE_OF_TYPE(1, cmd_number);
-
-    // arithmetic faults are managed by c++
-    floating_t first = getf();
-    putf(fmodl(getf(), first));
-}