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
;
31 source_elements_t
*source
;
32 parameter_t
*parameters
;
33 scope_chain_t
*scope_chain
;
40 static inline FunctionInstance
*function_from_vdisp(vdisp_t
*vdisp
)
42 return (FunctionInstance
*)vdisp
->u
.jsdisp
;
45 static inline FunctionInstance
*function_this(vdisp_t
*jsthis
)
47 return is_vclass(jsthis
, JSCLASS_FUNCTION
) ? function_from_vdisp(jsthis
) : NULL
;
50 static const WCHAR prototypeW
[] = {'p','r','o','t','o','t', 'y', 'p','e',0};
52 static const WCHAR lengthW
[] = {'l','e','n','g','t','h',0};
53 static const WCHAR toStringW
[] = {'t','o','S','t','r','i','n','g',0};
54 static const WCHAR applyW
[] = {'a','p','p','l','y',0};
55 static const WCHAR callW
[] = {'c','a','l','l',0};
57 static IDispatch
*get_this(DISPPARAMS
*dp
)
61 for(i
=0; i
< dp
->cNamedArgs
; i
++) {
62 if(dp
->rgdispidNamedArgs
[i
] == DISPID_THIS
) {
63 if(V_VT(dp
->rgvarg
+i
) == VT_DISPATCH
)
64 return V_DISPATCH(dp
->rgvarg
+i
);
66 WARN("This is not VT_DISPATCH\n");
71 TRACE("no this passed\n");
75 static HRESULT
init_parameters(DispatchEx
*var_disp
, FunctionInstance
*function
, DISPPARAMS
*dp
,
76 jsexcept_t
*ei
, IServiceProvider
*caller
)
83 V_VT(&var_empty
) = VT_EMPTY
;
86 for(param
= function
->parameters
; param
; param
= param
->next
) {
87 hres
= jsdisp_propput_name(var_disp
, param
->identifier
,
88 i
< cargs
? get_arg(dp
,i
) : &var_empty
, ei
, caller
);
98 static HRESULT
Arguments_value(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, DISPPARAMS
*dp
,
99 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*caller
)
105 static const builtin_info_t Arguments_info
= {
107 {NULL
, Arguments_value
, 0},
113 static HRESULT
create_arguments(script_ctx_t
*ctx
, IDispatch
*calee
, DISPPARAMS
*dp
,
114 jsexcept_t
*ei
, IServiceProvider
*caller
, DispatchEx
**ret
)
121 static const WCHAR caleeW
[] = {'c','a','l','l','e','e',0};
123 args
= heap_alloc_zero(sizeof(DispatchEx
));
125 return E_OUTOFMEMORY
;
127 hres
= init_dispex_from_constr(args
, ctx
, &Arguments_info
, ctx
->object_constr
);
133 for(i
=0; i
< arg_cnt(dp
); i
++) {
134 hres
= jsdisp_propput_idx(args
, i
, get_arg(dp
,i
), ei
, caller
);
139 if(SUCCEEDED(hres
)) {
141 V_I4(&var
) = arg_cnt(dp
);
142 hres
= jsdisp_propput_name(args
, lengthW
, &var
, ei
, caller
);
144 if(SUCCEEDED(hres
)) {
145 V_VT(&var
) = VT_DISPATCH
;
146 V_DISPATCH(&var
) = calee
;
147 hres
= jsdisp_propput_name(args
, caleeW
, &var
, ei
, caller
);
152 jsdisp_release(args
);
160 static HRESULT
create_var_disp(script_ctx_t
*ctx
, FunctionInstance
*function
, DISPPARAMS
*dp
, jsexcept_t
*ei
,
161 IServiceProvider
*caller
, DispatchEx
**ret
)
163 DispatchEx
*var_disp
, *arg_disp
;
166 static const WCHAR argumentsW
[] = {'a','r','g','u','m','e','n','t','s',0};
168 hres
= create_dispex(ctx
, NULL
, NULL
, &var_disp
);
172 hres
= create_arguments(ctx
, (IDispatch
*)_IDispatchEx_(&function
->dispex
),
173 dp
, ei
, caller
, &arg_disp
);
174 if(SUCCEEDED(hres
)) {
177 V_VT(&var
) = VT_DISPATCH
;
178 V_DISPATCH(&var
) = (IDispatch
*)_IDispatchEx_(arg_disp
);
179 hres
= jsdisp_propput_name(var_disp
, argumentsW
, &var
, ei
, caller
);
180 jsdisp_release(arg_disp
);
184 hres
= init_parameters(var_disp
, function
, dp
, ei
, caller
);
186 jsdisp_release(var_disp
);
194 static HRESULT
invoke_source(script_ctx_t
*ctx
, FunctionInstance
*function
, IDispatch
*this_obj
, DISPPARAMS
*dp
,
195 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*caller
)
197 DispatchEx
*var_disp
;
198 exec_ctx_t
*exec_ctx
;
199 scope_chain_t
*scope
;
202 if(!function
->source
) {
203 FIXME("no source\n");
207 hres
= create_var_disp(ctx
, function
, dp
, ei
, caller
, &var_disp
);
211 hres
= scope_push(function
->scope_chain
, var_disp
, &scope
);
212 if(SUCCEEDED(hres
)) {
213 hres
= create_exec_ctx(ctx
, this_obj
, var_disp
, scope
, &exec_ctx
);
214 scope_release(scope
);
219 hres
= exec_source(exec_ctx
, function
->parser
, function
->source
, ei
, retv
);
220 exec_release(exec_ctx
);
225 static HRESULT
invoke_constructor(script_ctx_t
*ctx
, FunctionInstance
*function
, DISPPARAMS
*dp
,
226 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*caller
)
228 DispatchEx
*this_obj
;
231 hres
= create_object(ctx
, &function
->dispex
, &this_obj
);
235 hres
= invoke_source(ctx
, function
, (IDispatch
*)_IDispatchEx_(this_obj
), dp
, retv
, ei
, caller
);
237 jsdisp_release(this_obj
);
241 V_VT(retv
) = VT_DISPATCH
;
242 V_DISPATCH(retv
) = (IDispatch
*)_IDispatchEx_(this_obj
);
246 static HRESULT
invoke_value_proc(script_ctx_t
*ctx
, FunctionInstance
*function
, IDispatch
*this_disp
, WORD flags
, DISPPARAMS
*dp
,
247 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*caller
)
253 set_disp(&vthis
, this_disp
);
254 else if(ctx
->host_global
)
255 set_disp(&vthis
, ctx
->host_global
);
257 set_jsdisp(&vthis
, ctx
->global
);
259 hres
= function
->value_proc(ctx
, &vthis
, flags
, dp
, retv
, ei
, caller
);
261 vdisp_release(&vthis
);
265 static HRESULT
call_function(script_ctx_t
*ctx
, FunctionInstance
*function
, IDispatch
*this_obj
, DISPPARAMS
*args
,
266 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*caller
)
268 if(function
->value_proc
)
269 return invoke_value_proc(ctx
, function
, this_obj
, DISPATCH_METHOD
, args
, retv
, ei
, caller
);
271 return invoke_source(ctx
, function
, this_obj
, args
, retv
, ei
, caller
);
274 static HRESULT
function_to_string(FunctionInstance
*function
, BSTR
*ret
)
278 static const WCHAR native_prefixW
[] = {'\n','f','u','n','c','t','i','o','n',' '};
279 static const WCHAR native_suffixW
[] =
280 {'(',')',' ','{','\n',' ',' ',' ',' ','[','n','a','t','i','v','e',' ','c','o','d','e',']','\n','}','\n'};
282 if(function
->value_proc
) {
285 name_len
= strlenW(function
->name
);
286 str
= SysAllocStringLen(NULL
, sizeof(native_prefixW
) + name_len
*sizeof(WCHAR
) + sizeof(native_suffixW
));
288 return E_OUTOFMEMORY
;
290 memcpy(str
, native_prefixW
, sizeof(native_prefixW
));
291 memcpy(str
+ sizeof(native_prefixW
)/sizeof(WCHAR
), function
->name
, name_len
*sizeof(WCHAR
));
292 memcpy(str
+ sizeof(native_prefixW
)/sizeof(WCHAR
) + name_len
, native_suffixW
, sizeof(native_suffixW
));
294 str
= SysAllocStringLen(function
->src_str
, function
->src_len
);
296 return E_OUTOFMEMORY
;
303 static HRESULT
Function_length(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, DISPPARAMS
*dp
,
304 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
306 FunctionInstance
*This
= function_from_vdisp(jsthis
);
308 TRACE("%p %d\n", This
, This
->length
);
311 case DISPATCH_PROPERTYGET
:
313 V_I4(retv
) = This
->length
;
316 FIXME("unimplemented flags %x\n", flags
);
323 static HRESULT
Function_toString(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, DISPPARAMS
*dp
,
324 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
326 FunctionInstance
*function
;
332 if(!(function
= function_this(jsthis
)))
333 return throw_type_error(ctx
, ei
, IDS_NOT_FUNC
, NULL
);
335 hres
= function_to_string(function
, &str
);
340 V_VT(retv
) = VT_BSTR
;
348 static HRESULT
array_to_args(script_ctx_t
*ctx
, DispatchEx
*arg_array
, jsexcept_t
*ei
, IServiceProvider
*caller
,
355 hres
= jsdisp_propget_name(arg_array
, lengthW
, &var
, ei
, NULL
/*FIXME*/);
359 hres
= to_uint32(ctx
, &var
, ei
, &length
);
364 argv
= heap_alloc(length
* sizeof(VARIANT
));
366 return E_OUTOFMEMORY
;
368 for(i
=0; i
<length
; i
++) {
369 hres
= jsdisp_propget_idx(arg_array
, i
, argv
+i
, ei
, caller
);
372 VariantClear(argv
+i
);
378 args
->cArgs
= length
;
383 static HRESULT
Function_apply(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, DISPPARAMS
*dp
,
384 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*caller
)
386 FunctionInstance
*function
;
387 DISPPARAMS args
= {NULL
,NULL
,0,0};
389 IDispatch
*this_obj
= NULL
;
394 if(!(function
= function_this(jsthis
)))
395 return throw_type_error(ctx
, ei
, IDS_NOT_FUNC
, NULL
);
399 hres
= to_object(ctx
, get_arg(dp
,0), &this_obj
);
405 DispatchEx
*arg_array
= NULL
;
407 if(V_VT(get_arg(dp
,1)) == VT_DISPATCH
) {
408 arg_array
= iface_to_jsdisp((IUnknown
*)V_DISPATCH(get_arg(dp
,1)));
410 !is_class(arg_array
, JSCLASS_ARRAY
) && !is_class(arg_array
, JSCLASS_ARGUMENTS
) )) {
411 jsdisp_release(arg_array
);
417 hres
= array_to_args(ctx
, arg_array
, ei
, caller
, &args
);
418 jsdisp_release(arg_array
);
420 FIXME("throw TypeError\n");
425 hres
= call_function(ctx
, function
, this_obj
, &args
, retv
, ei
, caller
);
428 IDispatch_Release(this_obj
);
429 for(i
=0; i
<args
.cArgs
; i
++)
430 VariantClear(args
.rgvarg
+i
);
431 heap_free(args
.rgvarg
);
435 static HRESULT
Function_call(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, DISPPARAMS
*dp
,
436 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*caller
)
438 FunctionInstance
*function
;
439 DISPPARAMS args
= {NULL
,NULL
,0,0};
440 IDispatch
*this_obj
= NULL
;
446 if(!(function
= function_this(jsthis
)))
447 return throw_type_error(ctx
, ei
, IDS_NOT_FUNC
, NULL
);
451 hres
= to_object(ctx
, get_arg(dp
,0), &this_obj
);
458 args
.rgvarg
= dp
->rgvarg
+ dp
->cArgs
- args
.cArgs
-1;
460 hres
= call_function(ctx
, function
, this_obj
, &args
, retv
, ei
, caller
);
463 IDispatch_Release(this_obj
);
467 HRESULT
Function_value(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, DISPPARAMS
*dp
,
468 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*caller
)
470 FunctionInstance
*function
;
474 if(!is_vclass(jsthis
, JSCLASS_FUNCTION
)) {
475 ERR("dispex is not a function\n");
479 function
= (FunctionInstance
*)jsthis
->u
.jsdisp
;
482 case DISPATCH_METHOD
:
483 if(function
->value_proc
)
484 return invoke_value_proc(ctx
, function
, get_this(dp
), flags
, dp
, retv
, ei
, caller
);
486 return invoke_source(ctx
, function
, get_this(dp
), dp
, retv
, ei
, caller
);
488 case DISPATCH_PROPERTYGET
: {
492 hres
= function_to_string(function
, &str
);
496 V_VT(retv
) = VT_BSTR
;
501 case DISPATCH_CONSTRUCT
:
502 if(function
->value_proc
)
503 return invoke_value_proc(ctx
, function
, get_this(dp
), flags
, dp
, retv
, ei
, caller
);
505 return invoke_constructor(ctx
, function
, dp
, retv
, ei
, caller
);
508 FIXME("not implemented flags %x\n", flags
);
515 static void Function_destructor(DispatchEx
*dispex
)
517 FunctionInstance
*This
= (FunctionInstance
*)dispex
;
520 parser_release(This
->parser
);
521 if(This
->scope_chain
)
522 scope_release(This
->scope_chain
);
526 static const builtin_prop_t Function_props
[] = {
527 {applyW
, Function_apply
, PROPF_METHOD
|2},
528 {callW
, Function_call
, PROPF_METHOD
|1},
529 {lengthW
, Function_length
, 0},
530 {toStringW
, Function_toString
, PROPF_METHOD
}
533 static const builtin_info_t Function_info
= {
535 {NULL
, Function_value
, 0},
536 sizeof(Function_props
)/sizeof(*Function_props
),
542 static HRESULT
FunctionConstr_value(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, DISPPARAMS
*dp
,
543 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
549 static HRESULT
FunctionProt_value(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, DISPPARAMS
*dp
,
550 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
556 static HRESULT
create_function(script_ctx_t
*ctx
, const builtin_info_t
*builtin_info
, DWORD flags
,
557 BOOL funcprot
, DispatchEx
*prototype
, FunctionInstance
**ret
)
559 FunctionInstance
*function
;
562 function
= heap_alloc_zero(sizeof(FunctionInstance
));
564 return E_OUTOFMEMORY
;
567 hres
= init_dispex(&function
->dispex
, ctx
, &Function_info
, prototype
);
568 else if(builtin_info
)
569 hres
= init_dispex_from_constr(&function
->dispex
, ctx
, builtin_info
, ctx
->function_constr
);
571 hres
= init_dispex_from_constr(&function
->dispex
, ctx
, &Function_info
, ctx
->function_constr
);
575 function
->flags
= flags
;
576 function
->length
= flags
& PROPF_ARGMASK
;
582 static HRESULT
set_prototype(script_ctx_t
*ctx
, DispatchEx
*dispex
, DispatchEx
*prototype
)
587 V_VT(&var
) = VT_DISPATCH
;
588 V_DISPATCH(&var
) = (IDispatch
*)_IDispatchEx_(prototype
);
589 memset(&jsexcept
, 0, sizeof(jsexcept
));
591 return jsdisp_propput_name(dispex
, prototypeW
, &var
, &jsexcept
, NULL
/*FIXME*/);
594 HRESULT
create_builtin_function(script_ctx_t
*ctx
, builtin_invoke_t value_proc
, const WCHAR
*name
,
595 const builtin_info_t
*builtin_info
, DWORD flags
, DispatchEx
*prototype
, DispatchEx
**ret
)
597 FunctionInstance
*function
;
600 hres
= create_function(ctx
, builtin_info
, flags
, FALSE
, NULL
, &function
);
604 hres
= set_prototype(ctx
, &function
->dispex
, prototype
);
606 jsdisp_release(&function
->dispex
);
610 function
->value_proc
= value_proc
;
611 function
->name
= name
;
613 *ret
= &function
->dispex
;
617 HRESULT
create_source_function(parser_ctx_t
*ctx
, parameter_t
*parameters
, source_elements_t
*source
,
618 scope_chain_t
*scope_chain
, const WCHAR
*src_str
, DWORD src_len
, DispatchEx
**ret
)
620 FunctionInstance
*function
;
621 DispatchEx
*prototype
;
626 hres
= create_object(ctx
->script
, NULL
, &prototype
);
630 hres
= create_function(ctx
->script
, NULL
, PROPF_CONSTR
, FALSE
, NULL
, &function
);
631 if(SUCCEEDED(hres
)) {
632 hres
= set_prototype(ctx
->script
, &function
->dispex
, prototype
);
634 jsdisp_release(&function
->dispex
);
636 jsdisp_release(prototype
);
640 function
->source
= source
;
641 function
->parameters
= parameters
;
644 scope_addref(scope_chain
);
645 function
->scope_chain
= scope_chain
;
649 function
->parser
= ctx
;
651 for(iter
= parameters
; iter
; iter
= iter
->next
)
653 function
->length
= length
;
655 function
->src_str
= src_str
;
656 function
->src_len
= src_len
;
658 *ret
= &function
->dispex
;
662 HRESULT
init_function_constr(script_ctx_t
*ctx
, DispatchEx
*object_prototype
)
664 FunctionInstance
*prot
, *constr
;
667 static const WCHAR FunctionW
[] = {'F','u','n','c','t','i','o','n',0};
669 hres
= create_function(ctx
, NULL
, PROPF_CONSTR
, TRUE
, object_prototype
, &prot
);
673 prot
->value_proc
= FunctionProt_value
;
674 prot
->name
= prototypeW
;
676 hres
= create_function(ctx
, NULL
, PROPF_CONSTR
|1, TRUE
, &prot
->dispex
, &constr
);
677 if(SUCCEEDED(hres
)) {
678 constr
->value_proc
= FunctionConstr_value
;
679 constr
->name
= FunctionW
;
680 hres
= set_prototype(ctx
, &constr
->dispex
, &prot
->dispex
);
682 jsdisp_release(&constr
->dispex
);
684 jsdisp_release(&prot
->dispex
);
688 ctx
->function_constr
= &constr
->dispex
;