[gnome-calculator/60-split-out-a-backend-library] gcalc: implemented tanh() function

[Daniel Espinosa Ortiz <despinosa src gnome org>]

commit 5c1a23592b042d59e7ef6234333eaf4383c7646a
Author: Daniel Espinosa Ortiz <esodan gmail com>
Date:   Fri Jan 4 16:38:04 2019 -0600

    gcalc: implemented tanh() function

 gcalc/gcalc-function-tanh.vala | 54 ++++++++++++++++++++++++++++++++++++++++++
 gcalc/meson.build              |  1 +
 tests/gcalc-solving-basic.vala | 14 +++++++++++
 3 files changed, 69 insertions(+)
---
diff --git a/gcalc/gcalc-function-tanh.vala b/gcalc/gcalc-function-tanh.vala
new file mode 100644
index 00000000..e93a52f1
--- /dev/null
+++ b/gcalc/gcalc-function-tanh.vala
@@ -0,0 +1,54 @@
+/* gcalc-function-tanh.vala
+ *
+ * Copyright (C) 2019 Daniel Espinosa <esodan gmail com>
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+ *
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+ * Lesser General Public License for more details.
+
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, see <http://www.gnu.org/licenses/>.
+ *
+ * Authors:
+ *      Daniel Espinosa <esodan gmail com>
+ */
+public class GCalc.GFunctionTanh : GFunction {
+
+  public GFunctionTanh () {
+    base ("tanh", 1);
+    param_types.add (new GConstant ());
+  }
+
+  public override Expression call () throws GLib.Error
+  {
+    verify_params ();
+    GConstant c = null;
+    var exp = parameters.get_item (0) as Expression;
+    if (exp == null) {
+      throw new FunctionError.INVOCATION_ERROR ("Invalid parameter type. Expected %s", 
typeof(Expression).name ());
+    }
+    var ev = exp.solve ();
+    if (ev is ErrorResult) {
+       throw new FunctionError.INVOCATION_ERROR ("Invalid expression: %s", ((ErrorResult) ev).to_string ());
+    }
+    if (ev is Result) {
+      c = ((Result) ev).expression as GConstant;
+    }
+    if (c == null) {
+       throw new FunctionError.INVOCATION_ERROR ("Invalid expression in result");
+    }
+    var p1 = MPC.Complex (1000);
+    p1.set (c.get_complex ());
+    var res = MPC.Complex (1000);
+    res.tanh (p1);
+    var nc = new GConstant.internal_complex (res);
+    return nc as Expression;
+  }
+}
+
diff --git a/gcalc/meson.build b/gcalc/meson.build
index f05de3fe..b4ceb374 100644
--- a/gcalc/meson.build
+++ b/gcalc/meson.build
@@ -57,6 +57,7 @@ sources = files([
        'gcalc-function-sinh.vala',
        'gcalc-function-sqrt.vala',
        'gcalc-function-tan.vala',
+       'gcalc-function-tanh.vala',
        'gcalc-error-result.vala',
        'gcalc-gexpression.vala',
        'gcalc-gassign.vala',
diff --git a/tests/gcalc-solving-basic.vala b/tests/gcalc-solving-basic.vala
index 3d780482..81b37103 100644
--- a/tests/gcalc-solving-basic.vala
+++ b/tests/gcalc-solving-basic.vala
@@ -620,6 +620,20 @@ class Tests {
         warning ("Error: %s", e.message);
       }
     });
+    Test.add_func ("/gcalc/solve/function/tanh",
+    ()=>{
+      try {
+        var c1 = new GConstant.@double (0.0);
+        var f = new GFunctionTanh ();
+        f.parameters.add (c1);
+        var c2 = f.call () as Constant;
+        assert (c2 != null);
+        message (c2.to_string ());
+        assert (c2.real () == 0.0);
+      } catch (GLib.Error e) {
+        warning ("Error: %s", e.message);
+      }
+    });
     return Test.run ();
   }
 }