Something went wrong. Try again.
Reactos
Something went wrong. Try again.
1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360136113621363136413651366136713681369137013711372137313741375137613771378137913801381138213831384138513861387138813891390139113921393139413951396139713981399140014011402140314041405140614071408140914101411141214131414141514161417141814191420142114221423142414251426142714281429143014311432143314341435143614371438143914401441144214431444144514461447144814491450145114521453145414551456145714581459146014611462146314641465146614671468146914701471147214731474147514761477147814791480148114821483148414851486148714881489149014911492149314941495149614971498149915001501150215031504150515061507150815091510151115121513151415151516151715181519152015211522152315241525152615271528152915301531153215331534153515361537153815391540154115421543154415451546154715481549155015511552155315541555155615571558155915601561156215631564156515661567156815691570157115721573157415751576157715781579158015811582158315841585158615871588158915901591159215931594159515961597159815991600160116021603160416051606160716081609161016111612161316141615161616171618161916201621162216231624162516261627162816291630163116321633163416351636163716381639164016411642164316441645164616471648164916501651165216531654165516561657165816591660166116621663166416651666166716681669167016711672167316741675167616771678167916801681168216831684168516861687168816891690169116921693169416951696169716981699170017011702170317041705170617071708170917101711171217131714171517161717171817191720172117221723172417251726172717281729173017311732173317341735173617371738173917401741174217431744174517461747174817491750175117521753175417551756175717581759176017611762176317641765176617671768176917701771177217731774177517761777177817791780178117821783178417851786178717881789179017911792179317941795179617971798179918001801180218031804180518061807/* * Copyright 2008 Jacek Caban for CodeWeavers * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public * License as published by the Free Software Foundation; either * version 2.1 of the License, or (at your option) any later version. * * This library is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU * Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this library; if not, write to the Free Software * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA */
#include <assert.h>
#include "jscript.h"
#include "wine/debug.h"
WINE_DEFAULT_DEBUG_CHANNEL(jscript);
#define FDEX_VERSION_MASK 0xf0000000#define GOLDEN_RATIO 0x9E3779B9U
typedef enum { PROP_JSVAL, PROP_BUILTIN, PROP_PROTREF, PROP_ACCESSOR, PROP_DELETED, PROP_IDX} prop_type_t;
struct _dispex_prop_t { WCHAR *name; unsigned hash; prop_type_t type; DWORD flags;
union { jsval_t val; const builtin_prop_t *p; DWORD ref; unsigned idx; struct { jsdisp_t *getter; jsdisp_t *setter; } accessor; } u;
int bucket_head; int bucket_next;};
static inline DISPID prop_to_id(jsdisp_t *This, dispex_prop_t *prop){ return prop - This->props;}
static inline dispex_prop_t *get_prop(jsdisp_t *This, DISPID id){ if(id < 0 || id >= This->prop_cnt || This->props[id].type == PROP_DELETED) return NULL;
return This->props+id;}
static DWORD get_flags(jsdisp_t *This, dispex_prop_t *prop){ if(prop->type == PROP_PROTREF) { dispex_prop_t *parent = get_prop(This->prototype, prop->u.ref); if(!parent) { prop->type = PROP_DELETED; return 0; }
return get_flags(This->prototype, parent); }
return prop->flags;}
static const builtin_prop_t *find_builtin_prop(jsdisp_t *This, const WCHAR *name){ int min = 0, max, i, r;
max = This->builtin_info->props_cnt-1; while(min <= max) { i = (min+max)/2;
r = wcscmp(name, This->builtin_info->props[i].name); if(!r) { /* Skip prop if it's available only in higher compatibility mode. */ unsigned version = (This->builtin_info->props[i].flags & PROPF_VERSION_MASK) >> PROPF_VERSION_SHIFT; if(version && version > This->ctx->version) return NULL;
/* Skip prop if it's available only in HTML mode and we're not running in HTML mode. */ if((This->builtin_info->props[i].flags & PROPF_HTML) && !This->ctx->html_mode) return NULL;
return This->builtin_info->props + i; }
if(r < 0) max = i-1; else min = i+1; }
return NULL;}
static inline unsigned string_hash(const WCHAR *name){ unsigned h = 0; for(; *name; name++) h = (h>>(sizeof(unsigned)*8-4)) ^ (h<<4) ^ towlower(*name); return h;}
static inline unsigned get_props_idx(jsdisp_t *This, unsigned hash){ return (hash*GOLDEN_RATIO) & (This->buf_size-1);}
static inline HRESULT resize_props(jsdisp_t *This){ dispex_prop_t *props; int i, bucket;
if(This->buf_size != This->prop_cnt) return S_FALSE;
props = heap_realloc(This->props, sizeof(dispex_prop_t)*This->buf_size*2); if(!props) return E_OUTOFMEMORY; This->buf_size *= 2; This->props = props;
for(i=0; i<This->buf_size; i++) { This->props[i].bucket_head = 0; This->props[i].bucket_next = 0; }
for(i=1; i<This->prop_cnt; i++) { props = This->props+i;
bucket = get_props_idx(This, props->hash); props->bucket_next = This->props[bucket].bucket_head; This->props[bucket].bucket_head = i; }
return S_OK;}
static inline dispex_prop_t* alloc_prop(jsdisp_t *This, const WCHAR *name, prop_type_t type, DWORD flags){ dispex_prop_t *prop; unsigned bucket;
if(FAILED(resize_props(This))) return NULL;
prop = &This->props[This->prop_cnt]; prop->name = heap_strdupW(name); if(!prop->name) return NULL; prop->type = type; prop->flags = flags; prop->hash = string_hash(name);
bucket = get_props_idx(This, prop->hash); prop->bucket_next = This->props[bucket].bucket_head; This->props[bucket].bucket_head = This->prop_cnt++; return prop;}
static dispex_prop_t *alloc_protref(jsdisp_t *This, const WCHAR *name, DWORD ref){ dispex_prop_t *ret;
ret = alloc_prop(This, name, PROP_PROTREF, 0); if(!ret) return NULL;
ret->u.ref = ref; return ret;}
static HRESULT find_prop_name(jsdisp_t *This, unsigned hash, const WCHAR *name, dispex_prop_t **ret){ const builtin_prop_t *builtin; unsigned bucket, pos, prev = 0; dispex_prop_t *prop;
bucket = get_props_idx(This, hash); pos = This->props[bucket].bucket_head; while(pos != 0) { if(!wcscmp(name, This->props[pos].name)) { if(prev != 0) { This->props[prev].bucket_next = This->props[pos].bucket_next; This->props[pos].bucket_next = This->props[bucket].bucket_head; This->props[bucket].bucket_head = pos; }
*ret = &This->props[pos]; return S_OK; }
prev = pos; pos = This->props[pos].bucket_next; }
builtin = find_builtin_prop(This, name); if(builtin) { unsigned flags = builtin->flags; if(flags & PROPF_METHOD) flags |= PROPF_WRITABLE | PROPF_CONFIGURABLE; else if(builtin->setter) flags |= PROPF_WRITABLE; flags &= PROPF_ENUMERABLE | PROPF_WRITABLE | PROPF_CONFIGURABLE; prop = alloc_prop(This, name, PROP_BUILTIN, flags); if(!prop) return E_OUTOFMEMORY;
prop->u.p = builtin; *ret = prop; return S_OK; }
if(This->builtin_info->idx_length) { const WCHAR *ptr; unsigned idx = 0;
for(ptr = name; iswdigit(*ptr) && idx < 0x10000; ptr++) idx = idx*10 + (*ptr-'0'); if(!*ptr && idx < This->builtin_info->idx_length(This)) { prop = alloc_prop(This, name, PROP_IDX, This->builtin_info->idx_put ? PROPF_WRITABLE : 0); if(!prop) return E_OUTOFMEMORY;
prop->u.idx = idx; *ret = prop; return S_OK; } }
*ret = NULL; return S_OK;}
static HRESULT find_prop_name_prot(jsdisp_t *This, unsigned hash, const WCHAR *name, dispex_prop_t **ret){ dispex_prop_t *prop, *del=NULL; HRESULT hres;
hres = find_prop_name(This, hash, name, &prop); if(FAILED(hres)) return hres; if(prop && prop->type==PROP_DELETED) { del = prop; } else if(prop) { *ret = prop; return S_OK; }
if(This->prototype) { hres = find_prop_name_prot(This->prototype, hash, name, &prop); if(FAILED(hres)) return hres; if(prop) { if(del) { del->type = PROP_PROTREF; del->u.ref = prop - This->prototype->props; prop = del; }else { prop = alloc_protref(This, prop->name, prop - This->prototype->props); if(!prop) return E_OUTOFMEMORY; }
*ret = prop; return S_OK; } }
*ret = del; return S_OK;}
static HRESULT ensure_prop_name(jsdisp_t *This, const WCHAR *name, DWORD create_flags, dispex_prop_t **ret){ dispex_prop_t *prop; HRESULT hres;
hres = find_prop_name_prot(This, string_hash(name), name, &prop); if(SUCCEEDED(hres) && (!prop || prop->type == PROP_DELETED)) { TRACE("creating prop %s flags %x\n", debugstr_w(name), create_flags);
if(prop) { prop->type = PROP_JSVAL; prop->flags = create_flags; prop->u.val = jsval_undefined(); }else { prop = alloc_prop(This, name, PROP_JSVAL, create_flags); if(!prop) return E_OUTOFMEMORY; }
prop->u.val = jsval_undefined(); }
*ret = prop; return hres;}
static IDispatch *get_this(DISPPARAMS *dp){ DWORD i;
for(i=0; i < dp->cNamedArgs; i++) { if(dp->rgdispidNamedArgs[i] == DISPID_THIS) { if(V_VT(dp->rgvarg+i) == VT_DISPATCH) return V_DISPATCH(dp->rgvarg+i);
WARN("This is not VT_DISPATCH\n"); return NULL; } }
TRACE("no this passed\n"); return NULL;}
static HRESULT convert_params(const DISPPARAMS *dp, jsval_t *buf, unsigned *argc, jsval_t **ret){ jsval_t *argv; unsigned cnt; unsigned i; HRESULT hres;
cnt = dp->cArgs - dp->cNamedArgs;
if(cnt > 6) { argv = heap_alloc(cnt * sizeof(*argv)); if(!argv) return E_OUTOFMEMORY; }else { argv = buf; }
for(i = 0; i < cnt; i++) { hres = variant_to_jsval(dp->rgvarg+dp->cArgs-i-1, argv+i); if(FAILED(hres)) { while(i--) jsval_release(argv[i]); if(argv != buf) heap_free(argv); return hres; } }
*argc = cnt; *ret = argv; return S_OK;}
static HRESULT invoke_prop_func(jsdisp_t *This, IDispatch *jsthis, dispex_prop_t *prop, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r, IServiceProvider *caller){ HRESULT hres;
switch(prop->type) { case PROP_BUILTIN: { if(flags == DISPATCH_CONSTRUCT && (prop->flags & PROPF_METHOD)) { WARN("%s is not a constructor\n", debugstr_w(prop->name)); return E_INVALIDARG; }
if(prop->name || This->builtin_info->class != JSCLASS_FUNCTION) { vdisp_t vthis;
if(This->builtin_info->class != JSCLASS_FUNCTION && prop->u.p->invoke != JSGlobal_eval) flags &= ~DISPATCH_JSCRIPT_INTERNAL_MASK; if(jsthis) set_disp(&vthis, jsthis); else set_jsdisp(&vthis, This); hres = prop->u.p->invoke(This->ctx, &vthis, flags, argc, argv, r); vdisp_release(&vthis); }else { /* Function object calls are special case */ hres = Function_invoke(This, jsthis, flags, argc, argv, r); } return hres; } case PROP_PROTREF: return invoke_prop_func(This->prototype, jsthis, This->prototype->props+prop->u.ref, flags, argc, argv, r, caller); case PROP_JSVAL: { if(!is_object_instance(prop->u.val)) { FIXME("invoke %s\n", debugstr_jsval(prop->u.val)); return E_FAIL; }
TRACE("call %s %p\n", debugstr_w(prop->name), get_object(prop->u.val));
return disp_call_value(This->ctx, get_object(prop->u.val), jsthis, flags, argc, argv, r); } case PROP_ACCESSOR: FIXME("accessor\n"); return E_NOTIMPL; case PROP_IDX: FIXME("Invoking PROP_IDX not yet supported\n"); return E_NOTIMPL; case PROP_DELETED: assert(0); }
assert(0); return E_FAIL;}
static HRESULT prop_get(jsdisp_t *This, dispex_prop_t *prop, jsval_t *r){ jsdisp_t *prop_obj = This; HRESULT hres;
while(prop->type == PROP_PROTREF) { prop_obj = prop_obj->prototype; prop = prop_obj->props + prop->u.ref; }
switch(prop->type) { case PROP_BUILTIN: if(prop->u.p->getter) { hres = prop->u.p->getter(This->ctx, This, r); }else { jsdisp_t *obj;
assert(prop->u.p->invoke != NULL); hres = create_builtin_function(This->ctx, prop->u.p->invoke, prop->u.p->name, NULL, prop->u.p->flags, NULL, &obj); if(FAILED(hres)) break;
prop->type = PROP_JSVAL; prop->u.val = jsval_obj(obj);
jsdisp_addref(obj); *r = jsval_obj(obj); } break; case PROP_JSVAL: hres = jsval_copy(prop->u.val, r); break; case PROP_ACCESSOR: if(prop->u.accessor.getter) { hres = jsdisp_call_value(prop->u.accessor.getter, to_disp(This), DISPATCH_METHOD, 0, NULL, r); }else { *r = jsval_undefined(); hres = S_OK; } break; case PROP_IDX: hres = prop_obj->builtin_info->idx_get(prop_obj, prop->u.idx, r); break; default: ERR("type %d\n", prop->type); return E_FAIL; }
if(FAILED(hres)) { TRACE("fail %08x\n", hres); return hres; }
TRACE("%s ret %s\n", debugstr_w(prop->name), debugstr_jsval(*r)); return hres;}
static HRESULT prop_put(jsdisp_t *This, dispex_prop_t *prop, jsval_t val){ HRESULT hres;
if(prop->type == PROP_PROTREF) { dispex_prop_t *prop_iter = prop; jsdisp_t *prototype_iter = This;
do { prototype_iter = prototype_iter->prototype; prop_iter = prototype_iter->props + prop_iter->u.ref; } while(prop_iter->type == PROP_PROTREF);
if(prop_iter->type == PROP_ACCESSOR) prop = prop_iter; }
switch(prop->type) { case PROP_BUILTIN: if(!prop->u.p->setter) { TRACE("getter with no setter\n"); return S_OK; } return prop->u.p->setter(This->ctx, This, val); case PROP_PROTREF: case PROP_DELETED: prop->type = PROP_JSVAL; prop->flags = PROPF_ENUMERABLE | PROPF_CONFIGURABLE | PROPF_WRITABLE; prop->u.val = jsval_undefined(); break; case PROP_JSVAL: if(!(prop->flags & PROPF_WRITABLE)) return S_OK;
jsval_release(prop->u.val); break; case PROP_ACCESSOR: if(!prop->u.accessor.setter) { TRACE("no setter\n"); return S_OK; } return jsdisp_call_value(prop->u.accessor.setter, to_disp(This), DISPATCH_METHOD, 1, &val, NULL); case PROP_IDX: if(!This->builtin_info->idx_put) { TRACE("no put_idx\n"); return S_OK; } return This->builtin_info->idx_put(This, prop->u.idx, val); default: ERR("type %d\n", prop->type); return E_FAIL; }
TRACE("%s = %s\n", debugstr_w(prop->name), debugstr_jsval(val));
hres = jsval_copy(val, &prop->u.val); if(FAILED(hres)) return hres;
if(This->builtin_info->on_put) This->builtin_info->on_put(This, prop->name);
return S_OK;}
HRESULT builtin_set_const(script_ctx_t *ctx, jsdisp_t *jsthis, jsval_t value){ TRACE("%p %s\n", jsthis, debugstr_jsval(value)); return S_OK;}
static HRESULT fill_protrefs(jsdisp_t *This){ dispex_prop_t *iter, *prop; HRESULT hres;
if(!This->prototype) return S_OK;
fill_protrefs(This->prototype);
for(iter = This->prototype->props; iter < This->prototype->props+This->prototype->prop_cnt; iter++) { if(!iter->name) continue; hres = find_prop_name(This, iter->hash, iter->name, &prop); if(FAILED(hres)) return hres; if(!prop || prop->type==PROP_DELETED) { if(prop) { prop->type = PROP_PROTREF; prop->flags = 0; prop->u.ref = iter - This->prototype->props; }else { prop = alloc_protref(This, iter->name, iter - This->prototype->props); if(!prop) return E_OUTOFMEMORY; } } }
return S_OK;}
static inline jsdisp_t *impl_from_IDispatchEx(IDispatchEx *iface){ return CONTAINING_RECORD(iface, jsdisp_t, IDispatchEx_iface);}
static HRESULT WINAPI DispatchEx_QueryInterface(IDispatchEx *iface, REFIID riid, void **ppv){ jsdisp_t *This = impl_from_IDispatchEx(iface);
if(IsEqualGUID(&IID_IUnknown, riid)) { TRACE("(%p)->(IID_IUnknown %p)\n", This, ppv); *ppv = &This->IDispatchEx_iface; }else if(IsEqualGUID(&IID_IDispatch, riid)) { TRACE("(%p)->(IID_IDispatch %p)\n", This, ppv); *ppv = &This->IDispatchEx_iface; }else if(IsEqualGUID(&IID_IDispatchEx, riid)) { TRACE("(%p)->(IID_IDispatchEx %p)\n", This, ppv); *ppv = &This->IDispatchEx_iface; }else { WARN("(%p)->(%s %p)\n", This, debugstr_guid(riid), ppv); *ppv = NULL; return E_NOINTERFACE; }
jsdisp_addref(This); return S_OK;}
static ULONG WINAPI DispatchEx_AddRef(IDispatchEx *iface){ jsdisp_t *This = impl_from_IDispatchEx(iface); jsdisp_addref(This); return This->ref;}
static ULONG WINAPI DispatchEx_Release(IDispatchEx *iface){ jsdisp_t *This = impl_from_IDispatchEx(iface); ULONG ref = --This->ref; TRACE("(%p) ref=%d\n", This, ref); if(!ref) jsdisp_free(This); return ref;}
static HRESULT WINAPI DispatchEx_GetTypeInfoCount(IDispatchEx *iface, UINT *pctinfo){ jsdisp_t *This = impl_from_IDispatchEx(iface);
TRACE("(%p)->(%p)\n", This, pctinfo);
*pctinfo = 1; return S_OK;}
static HRESULT WINAPI DispatchEx_GetTypeInfo(IDispatchEx *iface, UINT iTInfo, LCID lcid, ITypeInfo **ppTInfo){ jsdisp_t *This = impl_from_IDispatchEx(iface); FIXME("(%p)->(%u %u %p)\n", This, iTInfo, lcid, ppTInfo); return E_NOTIMPL;}
static HRESULT WINAPI DispatchEx_GetIDsOfNames(IDispatchEx *iface, REFIID riid, LPOLESTR *rgszNames, UINT cNames, LCID lcid, DISPID *rgDispId){ jsdisp_t *This = impl_from_IDispatchEx(iface); UINT i; HRESULT hres;
TRACE("(%p)->(%s %p %u %u %p)\n", This, debugstr_guid(riid), rgszNames, cNames, lcid, rgDispId);
for(i=0; i < cNames; i++) { hres = IDispatchEx_GetDispID(&This->IDispatchEx_iface, rgszNames[i], 0, rgDispId+i); if(FAILED(hres)) return hres; }
return S_OK;}
static HRESULT WINAPI DispatchEx_Invoke(IDispatchEx *iface, DISPID dispIdMember, REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams, VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr){ jsdisp_t *This = impl_from_IDispatchEx(iface);
TRACE("(%p)->(%d %s %d %d %p %p %p %p)\n", This, dispIdMember, debugstr_guid(riid), lcid, wFlags, pDispParams, pVarResult, pExcepInfo, puArgErr);
return IDispatchEx_InvokeEx(&This->IDispatchEx_iface, dispIdMember, lcid, wFlags, pDispParams, pVarResult, pExcepInfo, NULL);}
static HRESULT WINAPI DispatchEx_GetDispID(IDispatchEx *iface, BSTR bstrName, DWORD grfdex, DISPID *pid){ jsdisp_t *This = impl_from_IDispatchEx(iface);
TRACE("(%p)->(%s %x %p)\n", This, debugstr_w(bstrName), grfdex, pid);
if(grfdex & ~(fdexNameCaseSensitive|fdexNameEnsure|fdexNameImplicit|FDEX_VERSION_MASK)) { FIXME("Unsupported grfdex %x\n", grfdex); return E_NOTIMPL; }
return jsdisp_get_id(This, bstrName, grfdex, pid);}
static HRESULT WINAPI DispatchEx_InvokeEx(IDispatchEx *iface, DISPID id, LCID lcid, WORD wFlags, DISPPARAMS *pdp, VARIANT *pvarRes, EXCEPINFO *pei, IServiceProvider *pspCaller){ jsdisp_t *This = impl_from_IDispatchEx(iface); dispex_prop_t *prop; HRESULT hres;
TRACE("(%p)->(%x %x %x %p %p %p %p)\n", This, id, lcid, wFlags, pdp, pvarRes, pei, pspCaller);
if(pvarRes) V_VT(pvarRes) = VT_EMPTY;
prop = get_prop(This, id); if(!prop || prop->type == PROP_DELETED) { TRACE("invalid id\n"); return DISP_E_MEMBERNOTFOUND; }
clear_ei(This->ctx);
switch(wFlags) { case DISPATCH_METHOD|DISPATCH_PROPERTYGET: wFlags = DISPATCH_METHOD; /* fall through */ case DISPATCH_METHOD: case DISPATCH_CONSTRUCT: { jsval_t *argv, buf[6], r; unsigned argc;
hres = convert_params(pdp, buf, &argc, &argv); if(FAILED(hres)) return hres;
hres = invoke_prop_func(This, get_this(pdp), prop, wFlags, argc, argv, pvarRes ? &r : NULL, pspCaller); if(argv != buf) heap_free(argv); if(SUCCEEDED(hres) && pvarRes) { hres = jsval_to_variant(r, pvarRes); jsval_release(r); } break; } case DISPATCH_PROPERTYGET: { jsval_t r;
hres = prop_get(This, prop, &r); if(SUCCEEDED(hres)) { hres = jsval_to_variant(r, pvarRes); jsval_release(r); } break; } case DISPATCH_PROPERTYPUT: { jsval_t val; DWORD i;
for(i=0; i < pdp->cNamedArgs; i++) { if(pdp->rgdispidNamedArgs[i] == DISPID_PROPERTYPUT) break; }
if(i == pdp->cNamedArgs) { TRACE("no value to set\n"); return DISP_E_PARAMNOTOPTIONAL; }
hres = variant_to_jsval(pdp->rgvarg+i, &val); if(FAILED(hres)) return hres;
hres = prop_put(This, prop, val); jsval_release(val); break; } default: FIXME("Unimplemented flags %x\n", wFlags); return E_INVALIDARG; }
if(pei) *pei = This->ctx->ei.ei; return hres;}
static HRESULT delete_prop(dispex_prop_t *prop, BOOL *ret){ if(!(prop->flags & PROPF_CONFIGURABLE)) { *ret = FALSE; return S_OK; }
*ret = TRUE; /* FIXME: not exactly right */
if(prop->type == PROP_JSVAL) { jsval_release(prop->u.val); prop->type = PROP_DELETED; } if(prop->type == PROP_ACCESSOR) FIXME("not supported on accessor property\n"); return S_OK;}
static HRESULT WINAPI DispatchEx_DeleteMemberByName(IDispatchEx *iface, BSTR bstrName, DWORD grfdex){ jsdisp_t *This = impl_from_IDispatchEx(iface); dispex_prop_t *prop; BOOL b; HRESULT hres;
TRACE("(%p)->(%s %x)\n", This, debugstr_w(bstrName), grfdex);
if(grfdex & ~(fdexNameCaseSensitive|fdexNameEnsure|fdexNameImplicit|FDEX_VERSION_MASK)) FIXME("Unsupported grfdex %x\n", grfdex);
hres = find_prop_name(This, string_hash(bstrName), bstrName, &prop); if(FAILED(hres)) return hres; if(!prop) { TRACE("not found\n"); return S_OK; }
return delete_prop(prop, &b);}
static HRESULT WINAPI DispatchEx_DeleteMemberByDispID(IDispatchEx *iface, DISPID id){ jsdisp_t *This = impl_from_IDispatchEx(iface); dispex_prop_t *prop; BOOL b;
TRACE("(%p)->(%x)\n", This, id);
prop = get_prop(This, id); if(!prop) { WARN("invalid id\n"); return DISP_E_MEMBERNOTFOUND; }
return delete_prop(prop, &b);}
static HRESULT WINAPI DispatchEx_GetMemberProperties(IDispatchEx *iface, DISPID id, DWORD grfdexFetch, DWORD *pgrfdex){ jsdisp_t *This = impl_from_IDispatchEx(iface); FIXME("(%p)->(%x %x %p)\n", This, id, grfdexFetch, pgrfdex); return E_NOTIMPL;}
static HRESULT WINAPI DispatchEx_GetMemberName(IDispatchEx *iface, DISPID id, BSTR *pbstrName){ jsdisp_t *This = impl_from_IDispatchEx(iface); dispex_prop_t *prop;
TRACE("(%p)->(%x %p)\n", This, id, pbstrName);
prop = get_prop(This, id); if(!prop || !prop->name || prop->type == PROP_DELETED) return DISP_E_MEMBERNOTFOUND;
*pbstrName = SysAllocString(prop->name); if(!*pbstrName) return E_OUTOFMEMORY;
return S_OK;}
static HRESULT WINAPI DispatchEx_GetNextDispID(IDispatchEx *iface, DWORD grfdex, DISPID id, DISPID *pid){ jsdisp_t *This = impl_from_IDispatchEx(iface); HRESULT hres;
TRACE("(%p)->(%x %x %p)\n", This, grfdex, id, pid);
hres = jsdisp_next_prop(This, id, FALSE, pid); if(hres == S_FALSE) *pid = DISPID_STARTENUM; return hres;}
static HRESULT WINAPI DispatchEx_GetNameSpaceParent(IDispatchEx *iface, IUnknown **ppunk){ jsdisp_t *This = impl_from_IDispatchEx(iface); FIXME("(%p)->(%p)\n", This, ppunk); return E_NOTIMPL;}
static IDispatchExVtbl DispatchExVtbl = { DispatchEx_QueryInterface, DispatchEx_AddRef, DispatchEx_Release, DispatchEx_GetTypeInfoCount, DispatchEx_GetTypeInfo, DispatchEx_GetIDsOfNames, DispatchEx_Invoke, DispatchEx_GetDispID, DispatchEx_InvokeEx, DispatchEx_DeleteMemberByName, DispatchEx_DeleteMemberByDispID, DispatchEx_GetMemberProperties, DispatchEx_GetMemberName, DispatchEx_GetNextDispID, DispatchEx_GetNameSpaceParent};
jsdisp_t *as_jsdisp(IDispatch *disp){ assert(disp->lpVtbl == (IDispatchVtbl*)&DispatchExVtbl); return impl_from_IDispatchEx((IDispatchEx*)disp);}
jsdisp_t *to_jsdisp(IDispatch *disp){ return disp->lpVtbl == (IDispatchVtbl*)&DispatchExVtbl ? impl_from_IDispatchEx((IDispatchEx*)disp) : NULL;}
HRESULT init_dispex(jsdisp_t *dispex, script_ctx_t *ctx, const builtin_info_t *builtin_info, jsdisp_t *prototype){ TRACE("%p (%p)\n", dispex, prototype);
dispex->IDispatchEx_iface.lpVtbl = &DispatchExVtbl; dispex->ref = 1; dispex->builtin_info = builtin_info;
dispex->props = heap_alloc_zero(sizeof(dispex_prop_t)*(dispex->buf_size=4)); if(!dispex->props) return E_OUTOFMEMORY;
dispex->prototype = prototype; if(prototype) jsdisp_addref(prototype);
dispex->prop_cnt = 1; if(builtin_info->value_prop.invoke || builtin_info->value_prop.getter) { dispex->props[0].type = PROP_BUILTIN; dispex->props[0].u.p = &builtin_info->value_prop; }else { dispex->props[0].type = PROP_DELETED; }
script_addref(ctx); dispex->ctx = ctx;
return S_OK;}
static const builtin_info_t dispex_info = { JSCLASS_NONE, {NULL, NULL, 0}, 0, NULL, NULL, NULL};
HRESULT create_dispex(script_ctx_t *ctx, const builtin_info_t *builtin_info, jsdisp_t *prototype, jsdisp_t **dispex){ jsdisp_t *ret; HRESULT hres;
ret = heap_alloc_zero(sizeof(jsdisp_t)); if(!ret) return E_OUTOFMEMORY;
hres = init_dispex(ret, ctx, builtin_info ? builtin_info : &dispex_info, prototype); if(FAILED(hres)) { heap_free(ret); return hres; }
*dispex = ret; return S_OK;}
void jsdisp_free(jsdisp_t *obj){ dispex_prop_t *prop;
TRACE("(%p)\n", obj);
for(prop = obj->props; prop < obj->props+obj->prop_cnt; prop++) { switch(prop->type) { case PROP_JSVAL: jsval_release(prop->u.val); break; case PROP_ACCESSOR: if(prop->u.accessor.getter) jsdisp_release(prop->u.accessor.getter); if(prop->u.accessor.setter) jsdisp_release(prop->u.accessor.setter); break; default: break; }; heap_free(prop->name); } heap_free(obj->props); script_release(obj->ctx); if(obj->prototype) jsdisp_release(obj->prototype);
if(obj->builtin_info->destructor) obj->builtin_info->destructor(obj); else heap_free(obj);}
#ifdef TRACE_REFCNT
jsdisp_t *jsdisp_addref(jsdisp_t *jsdisp){ ULONG ref = ++jsdisp->ref; TRACE("(%p) ref=%d\n", jsdisp, ref); return jsdisp;}
void jsdisp_release(jsdisp_t *jsdisp){ ULONG ref = --jsdisp->ref;
TRACE("(%p) ref=%d\n", jsdisp, ref);
if(!ref) jsdisp_free(jsdisp);}
#endif
HRESULT init_dispex_from_constr(jsdisp_t *dispex, script_ctx_t *ctx, const builtin_info_t *builtin_info, jsdisp_t *constr){ jsdisp_t *prot = NULL; dispex_prop_t *prop; HRESULT hres;
static const WCHAR prototypeW[] = {'p','r','o','t','o','t','y','p','e',0};
hres = find_prop_name_prot(constr, string_hash(prototypeW), prototypeW, &prop); if(SUCCEEDED(hres) && prop && prop->type!=PROP_DELETED) { jsval_t val;
hres = prop_get(constr, prop, &val); if(FAILED(hres)) { ERR("Could not get prototype\n"); return hres; }
if(is_object_instance(val)) prot = iface_to_jsdisp(get_object(val)); jsval_release(val); }
hres = init_dispex(dispex, ctx, builtin_info, prot);
if(prot) jsdisp_release(prot); return hres;}
jsdisp_t *iface_to_jsdisp(IDispatch *iface){ return iface->lpVtbl == (const IDispatchVtbl*)&DispatchExVtbl ? jsdisp_addref( impl_from_IDispatchEx((IDispatchEx*)iface)) : NULL;}
HRESULT jsdisp_get_id(jsdisp_t *jsdisp, const WCHAR *name, DWORD flags, DISPID *id){ dispex_prop_t *prop; HRESULT hres;
if(flags & fdexNameEnsure) hres = ensure_prop_name(jsdisp, name, PROPF_ENUMERABLE | PROPF_CONFIGURABLE | PROPF_WRITABLE, &prop); else hres = find_prop_name_prot(jsdisp, string_hash(name), name, &prop); if(FAILED(hres)) return hres;
if(prop && prop->type!=PROP_DELETED) { *id = prop_to_id(jsdisp, prop); return S_OK; }
TRACE("not found %s\n", debugstr_w(name)); return DISP_E_UNKNOWNNAME;}
HRESULT jsdisp_call_value(jsdisp_t *jsfunc, IDispatch *jsthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r){ HRESULT hres;
assert(!(flags & ~(DISPATCH_METHOD|DISPATCH_CONSTRUCT|DISPATCH_JSCRIPT_INTERNAL_MASK)));
if(is_class(jsfunc, JSCLASS_FUNCTION)) { hres = Function_invoke(jsfunc, jsthis, flags, argc, argv, r); }else { vdisp_t vdisp;
if(!jsfunc->builtin_info->value_prop.invoke) { WARN("Not a function\n"); return throw_type_error(jsfunc->ctx, JS_E_FUNCTION_EXPECTED, NULL); }
set_disp(&vdisp, jsthis); flags &= ~DISPATCH_JSCRIPT_INTERNAL_MASK; hres = jsfunc->builtin_info->value_prop.invoke(jsfunc->ctx, &vdisp, flags, argc, argv, r); vdisp_release(&vdisp); } return hres;}
HRESULT jsdisp_call(jsdisp_t *disp, DISPID id, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r){ dispex_prop_t *prop;
prop = get_prop(disp, id); if(!prop) return DISP_E_MEMBERNOTFOUND;
return invoke_prop_func(disp, to_disp(disp), prop, flags, argc, argv, r, NULL);}
HRESULT jsdisp_call_name(jsdisp_t *disp, const WCHAR *name, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r){ dispex_prop_t *prop; HRESULT hres;
hres = find_prop_name_prot(disp, string_hash(name), name, &prop); if(FAILED(hres)) return hres;
return invoke_prop_func(disp, to_disp(disp), prop, flags, argc, argv, r, NULL);}
HRESULT disp_call(script_ctx_t *ctx, IDispatch *disp, DISPID id, WORD flags, unsigned argc, jsval_t *argv, jsval_t *ret){ IDispatchEx *dispex; jsdisp_t *jsdisp; VARIANT buf[6], retv; DISPPARAMS dp; unsigned i; HRESULT hres;
jsdisp = iface_to_jsdisp(disp); if(jsdisp) { if(flags & DISPATCH_PROPERTYPUT) { FIXME("disp_call(propput) on builtin object\n"); return E_FAIL; }
if(ctx != jsdisp->ctx) flags &= ~DISPATCH_JSCRIPT_INTERNAL_MASK; hres = jsdisp_call(jsdisp, id, flags, argc, argv, ret); jsdisp_release(jsdisp); return hres; }
flags &= ~DISPATCH_JSCRIPT_INTERNAL_MASK; if(ret && argc) flags |= DISPATCH_PROPERTYGET;
dp.cArgs = argc;
if(flags & DISPATCH_PROPERTYPUT) { static DISPID propput_dispid = DISPID_PROPERTYPUT;
dp.cNamedArgs = 1; dp.rgdispidNamedArgs = &propput_dispid; }else { dp.cNamedArgs = 0; dp.rgdispidNamedArgs = NULL; }
if(argc > 6) { dp.rgvarg = heap_alloc(argc*sizeof(VARIANT)); if(!dp.rgvarg) return E_OUTOFMEMORY; }else { dp.rgvarg = buf; }
for(i=0; i<argc; i++) { hres = jsval_to_variant(argv[i], dp.rgvarg+argc-i-1); if(FAILED(hres)) { while(i--) VariantClear(dp.rgvarg+argc-i-1); if(dp.rgvarg != buf) heap_free(dp.rgvarg); return hres; } }
V_VT(&retv) = VT_EMPTY; clear_ei(ctx); hres = IDispatch_QueryInterface(disp, &IID_IDispatchEx, (void**)&dispex); if(SUCCEEDED(hres)) { hres = IDispatchEx_InvokeEx(dispex, id, ctx->lcid, flags, &dp, ret ? &retv : NULL, &ctx->ei.ei, &ctx->jscaller->IServiceProvider_iface); IDispatchEx_Release(dispex); }else { UINT err = 0;
if(flags == DISPATCH_CONSTRUCT) { WARN("IDispatch cannot be constructor\n"); return DISP_E_MEMBERNOTFOUND; }
TRACE("using IDispatch\n"); hres = IDispatch_Invoke(disp, id, &IID_NULL, ctx->lcid, flags, &dp, ret ? &retv : NULL, &ctx->ei.ei, &err); }
for(i=0; i<argc; i++) VariantClear(dp.rgvarg+argc-i-1); if(dp.rgvarg != buf) heap_free(dp.rgvarg); if(FAILED(hres)) return hres;
if(ret) { hres = variant_to_jsval(&retv, ret); VariantClear(&retv); }
return hres;}
HRESULT disp_call_value(script_ctx_t *ctx, IDispatch *disp, IDispatch *jsthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r){ jsdisp_t *jsdisp; IDispatchEx *dispex; VARIANT buf[6], retv; DISPPARAMS dp; unsigned i; HRESULT hres;
assert(!(flags & ~(DISPATCH_METHOD|DISPATCH_CONSTRUCT|DISPATCH_JSCRIPT_INTERNAL_MASK)));
jsdisp = iface_to_jsdisp(disp); if(jsdisp) { if(ctx != jsdisp->ctx) flags &= ~DISPATCH_JSCRIPT_INTERNAL_MASK; hres = jsdisp_call_value(jsdisp, jsthis, flags, argc, argv, r); jsdisp_release(jsdisp); return hres; }
flags &= ~DISPATCH_JSCRIPT_INTERNAL_MASK; if(r && argc && flags == DISPATCH_METHOD) flags |= DISPATCH_PROPERTYGET;
hres = IDispatch_QueryInterface(disp, &IID_IDispatchEx, (void**)&dispex); if(FAILED(hres)) { TRACE("using IDispatch\n"); dispex = NULL; jsthis = NULL; }
if(jsthis) { static DISPID this_id = DISPID_THIS;
dp.cArgs = argc+1; dp.cNamedArgs = 1; dp.rgdispidNamedArgs = &this_id; }else { dp.cArgs = argc; dp.cNamedArgs = 0; dp.rgdispidNamedArgs = NULL; }
if(dp.cArgs > ARRAY_SIZE(buf)) { dp.rgvarg = heap_alloc(dp.cArgs*sizeof(VARIANT)); if(!dp.rgvarg) { if(dispex) IDispatchEx_Release(dispex); return E_OUTOFMEMORY; } }else { dp.rgvarg = buf; }
for(i=0; i<argc; i++) { hres = jsval_to_variant(argv[i], dp.rgvarg+dp.cArgs-i-1); if(FAILED(hres)) { while(i--) VariantClear(dp.rgvarg+dp.cArgs-i-1); if(dp.rgvarg != buf) heap_free(dp.rgvarg); if(dispex) IDispatchEx_Release(dispex); return hres; } } if(jsthis) { V_VT(dp.rgvarg) = VT_DISPATCH; V_DISPATCH(dp.rgvarg) = jsthis; }
V_VT(&retv) = VT_EMPTY; clear_ei(ctx); if(dispex) { hres = IDispatchEx_InvokeEx(dispex, DISPID_VALUE, ctx->lcid, flags, &dp, r ? &retv : NULL, &ctx->ei.ei, &ctx->jscaller->IServiceProvider_iface); IDispatchEx_Release(dispex); }else { UINT err = 0;
if(flags == DISPATCH_CONSTRUCT) { WARN("IDispatch cannot be constructor\n"); return DISP_E_MEMBERNOTFOUND; }
hres = IDispatch_Invoke(disp, DISPID_VALUE, &IID_NULL, ctx->lcid, flags, &dp, r ? &retv : NULL, &ctx->ei.ei, &err); }
for(i=0; i<argc; i++) VariantClear(dp.rgvarg+dp.cArgs-i-1); if(dp.rgvarg != buf) heap_free(dp.rgvarg); if(FAILED(hres)) return hres;
if(!r) return S_OK;
hres = variant_to_jsval(&retv, r); VariantClear(&retv); return hres;}
HRESULT jsdisp_propput(jsdisp_t *obj, const WCHAR *name, DWORD flags, jsval_t val){ dispex_prop_t *prop; HRESULT hres;
hres = ensure_prop_name(obj, name, flags, &prop); if(FAILED(hres)) return hres;
return prop_put(obj, prop, val);}
HRESULT jsdisp_propput_name(jsdisp_t *obj, const WCHAR *name, jsval_t val){ return jsdisp_propput(obj, name, PROPF_ENUMERABLE | PROPF_CONFIGURABLE | PROPF_WRITABLE, val);}
HRESULT jsdisp_propput_idx(jsdisp_t *obj, DWORD idx, jsval_t val){ WCHAR buf[12];
static const WCHAR formatW[] = {'%','d',0};
swprintf(buf, formatW, idx); return jsdisp_propput_name(obj, buf, val);}
HRESULT disp_propput(script_ctx_t *ctx, IDispatch *disp, DISPID id, jsval_t val){ jsdisp_t *jsdisp; HRESULT hres;
jsdisp = iface_to_jsdisp(disp); if(jsdisp) { dispex_prop_t *prop;
prop = get_prop(jsdisp, id); if(prop) hres = prop_put(jsdisp, prop, val); else hres = DISP_E_MEMBERNOTFOUND;
jsdisp_release(jsdisp); }else { DISPID dispid = DISPID_PROPERTYPUT; DWORD flags = DISPATCH_PROPERTYPUT; VARIANT var; DISPPARAMS dp = {&var, &dispid, 1, 1}; IDispatchEx *dispex;
hres = jsval_to_variant(val, &var); if(FAILED(hres)) return hres;
if(V_VT(&var) == VT_DISPATCH) flags |= DISPATCH_PROPERTYPUTREF;
clear_ei(ctx); hres = IDispatch_QueryInterface(disp, &IID_IDispatchEx, (void**)&dispex); if(SUCCEEDED(hres)) { hres = IDispatchEx_InvokeEx(dispex, id, ctx->lcid, flags, &dp, NULL, &ctx->ei.ei, &ctx->jscaller->IServiceProvider_iface); IDispatchEx_Release(dispex); }else { ULONG err = 0;
TRACE("using IDispatch\n"); hres = IDispatch_Invoke(disp, id, &IID_NULL, ctx->lcid, flags, &dp, NULL, &ctx->ei.ei, &err); }
VariantClear(&var); }
return hres;}
HRESULT jsdisp_propget_name(jsdisp_t *obj, const WCHAR *name, jsval_t *val){ dispex_prop_t *prop; HRESULT hres;
hres = find_prop_name_prot(obj, string_hash(name), name, &prop); if(FAILED(hres)) return hres;
if(!prop || prop->type==PROP_DELETED) { *val = jsval_undefined(); return S_OK; }
return prop_get(obj, prop, val);}
HRESULT jsdisp_get_idx(jsdisp_t *obj, DWORD idx, jsval_t *r){ WCHAR name[12]; dispex_prop_t *prop; HRESULT hres;
static const WCHAR formatW[] = {'%','d',0};
swprintf(name, formatW, idx);
hres = find_prop_name_prot(obj, string_hash(name), name, &prop); if(FAILED(hres)) return hres;
if(!prop || prop->type==PROP_DELETED) { *r = jsval_undefined(); return DISP_E_UNKNOWNNAME; }
return prop_get(obj, prop, r);}
HRESULT jsdisp_propget(jsdisp_t *jsdisp, DISPID id, jsval_t *val){ dispex_prop_t *prop;
prop = get_prop(jsdisp, id); if(!prop) return DISP_E_MEMBERNOTFOUND;
return prop_get(jsdisp, prop, val);}
HRESULT disp_propget(script_ctx_t *ctx, IDispatch *disp, DISPID id, jsval_t *val){ DISPPARAMS dp = {NULL,NULL,0,0}; IDispatchEx *dispex; jsdisp_t *jsdisp; VARIANT var; HRESULT hres;
jsdisp = iface_to_jsdisp(disp); if(jsdisp) { hres = jsdisp_propget(jsdisp, id, val); jsdisp_release(jsdisp); return hres; }
V_VT(&var) = VT_EMPTY; clear_ei(ctx); hres = IDispatch_QueryInterface(disp, &IID_IDispatchEx, (void**)&dispex); if(SUCCEEDED(hres)) { hres = IDispatchEx_InvokeEx(dispex, id, ctx->lcid, INVOKE_PROPERTYGET, &dp, &var, &ctx->ei.ei, &ctx->jscaller->IServiceProvider_iface); IDispatchEx_Release(dispex); }else { ULONG err = 0;
TRACE("using IDispatch\n"); hres = IDispatch_Invoke(disp, id, &IID_NULL, ctx->lcid, INVOKE_PROPERTYGET, &dp, &var, &ctx->ei.ei, &err); } if(FAILED(hres)) return hres;
hres = variant_to_jsval(&var, val); VariantClear(&var); return hres;}
HRESULT jsdisp_delete_idx(jsdisp_t *obj, DWORD idx){ static const WCHAR formatW[] = {'%','d',0}; WCHAR buf[12]; dispex_prop_t *prop; BOOL b; HRESULT hres;
swprintf(buf, formatW, idx);
hres = find_prop_name(obj, string_hash(buf), buf, &prop); if(FAILED(hres) || !prop) return hres;
return delete_prop(prop, &b);}
HRESULT disp_delete(IDispatch *disp, DISPID id, BOOL *ret){ IDispatchEx *dispex; jsdisp_t *jsdisp; HRESULT hres;
jsdisp = iface_to_jsdisp(disp); if(jsdisp) { dispex_prop_t *prop;
prop = get_prop(jsdisp, id); if(prop) hres = delete_prop(prop, ret); else hres = DISP_E_MEMBERNOTFOUND;
jsdisp_release(jsdisp); return hres; }
hres = IDispatch_QueryInterface(disp, &IID_IDispatchEx, (void**)&dispex); if(FAILED(hres)) { *ret = FALSE; return S_OK; }
hres = IDispatchEx_DeleteMemberByDispID(dispex, id); IDispatchEx_Release(dispex); if(FAILED(hres)) return hres;
*ret = hres == S_OK; return S_OK;}
HRESULT jsdisp_next_prop(jsdisp_t *obj, DISPID id, BOOL own_only, DISPID *ret){ dispex_prop_t *iter; HRESULT hres;
if(id == DISPID_STARTENUM && !own_only) { hres = fill_protrefs(obj); if(FAILED(hres)) return hres; }
if(id + 1 < 0 || id+1 >= obj->prop_cnt) return S_FALSE;
for(iter = &obj->props[id + 1]; iter < obj->props + obj->prop_cnt; iter++) { if(!iter->name || iter->type == PROP_DELETED) continue; if(own_only && iter->type == PROP_PROTREF) continue; if(!(get_flags(obj, iter) & PROPF_ENUMERABLE)) continue; *ret = prop_to_id(obj, iter); return S_OK; }
return S_FALSE;}
HRESULT disp_delete_name(script_ctx_t *ctx, IDispatch *disp, jsstr_t *name, BOOL *ret){ IDispatchEx *dispex; jsdisp_t *jsdisp; BSTR bstr; HRESULT hres;
jsdisp = iface_to_jsdisp(disp); if(jsdisp) { dispex_prop_t *prop; const WCHAR *ptr;
ptr = jsstr_flatten(name); if(!ptr) { jsdisp_release(jsdisp); return E_OUTOFMEMORY; }
hres = find_prop_name(jsdisp, string_hash(ptr), ptr, &prop); if(prop) { hres = delete_prop(prop, ret); }else { *ret = TRUE; hres = S_OK; }
jsdisp_release(jsdisp); return hres; }
bstr = SysAllocStringLen(NULL, jsstr_length(name)); if(!bstr) return E_OUTOFMEMORY; jsstr_flush(name, bstr);
hres = IDispatch_QueryInterface(disp, &IID_IDispatchEx, (void**)&dispex); if(SUCCEEDED(hres)) { hres = IDispatchEx_DeleteMemberByName(dispex, bstr, make_grfdex(ctx, fdexNameCaseSensitive)); if(SUCCEEDED(hres)) *ret = hres == S_OK; IDispatchEx_Release(dispex); }else { DISPID id;
hres = IDispatch_GetIDsOfNames(disp, &IID_NULL, &bstr, 1, 0, &id); if(SUCCEEDED(hres)) { /* Property exists and we can't delete it from pure IDispatch interface, so return false. */ *ret = FALSE; }else if(hres == DISP_E_UNKNOWNNAME) { /* Property doesn't exist, so nothing to delete */ *ret = TRUE; hres = S_OK; } }
SysFreeString(bstr); return hres;}
HRESULT jsdisp_get_own_property(jsdisp_t *obj, const WCHAR *name, BOOL flags_only, property_desc_t *desc){ dispex_prop_t *prop; HRESULT hres;
hres = find_prop_name(obj, string_hash(name), name, &prop); if(FAILED(hres)) return hres;
if(!prop) return DISP_E_UNKNOWNNAME;
memset(desc, 0, sizeof(*desc));
switch(prop->type) { case PROP_BUILTIN: case PROP_JSVAL: desc->mask |= PROPF_WRITABLE; desc->explicit_value = TRUE; if(!flags_only) { hres = prop_get(obj, prop, &desc->value); if(FAILED(hres)) return hres; } break; case PROP_ACCESSOR: desc->explicit_getter = desc->explicit_setter = TRUE; if(!flags_only) { desc->getter = prop->u.accessor.getter ? jsdisp_addref(prop->u.accessor.getter) : NULL; desc->setter = prop->u.accessor.setter ? jsdisp_addref(prop->u.accessor.setter) : NULL; } break; default: return DISP_E_UNKNOWNNAME; }
desc->flags = prop->flags & (PROPF_ENUMERABLE | PROPF_WRITABLE | PROPF_CONFIGURABLE); desc->mask |= PROPF_ENUMERABLE | PROPF_CONFIGURABLE; return S_OK;}
HRESULT jsdisp_define_property(jsdisp_t *obj, const WCHAR *name, property_desc_t *desc){ dispex_prop_t *prop; HRESULT hres;
hres = find_prop_name(obj, string_hash(name), name, &prop); if(FAILED(hres)) return hres;
if(!prop && !(prop = alloc_prop(obj, name, PROP_DELETED, 0))) return E_OUTOFMEMORY;
if(prop->type == PROP_DELETED || prop->type == PROP_PROTREF) { prop->flags = desc->flags; if(desc->explicit_getter || desc->explicit_setter) { prop->type = PROP_ACCESSOR; prop->u.accessor.getter = desc->getter ? jsdisp_addref(desc->getter) : NULL; prop->u.accessor.setter = desc->setter ? jsdisp_addref(desc->setter) : NULL; TRACE("%s = accessor { get: %p set: %p }\n", debugstr_w(name), prop->u.accessor.getter, prop->u.accessor.setter); }else { prop->type = PROP_JSVAL; if(desc->explicit_value) { hres = jsval_copy(desc->value, &prop->u.val); if(FAILED(hres)) return hres; }else { prop->u.val = jsval_undefined(); } TRACE("%s = %s\n", debugstr_w(name), debugstr_jsval(prop->u.val)); } return S_OK; }
TRACE("existing prop %s prop flags %x desc flags %x desc mask %x\n", debugstr_w(name), prop->flags, desc->flags, desc->mask);
if(!(prop->flags & PROPF_CONFIGURABLE)) { if(((desc->mask & PROPF_CONFIGURABLE) && (desc->flags & PROPF_CONFIGURABLE)) || ((desc->mask & PROPF_ENUMERABLE) && ((desc->flags & PROPF_ENUMERABLE) != (prop->flags & PROPF_ENUMERABLE)))) return throw_type_error(obj->ctx, JS_E_NONCONFIGURABLE_REDEFINED, name); }
if(desc->explicit_value || (desc->mask & PROPF_WRITABLE)) { if(prop->type == PROP_ACCESSOR) { if(!(prop->flags & PROPF_CONFIGURABLE)) return throw_type_error(obj->ctx, JS_E_NONCONFIGURABLE_REDEFINED, name); if(prop->u.accessor.getter) jsdisp_release(prop->u.accessor.getter); if(prop->u.accessor.setter) jsdisp_release(prop->u.accessor.setter);
prop->type = PROP_JSVAL; hres = jsval_copy(desc->value, &prop->u.val); if(FAILED(hres)) { prop->u.val = jsval_undefined(); return hres; } }else { if(!(prop->flags & PROPF_CONFIGURABLE) && !(prop->flags & PROPF_WRITABLE)) { if((desc->mask & PROPF_WRITABLE) && (desc->flags & PROPF_WRITABLE)) return throw_type_error(obj->ctx, JS_E_NONWRITABLE_MODIFIED, name); if(desc->explicit_value) { if(prop->type == PROP_JSVAL) { BOOL eq; hres = jsval_strict_equal(desc->value, prop->u.val, &eq); if(FAILED(hres)) return hres; if(!eq) return throw_type_error(obj->ctx, JS_E_NONWRITABLE_MODIFIED, name); }else { FIXME("redefinition of property type %d\n", prop->type); } } } if(desc->explicit_value) { if(prop->type == PROP_JSVAL) jsval_release(prop->u.val); else prop->type = PROP_JSVAL; hres = jsval_copy(desc->value, &prop->u.val); if(FAILED(hres)) { prop->u.val = jsval_undefined(); return hres; } } } }else if(desc->explicit_getter || desc->explicit_setter) { if(prop->type != PROP_ACCESSOR) { if(!(prop->flags & PROPF_CONFIGURABLE)) return throw_type_error(obj->ctx, JS_E_NONCONFIGURABLE_REDEFINED, name); if(prop->type == PROP_JSVAL) jsval_release(prop->u.val); prop->type = PROP_ACCESSOR; prop->u.accessor.getter = prop->u.accessor.setter = NULL; }else if(!(prop->flags & PROPF_CONFIGURABLE)) { if((desc->explicit_getter && desc->getter != prop->u.accessor.getter) || (desc->explicit_setter && desc->setter != prop->u.accessor.setter)) return throw_type_error(obj->ctx, JS_E_NONCONFIGURABLE_REDEFINED, name); }
if(desc->explicit_getter) { if(prop->u.accessor.getter) { jsdisp_release(prop->u.accessor.getter); prop->u.accessor.getter = NULL; } if(desc->getter) prop->u.accessor.getter = jsdisp_addref(desc->getter); } if(desc->explicit_setter) { if(prop->u.accessor.setter) { jsdisp_release(prop->u.accessor.setter); prop->u.accessor.setter = NULL; } if(desc->setter) prop->u.accessor.setter = jsdisp_addref(desc->setter); } }
prop->flags = (prop->flags & ~desc->mask) | (desc->flags & desc->mask); return S_OK;}
HRESULT jsdisp_define_data_property(jsdisp_t *obj, const WCHAR *name, unsigned flags, jsval_t value){ property_desc_t prop_desc = { flags, flags, TRUE }; prop_desc.value = value; return jsdisp_define_property(obj, name, &prop_desc);}