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
23 #include "wine/unicode.h"
24 #include "wine/debug.h"
26 WINE_DEFAULT_DEBUG_CHANNEL(jscript);
29 * This IID is used to get jsdisp_t objecto from interface.
30 * We might consider using private interface instead.
32 static const IID IID_IDispatchJS =
33 {0x719c3050,0xf9d3,0x11cf,{0xa4,0x93,0x00,0x40,0x05,0x23,0xa8,0xa6}};
35 #define FDEX_VERSION_MASK 0xf0000000
36 #define GOLDEN_RATIO 0x9E3779B9U
46 struct _dispex_prop_t {
54 const builtin_prop_t *p;
63 static inline DISPID prop_to_id(jsdisp_t *This, dispex_prop_t *prop)
65 return prop - This->props;
68 static inline dispex_prop_t *get_prop(jsdisp_t *This, DISPID id)
70 if(id < 0 || id >= This->prop_cnt || This->props[id].type == PROP_DELETED)
73 return This->props+id;
76 static DWORD get_flags(jsdisp_t *This, dispex_prop_t *prop)
78 if(prop->type == PROP_PROTREF) {
79 dispex_prop_t *parent = get_prop(This->prototype, prop->u.ref);
81 prop->type = PROP_DELETED;
85 return get_flags(This->prototype, parent);
91 static const builtin_prop_t *find_builtin_prop(jsdisp_t *This, const WCHAR *name)
93 int min = 0, max, i, r;
95 max = This->builtin_info->props_cnt-1;
99 r = strcmpW(name, This->builtin_info->props[i].name);
101 return This->builtin_info->props + i;
112 static inline unsigned string_hash(const WCHAR *name)
116 h = (h>>(sizeof(unsigned)*8-4)) ^ (h<<4) ^ tolowerW(*name);
120 static inline unsigned get_props_idx(jsdisp_t *This, unsigned hash)
122 return (hash*GOLDEN_RATIO) & (This->buf_size-1);
125 static inline HRESULT resize_props(jsdisp_t *This)
127 dispex_prop_t *props;
130 if(This->buf_size != This->prop_cnt)
133 props = heap_realloc(This->props, sizeof(dispex_prop_t)*This->buf_size*2);
135 return E_OUTOFMEMORY;
139 for(i=0; i<This->buf_size; i++) {
140 This->props[i].bucket_head = 0;
141 This->props[i].bucket_next = 0;
144 for(i=1; i<This->prop_cnt; i++) {
145 props = This->props+i;
147 bucket = get_props_idx(This, props->hash);
148 props->bucket_next = This->props[bucket].bucket_head;
149 This->props[bucket].bucket_head = i;
155 static inline dispex_prop_t* alloc_prop(jsdisp_t *This, const WCHAR *name, prop_type_t type, DWORD flags)
160 if(FAILED(resize_props(This)))
163 prop = &This->props[This->prop_cnt];
164 prop->name = heap_strdupW(name);
169 prop->hash = string_hash(name);
171 bucket = get_props_idx(This, prop->hash);
172 prop->bucket_next = This->props[bucket].bucket_head;
173 This->props[bucket].bucket_head = This->prop_cnt++;
177 static dispex_prop_t *alloc_protref(jsdisp_t *This, const WCHAR *name, DWORD ref)
181 ret = alloc_prop(This, name, PROP_PROTREF, 0);
189 static HRESULT find_prop_name(jsdisp_t *This, unsigned hash, const WCHAR *name, dispex_prop_t **ret)
191 const builtin_prop_t *builtin;
192 unsigned bucket, pos, prev = 0;
195 bucket = get_props_idx(This, hash);
196 pos = This->props[bucket].bucket_head;
198 if(!strcmpW(name, This->props[pos].name)) {
200 This->props[prev].bucket_next = This->props[pos].bucket_next;
201 This->props[pos].bucket_next = This->props[bucket].bucket_head;
202 This->props[bucket].bucket_head = pos;
205 *ret = &This->props[pos];
210 pos = This->props[pos].bucket_next;
213 builtin = find_builtin_prop(This, name);
215 prop = alloc_prop(This, name, PROP_BUILTIN, builtin->flags);
217 return E_OUTOFMEMORY;
224 if(This->builtin_info->idx_length) {
228 for(ptr = name; isdigitW(*ptr) && idx < 0x10000; ptr++)
229 idx = idx*10 + (*ptr-'0');
230 if(!*ptr && idx < This->builtin_info->idx_length(This)) {
231 prop = alloc_prop(This, name, PROP_IDX, This->builtin_info->idx_put ? 0 : PROPF_CONST);
233 return E_OUTOFMEMORY;
245 static HRESULT find_prop_name_prot(jsdisp_t *This, unsigned hash, const WCHAR *name, dispex_prop_t **ret)
247 dispex_prop_t *prop, *del=NULL;
250 hres = find_prop_name(This, hash, name, &prop);
253 if(prop && prop->type==PROP_DELETED) {
260 if(This->prototype) {
261 hres = find_prop_name_prot(This->prototype, hash, name, &prop);
266 del->type = PROP_PROTREF;
268 del->u.ref = prop - This->prototype->props;
271 prop = alloc_protref(This, prop->name, prop - This->prototype->props);
273 return E_OUTOFMEMORY;
285 static HRESULT ensure_prop_name(jsdisp_t *This, const WCHAR *name, BOOL search_prot, DWORD create_flags, dispex_prop_t **ret)
291 hres = find_prop_name_prot(This, string_hash(name), name, &prop);
293 hres = find_prop_name(This, string_hash(name), name, &prop);
294 if(SUCCEEDED(hres) && (!prop || prop->type == PROP_DELETED)) {
295 TRACE("creating prop %s flags %x\n", debugstr_w(name), create_flags);
298 prop->type = PROP_JSVAL;
299 prop->flags = create_flags;
300 prop->u.val = jsval_undefined();
302 prop = alloc_prop(This, name, PROP_JSVAL, create_flags);
304 return E_OUTOFMEMORY;
307 prop->u.val = jsval_undefined();
314 static IDispatch *get_this(DISPPARAMS *dp)
318 for(i=0; i < dp->cNamedArgs; i++) {
319 if(dp->rgdispidNamedArgs[i] == DISPID_THIS) {
320 if(V_VT(dp->rgvarg+i) == VT_DISPATCH)
321 return V_DISPATCH(dp->rgvarg+i);
323 WARN("This is not VT_DISPATCH\n");
328 TRACE("no this passed\n");
332 static HRESULT convert_params(const DISPPARAMS *dp, jsval_t *buf, unsigned *argc, jsval_t **ret)
339 cnt = dp->cArgs - dp->cNamedArgs;
342 argv = heap_alloc(cnt * sizeof(*argv));
344 return E_OUTOFMEMORY;
349 for(i = 0; i < cnt; i++) {
350 hres = variant_to_jsval(dp->rgvarg+dp->cArgs-i-1, argv+i);
353 jsval_release(argv[i]);
365 static HRESULT invoke_prop_func(jsdisp_t *This, IDispatch *jsthis, dispex_prop_t *prop, WORD flags,
366 unsigned argc, jsval_t *argv, jsval_t *r, IServiceProvider *caller)
372 if(flags == DISPATCH_CONSTRUCT && (prop->flags & PROPF_METHOD)) {
373 WARN("%s is not a constructor\n", debugstr_w(prop->name));
377 if(prop->name || This->builtin_info->class != JSCLASS_FUNCTION) {
381 set_disp(&vthis, jsthis);
383 set_jsdisp(&vthis, This);
384 hres = prop->u.p->invoke(This->ctx, &vthis, flags, argc, argv, r);
385 vdisp_release(&vthis);
387 /* Function object calls are special case */
388 hres = Function_invoke(This, jsthis, flags, argc, argv, r);
393 return invoke_prop_func(This->prototype, jsthis, This->prototype->props+prop->u.ref,
394 flags, argc, argv, r, caller);
396 if(!is_object_instance(prop->u.val)) {
397 FIXME("invoke %s\n", debugstr_jsval(prop->u.val));
401 TRACE("call %s %p\n", debugstr_w(prop->name), get_object(prop->u.val));
403 return disp_call_value(This->ctx, get_object(prop->u.val), jsthis, flags, argc, argv, r);
406 FIXME("Invoking PROP_IDX not yet supported\n");
416 static HRESULT prop_get(jsdisp_t *This, dispex_prop_t *prop, DISPPARAMS *dp,
417 jsval_t *r, IServiceProvider *caller)
423 if(prop->u.p->flags & PROPF_METHOD) {
425 hres = create_builtin_function(This->ctx, prop->u.p->invoke, prop->u.p->name, NULL,
426 prop->u.p->flags, NULL, &obj);
430 prop->type = PROP_JSVAL;
431 prop->u.val = jsval_obj(obj);
438 set_jsdisp(&vthis, This);
439 hres = prop->u.p->invoke(This->ctx, &vthis, DISPATCH_PROPERTYGET, 0, NULL, r);
440 vdisp_release(&vthis);
444 hres = prop_get(This->prototype, This->prototype->props+prop->u.ref, dp, r, caller);
447 hres = jsval_copy(prop->u.val, r);
450 hres = This->builtin_info->idx_get(This, prop->u.idx, r);
453 ERR("type %d\n", prop->type);
458 TRACE("fail %08x\n", hres);
462 TRACE("%s ret %s\n", debugstr_w(prop->name), debugstr_jsval(*r));
466 static HRESULT prop_put(jsdisp_t *This, dispex_prop_t *prop, jsval_t val, IServiceProvider *caller)
470 if(prop->flags & PROPF_CONST)
475 if(!(prop->flags & PROPF_METHOD)) {
478 set_jsdisp(&vthis, This);
479 hres = prop->u.p->invoke(This->ctx, &vthis, DISPATCH_PROPERTYPUT, 1, &val, NULL);
480 vdisp_release(&vthis);
485 prop->type = PROP_JSVAL;
486 prop->flags = PROPF_ENUM;
487 prop->u.val = jsval_undefined();
490 jsval_release(prop->u.val);
493 return This->builtin_info->idx_put(This, prop->u.idx, val);
495 ERR("type %d\n", prop->type);
499 TRACE("%s = %s\n", debugstr_w(prop->name), debugstr_jsval(val));
501 hres = jsval_copy(val, &prop->u.val);
503 prop->u.val = jsval_undefined();
507 if(This->builtin_info->on_put)
508 This->builtin_info->on_put(This, prop->name);
513 static HRESULT fill_protrefs(jsdisp_t *This)
515 dispex_prop_t *iter, *prop;
521 fill_protrefs(This->prototype);
523 for(iter = This->prototype->props; iter < This->prototype->props+This->prototype->prop_cnt; iter++) {
526 hres = find_prop_name(This, iter->hash, iter->name, &prop);
529 if(!prop || prop->type==PROP_DELETED) {
531 prop->type = PROP_PROTREF;
533 prop->u.ref = iter - This->prototype->props;
535 prop = alloc_protref(This, iter->name, iter - This->prototype->props);
537 return E_OUTOFMEMORY;
545 static inline jsdisp_t *impl_from_IDispatchEx(IDispatchEx *iface)
547 return CONTAINING_RECORD(iface, jsdisp_t, IDispatchEx_iface);
550 static HRESULT WINAPI DispatchEx_QueryInterface(IDispatchEx *iface, REFIID riid, void **ppv)
552 jsdisp_t *This = impl_from_IDispatchEx(iface);
554 if(IsEqualGUID(&IID_IUnknown, riid)) {
555 TRACE("(%p)->(IID_IUnknown %p)\n", This, ppv);
556 *ppv = &This->IDispatchEx_iface;
557 }else if(IsEqualGUID(&IID_IDispatch, riid)) {
558 TRACE("(%p)->(IID_IDispatch %p)\n", This, ppv);
559 *ppv = &This->IDispatchEx_iface;
560 }else if(IsEqualGUID(&IID_IDispatchEx, riid)) {
561 TRACE("(%p)->(IID_IDispatchEx %p)\n", This, ppv);
562 *ppv = &This->IDispatchEx_iface;
563 }else if(IsEqualGUID(&IID_IDispatchJS, riid)) {
564 TRACE("(%p)->(IID_IDispatchJS %p)\n", This, ppv);
569 WARN("(%p)->(%s %p)\n", This, debugstr_guid(riid), ppv);
571 return E_NOINTERFACE;
578 static ULONG WINAPI DispatchEx_AddRef(IDispatchEx *iface)
580 jsdisp_t *This = impl_from_IDispatchEx(iface);
585 static ULONG WINAPI DispatchEx_Release(IDispatchEx *iface)
587 jsdisp_t *This = impl_from_IDispatchEx(iface);
588 ULONG ref = --This->ref;
594 static HRESULT WINAPI DispatchEx_GetTypeInfoCount(IDispatchEx *iface, UINT *pctinfo)
596 jsdisp_t *This = impl_from_IDispatchEx(iface);
598 TRACE("(%p)->(%p)\n", This, pctinfo);
604 static HRESULT WINAPI DispatchEx_GetTypeInfo(IDispatchEx *iface, UINT iTInfo, LCID lcid,
607 jsdisp_t *This = impl_from_IDispatchEx(iface);
608 FIXME("(%p)->(%u %u %p)\n", This, iTInfo, lcid, ppTInfo);
612 static HRESULT WINAPI DispatchEx_GetIDsOfNames(IDispatchEx *iface, REFIID riid,
613 LPOLESTR *rgszNames, UINT cNames, LCID lcid,
616 jsdisp_t *This = impl_from_IDispatchEx(iface);
620 TRACE("(%p)->(%s %p %u %u %p)\n", This, debugstr_guid(riid), rgszNames, cNames,
623 for(i=0; i < cNames; i++) {
624 hres = IDispatchEx_GetDispID(&This->IDispatchEx_iface, rgszNames[i], 0, rgDispId+i);
632 static HRESULT WINAPI DispatchEx_Invoke(IDispatchEx *iface, DISPID dispIdMember,
633 REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams,
634 VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
636 jsdisp_t *This = impl_from_IDispatchEx(iface);
638 TRACE("(%p)->(%d %s %d %d %p %p %p %p)\n", This, dispIdMember, debugstr_guid(riid),
639 lcid, wFlags, pDispParams, pVarResult, pExcepInfo, puArgErr);
641 return IDispatchEx_InvokeEx(&This->IDispatchEx_iface, dispIdMember, lcid, wFlags,
642 pDispParams, pVarResult, pExcepInfo, NULL);
645 static HRESULT WINAPI DispatchEx_GetDispID(IDispatchEx *iface, BSTR bstrName, DWORD grfdex, DISPID *pid)
647 jsdisp_t *This = impl_from_IDispatchEx(iface);
649 TRACE("(%p)->(%s %x %p)\n", This, debugstr_w(bstrName), grfdex, pid);
651 if(grfdex & ~(fdexNameCaseSensitive|fdexNameEnsure|fdexNameImplicit|FDEX_VERSION_MASK)) {
652 FIXME("Unsupported grfdex %x\n", grfdex);
656 return jsdisp_get_id(This, bstrName, grfdex, pid);
659 static HRESULT WINAPI DispatchEx_InvokeEx(IDispatchEx *iface, DISPID id, LCID lcid, WORD wFlags, DISPPARAMS *pdp,
660 VARIANT *pvarRes, EXCEPINFO *pei, IServiceProvider *pspCaller)
662 jsdisp_t *This = impl_from_IDispatchEx(iface);
666 TRACE("(%p)->(%x %x %x %p %p %p %p)\n", This, id, lcid, wFlags, pdp, pvarRes, pei, pspCaller);
669 V_VT(pvarRes) = VT_EMPTY;
671 prop = get_prop(This, id);
672 if(!prop || prop->type == PROP_DELETED) {
673 TRACE("invalid id\n");
674 return DISP_E_MEMBERNOTFOUND;
680 case DISPATCH_METHOD|DISPATCH_PROPERTYGET:
681 wFlags = DISPATCH_METHOD;
683 case DISPATCH_METHOD:
684 case DISPATCH_CONSTRUCT: {
685 jsval_t *argv, buf[6], r;
688 hres = convert_params(pdp, buf, &argc, &argv);
692 hres = invoke_prop_func(This, get_this(pdp), prop, wFlags, argc, argv, pvarRes ? &r : NULL, pspCaller);
695 if(SUCCEEDED(hres) && pvarRes) {
696 hres = jsval_to_variant(r, pvarRes);
701 case DISPATCH_PROPERTYGET: {
704 hres = prop_get(This, prop, pdp, &r, pspCaller);
705 if(SUCCEEDED(hres)) {
706 hres = jsval_to_variant(r, pvarRes);
711 case DISPATCH_PROPERTYPUT: {
715 for(i=0; i < pdp->cNamedArgs; i++) {
716 if(pdp->rgdispidNamedArgs[i] == DISPID_PROPERTYPUT)
720 if(i == pdp->cNamedArgs) {
721 TRACE("no value to set\n");
722 return DISP_E_PARAMNOTOPTIONAL;
725 hres = variant_to_jsval(pdp->rgvarg+i, &val);
729 hres = prop_put(This, prop, val, pspCaller);
734 FIXME("Unimplemented flags %x\n", wFlags);
739 *pei = This->ctx->ei.ei;
743 static HRESULT delete_prop(dispex_prop_t *prop, BOOL *ret)
745 if(prop->flags & PROPF_DONTDELETE) {
750 *ret = TRUE; /* FIXME: not exactly right */
752 if(prop->type == PROP_JSVAL) {
753 jsval_release(prop->u.val);
754 prop->type = PROP_DELETED;
759 static HRESULT WINAPI DispatchEx_DeleteMemberByName(IDispatchEx *iface, BSTR bstrName, DWORD grfdex)
761 jsdisp_t *This = impl_from_IDispatchEx(iface);
766 TRACE("(%p)->(%s %x)\n", This, debugstr_w(bstrName), grfdex);
768 if(grfdex & ~(fdexNameCaseSensitive|fdexNameEnsure|fdexNameImplicit|FDEX_VERSION_MASK))
769 FIXME("Unsupported grfdex %x\n", grfdex);
771 hres = find_prop_name(This, string_hash(bstrName), bstrName, &prop);
775 TRACE("not found\n");
779 return delete_prop(prop, &b);
782 static HRESULT WINAPI DispatchEx_DeleteMemberByDispID(IDispatchEx *iface, DISPID id)
784 jsdisp_t *This = impl_from_IDispatchEx(iface);
788 TRACE("(%p)->(%x)\n", This, id);
790 prop = get_prop(This, id);
792 WARN("invalid id\n");
793 return DISP_E_MEMBERNOTFOUND;
796 return delete_prop(prop, &b);
799 static HRESULT WINAPI DispatchEx_GetMemberProperties(IDispatchEx *iface, DISPID id, DWORD grfdexFetch, DWORD *pgrfdex)
801 jsdisp_t *This = impl_from_IDispatchEx(iface);
802 FIXME("(%p)->(%x %x %p)\n", This, id, grfdexFetch, pgrfdex);
806 static HRESULT WINAPI DispatchEx_GetMemberName(IDispatchEx *iface, DISPID id, BSTR *pbstrName)
808 jsdisp_t *This = impl_from_IDispatchEx(iface);
811 TRACE("(%p)->(%x %p)\n", This, id, pbstrName);
813 prop = get_prop(This, id);
814 if(!prop || !prop->name || prop->type == PROP_DELETED)
815 return DISP_E_MEMBERNOTFOUND;
817 *pbstrName = SysAllocString(prop->name);
819 return E_OUTOFMEMORY;
824 static HRESULT WINAPI DispatchEx_GetNextDispID(IDispatchEx *iface, DWORD grfdex, DISPID id, DISPID *pid)
826 jsdisp_t *This = impl_from_IDispatchEx(iface);
830 TRACE("(%p)->(%x %x %p)\n", This, grfdex, id, pid);
832 if(id == DISPID_STARTENUM) {
833 hres = fill_protrefs(This);
838 if(id+1>=0 && id+1<This->prop_cnt) {
839 iter = &This->props[id+1];
841 *pid = DISPID_STARTENUM;
845 while(iter < This->props + This->prop_cnt) {
846 if(iter->name && (get_flags(This, iter) & PROPF_ENUM) && iter->type!=PROP_DELETED) {
847 *pid = prop_to_id(This, iter);
853 *pid = DISPID_STARTENUM;
857 static HRESULT WINAPI DispatchEx_GetNameSpaceParent(IDispatchEx *iface, IUnknown **ppunk)
859 jsdisp_t *This = impl_from_IDispatchEx(iface);
860 FIXME("(%p)->(%p)\n", This, ppunk);
864 static IDispatchExVtbl DispatchExVtbl = {
865 DispatchEx_QueryInterface,
868 DispatchEx_GetTypeInfoCount,
869 DispatchEx_GetTypeInfo,
870 DispatchEx_GetIDsOfNames,
872 DispatchEx_GetDispID,
874 DispatchEx_DeleteMemberByName,
875 DispatchEx_DeleteMemberByDispID,
876 DispatchEx_GetMemberProperties,
877 DispatchEx_GetMemberName,
878 DispatchEx_GetNextDispID,
879 DispatchEx_GetNameSpaceParent
882 jsdisp_t *as_jsdisp(IDispatch *disp)
884 assert(disp->lpVtbl == (IDispatchVtbl*)&DispatchExVtbl);
885 return impl_from_IDispatchEx((IDispatchEx*)disp);
888 jsdisp_t *to_jsdisp(IDispatch *disp)
890 return disp->lpVtbl == (IDispatchVtbl*)&DispatchExVtbl ? impl_from_IDispatchEx((IDispatchEx*)disp) : NULL;
893 HRESULT init_dispex(jsdisp_t *dispex, script_ctx_t *ctx, const builtin_info_t *builtin_info, jsdisp_t *prototype)
895 TRACE("%p (%p)\n", dispex, prototype);
897 dispex->IDispatchEx_iface.lpVtbl = &DispatchExVtbl;
899 dispex->builtin_info = builtin_info;
901 dispex->props = heap_alloc_zero(sizeof(dispex_prop_t)*(dispex->buf_size=4));
903 return E_OUTOFMEMORY;
905 dispex->prototype = prototype;
907 jsdisp_addref(prototype);
909 dispex->prop_cnt = 1;
910 if(builtin_info->value_prop.invoke) {
911 dispex->props[0].type = PROP_BUILTIN;
912 dispex->props[0].u.p = &builtin_info->value_prop;
914 dispex->props[0].type = PROP_DELETED;
923 static const builtin_info_t dispex_info = {
931 HRESULT create_dispex(script_ctx_t *ctx, const builtin_info_t *builtin_info, jsdisp_t *prototype, jsdisp_t **dispex)
936 ret = heap_alloc_zero(sizeof(jsdisp_t));
938 return E_OUTOFMEMORY;
940 hres = init_dispex(ret, ctx, builtin_info ? builtin_info : &dispex_info, prototype);
950 void jsdisp_free(jsdisp_t *obj)
954 TRACE("(%p)\n", obj);
956 for(prop = obj->props; prop < obj->props+obj->prop_cnt; prop++) {
957 if(prop->type == PROP_JSVAL)
958 jsval_release(prop->u.val);
959 heap_free(prop->name);
961 heap_free(obj->props);
962 script_release(obj->ctx);
964 jsdisp_release(obj->prototype);
966 if(obj->builtin_info->destructor)
967 obj->builtin_info->destructor(obj);
974 jsdisp_t *jsdisp_addref(jsdisp_t *jsdisp)
976 ULONG ref = ++jsdisp->ref;
977 TRACE("(%p) ref=%d\n", jsdisp, ref);
981 void jsdisp_release(jsdisp_t *jsdisp)
983 ULONG ref = --jsdisp->ref;
985 TRACE("(%p) ref=%d\n", jsdisp, ref);
993 HRESULT init_dispex_from_constr(jsdisp_t *dispex, script_ctx_t *ctx, const builtin_info_t *builtin_info, jsdisp_t *constr)
995 jsdisp_t *prot = NULL;
999 static const WCHAR prototypeW[] = {'p','r','o','t','o','t','y','p','e',0};
1001 hres = find_prop_name_prot(constr, string_hash(prototypeW), prototypeW, &prop);
1002 if(SUCCEEDED(hres) && prop && prop->type!=PROP_DELETED) {
1005 hres = prop_get(constr, prop, NULL, &val, NULL);
1007 ERR("Could not get prototype\n");
1011 if(is_object_instance(val))
1012 prot = iface_to_jsdisp((IUnknown*)get_object(val));
1016 hres = init_dispex(dispex, ctx, builtin_info, prot);
1019 jsdisp_release(prot);
1023 jsdisp_t *iface_to_jsdisp(IUnknown *iface)
1028 hres = IUnknown_QueryInterface(iface, &IID_IDispatchJS, (void**)&ret);
1035 HRESULT jsdisp_get_id(jsdisp_t *jsdisp, const WCHAR *name, DWORD flags, DISPID *id)
1037 dispex_prop_t *prop;
1040 if(flags & fdexNameEnsure)
1041 hres = ensure_prop_name(jsdisp, name, TRUE, PROPF_ENUM, &prop);
1043 hres = find_prop_name_prot(jsdisp, string_hash(name), name, &prop);
1047 if(prop && prop->type!=PROP_DELETED) {
1048 *id = prop_to_id(jsdisp, prop);
1052 TRACE("not found %s\n", debugstr_w(name));
1053 return DISP_E_UNKNOWNNAME;
1056 HRESULT jsdisp_call_value(jsdisp_t *jsfunc, IDispatch *jsthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
1060 if(is_class(jsfunc, JSCLASS_FUNCTION)) {
1061 hres = Function_invoke(jsfunc, jsthis, flags, argc, argv, r);
1065 set_disp(&vdisp, jsthis);
1066 hres = jsfunc->builtin_info->value_prop.invoke(jsfunc->ctx, &vdisp, flags, argc, argv, r);
1067 vdisp_release(&vdisp);
1072 HRESULT jsdisp_call(jsdisp_t *disp, DISPID id, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
1074 dispex_prop_t *prop;
1076 prop = get_prop(disp, id);
1078 return DISP_E_MEMBERNOTFOUND;
1080 return invoke_prop_func(disp, to_disp(disp), prop, flags, argc, argv, r, NULL);
1083 HRESULT jsdisp_call_name(jsdisp_t *disp, const WCHAR *name, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
1085 dispex_prop_t *prop;
1088 hres = find_prop_name_prot(disp, string_hash(name), name, &prop);
1092 return invoke_prop_func(disp, to_disp(disp), prop, flags, argc, argv, r, NULL);
1095 HRESULT disp_call(script_ctx_t *ctx, IDispatch *disp, DISPID id, WORD flags, unsigned argc, jsval_t *argv, jsval_t *ret)
1097 IDispatchEx *dispex;
1099 VARIANT buf[6], retv;
1104 jsdisp = iface_to_jsdisp((IUnknown*)disp);
1106 if(flags & DISPATCH_PROPERTYPUT) {
1107 FIXME("disp_call(propput) on builtin object\n");
1111 hres = jsdisp_call(jsdisp, id, flags, argc, argv, ret);
1112 jsdisp_release(jsdisp);
1117 flags |= DISPATCH_PROPERTYGET;
1121 if(flags & DISPATCH_PROPERTYPUT) {
1122 static DISPID propput_dispid = DISPID_PROPERTYPUT;
1125 dp.rgdispidNamedArgs = &propput_dispid;
1128 dp.rgdispidNamedArgs = NULL;
1132 dp.rgvarg = heap_alloc(argc*sizeof(VARIANT));
1134 return E_OUTOFMEMORY;
1139 for(i=0; i<argc; i++) {
1140 hres = jsval_to_variant(argv[i], dp.rgvarg+argc-i-1);
1143 VariantClear(dp.rgvarg+argc-i-1);
1144 if(dp.rgvarg != buf)
1145 heap_free(dp.rgvarg);
1150 V_VT(&retv) = VT_EMPTY;
1152 hres = IDispatch_QueryInterface(disp, &IID_IDispatchEx, (void**)&dispex);
1153 if(SUCCEEDED(hres)) {
1154 hres = IDispatchEx_InvokeEx(dispex, id, ctx->lcid, flags, &dp, ret ? &retv : NULL, &ctx->ei.ei,
1155 &ctx->jscaller->IServiceProvider_iface);
1156 IDispatchEx_Release(dispex);
1160 if(flags == DISPATCH_CONSTRUCT) {
1161 WARN("IDispatch cannot be constructor\n");
1162 return DISP_E_MEMBERNOTFOUND;
1165 TRACE("using IDispatch\n");
1166 hres = IDispatch_Invoke(disp, id, &IID_NULL, ctx->lcid, flags, &dp, ret ? &retv : NULL, &ctx->ei.ei, &err);
1169 for(i=0; i<argc; i++)
1170 VariantClear(dp.rgvarg+argc-i-1);
1171 if(dp.rgvarg != buf)
1172 heap_free(dp.rgvarg);
1177 hres = variant_to_jsval(&retv, ret);
1178 VariantClear(&retv);
1183 HRESULT disp_call_value(script_ctx_t *ctx, IDispatch *disp, IDispatch *jsthis, WORD flags, unsigned argc, jsval_t *argv,
1187 IDispatchEx *dispex;
1188 VARIANT buf[6], retv;
1193 jsdisp = iface_to_jsdisp((IUnknown*)disp);
1195 if(flags & DISPATCH_PROPERTYPUT) {
1196 FIXME("disp_call(propput) on builtin object\n");
1200 hres = jsdisp_call_value(jsdisp, jsthis, flags, argc, argv, r);
1201 jsdisp_release(jsdisp);
1206 flags |= DISPATCH_PROPERTYGET;
1210 static DISPID this_id = DISPID_THIS;
1214 dp.rgdispidNamedArgs = &this_id;
1218 dp.rgdispidNamedArgs = NULL;
1221 if(dp.cArgs > sizeof(buf)/sizeof(*buf)) {
1222 dp.rgvarg = heap_alloc(dp.cArgs*sizeof(VARIANT));
1224 return E_OUTOFMEMORY;
1229 for(i=0; i<argc; i++) {
1230 hres = jsval_to_variant(argv[i], dp.rgvarg+dp.cArgs-i-1);
1233 VariantClear(dp.rgvarg+dp.cArgs-i-1);
1234 if(dp.rgvarg != buf)
1235 heap_free(dp.rgvarg);
1240 V_VT(dp.rgvarg) = VT_DISPATCH;
1241 V_DISPATCH(dp.rgvarg) = jsthis;
1244 V_VT(&retv) = VT_EMPTY;
1246 hres = IDispatch_QueryInterface(disp, &IID_IDispatchEx, (void**)&dispex);
1247 if(SUCCEEDED(hres)) {
1248 hres = IDispatchEx_InvokeEx(dispex, DISPID_VALUE, ctx->lcid, flags, &dp, r ? &retv : NULL, &ctx->ei.ei,
1249 &ctx->jscaller->IServiceProvider_iface);
1250 IDispatchEx_Release(dispex);
1254 if(flags == DISPATCH_CONSTRUCT) {
1255 WARN("IDispatch cannot be constructor\n");
1256 return DISP_E_MEMBERNOTFOUND;
1259 TRACE("using IDispatch\n");
1260 hres = IDispatch_Invoke(disp, DISPID_VALUE, &IID_NULL, ctx->lcid, flags, &dp, r ? &retv : NULL, &ctx->ei.ei, &err);
1263 for(i=0; i<argc; i++)
1264 VariantClear(dp.rgvarg+dp.cArgs-i-1);
1265 if(dp.rgvarg != buf)
1266 heap_free(dp.rgvarg);
1273 hres = variant_to_jsval(&retv, r);
1274 VariantClear(&retv);
1278 HRESULT jsdisp_propput(jsdisp_t *obj, const WCHAR *name, DWORD flags, jsval_t val)
1280 dispex_prop_t *prop;
1283 hres = ensure_prop_name(obj, name, FALSE, flags, &prop);
1287 return prop_put(obj, prop, val, NULL);
1290 HRESULT jsdisp_propput_name(jsdisp_t *obj, const WCHAR *name, jsval_t val)
1292 return jsdisp_propput(obj, name, PROPF_ENUM, val);
1295 HRESULT jsdisp_propput_const(jsdisp_t *obj, const WCHAR *name, jsval_t val)
1297 dispex_prop_t *prop;
1300 hres = ensure_prop_name(obj, name, FALSE, PROPF_CONST, &prop);
1304 return jsval_copy(val, &prop->u.val);
1307 HRESULT jsdisp_propput_dontenum(jsdisp_t *obj, const WCHAR *name, jsval_t val)
1309 return jsdisp_propput(obj, name, 0, val);
1312 HRESULT jsdisp_propput_idx(jsdisp_t *obj, DWORD idx, jsval_t val)
1316 static const WCHAR formatW[] = {'%','d',0};
1318 sprintfW(buf, formatW, idx);
1319 return jsdisp_propput_name(obj, buf, val);
1322 HRESULT disp_propput(script_ctx_t *ctx, IDispatch *disp, DISPID id, jsval_t val)
1327 jsdisp = iface_to_jsdisp((IUnknown*)disp);
1329 dispex_prop_t *prop;
1331 prop = get_prop(jsdisp, id);
1333 hres = prop_put(jsdisp, prop, val, NULL);
1335 hres = DISP_E_MEMBERNOTFOUND;
1337 jsdisp_release(jsdisp);
1339 DISPID dispid = DISPID_PROPERTYPUT;
1341 DISPPARAMS dp = {&var, &dispid, 1, 1};
1342 IDispatchEx *dispex;
1344 hres = jsval_to_variant(val, &var);
1349 hres = IDispatch_QueryInterface(disp, &IID_IDispatchEx, (void**)&dispex);
1350 if(SUCCEEDED(hres)) {
1351 hres = IDispatchEx_InvokeEx(dispex, id, ctx->lcid, DISPATCH_PROPERTYPUT, &dp, NULL, &ctx->ei.ei,
1352 &ctx->jscaller->IServiceProvider_iface);
1353 IDispatchEx_Release(dispex);
1357 TRACE("using IDispatch\n");
1358 hres = IDispatch_Invoke(disp, id, &IID_NULL, ctx->lcid, DISPATCH_PROPERTYPUT, &dp, NULL, &ctx->ei.ei, &err);
1367 HRESULT jsdisp_propget_name(jsdisp_t *obj, const WCHAR *name, jsval_t *val)
1369 DISPPARAMS dp = {NULL, NULL, 0, 0};
1370 dispex_prop_t *prop;
1373 hres = find_prop_name_prot(obj, string_hash(name), name, &prop);
1377 if(!prop || prop->type==PROP_DELETED) {
1378 *val = jsval_undefined();
1382 return prop_get(obj, prop, &dp, val, NULL);
1385 HRESULT jsdisp_get_idx(jsdisp_t *obj, DWORD idx, jsval_t *r)
1388 DISPPARAMS dp = {NULL, NULL, 0, 0};
1389 dispex_prop_t *prop;
1392 static const WCHAR formatW[] = {'%','d',0};
1394 sprintfW(name, formatW, idx);
1396 hres = find_prop_name_prot(obj, string_hash(name), name, &prop);
1400 if(!prop || prop->type==PROP_DELETED) {
1401 *r = jsval_undefined();
1402 return DISP_E_UNKNOWNNAME;
1405 return prop_get(obj, prop, &dp, r, NULL);
1408 HRESULT jsdisp_propget(jsdisp_t *jsdisp, DISPID id, jsval_t *val)
1410 DISPPARAMS dp = {NULL,NULL,0,0};
1411 dispex_prop_t *prop;
1413 prop = get_prop(jsdisp, id);
1415 return DISP_E_MEMBERNOTFOUND;
1417 return prop_get(jsdisp, prop, &dp, val, NULL);
1420 HRESULT disp_propget(script_ctx_t *ctx, IDispatch *disp, DISPID id, jsval_t *val)
1422 DISPPARAMS dp = {NULL,NULL,0,0};
1423 IDispatchEx *dispex;
1428 jsdisp = iface_to_jsdisp((IUnknown*)disp);
1430 hres = jsdisp_propget(jsdisp, id, val);
1431 jsdisp_release(jsdisp);
1435 V_VT(&var) = VT_EMPTY;
1437 hres = IDispatch_QueryInterface(disp, &IID_IDispatchEx, (void**)&dispex);
1438 if(SUCCEEDED(hres)) {
1439 hres = IDispatchEx_InvokeEx(dispex, id, ctx->lcid, INVOKE_PROPERTYGET, &dp, &var, &ctx->ei.ei,
1440 &ctx->jscaller->IServiceProvider_iface);
1441 IDispatchEx_Release(dispex);
1445 TRACE("using IDispatch\n");
1446 hres = IDispatch_Invoke(disp, id, &IID_NULL, ctx->lcid, INVOKE_PROPERTYGET, &dp, &var, &ctx->ei.ei, &err);
1451 hres = variant_to_jsval(&var, val);
1456 HRESULT jsdisp_delete_idx(jsdisp_t *obj, DWORD idx)
1458 static const WCHAR formatW[] = {'%','d',0};
1460 dispex_prop_t *prop;
1464 sprintfW(buf, formatW, idx);
1466 hres = find_prop_name(obj, string_hash(buf), buf, &prop);
1467 if(FAILED(hres) || !prop)
1470 return delete_prop(prop, &b);
1473 HRESULT disp_delete(IDispatch *disp, DISPID id, BOOL *ret)
1475 IDispatchEx *dispex;
1479 jsdisp = iface_to_jsdisp((IUnknown*)disp);
1481 dispex_prop_t *prop;
1483 prop = get_prop(jsdisp, id);
1485 hres = delete_prop(prop, ret);
1487 hres = DISP_E_MEMBERNOTFOUND;
1489 jsdisp_release(jsdisp);
1493 hres = IDispatch_QueryInterface(disp, &IID_IDispatchEx, (void**)&dispex);
1499 hres = IDispatchEx_DeleteMemberByDispID(dispex, id);
1500 IDispatchEx_Release(dispex);
1508 HRESULT disp_delete_name(script_ctx_t *ctx, IDispatch *disp, jsstr_t *name, BOOL *ret)
1510 IDispatchEx *dispex;
1514 jsdisp = iface_to_jsdisp((IUnknown*)disp);
1516 dispex_prop_t *prop;
1518 hres = find_prop_name(jsdisp, string_hash(name->str), name->str, &prop);
1520 hres = delete_prop(prop, ret);
1522 hres = DISP_E_MEMBERNOTFOUND;
1524 jsdisp_release(jsdisp);
1528 hres = IDispatch_QueryInterface(disp, &IID_IDispatchEx, (void**)&dispex);
1529 if(SUCCEEDED(hres)) {
1532 bstr = SysAllocStringLen(name->str, jsstr_length(name));
1534 hres = IDispatchEx_DeleteMemberByName(dispex, bstr, make_grfdex(ctx, fdexNameCaseSensitive));
1535 SysFreeString(bstr);
1538 hres = E_OUTOFMEMORY;
1541 IDispatchEx_Release(dispex);
1550 HRESULT jsdisp_is_own_prop(jsdisp_t *obj, const WCHAR *name, BOOL *ret)
1552 dispex_prop_t *prop;
1555 hres = find_prop_name(obj, string_hash(name), name, &prop);
1559 *ret = prop && (prop->type == PROP_JSVAL || prop->type == PROP_BUILTIN);
1563 HRESULT jsdisp_is_enumerable(jsdisp_t *obj, const WCHAR *name, BOOL *ret)
1565 dispex_prop_t *prop;
1568 hres = find_prop_name(obj, string_hash(name), name, &prop);
1572 *ret = prop && (prop->flags & PROPF_ENUM) && prop->type != PROP_PROTREF;