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
;
37 static const WCHAR prototypeW
[] = {'p','r','o','t','o','t', 'y', 'p','e',0};
39 static const WCHAR lengthW
[] = {'l','e','n','g','t','h',0};
40 static const WCHAR toStringW
[] = {'t','o','S','t','r','i','n','g',0};
41 static const WCHAR toLocaleStringW
[] = {'t','o','L','o','c','a','l','e','S','t','r','i','n','g',0};
42 static const WCHAR valueOfW
[] = {'v','a','l','u','e','O','f',0};
43 static const WCHAR applyW
[] = {'a','p','p','l','y',0};
44 static const WCHAR callW
[] = {'c','a','l','l',0};
45 static const WCHAR hasOwnPropertyW
[] = {'h','a','s','O','w','n','P','r','o','p','e','r','t','y',0};
46 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};
47 static const WCHAR isPrototypeOfW
[] = {'i','s','P','r','o','t','o','t','y','p','e','O','f',0};
49 static IDispatch
*get_this(DISPPARAMS
*dp
)
53 for(i
=0; i
< dp
->cNamedArgs
; i
++) {
54 if(dp
->rgdispidNamedArgs
[i
] == DISPID_THIS
) {
55 if(V_VT(dp
->rgvarg
+i
) == VT_DISPATCH
)
56 return V_DISPATCH(dp
->rgvarg
+i
);
58 WARN("This is not VT_DISPATCH\n");
63 TRACE("no this passed\n");
67 static HRESULT
init_parameters(DispatchEx
*var_disp
, FunctionInstance
*function
, LCID lcid
, DISPPARAMS
*dp
,
68 jsexcept_t
*ei
, IServiceProvider
*caller
)
75 V_VT(&var_empty
) = VT_EMPTY
;
76 cargs
= dp
->cArgs
- dp
->cNamedArgs
;
78 for(param
= function
->parameters
; param
; param
= param
->next
) {
79 hres
= jsdisp_propput_name(var_disp
, param
->identifier
, lcid
,
80 i
< cargs
? dp
->rgvarg
+ dp
->cArgs
-1 - i
: &var_empty
,
91 static HRESULT
init_arguments(DispatchEx
*arg_disp
, FunctionInstance
*function
, LCID lcid
, DISPPARAMS
*dp
,
92 jsexcept_t
*ei
, IServiceProvider
*caller
)
98 for(i
=0; i
< dp
->cArgs
-dp
->cNamedArgs
; i
++) {
99 hres
= jsdisp_propput_idx(arg_disp
, i
, lcid
, dp
->rgvarg
+dp
->cArgs
-1-i
, ei
, caller
);
105 V_I4(&var
) = dp
->cArgs
- dp
->cNamedArgs
;
106 return jsdisp_propput_name(arg_disp
, lengthW
, lcid
, &var
, ei
, caller
);
109 static HRESULT
create_var_disp(FunctionInstance
*function
, LCID lcid
, DISPPARAMS
*dp
, jsexcept_t
*ei
,
110 IServiceProvider
*caller
, DispatchEx
**ret
)
112 DispatchEx
*var_disp
, *arg_disp
;
115 static const WCHAR argumentsW
[] = {'a','r','g','u','m','e','n','t','s',0};
117 hres
= create_dispex(function
->dispex
.ctx
, NULL
, NULL
, &var_disp
);
121 hres
= create_dispex(function
->dispex
.ctx
, NULL
, NULL
, &arg_disp
);
122 if(SUCCEEDED(hres
)) {
123 hres
= init_arguments(arg_disp
, function
, lcid
, dp
, ei
, caller
);
124 if(SUCCEEDED(hres
)) {
127 V_VT(&var
) = VT_DISPATCH
;
128 V_DISPATCH(&var
) = (IDispatch
*)_IDispatchEx_(arg_disp
);
129 hres
= jsdisp_propput_name(var_disp
, argumentsW
, lcid
, &var
, ei
, caller
);
132 jsdisp_release(arg_disp
);
136 hres
= init_parameters(var_disp
, function
, lcid
, dp
, ei
, caller
);
138 jsdisp_release(var_disp
);
146 static HRESULT
invoke_source(FunctionInstance
*function
, IDispatch
*this_obj
, LCID lcid
, DISPPARAMS
*dp
,
147 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*caller
)
149 DispatchEx
*var_disp
;
150 exec_ctx_t
*exec_ctx
;
151 scope_chain_t
*scope
;
154 if(!function
->source
) {
155 FIXME("no source\n");
159 hres
= create_var_disp(function
, lcid
, dp
, ei
, caller
, &var_disp
);
163 hres
= scope_push(function
->scope_chain
, var_disp
, &scope
);
164 if(SUCCEEDED(hres
)) {
165 hres
= create_exec_ctx(this_obj
, var_disp
, scope
, &exec_ctx
);
166 scope_release(scope
);
171 hres
= exec_source(exec_ctx
, function
->parser
, function
->source
, ei
, retv
);
172 exec_release(exec_ctx
);
177 static HRESULT
invoke_function(FunctionInstance
*function
, LCID lcid
, DISPPARAMS
*dp
,
178 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*caller
)
182 if(!(this_obj
= get_this(dp
)))
183 this_obj
= (IDispatch
*)_IDispatchEx_(function
->dispex
.ctx
->script_disp
);
185 return invoke_source(function
, this_obj
, lcid
, dp
, retv
, ei
, caller
);
188 static HRESULT
invoke_constructor(FunctionInstance
*function
, LCID lcid
, DISPPARAMS
*dp
,
189 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*caller
)
191 DispatchEx
*this_obj
;
195 hres
= create_object(function
->dispex
.ctx
, &function
->dispex
, &this_obj
);
199 hres
= invoke_source(function
, (IDispatch
*)_IDispatchEx_(this_obj
), lcid
, dp
, retv
, ei
, caller
);
200 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_length(DispatchEx
*dispex
, LCID lcid
, WORD flags
, DISPPARAMS
*dp
,
230 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
232 FunctionInstance
*This
= (FunctionInstance
*)dispex
;
234 TRACE("%p %d\n", This
, This
->length
);
237 case DISPATCH_PROPERTYGET
:
239 V_I4(retv
) = This
->length
;
242 FIXME("unimplemented flags %x\n", flags
);
249 static HRESULT
Function_toString(DispatchEx
*dispex
, LCID lcid
, WORD flags
, DISPPARAMS
*dp
,
250 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
256 static HRESULT
Function_toLocaleString(DispatchEx
*dispex
, LCID lcid
, WORD flags
, DISPPARAMS
*dp
,
257 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
263 static HRESULT
Function_valueOf(DispatchEx
*dispex
, LCID lcid
, WORD flags
, DISPPARAMS
*dp
,
264 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
270 static HRESULT
Function_apply(DispatchEx
*dispex
, LCID lcid
, WORD flags
, DISPPARAMS
*dp
,
271 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
277 static HRESULT
Function_call(DispatchEx
*dispex
, LCID lcid
, WORD flags
, DISPPARAMS
*dp
,
278 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
284 static HRESULT
Function_hasOwnProperty(DispatchEx
*dispex
, LCID lcid
, WORD flags
, DISPPARAMS
*dp
,
285 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
291 static HRESULT
Function_propertyIsEnumerable(DispatchEx
*dispex
, LCID lcid
, WORD flags
, DISPPARAMS
*dp
,
292 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
298 static HRESULT
Function_isPrototypeOf(DispatchEx
*dispex
, LCID lcid
, WORD flags
, DISPPARAMS
*dp
,
299 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*sp
)
305 static HRESULT
Function_value(DispatchEx
*dispex
, LCID lcid
, WORD flags
, DISPPARAMS
*dp
,
306 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*caller
)
308 FunctionInstance
*function
;
312 if(dispex
->builtin_info
->class != JSCLASS_FUNCTION
) {
313 ERR("dispex is not a function\n");
317 function
= (FunctionInstance
*)dispex
;
320 case DISPATCH_METHOD
:
321 if(function
->value_proc
)
322 return invoke_value_proc(function
, lcid
, flags
, dp
, retv
, ei
, caller
);
324 return invoke_function(function
, lcid
, dp
, retv
, ei
, caller
);
326 case DISPATCH_CONSTRUCT
:
327 if(function
->value_proc
)
328 return invoke_value_proc(function
, lcid
, flags
, dp
, retv
, ei
, caller
);
330 return invoke_constructor(function
, lcid
, dp
, retv
, ei
, caller
);
333 FIXME("not implemented flags %x\n", flags
);
340 static void Function_destructor(DispatchEx
*dispex
)
342 FunctionInstance
*This
= (FunctionInstance
*)dispex
;
345 parser_release(This
->parser
);
346 if(This
->scope_chain
)
347 scope_release(This
->scope_chain
);
351 static const builtin_prop_t Function_props
[] = {
352 {applyW
, Function_apply
, PROPF_METHOD
},
353 {callW
, Function_call
, PROPF_METHOD
},
354 {hasOwnPropertyW
, Function_hasOwnProperty
, PROPF_METHOD
},
355 {isPrototypeOfW
, Function_isPrototypeOf
, PROPF_METHOD
},
356 {lengthW
, Function_length
, 0},
357 {propertyIsEnumerableW
, Function_propertyIsEnumerable
, PROPF_METHOD
},
358 {toLocaleStringW
, Function_toLocaleString
, PROPF_METHOD
},
359 {toStringW
, Function_toString
, PROPF_METHOD
},
360 {valueOfW
, Function_valueOf
, PROPF_METHOD
}
363 static const builtin_info_t Function_info
= {
365 {NULL
, Function_value
, 0},
366 sizeof(Function_props
)/sizeof(*Function_props
),
372 static HRESULT
create_function(script_ctx_t
*ctx
, DWORD flags
, DispatchEx
*prototype
, FunctionInstance
**ret
)
374 FunctionInstance
*function
;
377 function
= heap_alloc_zero(sizeof(FunctionInstance
));
379 return E_OUTOFMEMORY
;
381 hres
= init_dispex(&function
->dispex
, ctx
, &Function_info
, NULL
);
385 function
->flags
= flags
;
386 function
->length
= flags
& PROPF_ARGMASK
;
392 V_VT(&var
) = VT_DISPATCH
;
393 V_DISPATCH(&var
) = (IDispatch
*)_IDispatchEx_(prototype
);
394 memset(&jsexcept
, 0, sizeof(jsexcept
));
396 hres
= jsdisp_propput_name(&function
->dispex
, prototypeW
, ctx
->lcid
, &var
, &jsexcept
, NULL
/*FIXME*/);
398 IDispatchEx_Release(_IDispatchEx_(&function
->dispex
));
407 HRESULT
create_builtin_function(script_ctx_t
*ctx
, builtin_invoke_t value_proc
, DWORD flags
,
408 DispatchEx
*prototype
, DispatchEx
**ret
)
410 FunctionInstance
*function
;
413 hres
= create_function(ctx
, flags
, prototype
, &function
);
417 function
->value_proc
= value_proc
;
419 *ret
= &function
->dispex
;
423 HRESULT
create_source_function(parser_ctx_t
*ctx
, parameter_t
*parameters
, source_elements_t
*source
,
424 scope_chain_t
*scope_chain
, DispatchEx
**ret
)
426 FunctionInstance
*function
;
427 DispatchEx
*prototype
;
432 hres
= create_object(ctx
->script
, NULL
, &prototype
);
436 hres
= create_function(ctx
->script
, PROPF_CONSTR
, prototype
, &function
);
437 jsdisp_release(prototype
);
441 function
->source
= source
;
442 function
->parameters
= parameters
;
445 scope_addref(scope_chain
);
446 function
->scope_chain
= scope_chain
;
450 function
->parser
= ctx
;
452 for(iter
= parameters
; iter
; iter
= iter
->next
)
454 function
->length
= length
;
456 *ret
= &function
->dispex
;