Piotr Caban : jscript: Added implementation of Math_atan.

[Alexandre Julliard]

Module: wine
Branch: master
Commit: 79151a2adfac6ee58a8a4047837a21e36bfa400c
URL:    http://source.winehq.org/git/wine.git/?a=commit;h=79151a2adfac6ee58a8a4047837a21e36bfa400c

Author: Piotr Caban <piotr.caban at gmail.com>
Date:   Mon May 25 22:05:21 2009 +0200

jscript: Added implementation of Math_atan.

---

 dlls/jscript/math.c       |   18 ++++++++++++++++--
 dlls/jscript/tests/api.js |   27 +++++++++++++++++++++++++++
 2 files changed, 43 insertions(+), 2 deletions(-)

diff --git a/dlls/jscript/math.c b/dlls/jscript/math.c
index f027441..f67a83d 100644
--- a/dlls/jscript/math.c
+++ b/dlls/jscript/math.c
@@ -202,8 +202,22 @@ static HRESULT Math_asin(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *
 static HRESULT Math_atan(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
         VARIANT *retv, jsexcept_t *ei, IServiceProvider *sp)
 {
-    FIXME("\n");
-    return E_NOTIMPL;
+    VARIANT v;
+    HRESULT hres;
+
+    TRACE("\n");
+
+    if(!arg_cnt(dp)) {
+        if(retv) num_set_nan(retv);
+        return S_OK;
+    }
+
+    hres = to_number(dispex->ctx, get_arg(dp, 0), ei, &v);
+    if(FAILED(hres))
+        return hres;
+
+    if(retv) num_set_val(retv, atan(num_val(&v)));
+    return S_OK;
 }
 
 static HRESULT Math_atan2(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,
diff --git a/dlls/jscript/tests/api.js b/dlls/jscript/tests/api.js
index 09d85d1..2b338a9 100644
--- a/dlls/jscript/tests/api.js
+++ b/dlls/jscript/tests/api.js
@@ -692,6 +692,33 @@ ok(isNaN(tmp), "Math.asin(Infinity) is not NaN");
 tmp = Math.asin(-Infinity);
 ok(isNaN(tmp), "Math.asin(-Infinity) is not NaN");
 
+tmp = Math.atan(0);
+ok(Math.floor(tmp*100) === 0, "Math.atan(0) = " + tmp);
+
+tmp = Math.atan(1);
+ok(Math.floor(tmp*100) === 78, "Math.atan(1) = " + tmp);
+
+tmp = Math.atan(-1);
+ok(Math.floor(tmp*100) === -79, "Math.atan(-1) = " + tmp);
+
+tmp = Math.atan(true);
+ok(Math.floor(tmp*100) === 78, "Math.atan(true) = " + tmp);
+
+tmp = Math.atan(false);
+ok(Math.floor(tmp*100) === 0, "Math.atan(false) = " + tmp);
+
+tmp = Math.atan();
+ok(isNaN(tmp), "Math.atan() is not NaN");
+
+tmp = Math.atan(NaN);
+ok(isNaN(tmp), "Math.atan(NaN) is not NaN");
+
+tmp = Math.atan(Infinity);
+ok(Math.floor(tmp*100) === 157, "Math.atan(Infinity) = " + tmp);
+
+tmp = Math.atan(-Infinity);
+ok(Math.floor(tmp*100) === -158, "Math.atan(Infinity) = " + tmp);
+
 var func = function  (a) {
         var a = 1;
         if(a) return;