2 * Copyright 2008 Jacek Caban for CodeWeavers
4 * This library is free software; you can redistribute it and/or
5 * modify it under the terms of the GNU Lesser General Public
6 * License as published by the Free Software Foundation; either
7 * version 2.1 of the License, or (at your option) any later version.
9 * This library is distributed in the hope that it will be useful,
10 * but WITHOUT ANY WARRANTY; without even the implied warranty of
11 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
12 * Lesser General Public License for more details.
14 * You should have received a copy of the GNU Lesser General Public
15 * License along with this library; if not, write to the Free Software
16 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
22 #include "wine/debug.h"
24 WINE_DEFAULT_DEBUG_CHANNEL(jscript
);
26 #define EXPR_NOVAL 0x0001
27 #define EXPR_NEWREF 0x0002
28 #define EXPR_STRREF 0x0004
30 static inline HRESULT
stat_eval(exec_ctx_t
*ctx
, statement_t
*stat
, return_type_t
*rt
, VARIANT
*ret
)
32 return stat
->eval(ctx
, stat
, rt
, ret
);
35 static inline HRESULT
expr_eval(exec_ctx_t
*ctx
, expression_t
*_expr
, DWORD flags
, jsexcept_t
*ei
, exprval_t
*ret
)
37 return _expr
->eval(ctx
, _expr
, flags
, ei
, ret
);
40 static void exprval_release(exprval_t
*val
)
44 VariantClear(&val
->u
.var
);
48 IDispatch_Release(val
->u
.idref
.disp
);
51 if(val
->u
.nameref
.disp
)
52 IDispatch_Release(val
->u
.nameref
.disp
);
53 SysFreeString(val
->u
.nameref
.name
);
57 /* ECMA-262 3rd Edition 8.7.1 */
58 static HRESULT
exprval_value(script_ctx_t
*ctx
, exprval_t
*val
, jsexcept_t
*ei
, VARIANT
*ret
)
64 return VariantCopy(ret
, &val
->u
.var
);
66 if(!val
->u
.idref
.disp
) {
67 FIXME("throw ReferenceError\n");
71 return disp_propget(val
->u
.idref
.disp
, val
->u
.idref
.id
, ctx
->lcid
, ret
, ei
, NULL
/*FIXME*/);
73 ERR("type %d\n", val
->type
);
78 static HRESULT
exprval_to_value(script_ctx_t
*ctx
, exprval_t
*val
, jsexcept_t
*ei
, VARIANT
*ret
)
80 if(val
->type
== EXPRVAL_VARIANT
) {
82 V_VT(&val
->u
.var
) = VT_EMPTY
;
86 return exprval_value(ctx
, val
, ei
, ret
);
89 static HRESULT
exprval_to_boolean(script_ctx_t
*ctx
, exprval_t
*exprval
, jsexcept_t
*ei
, VARIANT_BOOL
*b
)
91 if(exprval
->type
!= EXPRVAL_VARIANT
) {
95 hres
= exprval_to_value(ctx
, exprval
, ei
, &val
);
99 hres
= to_boolean(&val
, b
);
104 return to_boolean(&exprval
->u
.var
, b
);
107 static void exprval_init(exprval_t
*val
)
109 val
->type
= EXPRVAL_VARIANT
;
110 V_VT(&val
->u
.var
) = VT_EMPTY
;
113 static void exprval_set_idref(exprval_t
*val
, IDispatch
*disp
, DISPID id
)
115 val
->type
= EXPRVAL_IDREF
;
116 val
->u
.idref
.disp
= disp
;
117 val
->u
.idref
.id
= id
;
120 IDispatch_AddRef(disp
);
123 HRESULT
scope_push(scope_chain_t
*scope
, DispatchEx
*obj
, scope_chain_t
**ret
)
125 scope_chain_t
*new_scope
;
127 new_scope
= heap_alloc(sizeof(scope_chain_t
));
129 return E_OUTOFMEMORY
;
133 IDispatchEx_AddRef(_IDispatchEx_(obj
));
134 new_scope
->obj
= obj
;
138 new_scope
->next
= scope
;
140 new_scope
->next
= NULL
;
147 void scope_release(scope_chain_t
*scope
)
153 scope_release(scope
->next
);
155 IDispatchEx_Release(_IDispatchEx_(scope
->obj
));
159 HRESULT
create_exec_ctx(IDispatch
*this_obj
, DispatchEx
*var_disp
, scope_chain_t
*scope
, exec_ctx_t
**ret
)
163 ctx
= heap_alloc_zero(sizeof(exec_ctx_t
));
165 return E_OUTOFMEMORY
;
167 IDispatch_AddRef(this_obj
);
168 ctx
->this_obj
= this_obj
;
170 IDispatchEx_AddRef(_IDispatchEx_(var_disp
));
171 ctx
->var_disp
= var_disp
;
175 ctx
->scope_chain
= scope
;
182 void exec_release(exec_ctx_t
*ctx
)
188 scope_release(ctx
->scope_chain
);
190 IDispatchEx_Release(_IDispatchEx_(ctx
->var_disp
));
192 IDispatch_Release(ctx
->this_obj
);
196 static HRESULT
dispex_get_id(IDispatchEx
*dispex
, BSTR name
, DWORD flags
, DISPID
*id
)
200 return IDispatchEx_GetDispID(dispex
, name
, flags
|fdexNameCaseSensitive
, id
);
203 static HRESULT
disp_get_id(IDispatch
*disp
, BSTR name
, DWORD flags
, DISPID
*id
)
208 hres
= IDispatch_QueryInterface(disp
, &IID_IDispatchEx
, (void**)&dispex
);
210 TRACE("unsing IDispatch\n");
213 return IDispatch_GetIDsOfNames(disp
, &IID_NULL
, &name
, 1, 0, id
);
216 hres
= dispex_get_id(dispex
, name
, flags
, id
);
217 IDispatchEx_Release(dispex
);
221 /* ECMA-262 3rd Edition 8.7.2 */
222 static HRESULT
put_value(script_ctx_t
*ctx
, exprval_t
*ref
, VARIANT
*v
, jsexcept_t
*ei
)
224 if(ref
->type
!= EXPRVAL_IDREF
) {
225 FIXME("throw ReferemceError\n");
229 return disp_propput(ref
->u
.idref
.disp
, ref
->u
.idref
.id
, ctx
->lcid
, v
, ei
, NULL
/*FIXME*/);
232 static HRESULT
disp_cmp(IDispatch
*disp1
, IDispatch
*disp2
, BOOL
*ret
)
234 IObjectIdentity
*identity
;
235 IUnknown
*unk1
, *unk2
;
243 hres
= IDispatch_QueryInterface(disp1
, &IID_IUnknown
, (void**)&unk1
);
247 hres
= IDispatch_QueryInterface(disp2
, &IID_IUnknown
, (void**)&unk2
);
249 IUnknown_Release(unk1
);
256 hres
= IUnknown_QueryInterface(unk1
, &IID_IObjectIdentity
, (void**)&identity
);
257 if(SUCCEEDED(hres
)) {
258 hres
= IObjectIdentity_IsEqualObject(identity
, unk2
);
259 IObjectIdentity_Release(identity
);
266 IUnknown_Release(unk1
);
267 IUnknown_Release(unk2
);
271 static inline BOOL
is_num_vt(enum VARENUM vt
)
273 return vt
== VT_I4
|| vt
== VT_R8
;
276 static inline DOUBLE
num_val(const VARIANT
*v
)
278 return V_VT(v
) == VT_I4
? V_I4(v
) : V_R8(v
);
281 /* ECMA-262 3rd Edition 11.9.6 */
282 HRESULT
equal2_values(VARIANT
*lval
, VARIANT
*rval
, BOOL
*ret
)
286 if(V_VT(lval
) != V_VT(rval
)) {
287 if(is_num_vt(V_VT(lval
)) && is_num_vt(V_VT(rval
))) {
288 *ret
= num_val(lval
) == num_val(rval
);
302 *ret
= V_I4(lval
) == V_I4(rval
);
305 *ret
= V_R8(lval
) == V_R8(rval
);
308 *ret
= !strcmpW(V_BSTR(lval
), V_BSTR(rval
));
311 return disp_cmp(V_DISPATCH(lval
), V_DISPATCH(rval
), ret
);
313 *ret
= !V_BOOL(lval
) == !V_BOOL(rval
);
316 FIXME("unimplemented vt %d\n", V_VT(lval
));
323 static HRESULT
literal_to_var(literal_t
*literal
, VARIANT
*v
)
325 V_VT(v
) = literal
->vt
;
332 V_I4(v
) = literal
->u
.lval
;
335 V_R8(v
) = literal
->u
.dval
;
338 V_BSTR(v
) = SysAllocString(literal
->u
.wstr
);
341 V_BOOL(v
) = literal
->u
.bval
;
344 IDispatch_AddRef(literal
->u
.disp
);
345 V_DISPATCH(v
) = literal
->u
.disp
;
348 ERR("wrong type %d\n", V_VT(v
));
355 HRESULT
exec_source(exec_ctx_t
*ctx
, parser_ctx_t
*parser
, source_elements_t
*source
, jsexcept_t
*ei
, VARIANT
*retv
)
357 script_ctx_t
*script
= parser
->script
;
358 function_declaration_t
*func
;
359 parser_ctx_t
*prev_parser
;
362 exec_ctx_t
*prev_ctx
;
366 for(func
= source
->functions
; func
; func
= func
->next
) {
367 DispatchEx
*func_obj
;
370 hres
= create_source_function(parser
, func
->parameter_list
, func
->source_elements
, ctx
->scope_chain
, &func_obj
);
374 V_VT(&var
) = VT_DISPATCH
;
375 V_DISPATCH(&var
) = (IDispatch
*)_IDispatchEx_(func_obj
);
376 hres
= jsdisp_propput_name(ctx
->var_disp
, func
->identifier
, script
->lcid
, &var
, ei
, NULL
);
377 IDispatchEx_Release(_IDispatchEx_(func_obj
));
382 prev_ctx
= script
->exec_ctx
;
383 script
->exec_ctx
= ctx
;
385 prev_parser
= ctx
->parser
;
386 ctx
->parser
= parser
;
388 V_VT(&val
) = VT_EMPTY
;
389 memset(&rt
, 0, sizeof(rt
));
392 for(stat
= source
->statement
; stat
; stat
= stat
->next
) {
393 hres
= stat_eval(ctx
, stat
, &rt
, &tmp
);
399 if(rt
.type
!= RT_NORMAL
)
403 script
->exec_ctx
= prev_ctx
;
404 ctx
->parser
= prev_parser
;
406 if(rt
.type
!= RT_NORMAL
&& rt
.type
!= RT_RETURN
) {
407 FIXME("wrong rt %d\n", rt
.type
);
424 /* ECMA-262 3rd Edition 10.1.4 */
425 static HRESULT
identifier_eval(exec_ctx_t
*ctx
, BSTR identifier
, DWORD flags
, exprval_t
*ret
)
427 scope_chain_t
*scope
;
432 TRACE("%s\n", debugstr_w(identifier
));
434 for(scope
= ctx
->scope_chain
; scope
; scope
= scope
->next
) {
435 hres
= dispex_get_id(_IDispatchEx_(scope
->obj
), identifier
, 0, &id
);
441 exprval_set_idref(ret
, (IDispatch
*)_IDispatchEx_(scope
->obj
), id
);
445 hres
= dispex_get_id(_IDispatchEx_(ctx
->parser
->script
->global
), identifier
, 0, &id
);
446 if(SUCCEEDED(hres
)) {
447 exprval_set_idref(ret
, (IDispatch
*)_IDispatchEx_(ctx
->parser
->script
->global
), id
);
451 for(item
= ctx
->parser
->script
->named_items
; item
; item
= item
->next
) {
452 hres
= disp_get_id(item
->disp
, identifier
, 0, &id
);
458 exprval_set_idref(ret
, (IDispatch
*)item
->disp
, id
);
462 hres
= dispex_get_id(_IDispatchEx_(ctx
->parser
->script
->script_disp
), identifier
, 0, &id
);
463 if(SUCCEEDED(hres
)) {
464 exprval_set_idref(ret
, (IDispatch
*)_IDispatchEx_(ctx
->parser
->script
->script_disp
), id
);
468 if(flags
& EXPR_NEWREF
) {
469 hres
= dispex_get_id(_IDispatchEx_(ctx
->var_disp
), identifier
, fdexNameEnsure
, &id
);
473 exprval_set_idref(ret
, (IDispatch
*)_IDispatchEx_(ctx
->var_disp
), id
);
477 WARN("Could not find identifier %s\n", debugstr_w(identifier
));
481 HRESULT
block_statement_eval(exec_ctx_t
*ctx
, statement_t
*stat
, return_type_t
*rt
, VARIANT
*ret
)
487 /* ECMA-262 3rd Edition 12.2 */
488 static HRESULT
variable_list_eval(exec_ctx_t
*ctx
, variable_declaration_t
*var_list
, jsexcept_t
*ei
)
490 variable_declaration_t
*iter
;
493 for(iter
= var_list
; iter
; iter
= iter
->next
) {
499 hres
= expr_eval(ctx
, iter
->expr
, 0, ei
, &exprval
);
503 hres
= exprval_to_value(ctx
->parser
->script
, &exprval
, ei
, &val
);
504 exprval_release(&exprval
);
508 V_VT(&val
) = VT_EMPTY
;
511 hres
= jsdisp_propput_name(ctx
->var_disp
, iter
->identifier
, ctx
->parser
->script
->lcid
, &val
, ei
, NULL
/*FIXME*/);
520 /* ECMA-262 3rd Edition 12.2 */
521 HRESULT
var_statement_eval(exec_ctx_t
*ctx
, statement_t
*_stat
, return_type_t
*rt
, VARIANT
*ret
)
523 var_statement_t
*stat
= (var_statement_t
*)_stat
;
528 hres
= variable_list_eval(ctx
, stat
->variable_list
, &rt
->ei
);
532 V_VT(ret
) = VT_EMPTY
;
536 /* ECMA-262 3rd Edition 12.3 */
537 HRESULT
empty_statement_eval(exec_ctx_t
*ctx
, statement_t
*stat
, return_type_t
*rt
, VARIANT
*ret
)
541 V_VT(ret
) = VT_EMPTY
;
545 /* ECMA-262 3rd Edition 12.4 */
546 HRESULT
expression_statement_eval(exec_ctx_t
*ctx
, statement_t
*_stat
, return_type_t
*rt
, VARIANT
*ret
)
548 expression_statement_t
*stat
= (expression_statement_t
*)_stat
;
555 hres
= expr_eval(ctx
, stat
->expr
, EXPR_NOVAL
, &rt
->ei
, &exprval
);
559 hres
= exprval_to_value(ctx
->parser
->script
, &exprval
, &rt
->ei
, &val
);
560 exprval_release(&exprval
);
565 TRACE("= %s\n", debugstr_variant(ret
));
569 /* ECMA-262 3rd Edition 12.5 */
570 HRESULT
if_statement_eval(exec_ctx_t
*ctx
, statement_t
*_stat
, return_type_t
*rt
, VARIANT
*ret
)
572 if_statement_t
*stat
= (if_statement_t
*)_stat
;
579 hres
= expr_eval(ctx
, stat
->expr
, 0, &rt
->ei
, &exprval
);
583 hres
= exprval_to_boolean(ctx
->parser
->script
, &exprval
, &rt
->ei
, &b
);
584 exprval_release(&exprval
);
589 hres
= stat_eval(ctx
, stat
->if_stat
, rt
, ret
);
590 else if(stat
->else_stat
)
591 hres
= stat_eval(ctx
, stat
->else_stat
, rt
, ret
);
593 V_VT(ret
) = VT_EMPTY
;
598 HRESULT
dowhile_statement_eval(exec_ctx_t
*ctx
, statement_t
*stat
, return_type_t
*rt
, VARIANT
*ret
)
604 HRESULT
while_statement_eval(exec_ctx_t
*ctx
, statement_t
*stat
, return_type_t
*rt
, VARIANT
*ret
)
610 HRESULT
for_statement_eval(exec_ctx_t
*ctx
, statement_t
*stat
, return_type_t
*rt
, VARIANT
*ret
)
616 HRESULT
forin_statement_eval(exec_ctx_t
*ctx
, statement_t
*stat
, return_type_t
*rt
, VARIANT
*ret
)
622 HRESULT
continue_statement_eval(exec_ctx_t
*ctx
, statement_t
*stat
, return_type_t
*rt
, VARIANT
*ret
)
628 HRESULT
break_statement_eval(exec_ctx_t
*ctx
, statement_t
*stat
, return_type_t
*rt
, VARIANT
*ret
)
634 /* ECMA-262 3rd Edition 12.9 */
635 HRESULT
return_statement_eval(exec_ctx_t
*ctx
, statement_t
*_stat
, return_type_t
*rt
, VARIANT
*ret
)
637 expression_statement_t
*stat
= (expression_statement_t
*)_stat
;
645 hres
= expr_eval(ctx
, stat
->expr
, 0, &rt
->ei
, &exprval
);
649 hres
= exprval_to_value(ctx
->parser
->script
, &exprval
, &rt
->ei
, ret
);
650 exprval_release(&exprval
);
654 V_VT(ret
) = VT_EMPTY
;
657 TRACE("= %s\n", debugstr_variant(ret
));
658 rt
->type
= RT_RETURN
;
662 HRESULT
with_statement_eval(exec_ctx_t
*ctx
, statement_t
*stat
, return_type_t
*rt
, VARIANT
*ret
)
668 HRESULT
labelled_statement_eval(exec_ctx_t
*ctx
, statement_t
*stat
, return_type_t
*rt
, VARIANT
*ret
)
674 HRESULT
switch_statement_eval(exec_ctx_t
*ctx
, statement_t
*stat
, return_type_t
*rt
, VARIANT
*ret
)
680 HRESULT
throw_statement_eval(exec_ctx_t
*ctx
, statement_t
*stat
, return_type_t
*rt
, VARIANT
*ret
)
686 HRESULT
try_statement_eval(exec_ctx_t
*ctx
, statement_t
*stat
, return_type_t
*rt
, VARIANT
*ret
)
692 static HRESULT
return_bool(exprval_t
*ret
, DWORD b
)
694 ret
->type
= EXPRVAL_VARIANT
;
695 V_VT(&ret
->u
.var
) = VT_BOOL
;
696 V_BOOL(&ret
->u
.var
) = b
? VARIANT_TRUE
: VARIANT_FALSE
;
701 static HRESULT
get_binary_expr_values(exec_ctx_t
*ctx
, binary_expression_t
*expr
, jsexcept_t
*ei
, VARIANT
*lval
, VARIANT
*rval
)
706 hres
= expr_eval(ctx
, expr
->expression1
, 0, ei
, &exprval
);
710 hres
= exprval_to_value(ctx
->parser
->script
, &exprval
, ei
, lval
);
711 exprval_release(&exprval
);
715 hres
= expr_eval(ctx
, expr
->expression2
, 0, ei
, &exprval
);
716 if(SUCCEEDED(hres
)) {
717 hres
= exprval_to_value(ctx
->parser
->script
, &exprval
, ei
, rval
);
718 exprval_release(&exprval
);
729 /* ECMA-262 3rd Edition 13 */
730 HRESULT
function_expression_eval(exec_ctx_t
*ctx
, expression_t
*_expr
, DWORD flags
, jsexcept_t
*ei
, exprval_t
*ret
)
732 function_expression_t
*expr
= (function_expression_t
*)_expr
;
739 hres
= create_source_function(ctx
->parser
, expr
->parameter_list
, expr
->source_elements
, ctx
->scope_chain
, &dispex
);
743 V_VT(&var
) = VT_DISPATCH
;
744 V_DISPATCH(&var
) = (IDispatch
*)_IDispatchEx_(dispex
);
746 if(expr
->identifier
) {
747 hres
= jsdisp_propput_name(ctx
->var_disp
, expr
->identifier
, ctx
->parser
->script
->lcid
, &var
, ei
, NULL
/*FIXME*/);
749 jsdisp_release(dispex
);
754 ret
->type
= EXPRVAL_VARIANT
;
759 HRESULT
conditional_expression_eval(exec_ctx_t
*ctx
, expression_t
*expr
, DWORD flags
, jsexcept_t
*ei
, exprval_t
*ret
)
765 /* ECMA-262 3rd Edition 11.2.1 */
766 HRESULT
array_expression_eval(exec_ctx_t
*ctx
, expression_t
*_expr
, DWORD flags
, jsexcept_t
*ei
, exprval_t
*ret
)
768 array_expression_t
*expr
= (array_expression_t
*)_expr
;
773 IDispatch
*obj
= NULL
;
778 hres
= expr_eval(ctx
, expr
->member_expr
, EXPR_NEWREF
, ei
, &exprval
);
782 hres
= exprval_to_value(ctx
->parser
->script
, &exprval
, ei
, &member
);
783 exprval_release(&exprval
);
787 hres
= expr_eval(ctx
, expr
->expression
, EXPR_NEWREF
, ei
, &exprval
);
788 if(SUCCEEDED(hres
)) {
789 hres
= exprval_to_value(ctx
->parser
->script
, &exprval
, ei
, &val
);
790 exprval_release(&exprval
);
794 hres
= to_object(ctx
, &member
, &obj
);
795 VariantClear(&member
);
796 if(SUCCEEDED(hres
)) {
797 hres
= to_string(ctx
->parser
->script
, &val
, ei
, &str
);
798 if(SUCCEEDED(hres
)) {
799 if(flags
& EXPR_STRREF
) {
800 ret
->type
= EXPRVAL_NAMEREF
;
801 ret
->u
.nameref
.disp
= obj
;
802 ret
->u
.nameref
.name
= str
;
806 hres
= disp_get_id(obj
, str
, flags
& EXPR_NEWREF
? fdexNameEnsure
: 0, &id
);
809 if(SUCCEEDED(hres
)) {
810 exprval_set_idref(ret
, obj
, id
);
811 }else if(!(flags
& EXPR_NEWREF
) && hres
== DISP_E_UNKNOWNNAME
) {
816 IDispatch_Release(obj
);
822 /* ECMA-262 3rd Edition 11.2.1 */
823 HRESULT
member_expression_eval(exec_ctx_t
*ctx
, expression_t
*_expr
, DWORD flags
, jsexcept_t
*ei
, exprval_t
*ret
)
825 member_expression_t
*expr
= (member_expression_t
*)_expr
;
826 IDispatch
*obj
= NULL
;
835 hres
= expr_eval(ctx
, expr
->expression
, 0, ei
, &exprval
);
839 hres
= exprval_to_value(ctx
->parser
->script
, &exprval
, ei
, &member
);
840 exprval_release(&exprval
);
844 hres
= to_object(ctx
, &member
, &obj
);
845 VariantClear(&member
);
849 str
= SysAllocString(expr
->identifier
);
850 if(flags
& EXPR_STRREF
) {
851 ret
->type
= EXPRVAL_NAMEREF
;
852 ret
->u
.nameref
.disp
= obj
;
853 ret
->u
.nameref
.name
= str
;
857 hres
= disp_get_id(obj
, str
, flags
& EXPR_NEW
? fdexNameEnsure
: 0, &id
);
859 if(SUCCEEDED(hres
)) {
860 exprval_set_idref(ret
, obj
, id
);
861 }else if(!(flags
& EXPR_NEWREF
) && hres
== DISP_E_UNKNOWNNAME
) {
866 IDispatch_Release(obj
);
870 static void free_dp(DISPPARAMS
*dp
)
874 for(i
=0; i
< dp
->cArgs
; i
++)
875 VariantClear(dp
->rgvarg
+i
);
876 heap_free(dp
->rgvarg
);
879 static HRESULT
args_to_param(exec_ctx_t
*ctx
, argument_t
*args
, jsexcept_t
*ei
, DISPPARAMS
*dp
)
887 memset(dp
, 0, sizeof(*dp
));
889 for(iter
= args
; iter
; iter
= iter
->next
)
894 vargs
= heap_alloc_zero(cnt
* sizeof(*vargs
));
896 return E_OUTOFMEMORY
;
898 for(i
= cnt
, iter
= args
; iter
; iter
= iter
->next
) {
899 hres
= expr_eval(ctx
, iter
->expr
, 0, ei
, &exprval
);
903 hres
= exprval_to_value(ctx
->parser
->script
, &exprval
, ei
, vargs
+ (--i
));
904 exprval_release(&exprval
);
919 /* ECMA-262 3rd Edition 11.2.2 */
920 HRESULT
member_new_expression_eval(exec_ctx_t
*ctx
, expression_t
*_expr
, DWORD flags
, jsexcept_t
*ei
, exprval_t
*ret
)
922 call_expression_t
*expr
= (call_expression_t
*)_expr
;
930 hres
= expr_eval(ctx
, expr
->expression
, 0, ei
, &exprval
);
934 hres
= args_to_param(ctx
, expr
->argument_list
, ei
, &dp
);
936 hres
= exprval_to_value(ctx
->parser
->script
, &exprval
, ei
, &constr
);
937 exprval_release(&exprval
);
941 if(V_VT(&constr
) != VT_DISPATCH
) {
942 FIXME("throw TypeError\n");
943 VariantClear(&constr
);
947 hres
= disp_call(V_DISPATCH(&constr
), DISPID_VALUE
, ctx
->parser
->script
->lcid
,
948 DISPATCH_CONSTRUCT
, &dp
, &var
, ei
, NULL
/*FIXME*/);
949 IDispatch_Release(V_DISPATCH(&constr
));
953 ret
->type
= EXPRVAL_VARIANT
;
958 HRESULT
call_expression_eval(exec_ctx_t
*ctx
, expression_t
*_expr
, DWORD flags
, jsexcept_t
*ei
, exprval_t
*ret
)
960 call_expression_t
*expr
= (call_expression_t
*)_expr
;
968 hres
= expr_eval(ctx
, expr
->expression
, 0, ei
, &exprval
);
972 hres
= args_to_param(ctx
, expr
->argument_list
, ei
, &dp
);
973 if(SUCCEEDED(hres
)) {
974 switch(exprval
.type
) {
976 hres
= disp_call(exprval
.u
.idref
.disp
, exprval
.u
.idref
.id
, ctx
->parser
->script
->lcid
, DISPATCH_METHOD
,
977 &dp
, flags
& EXPR_NOVAL
? NULL
: &var
, ei
, NULL
/*FIXME*/);
978 if(flags
& EXPR_NOVAL
)
979 V_VT(&var
) = VT_EMPTY
;
982 FIXME("unimplemented type %d\n", V_VT(&func
));
989 exprval_release(&exprval
);
993 TRACE("= %s\n", debugstr_variant(&var
));
994 ret
->type
= EXPRVAL_VARIANT
;
999 HRESULT
this_expression_eval(exec_ctx_t
*ctx
, expression_t
*expr
, DWORD flags
, jsexcept_t
*ei
, exprval_t
*ret
)
1003 ret
->type
= EXPRVAL_VARIANT
;
1004 V_VT(&ret
->u
.var
) = VT_DISPATCH
;
1005 V_DISPATCH(&ret
->u
.var
) = ctx
->this_obj
;
1006 IDispatch_AddRef(ctx
->this_obj
);
1010 /* ECMA-262 3rd Edition 10.1.4 */
1011 HRESULT
identifier_expression_eval(exec_ctx_t
*ctx
, expression_t
*_expr
, DWORD flags
, jsexcept_t
*ei
, exprval_t
*ret
)
1013 identifier_expression_t
*expr
= (identifier_expression_t
*)_expr
;
1019 identifier
= SysAllocString(expr
->identifier
);
1021 return E_OUTOFMEMORY
;
1023 hres
= identifier_eval(ctx
, identifier
, flags
, ret
);
1025 SysFreeString(identifier
);
1029 /* ECMA-262 3rd Edition 7.8 */
1030 HRESULT
literal_expression_eval(exec_ctx_t
*ctx
, expression_t
*_expr
, DWORD flags
, jsexcept_t
*ei
, exprval_t
*ret
)
1032 literal_expression_t
*expr
= (literal_expression_t
*)_expr
;
1038 hres
= literal_to_var(expr
->literal
, &var
);
1042 ret
->type
= EXPRVAL_VARIANT
;
1047 HRESULT
array_literal_expression_eval(exec_ctx_t
*ctx
, expression_t
*expr
, DWORD flags
, jsexcept_t
*ei
, exprval_t
*ret
)
1053 /* ECMA-262 3rd Edition 11.1.5 */
1054 HRESULT
property_value_expression_eval(exec_ctx_t
*ctx
, expression_t
*_expr
, DWORD flags
, jsexcept_t
*ei
, exprval_t
*ret
)
1056 property_value_expression_t
*expr
= (property_value_expression_t
*)_expr
;
1066 hres
= create_object(ctx
->parser
->script
, NULL
, &obj
);
1070 for(iter
= expr
->property_list
; iter
; iter
= iter
->next
) {
1071 hres
= literal_to_var(iter
->name
, &tmp
);
1075 hres
= to_string(ctx
->parser
->script
, &tmp
, ei
, &name
);
1080 hres
= expr_eval(ctx
, iter
->value
, 0, ei
, &exprval
);
1081 if(SUCCEEDED(hres
)) {
1082 hres
= exprval_to_value(ctx
->parser
->script
, &exprval
, ei
, &val
);
1083 exprval_release(&exprval
);
1084 if(SUCCEEDED(hres
)) {
1085 hres
= jsdisp_propput_name(obj
, name
, ctx
->parser
->script
->lcid
, &val
, ei
, NULL
/*FIXME*/);
1090 SysFreeString(name
);
1096 jsdisp_release(obj
);
1100 ret
->type
= EXPRVAL_VARIANT
;
1101 V_VT(&ret
->u
.var
) = VT_DISPATCH
;
1102 V_DISPATCH(&ret
->u
.var
) = (IDispatch
*)_IDispatchEx_(obj
);
1106 HRESULT
comma_expression_eval(exec_ctx_t
*ctx
, expression_t
*expr
, DWORD flags
, jsexcept_t
*ei
, exprval_t
*ret
)
1112 HRESULT
logical_or_expression_eval(exec_ctx_t
*ctx
, expression_t
*expr
, DWORD flags
, jsexcept_t
*ei
, exprval_t
*ret
)
1118 HRESULT
logical_and_expression_eval(exec_ctx_t
*ctx
, expression_t
*expr
, DWORD flags
, jsexcept_t
*ei
, exprval_t
*ret
)
1124 HRESULT
binary_or_expression_eval(exec_ctx_t
*ctx
, expression_t
*expr
, DWORD flags
, jsexcept_t
*ei
, exprval_t
*ret
)
1130 HRESULT
binary_xor_expression_eval(exec_ctx_t
*ctx
, expression_t
*expr
, DWORD flags
, jsexcept_t
*ei
, exprval_t
*ret
)
1136 HRESULT
binary_and_expression_eval(exec_ctx_t
*ctx
, expression_t
*expr
, DWORD flags
, jsexcept_t
*ei
, exprval_t
*ret
)
1142 HRESULT
instanceof_expression_eval(exec_ctx_t
*ctx
, expression_t
*expr
, DWORD flags
, jsexcept_t
*ei
, exprval_t
*ret
)
1148 HRESULT
in_expression_eval(exec_ctx_t
*ctx
, expression_t
*expr
, DWORD flags
, jsexcept_t
*ei
, exprval_t
*ret
)
1154 HRESULT
add_expression_eval(exec_ctx_t
*ctx
, expression_t
*expr
, DWORD flags
, jsexcept_t
*ei
, exprval_t
*ret
)
1160 HRESULT
sub_expression_eval(exec_ctx_t
*ctx
, expression_t
*expr
, DWORD flags
, jsexcept_t
*ei
, exprval_t
*ret
)
1166 HRESULT
mul_expression_eval(exec_ctx_t
*ctx
, expression_t
*expr
, DWORD flags
, jsexcept_t
*ei
, exprval_t
*ret
)
1172 HRESULT
div_expression_eval(exec_ctx_t
*ctx
, expression_t
*expr
, DWORD flags
, jsexcept_t
*ei
, exprval_t
*ret
)
1178 HRESULT
mod_expression_eval(exec_ctx_t
*ctx
, expression_t
*expr
, DWORD flags
, jsexcept_t
*ei
, exprval_t
*ret
)
1184 HRESULT
delete_expression_eval(exec_ctx_t
*ctx
, expression_t
*expr
, DWORD flags
, jsexcept_t
*ei
, exprval_t
*ret
)
1190 HRESULT
void_expression_eval(exec_ctx_t
*ctx
, expression_t
*expr
, DWORD flags
, jsexcept_t
*ei
, exprval_t
*ret
)
1196 HRESULT
typeof_expression_eval(exec_ctx_t
*ctx
, expression_t
*_expr
, DWORD flags
, jsexcept_t
*ei
, exprval_t
*ret
)
1198 unary_expression_t
*expr
= (unary_expression_t
*)_expr
;
1204 static const WCHAR booleanW
[] = {'b','o','o','l','e','a','n',0};
1205 static const WCHAR functionW
[] = {'f','u','n','c','t','i','o','n',0};
1206 static const WCHAR numberW
[] = {'n','u','m','b','e','r',0};
1207 static const WCHAR objectW
[] = {'o','b','j','e','c','t',0};
1208 static const WCHAR stringW
[] = {'s','t','r','i','n','g',0};
1209 static const WCHAR undefinedW
[] = {'u','n','d','e','f','i','n','e','d',0};
1213 hres
= expr_eval(ctx
, expr
->expression
, 0, ei
, &exprval
);
1217 hres
= exprval_to_value(ctx
->parser
->script
, &exprval
, ei
, &val
);
1218 exprval_release(&exprval
);
1222 switch(V_VT(&val
)) {
1242 dispex
= iface_to_jsdisp((IUnknown
*)V_DISPATCH(&val
));
1244 str
= dispex
->builtin_info
->class == JSCLASS_FUNCTION
? functionW
: objectW
;
1245 IDispatchEx_Release(_IDispatchEx_(dispex
));
1252 FIXME("unhandled vt %d\n", V_VT(&val
));
1260 ret
->type
= EXPRVAL_VARIANT
;
1261 V_VT(&ret
->u
.var
) = VT_BSTR
;
1262 V_BSTR(&ret
->u
.var
) = SysAllocString(str
);
1266 HRESULT
minus_expression_eval(exec_ctx_t
*ctx
, expression_t
*expr
, DWORD flags
, jsexcept_t
*ei
, exprval_t
*ret
)
1272 HRESULT
plus_expression_eval(exec_ctx_t
*ctx
, expression_t
*expr
, DWORD flags
, jsexcept_t
*ei
, exprval_t
*ret
)
1278 HRESULT
post_increment_expression_eval(exec_ctx_t
*ctx
, expression_t
*expr
, DWORD flags
, jsexcept_t
*ei
, exprval_t
*ret
)
1284 HRESULT
post_decrement_expression_eval(exec_ctx_t
*ctx
, expression_t
*expr
, DWORD flags
, jsexcept_t
*ei
, exprval_t
*ret
)
1290 HRESULT
pre_increment_expression_eval(exec_ctx_t
*ctx
, expression_t
*expr
, DWORD flags
, jsexcept_t
*ei
, exprval_t
*ret
)
1296 HRESULT
pre_decrement_expression_eval(exec_ctx_t
*ctx
, expression_t
*expr
, DWORD flags
, jsexcept_t
*ei
, exprval_t
*ret
)
1302 HRESULT
new_expression_eval(exec_ctx_t
*ctx
, expression_t
*expr
, DWORD flags
, jsexcept_t
*ei
, exprval_t
*ret
)
1308 HRESULT
equal_expression_eval(exec_ctx_t
*ctx
, expression_t
*expr
, DWORD flags
, jsexcept_t
*ei
, exprval_t
*ret
)
1314 /* ECMA-262 3rd Edition 11.9.4 */
1315 HRESULT
equal2_expression_eval(exec_ctx_t
*ctx
, expression_t
*_expr
, DWORD flags
, jsexcept_t
*ei
, exprval_t
*ret
)
1317 binary_expression_t
*expr
= (binary_expression_t
*)_expr
;
1324 hres
= get_binary_expr_values(ctx
, expr
, ei
, &rval
, &lval
);
1328 hres
= equal2_values(&rval
, &lval
, &b
);
1332 return return_bool(ret
, b
);
1335 HRESULT
not_equal_expression_eval(exec_ctx_t
*ctx
, expression_t
*_expr
, DWORD flags
, jsexcept_t
*ei
, exprval_t
*ret
)
1342 /* ECMA-262 3rd Edition 11.9.5 */
1343 HRESULT
not_equal2_expression_eval(exec_ctx_t
*ctx
, expression_t
*_expr
, DWORD flags
, jsexcept_t
*ei
, exprval_t
*ret
)
1345 binary_expression_t
*expr
= (binary_expression_t
*)_expr
;
1352 hres
= get_binary_expr_values(ctx
, expr
, ei
, &rval
, &lval
);
1356 hres
= equal2_values(&rval
, &lval
, &b
);
1360 return return_bool(ret
, !b
);
1363 HRESULT
less_expression_eval(exec_ctx_t
*ctx
, expression_t
*expr
, DWORD flags
, jsexcept_t
*ei
, exprval_t
*ret
)
1369 HRESULT
lesseq_expression_eval(exec_ctx_t
*ctx
, expression_t
*expr
, DWORD flags
, jsexcept_t
*ei
, exprval_t
*ret
)
1375 HRESULT
greater_expression_eval(exec_ctx_t
*ctx
, expression_t
*expr
, DWORD flags
, jsexcept_t
*ei
, exprval_t
*ret
)
1381 HRESULT
greatereq_expression_eval(exec_ctx_t
*ctx
, expression_t
*expr
, DWORD flags
, jsexcept_t
*ei
, exprval_t
*ret
)
1387 HRESULT
binary_negation_expression_eval(exec_ctx_t
*ctx
, expression_t
*expr
, DWORD flags
, jsexcept_t
*ei
, exprval_t
*ret
)
1393 /* ECMA-262 3rd Edition 11.4.9 */
1394 HRESULT
logical_negation_expression_eval(exec_ctx_t
*ctx
, expression_t
*_expr
, DWORD flags
, jsexcept_t
*ei
, exprval_t
*ret
)
1396 unary_expression_t
*expr
= (unary_expression_t
*)_expr
;
1403 hres
= expr_eval(ctx
, expr
->expression
, EXPR_NEWREF
, ei
, &exprval
);
1407 hres
= exprval_to_boolean(ctx
->parser
->script
, &exprval
, ei
, &b
);
1408 exprval_release(&exprval
);
1412 return return_bool(ret
, !b
);
1415 HRESULT
left_shift_expression_eval(exec_ctx_t
*ctx
, expression_t
*_expr
, DWORD flags
, jsexcept_t
*ei
, exprval_t
*ret
)
1421 HRESULT
right_shift_expression_eval(exec_ctx_t
*ctx
, expression_t
*_expr
, DWORD flags
, jsexcept_t
*ei
, exprval_t
*ret
)
1427 HRESULT
right2_shift_expression_eval(exec_ctx_t
*ctx
, expression_t
*_expr
, DWORD flags
, jsexcept_t
*ei
, exprval_t
*ret
)
1433 /* ECMA-262 3rd Edition 11.13.1 */
1434 HRESULT
assign_expression_eval(exec_ctx_t
*ctx
, expression_t
*_expr
, DWORD flags
, jsexcept_t
*ei
, exprval_t
*ret
)
1436 binary_expression_t
*expr
= (binary_expression_t
*)_expr
;
1437 exprval_t exprval
, exprvalr
;
1443 hres
= expr_eval(ctx
, expr
->expression1
, EXPR_NEWREF
, ei
, &exprval
);
1447 hres
= expr_eval(ctx
, expr
->expression2
, 0, ei
, &exprvalr
);
1448 if(SUCCEEDED(hres
)) {
1449 hres
= exprval_to_value(ctx
->parser
->script
, &exprvalr
, ei
, &rval
);
1450 exprval_release(&exprvalr
);
1454 hres
= put_value(ctx
->parser
->script
, &exprval
, &rval
, ei
);
1456 exprval_release(&exprval
);
1458 VariantClear(&rval
);
1462 ret
->type
= EXPRVAL_VARIANT
;
1467 HRESULT
assign_lshift_expression_eval(exec_ctx_t
*ctx
, expression_t
*expr
, DWORD flags
, jsexcept_t
*ei
, exprval_t
*ret
)
1473 HRESULT
assign_rshift_expression_eval(exec_ctx_t
*ctx
, expression_t
*expr
, DWORD flags
, jsexcept_t
*ei
, exprval_t
*ret
)
1479 HRESULT
assign_rrshift_expression_eval(exec_ctx_t
*ctx
, expression_t
*expr
, DWORD flags
, jsexcept_t
*ei
, exprval_t
*ret
)
1485 HRESULT
assign_add_expression_eval(exec_ctx_t
*ctx
, expression_t
*expr
, DWORD flags
, jsexcept_t
*ei
, exprval_t
*ret
)
1491 HRESULT
assign_sub_expression_eval(exec_ctx_t
*ctx
, expression_t
*expr
, DWORD flags
, jsexcept_t
*ei
, exprval_t
*ret
)
1497 HRESULT
assign_mul_expression_eval(exec_ctx_t
*ctx
, expression_t
*expr
, DWORD flags
, jsexcept_t
*ei
, exprval_t
*ret
)
1503 HRESULT
assign_div_expression_eval(exec_ctx_t
*ctx
, expression_t
*expr
, DWORD flags
, jsexcept_t
*ei
, exprval_t
*ret
)
1509 HRESULT
assign_mod_expression_eval(exec_ctx_t
*ctx
, expression_t
*expr
, DWORD flags
, jsexcept_t
*ei
, exprval_t
*ret
)
1515 HRESULT
assign_and_expression_eval(exec_ctx_t
*ctx
, expression_t
*expr
, DWORD flags
, jsexcept_t
*ei
, exprval_t
*ret
)
1521 HRESULT
assign_or_expression_eval(exec_ctx_t
*ctx
, expression_t
*expr
, DWORD flags
, jsexcept_t
*ei
, exprval_t
*ret
)
1527 HRESULT
assign_xor_expression_eval(exec_ctx_t
*ctx
, expression_t
*expr
, DWORD flags
, jsexcept_t
*ei
, exprval_t
*ret
)