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

[Daniel Espinosa Ortiz <despinosa src gnome org>]

commit af929a3a0a1d439dd57f85735bb72db218ba062d
Author: Daniel Espinosa Ortiz <esodan gmail com>
Date:   Fri Jan 4 16:29:50 2019 -0600

    gcalc: implemented atan() function

 gcalc/gcalc-function-atan.vala | 54 ++++++++++++++++++++++++++++++++++++++++++
 gcalc/gcalc-function-sqrt.vala |  2 +-
 gcalc/meson.build              |  1 +
 tests/gcalc-solving-basic.vala | 16 ++++++++++++-
 4 files changed, 71 insertions(+), 2 deletions(-)
---
diff --git a/gcalc/gcalc-function-atan.vala b/gcalc/gcalc-function-atan.vala
new file mode 100644
index 00000000..f5e212d1
--- /dev/null
+++ b/gcalc/gcalc-function-atan.vala
@@ -0,0 +1,54 @@
+/* gcalc-function-atan.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.GFunctionAtan : GFunction {
+
+  public GFunctionAtan () {
+    base ("atan", 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.atan (p1);
+    var nc = new GConstant.internal_complex (res);
+    return nc as Expression;
+  }
+}
+
diff --git a/gcalc/gcalc-function-sqrt.vala b/gcalc/gcalc-function-sqrt.vala
index 403b95b2..f53dab28 100644
--- a/gcalc/gcalc-function-sqrt.vala
+++ b/gcalc/gcalc-function-sqrt.vala
@@ -1,6 +1,6 @@
 /* gcalc-function-sqrt.vala
  *
- * Copyright (C) 2018  Daniel Espinosa <esodan gmail com>
+ * 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
diff --git a/gcalc/meson.build b/gcalc/meson.build
index 47a1ccaa..14380cad 100644
--- a/gcalc/meson.build
+++ b/gcalc/meson.build
@@ -48,6 +48,7 @@ sources = files([
        'gcalc-function.vala',
        'gcalc-function-acos.vala',
        'gcalc-function-asin.vala',
+       'gcalc-function-atan.vala',
        'gcalc-function-cos.vala',
        'gcalc-function-exp.vala',
        'gcalc-function-log.vala',
diff --git a/tests/gcalc-solving-basic.vala b/tests/gcalc-solving-basic.vala
index 8526a3be..1542d18d 100644
--- a/tests/gcalc-solving-basic.vala
+++ b/tests/gcalc-solving-basic.vala
@@ -568,7 +568,21 @@ class Tests {
     ()=>{
       try {
         var c1 = new GConstant.@double (1.0);
-        var f = new GFunctionCos ();
+        var f = new GFunctionAcos ();
+        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);
+      }
+    });
+    Test.add_func ("/gcalc/solve/function/atan",
+    ()=>{
+      try {
+        var c1 = new GConstant.@double (0.0);
+        var f = new GFunctionAtan ();
         f.parameters.add (c1);
         var c2 = f.call () as Constant;
         assert (c2 != null);