Piotr Caban : jscript: Added Math_cos implementation.

[Alexandre Julliard]

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

Author: Piotr Caban <piotr.caban at gmail.com>
Date:   Thu Apr  2 19:55:30 2009 +0200

jscript: Added Math_cos implementation.

---

 dlls/jscript/math.c |   18 ++++++++++++++++--
 1 files changed, 16 insertions(+), 2 deletions(-)

diff --git a/dlls/jscript/math.c b/dlls/jscript/math.c
index fc1651c..ac487d1 100644
--- a/dlls/jscript/math.c
+++ b/dlls/jscript/math.c
@@ -212,8 +212,22 @@ static HRESULT Math_ceil(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *
 static HRESULT Math_cos(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, cos(num_val(&v)));
+    return S_OK;
 }
 
 static HRESULT Math_exp(DispatchEx *dispex, LCID lcid, WORD flags, DISPPARAMS *dp,