Module: wine Branch: master Commit: 326cf6e0cf39203571ccfa33373184c79c17dc9f URL: http://source.winehq.org/git/wine.git/?a=commit;h=326cf6e0cf39203571ccfa3337...
Author: Jacek Caban jacek@codeweavers.com Date: Tue Sep 9 01:25:59 2008 +0200
jscript: Added var statement implementation.
---
dlls/jscript/dispex.c | 14 ++++++++++++ dlls/jscript/engine.c | 49 +++++++++++++++++++++++++++++++++++++++++-- dlls/jscript/jscript.h | 1 + dlls/jscript/tests/lang.js | 3 ++ 4 files changed, 64 insertions(+), 3 deletions(-)
diff --git a/dlls/jscript/dispex.c b/dlls/jscript/dispex.c index 5286b61..7d24699 100644 --- a/dlls/jscript/dispex.c +++ b/dlls/jscript/dispex.c @@ -838,6 +838,20 @@ HRESULT disp_call(IDispatch *disp, DISPID id, LCID lcid, WORD flags, DISPPARAMS return hres; }
+HRESULT jsdisp_propput_name(DispatchEx *obj, const WCHAR *name, LCID lcid, VARIANT *val, jsexcept_t *ei, IServiceProvider *caller) +{ + DISPID named_arg = DISPID_PROPERTYPUT; + DISPPARAMS dp = {val, &named_arg, 1, 1}; + dispex_prop_t *prop; + HRESULT hres; + + hres = find_prop_name_prot(obj, name, TRUE, &prop); + if(FAILED(hres)) + return hres; + + return prop_put(obj, prop, lcid, &dp, ei, caller); +} + HRESULT disp_propput(IDispatch *disp, DISPID id, LCID lcid, VARIANT *val, jsexcept_t *ei, IServiceProvider *caller) { DISPID dispid = DISPID_PROPERTYPUT; diff --git a/dlls/jscript/engine.c b/dlls/jscript/engine.c index f37a8ac..f9f9cd6 100644 --- a/dlls/jscript/engine.c +++ b/dlls/jscript/engine.c @@ -341,10 +341,53 @@ HRESULT block_statement_eval(exec_ctx_t *ctx, statement_t *stat, return_type_t * return E_NOTIMPL; }
-HRESULT var_statement_eval(exec_ctx_t *ctx, statement_t *stat, return_type_t *rt, VARIANT *ret) +/* ECMA-262 3rd Edition 12.2 */ +static HRESULT variable_list_eval(exec_ctx_t *ctx, variable_declaration_t *var_list, jsexcept_t *ei) { - FIXME("\n"); - return E_NOTIMPL; + variable_declaration_t *iter; + HRESULT hres; + + for(iter = var_list; iter; iter = iter->next) { + VARIANT val; + + if(iter->expr) { + exprval_t exprval; + + hres = expr_eval(ctx, iter->expr, 0, ei, &exprval); + if(FAILED(hres)) + break; + + hres = exprval_to_value(ctx->parser->script, &exprval, ei, &val); + exprval_release(&exprval); + if(FAILED(hres)) + break; + }else { + V_VT(&val) = VT_EMPTY; + } + + hres = jsdisp_propput_name(ctx->var_disp, iter->identifier, ctx->parser->script->lcid, &val, ei, NULL/*FIXME*/); + VariantClear(&val); + if(FAILED(hres)) + break; + } + + return hres; +} + +/* ECMA-262 3rd Edition 12.2 */ +HRESULT var_statement_eval(exec_ctx_t *ctx, statement_t *_stat, return_type_t *rt, VARIANT *ret) +{ + var_statement_t *stat = (var_statement_t*)_stat; + HRESULT hres; + + TRACE("\n"); + + hres = variable_list_eval(ctx, stat->variable_list, &rt->ei); + if(FAILED(hres)) + return hres; + + V_VT(ret) = VT_EMPTY; + return S_OK; }
/* ECMA-262 3rd Edition 12.3 */ diff --git a/dlls/jscript/jscript.h b/dlls/jscript/jscript.h index 52768a4..31812bf 100644 --- a/dlls/jscript/jscript.h +++ b/dlls/jscript/jscript.h @@ -90,6 +90,7 @@ HRESULT create_dispex(script_ctx_t*,const builtin_info_t*,DispatchEx*,DispatchEx HRESULT disp_call(IDispatch*,DISPID,LCID,WORD,DISPPARAMS*,VARIANT*,jsexcept_t*,IServiceProvider*); HRESULT disp_propget(IDispatch*,DISPID,LCID,VARIANT*,jsexcept_t*,IServiceProvider*); HRESULT disp_propput(IDispatch*,DISPID,LCID,VARIANT*,jsexcept_t*,IServiceProvider*); +HRESULT jsdisp_propput_name(DispatchEx*,const WCHAR*,LCID,VARIANT*,jsexcept_t*,IServiceProvider*);
HRESULT to_boolean(VARIANT*,VARIANT_BOOL*);
diff --git a/dlls/jscript/tests/lang.js b/dlls/jscript/tests/lang.js index d1ef849..3ea4933 100644 --- a/dlls/jscript/tests/lang.js +++ b/dlls/jscript/tests/lang.js @@ -23,4 +23,7 @@ ok(!null, "!null is not true"); ok(!0, "!0 is not true"); ok(!0.0, "!0.0 is not true");
+var trueVar = true; +ok(trueVar, "trueVar is not true"); + reportSuccess();
-
Alexandre Julliard