Jacek Caban : jscript: Added '<=' implementation.

[Alexandre Julliard]

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

Author: Jacek Caban <jacek at codeweavers.com>
Date:   Thu Sep 11 23:56:29 2008 +0200

jscript: Added '<=' implementation.

---

 dlls/jscript/engine.c      |   23 ++++++++++++++++++++---
 dlls/jscript/tests/lang.js |    7 +++++++
 2 files changed, 27 insertions(+), 3 deletions(-)

diff --git a/dlls/jscript/engine.c b/dlls/jscript/engine.c
index 6d336fe..3d21b21 100644
--- a/dlls/jscript/engine.c
+++ b/dlls/jscript/engine.c
@@ -1683,10 +1683,27 @@ HRESULT less_expression_eval(exec_ctx_t *ctx, expression_t *_expr, DWORD flags,
     return return_bool(ret, b);
 }
 
-HRESULT lesseq_expression_eval(exec_ctx_t *ctx, expression_t *expr, DWORD flags, jsexcept_t *ei, exprval_t *ret)
+/* ECMA-262 3rd Edition    11.8.3 */
+HRESULT lesseq_expression_eval(exec_ctx_t *ctx, expression_t *_expr, DWORD flags, jsexcept_t *ei, exprval_t *ret)
 {
-    FIXME("\n");
-    return E_NOTIMPL;
+    binary_expression_t *expr = (binary_expression_t*)_expr;
+    VARIANT rval, lval;
+    BOOL b;
+    HRESULT hres;
+
+    TRACE("\n");
+
+    hres = get_binary_expr_values(ctx, expr, ei, &lval, &rval);
+    if(FAILED(hres))
+        return hres;
+
+    hres = less_eval(ctx, &rval, &lval, ei, &b);
+    VariantClear(&lval);
+    VariantClear(&rval);
+    if(FAILED(hres))
+        return hres;
+
+    return return_bool(ret, !b);
 }
 
 HRESULT greater_expression_eval(exec_ctx_t *ctx, expression_t *expr, DWORD flags, jsexcept_t *ei, exprval_t *ret)
diff --git a/dlls/jscript/tests/lang.js b/dlls/jscript/tests/lang.js
index f94284f..2799b15 100644
--- a/dlls/jscript/tests/lang.js
+++ b/dlls/jscript/tests/lang.js
@@ -202,4 +202,11 @@ ok("abcd" < "abce", "abce < abce failed");
 ok("" < "x", "\"\" < \"x\" failed");
 ok(!(0 < 0), "0 < 0");
 
+ok(1 <= 3.4, "1 <= 3.4 failed");
+ok(!(3.4 <= 1), "3.4 <= 1");
+ok("abc" <= "abcd", "abc <= abcd failed");
+ok("abcd" <= "abce", "abce <= abce failed");
+ok("" <= "x", "\"\" <= \"x\" failed");
+ok(0 <= 0, "0 <= 0 failed");
+
 reportSuccess();