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
);
28 builtin_invoke_t value_proc
;
30 source_elements_t
*source
;
31 parameter_t
*parameters
;
32 scope_chain_t
*scope_chain
;
39 static const WCHAR prototypeW
[] = {'p','r','o','t','o','t', 'y', 'p','e',0};
41 static const WCHAR lengthW
[] = {'l','e','n','g','t','h',0};
42 static const WCHAR toStringW
[] = {'t','o','S','t','r','i','n','g',0};
43 static const WCHAR toLocaleStringW
[] = {'t','o','L','o','c','a','l','e','S','t','r','i','n','g',0};
44 static const WCHAR valueOfW
[] = {'v','a','l','u','e','O','f',0};
45 static const WCHAR applyW
[] = {'a','p','p','l','y',0};
46 static const WCHAR callW
[] = {'c','a','l','l',0};
47 static const WCHAR hasOwnPropertyW
[] = {'h','a','s','O','w','n','P','r','o','p','e','r','t','y',0};
48 static const WCHAR propertyIsEnumerableW
[] = {'p','r','o','p','e','r','t','y','I','s','E','n','u','m','e','r','a','b','l','e',0};
49 static const WCHAR isPrototypeOfW
[] = {'i','s','P','r','o','t','o','t','y','p','e','O','f',0};
51 static IDispatch
*get_this(DISPPARAMS
*dp
)
55 for(i
=0; i
< dp
->cNamedArgs
; i
++) {
56 if(dp
->rgdispidNamedArgs
[i
] == DISPID_THIS
) {
57 if(V_VT(dp
->rgvarg
+i
) == VT_DISPATCH
)
58 return V_DISPATCH(dp
->rgvarg
+i
);
60 WARN("This is not VT_DISPATCH\n");
65 TRACE("no this passed\n");
69 static HRESULT
init_parameters(DispatchEx
*var_disp
, FunctionInstance
*function
, LCID lcid
, DISPPARAMS
*dp
,
70 jsexcept_t
*ei
, IServiceProvider
*caller
)
77 V_VT(&var_empty
) = VT_EMPTY
;
78 cargs
= dp
->cArgs
- dp
->cNamedArgs
;
80 for(param
= function
->parameters
; param
; param
= param
->next
) {
81 hres
= jsdisp_propput_name(var_disp
, param
->identifier
, lcid
,
82 i
< cargs
? dp
->rgvarg
+ dp
->cArgs
-1 - i
: &var_empty
,
93 static HRESULT
init_arguments(DispatchEx
*arg_disp
, FunctionInstance
*function
, LCID lcid
, DISPPARAMS
*dp
,
94 jsexcept_t
*ei
, IServiceProvider
*caller
)
100 for(i
=0; i
< dp
->cArgs
-dp
->cNamedArgs
; i
++) {
101 hres
= jsdisp_propput_idx(arg_disp
, i
, lcid
, dp
->rgvarg
+dp
->cArgs
-1-i
, ei
, caller
);
107 V_I4(&var
) = dp
->cArgs
- dp
->cNamedArgs
;
108 return jsdisp_propput_name(arg_disp
, lengthW
, lcid
, &var
, ei
, caller
);
111 static HRESULT
create_var_disp(FunctionInstance
*function
, LCID lcid
, DISPPARAMS
*dp
, jsexcept_t
*ei
,
112 IServiceProvider
*caller
, DispatchEx
**ret
)
114 DispatchEx
*var_disp
, *arg_disp
;
117 static const WCHAR argumentsW
[] = {'a','r','g','u','m','e','n','t','s',0};
119 hres
= create_dispex(function
->dispex
.ctx
, NULL
, NULL
, &var_disp
);
123 hres
= create_dispex(function
->dispex
.ctx
, NULL
, NULL
, &arg_disp
);
124 if(SUCCEEDED(hres
)) {
125 hres
= init_arguments(arg_disp
, function
, lcid
, dp
, ei
, caller
);
126 if(SUCCEEDED(hres
)) {
129 V_VT(&var
) = VT_DISPATCH
;
130 V_DISPATCH(&var
) = (IDispatch
*)_IDispatchEx_(arg_disp
);
131 hres
= jsdisp_propput_name(var_disp
, argumentsW
, lcid
, &var
, ei
, caller
);
134 jsdisp_release(arg_disp
);
138 hres
= init_parameters(var_disp
, function
, lcid
, dp
, ei
, caller
);
140 jsdisp_release(var_disp
);
148 static HRESULT
invoke_source(FunctionInstance
*function
, IDispatch
*this_obj
, LCID lcid
, DISPPARAMS
*dp
,
149 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*caller
)
151 DispatchEx
*var_disp
;
152 exec_ctx_t
*exec_ctx
;
153 scope_chain_t
*scope
;
156 if(!function
->source
) {
157 FIXME("no source\n");
161 hres
= create_var_disp(function
, lcid
, dp
, ei
, caller
, &var_disp
);
165 hres
= scope_push(function
->scope_chain
, var_disp
, &scope
);
166 if(SUCCEEDED(hres
)) {
167 hres
= create_exec_ctx(this_obj
, var_disp
, scope
, &exec_ctx
);
168 scope_release(scope
);
173 hres
= exec_source(exec_ctx
, function
->parser
, function
->source
, ei
, retv
);
174 exec_release(exec_ctx
);
179 static HRESULT
invoke_function(FunctionInstance
*function
, LCID lcid
, DISPPARAMS
*dp
,
180 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*caller
)
184 if(!(this_obj
= get_this(dp
)))
185 this_obj
= (IDispatch
*)_IDispatchEx_(function
->dispex
.ctx
->script_disp
);
187 return invoke_source(function
, this_obj
, lcid
, dp
, retv
, ei
, caller
);
190 static HRESULT
invoke_constructor(FunctionInstance
*function
, LCID lcid
, DISPPARAMS
*dp
,
191 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*caller
)
193 DispatchEx
*this_obj
;
196 hres
= create_object(function
->dispex
.ctx
, &function
->dispex
, &this_obj
);
200 hres
= invoke_source(function
, (IDispatch
*)_IDispatchEx_(this_obj
), lcid
, dp
, retv
, ei
, caller
);
201 jsdisp_release(this_obj
);
205 V_VT(retv
) = VT_DISPATCH
;
206 V_DISPATCH(retv
) = (IDispatch
*)_IDispatchEx_(this_obj
);
210 static HRESULT
invoke_value_proc(FunctionInstance
*function
, LCID lcid
, WORD flags
, DISPPARAMS
*dp
,
211 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*caller
)
213 DispatchEx
*this_obj
= NULL
;
214 IDispatch
*this_disp
;
217 this_disp
= get_this(dp
);
219 this_obj
= iface_to_jsdisp((IUnknown
*)this_disp
);
221 hres
= function
->value_proc(this_obj
? this_obj
: function
->dispex
.ctx
->script_disp
, lcid
,
222 flags
, dp
, retv
, ei
, caller
);
225 jsdisp_release(this_obj
);
229 static HRESULT
function_to_string(FunctionInstance
*function
, BSTR
*ret
)
233 if(function
->value_proc
) {
234 FIXME("Builtin functions not implemented\n");
238 str
= SysAllocStringLen(function
->src_str
, function
->src_len
);
240 return E_OUTOFMEMORY
;
246 static HRESULT
Function_length(DispatchEx
*dispex
, LCID lcid
, WORD flags
, DISPPARAMS
*dp
,
247 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
249 FunctionInstance
*This
= (FunctionInstance
*)dispex
;
251 TRACE("%p %d\n", This
, This
->length
);
254 case DISPATCH_PROPERTYGET
:
256 V_I4(retv
) = This
->length
;
259 FIXME("unimplemented flags %x\n", flags
);
266 static HRESULT
Function_toString(DispatchEx
*dispex
, LCID lcid
, WORD flags
, DISPPARAMS
*dp
,
267 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
269 FunctionInstance
*function
;
275 if(!is_class(dispex
, JSCLASS_FUNCTION
)) {
276 FIXME("throw TypeError\n");
280 function
= (FunctionInstance
*)dispex
;
282 hres
= function_to_string(function
, &str
);
287 V_VT(retv
) = VT_BSTR
;
295 static HRESULT
Function_toLocaleString(DispatchEx
*dispex
, LCID lcid
, WORD flags
, DISPPARAMS
*dp
,
296 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
302 static HRESULT
Function_valueOf(DispatchEx
*dispex
, LCID lcid
, WORD flags
, DISPPARAMS
*dp
,
303 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
309 static HRESULT
Function_apply(DispatchEx
*dispex
, LCID lcid
, WORD flags
, DISPPARAMS
*dp
,
310 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
316 static HRESULT
Function_call(DispatchEx
*dispex
, LCID lcid
, WORD flags
, DISPPARAMS
*dp
,
317 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
323 static HRESULT
Function_hasOwnProperty(DispatchEx
*dispex
, LCID lcid
, WORD flags
, DISPPARAMS
*dp
,
324 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
330 static HRESULT
Function_propertyIsEnumerable(DispatchEx
*dispex
, LCID lcid
, WORD flags
, DISPPARAMS
*dp
,
331 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
337 static HRESULT
Function_isPrototypeOf(DispatchEx
*dispex
, LCID lcid
, WORD flags
, DISPPARAMS
*dp
,
338 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
344 static HRESULT
Function_value(DispatchEx
*dispex
, LCID lcid
, WORD flags
, DISPPARAMS
*dp
,
345 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*caller
)
347 FunctionInstance
*function
;
351 if(dispex
->builtin_info
->class != JSCLASS_FUNCTION
) {
352 ERR("dispex is not a function\n");
356 function
= (FunctionInstance
*)dispex
;
359 case DISPATCH_METHOD
:
360 if(function
->value_proc
)
361 return invoke_value_proc(function
, lcid
, flags
, dp
, retv
, ei
, caller
);
363 return invoke_function(function
, lcid
, dp
, retv
, ei
, caller
);
365 case DISPATCH_PROPERTYGET
: {
369 hres
= function_to_string(function
, &str
);
373 V_VT(retv
) = VT_BSTR
;
378 case DISPATCH_CONSTRUCT
:
379 if(function
->value_proc
)
380 return invoke_value_proc(function
, lcid
, flags
, dp
, retv
, ei
, caller
);
382 return invoke_constructor(function
, lcid
, dp
, retv
, ei
, caller
);
385 FIXME("not implemented flags %x\n", flags
);
392 static void Function_destructor(DispatchEx
*dispex
)
394 FunctionInstance
*This
= (FunctionInstance
*)dispex
;
397 parser_release(This
->parser
);
398 if(This
->scope_chain
)
399 scope_release(This
->scope_chain
);
403 static const builtin_prop_t Function_props
[] = {
404 {applyW
, Function_apply
, PROPF_METHOD
},
405 {callW
, Function_call
, PROPF_METHOD
},
406 {hasOwnPropertyW
, Function_hasOwnProperty
, PROPF_METHOD
},
407 {isPrototypeOfW
, Function_isPrototypeOf
, PROPF_METHOD
},
408 {lengthW
, Function_length
, 0},
409 {propertyIsEnumerableW
, Function_propertyIsEnumerable
, PROPF_METHOD
},
410 {toLocaleStringW
, Function_toLocaleString
, PROPF_METHOD
},
411 {toStringW
, Function_toString
, PROPF_METHOD
},
412 {valueOfW
, Function_valueOf
, PROPF_METHOD
}
415 static const builtin_info_t Function_info
= {
417 {NULL
, Function_value
, 0},
418 sizeof(Function_props
)/sizeof(*Function_props
),
424 static HRESULT
FunctionConstr_value(DispatchEx
*dispex
, LCID lcid
, WORD flags
, DISPPARAMS
*dp
,
425 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
431 static HRESULT
FunctionProt_value(DispatchEx
*dispex
, LCID lcid
, WORD flags
, DISPPARAMS
*dp
,
432 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
438 static HRESULT
create_function(script_ctx_t
*ctx
, DWORD flags
, BOOL funcprot
, DispatchEx
*prototype
, FunctionInstance
**ret
)
440 FunctionInstance
*function
;
443 function
= heap_alloc_zero(sizeof(FunctionInstance
));
445 return E_OUTOFMEMORY
;
448 hres
= init_dispex(&function
->dispex
, ctx
, &Function_info
, prototype
);
450 hres
= init_dispex_from_constr(&function
->dispex
, ctx
, &Function_info
, ctx
->function_constr
);
454 function
->flags
= flags
;
455 function
->length
= flags
& PROPF_ARGMASK
;
461 V_VT(&var
) = VT_DISPATCH
;
462 V_DISPATCH(&var
) = (IDispatch
*)_IDispatchEx_(prototype
);
463 memset(&jsexcept
, 0, sizeof(jsexcept
));
465 hres
= jsdisp_propput_name(&function
->dispex
, prototypeW
, ctx
->lcid
, &var
, &jsexcept
, NULL
/*FIXME*/);
467 IDispatchEx_Release(_IDispatchEx_(&function
->dispex
));
476 HRESULT
create_builtin_function(script_ctx_t
*ctx
, builtin_invoke_t value_proc
, DWORD flags
,
477 DispatchEx
*prototype
, DispatchEx
**ret
)
479 FunctionInstance
*function
;
482 hres
= create_function(ctx
, flags
, FALSE
, prototype
, &function
);
486 function
->value_proc
= value_proc
;
488 *ret
= &function
->dispex
;
492 HRESULT
create_source_function(parser_ctx_t
*ctx
, parameter_t
*parameters
, source_elements_t
*source
,
493 scope_chain_t
*scope_chain
, const WCHAR
*src_str
, DWORD src_len
, DispatchEx
**ret
)
495 FunctionInstance
*function
;
496 DispatchEx
*prototype
;
501 hres
= create_object(ctx
->script
, NULL
, &prototype
);
505 hres
= create_function(ctx
->script
, PROPF_CONSTR
, FALSE
, prototype
, &function
);
506 jsdisp_release(prototype
);
510 function
->source
= source
;
511 function
->parameters
= parameters
;
514 scope_addref(scope_chain
);
515 function
->scope_chain
= scope_chain
;
519 function
->parser
= ctx
;
521 for(iter
= parameters
; iter
; iter
= iter
->next
)
523 function
->length
= length
;
525 function
->src_str
= src_str
;
526 function
->src_len
= src_len
;
528 *ret
= &function
->dispex
;
532 HRESULT
init_function_constr(script_ctx_t
*ctx
)
534 FunctionInstance
*prot
, *constr
;
537 hres
= create_function(ctx
, PROPF_CONSTR
, TRUE
, NULL
, &prot
);
541 prot
->value_proc
= FunctionProt_value
;
543 hres
= create_function(ctx
, PROPF_CONSTR
, TRUE
, &prot
->dispex
, &constr
);
544 jsdisp_release(&prot
->dispex
);
548 constr
->value_proc
= FunctionConstr_value
;
549 ctx
->function_constr
= &constr
->dispex
;