dll/win32/msxml3/dispex.c

   1 /*
   2  * Copyright 2008 Jacek Caban for CodeWeavers
   3  *
   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.
   8  *
   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.
  13  *
  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
  17  */
  18
  19 #include "precomp.h"
  20
  21 static CRITICAL_SECTION cs_dispex_static_data;
  22 static CRITICAL_SECTION_DEBUG cs_dispex_static_data_dbg =
  23 {
  24     0, 0, &cs_dispex_static_data,
  25     { &cs_dispex_static_data_dbg.ProcessLocksList, &cs_dispex_static_data_dbg.ProcessLocksList },
  26       0, 0, { (DWORD_PTR)(__FILE__ ": dispex_static_data") }
  27 };
  28 static CRITICAL_SECTION cs_dispex_static_data = { &cs_dispex_static_data_dbg, -1, 0, 0, 0, 0 };
  29
  30
  31 enum lib_version_t
  32 {
  33     LibXml = 0,
  34     LibXml2,
  35     LibXml_Last
  36 };
  37
  38 typedef struct {
  39     REFIID iid;
  40     enum lib_version_t lib;
  41 } tid_id_t;
  42
  43 typedef struct {
  44     REFIID iid;
  45     unsigned short major;
  46 } lib_id_t;
  47
  48 typedef struct {
  49     DISPID id;
  50     BSTR name;
  51     enum tid_t tid;
  52 } func_info_t;
  53
  54 struct dispex_data_t {
  55     DWORD func_cnt;
  56     func_info_t *funcs;
  57     func_info_t **name_table;
  58
  59     struct list entry;
  60 };
  61
  62 typedef struct {
  63     VARIANT var;
  64     LPWSTR name;
  65 } dynamic_prop_t;
  66
  67 struct dispex_dynamic_data_t {
  68     DWORD buf_size;
  69     DWORD prop_cnt;
  70     dynamic_prop_t *props;
  71 };
  72
  73 #define DISPID_DYNPROP_0    0x50000000
  74 #define DISPID_DYNPROP_MAX  0x5fffffff
  75
  76 static struct list dispex_data_list = LIST_INIT(dispex_data_list);
  77 static ITypeLib *typelib[LibXml_Last];
  78 static ITypeInfo *typeinfos[LAST_tid];
  79
  80 /* indexed with lib_version_t values */
  81 static lib_id_t lib_ids[] = {
  82     { &LIBID_MSXML,  2 },
  83     { &LIBID_MSXML2, 3 }
  84 };
  85
  86 static tid_id_t tid_ids[] = {
  87     { &IID_NULL, LibXml_Last },
  88     { &IID_IXMLDOMAttribute, LibXml2 },
  89     { &IID_IXMLDOMCDATASection, LibXml2 },
  90     { &IID_IXMLDOMComment, LibXml2 },
  91     { &IID_IXMLDOMDocument, LibXml2 },
  92     { &IID_IXMLDOMDocument2, LibXml2 },
  93     { &IID_IXMLDOMDocument3, LibXml2 },
  94     { &IID_IXMLDOMDocumentFragment, LibXml2 },
  95     { &IID_IXMLDOMDocumentType, LibXml2 },
  96     { &IID_IXMLDOMElement, LibXml2 },
  97     { &IID_IXMLDOMEntityReference, LibXml2 },
  98     { &IID_IXMLDOMImplementation, LibXml2 },
  99     { &IID_IXMLDOMNamedNodeMap, LibXml2 },
 100     { &IID_IXMLDOMNode, LibXml2 },
 101     { &IID_IXMLDOMNodeList, LibXml2 },
 102     { &IID_IXMLDOMParseError2, LibXml2 },
 103     { &IID_IXMLDOMProcessingInstruction, LibXml2 },
 104     { &IID_IXMLDOMSchemaCollection, LibXml2 },
 105     { &IID_IXMLDOMSchemaCollection2, LibXml2 },
 106     { &IID_IXMLDOMSelection, LibXml2 },
 107     { &IID_IXMLDOMText, LibXml2 },
 108     { &IID_IXMLElement, LibXml },
 109     { &IID_IXMLDocument, LibXml },
 110     { &IID_IXMLHTTPRequest, LibXml2 },
 111     { &IID_IXSLProcessor, LibXml2 },
 112     { &IID_IXSLTemplate, LibXml2 },
 113     { &IID_IVBSAXAttributes, LibXml2 },
 114     { &IID_IVBSAXContentHandler, LibXml2 },
 115     { &IID_IVBSAXDeclHandler, LibXml2 },
 116     { &IID_IVBSAXDTDHandler, LibXml2 },
 117     { &IID_IVBSAXEntityResolver, LibXml2 },
 118     { &IID_IVBSAXErrorHandler, LibXml2 },
 119     { &IID_IVBSAXLexicalHandler, LibXml2 },
 120     { &IID_IVBSAXLocator, LibXml2 },
 121     { &IID_IVBSAXXMLFilter, LibXml2 },
 122     { &IID_IVBSAXXMLReader, LibXml2 },
 123     { &IID_IMXAttributes, LibXml2 },
 124     { &IID_IMXReaderControl, LibXml2 },
 125     { &IID_IMXWriter, LibXml2 },
 126     { &IID_IVBMXNamespaceManager, LibXml2 },
 127     { &IID_IServerXMLHTTPRequest, LibXml2 }
 128 };
 129
 130 const IID *get_riid_from_tid(tid_t tid)
 131 {
 132     return tid_ids[tid].iid;
 133 }
 134
 135 static inline unsigned get_libid_from_tid(tid_t tid)
 136 {
 137     return tid_ids[tid].lib;
 138 }
 139
 140 HRESULT get_typeinfo(enum tid_t tid, ITypeInfo **typeinfo)
 141 {
 142     unsigned lib = get_libid_from_tid(tid);
 143     HRESULT hres;
 144
 145     if(!typelib[lib]) {
 146         ITypeLib *tl;
 147
 148         hres = LoadRegTypeLib(lib_ids[lib].iid, lib_ids[lib].major, 0, LOCALE_SYSTEM_DEFAULT, &tl);
 149         if(FAILED(hres)) {
 150             ERR("LoadRegTypeLib failed: %08x\n", hres);
 151             return hres;
 152         }
 153
 154         if(InterlockedCompareExchangePointer((void**)&typelib[lib], tl, NULL))
 155             ITypeLib_Release(tl);
 156     }
 157
 158     if(!typeinfos[tid]) {
 159         ITypeInfo *ti;
 160
 161         hres = ITypeLib_GetTypeInfoOfGuid(typelib[lib], get_riid_from_tid(tid), &ti);
 162         if(FAILED(hres)) {
 163             /* try harder with typelib from msxml.dll */
 164             hres = ITypeLib_GetTypeInfoOfGuid(typelib[LibXml], get_riid_from_tid(tid), &ti);
 165             if(FAILED(hres)) {
 166                 ERR("GetTypeInfoOfGuid failed: %08x\n", hres);
 167                 return hres;
 168             }
 169         }
 170
 171         if(InterlockedCompareExchangePointer((void**)(typeinfos+tid), ti, NULL))
 172             ITypeInfo_Release(ti);
 173     }
 174
 175     *typeinfo = typeinfos[tid];
 176
 177     ITypeInfo_AddRef(typeinfos[tid]);
 178     return S_OK;
 179 }
 180
 181 void release_typelib(void)
 182 {
 183     dispex_data_t *iter;
 184     unsigned i;
 185
 186     while(!list_empty(&dispex_data_list)) {
 187         iter = LIST_ENTRY(list_head(&dispex_data_list), dispex_data_t, entry);
 188         list_remove(&iter->entry);
 189
 190         for(i=0; i < iter->func_cnt; i++)
 191             SysFreeString(iter->funcs[i].name);
 192
 193         heap_free(iter->funcs);
 194         heap_free(iter->name_table);
 195         heap_free(iter);
 196     }
 197
 198     for(i=0; i < sizeof(typeinfos)/sizeof(*typeinfos); i++)
 199         if(typeinfos[i])
 200             ITypeInfo_Release(typeinfos[i]);
 201
 202     for(i=0; i < sizeof(typelib)/sizeof(*typelib); i++)
 203         if(typelib[i])
 204             ITypeLib_Release(typelib[i]);
 205
 206     DeleteCriticalSection(&cs_dispex_static_data);
 207 }
 208
 209 static void add_func_info(dispex_data_t *data, DWORD *size, tid_t tid, DISPID id, ITypeInfo *dti)
 210 {
 211     HRESULT hres;
 212
 213     if(data->func_cnt && data->funcs[data->func_cnt-1].id == id)
 214         return;
 215
 216     if(data->func_cnt == *size)
 217         data->funcs = heap_realloc(data->funcs, (*size <<= 1)*sizeof(func_info_t));
 218
 219     hres = ITypeInfo_GetDocumentation(dti, id, &data->funcs[data->func_cnt].name, NULL, NULL, NULL);
 220     if(FAILED(hres))
 221         return;
 222
 223     data->funcs[data->func_cnt].id = id;
 224     data->funcs[data->func_cnt].tid = tid;
 225
 226     data->func_cnt++;
 227 }
 228
 229 static int dispid_cmp(const void *p1, const void *p2)
 230 {
 231     return ((const func_info_t*)p1)->id - ((const func_info_t*)p2)->id;
 232 }
 233
 234 static int func_name_cmp(const void *p1, const void *p2)
 235 {
 236     return strcmpiW((*(func_info_t* const*)p1)->name, (*(func_info_t* const*)p2)->name);
 237 }
 238
 239 static dispex_data_t *preprocess_dispex_data(DispatchEx *This)
 240 {
 241     const tid_t *tid = This->data->iface_tids;
 242     FUNCDESC *funcdesc;
 243     dispex_data_t *data;
 244     DWORD size = 16, i;
 245     ITypeInfo *ti, *dti;
 246     HRESULT hres;
 247
 248     TRACE("(%p)\n", This);
 249
 250     hres = get_typeinfo(This->data->disp_tid, &dti);
 251     if(FAILED(hres)) {
 252         ERR("Could not get disp type info: %08x\n", hres);
 253         return NULL;
 254     }
 255
 256     data = heap_alloc(sizeof(dispex_data_t));
 257     data->func_cnt = 0;
 258     data->funcs = heap_alloc(size*sizeof(func_info_t));
 259     list_add_tail(&dispex_data_list, &data->entry);
 260
 261     while(*tid) {
 262         hres = get_typeinfo(*tid, &ti);
 263         if(FAILED(hres))
 264             break;
 265
 266         i=0;
 267         while(1) {
 268             hres = ITypeInfo_GetFuncDesc(ti, i++, &funcdesc);
 269             if(FAILED(hres))
 270                 break;
 271
 272             add_func_info(data, &size, *tid, funcdesc->memid, dti);
 273             ITypeInfo_ReleaseFuncDesc(ti, funcdesc);
 274         }
 275
 276         ITypeInfo_Release(ti);
 277         tid++;
 278     }
 279
 280     if(!data->func_cnt) {
 281         heap_free(data->funcs);
 282         data->funcs = NULL;
 283     }else if(data->func_cnt != size) {
 284         data->funcs = heap_realloc(data->funcs, data->func_cnt * sizeof(func_info_t));
 285     }
 286
 287     qsort(data->funcs, data->func_cnt, sizeof(func_info_t), dispid_cmp);
 288
 289     if(data->funcs) {
 290         data->name_table = heap_alloc(data->func_cnt * sizeof(func_info_t*));
 291         for(i=0; i < data->func_cnt; i++)
 292             data->name_table[i] = data->funcs+i;
 293         qsort(data->name_table, data->func_cnt, sizeof(func_info_t*), func_name_cmp);
 294     }else {
 295         data->name_table = NULL;
 296     }
 297
 298     ITypeInfo_Release(dti);
 299     return data;
 300 }
 301
 302 static dispex_data_t *get_dispex_data(DispatchEx *This)
 303 {
 304     if(This->data->data)
 305         return This->data->data;
 306
 307     EnterCriticalSection(&cs_dispex_static_data);
 308
 309     if(!This->data->data)
 310         This->data->data = preprocess_dispex_data(This);
 311
 312     LeaveCriticalSection(&cs_dispex_static_data);
 313
 314     return This->data->data;
 315 }
 316
 317 static inline BOOL is_dynamic_dispid(DISPID id)
 318 {
 319     return DISPID_DYNPROP_0 <= id && id <= DISPID_DYNPROP_MAX;
 320 }
 321
 322 static inline DispatchEx *impl_from_IDispatchEx(IDispatchEx *iface)
 323 {
 324     return CONTAINING_RECORD(iface, DispatchEx, IDispatchEx_iface);
 325 }
 326
 327 static HRESULT WINAPI DispatchEx_QueryInterface(IDispatchEx *iface, REFIID riid, void **ppv)
 328 {
 329     DispatchEx *This = impl_from_IDispatchEx(iface);
 330
 331     return IUnknown_QueryInterface(This->outer, riid, ppv);
 332 }
 333
 334 static ULONG WINAPI DispatchEx_AddRef(IDispatchEx *iface)
 335 {
 336     DispatchEx *This = impl_from_IDispatchEx(iface);
 337
 338     return IUnknown_AddRef(This->outer);
 339 }
 340
 341 static ULONG WINAPI DispatchEx_Release(IDispatchEx *iface)
 342 {
 343     DispatchEx *This = impl_from_IDispatchEx(iface);
 344
 345     return IUnknown_Release(This->outer);
 346 }
 347
 348 static HRESULT WINAPI DispatchEx_GetTypeInfoCount(IDispatchEx *iface, UINT *pctinfo)
 349 {
 350     DispatchEx *This = impl_from_IDispatchEx(iface);
 351
 352     TRACE("(%p)->(%p)\n", This, pctinfo);
 353
 354     *pctinfo = 1;
 355     return S_OK;
 356 }
 357
 358 static HRESULT WINAPI DispatchEx_GetTypeInfo(IDispatchEx *iface, UINT iTInfo,
 359                                               LCID lcid, ITypeInfo **ppTInfo)
 360 {
 361     DispatchEx *This = impl_from_IDispatchEx(iface);
 362
 363     TRACE("(%p)->(%u %u %p)\n", This, iTInfo, lcid, ppTInfo);
 364
 365     return get_typeinfo(This->data->disp_tid, ppTInfo);
 366 }
 367
 368 static HRESULT WINAPI DispatchEx_GetIDsOfNames(IDispatchEx *iface, REFIID riid,
 369                                                 LPOLESTR *rgszNames, UINT cNames,
 370                                                 LCID lcid, DISPID *rgDispId)
 371 {
 372     DispatchEx *This = impl_from_IDispatchEx(iface);
 373     UINT i;
 374     HRESULT hres;
 375
 376     TRACE("(%p)->(%s %p %u %u %p)\n", This, debugstr_guid(riid), rgszNames, cNames,
 377           lcid, rgDispId);
 378
 379     for(i=0; i < cNames; i++) {
 380         hres = IDispatchEx_GetDispID(&This->IDispatchEx_iface, rgszNames[i], 0, rgDispId+i);
 381         if(FAILED(hres))
 382             return hres;
 383     }
 384
 385     return S_OK;
 386 }
 387
 388 static HRESULT WINAPI DispatchEx_Invoke(IDispatchEx *iface, DISPID dispIdMember,
 389                             REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams,
 390                             VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
 391 {
 392     DispatchEx *This = impl_from_IDispatchEx(iface);
 393
 394     TRACE("(%p)->(%d %s %d %d %p %p %p %p)\n", This, dispIdMember, debugstr_guid(riid),
 395           lcid, wFlags, pDispParams, pVarResult, pExcepInfo, puArgErr);
 396
 397     return IDispatchEx_InvokeEx(&This->IDispatchEx_iface, dispIdMember, lcid, wFlags,
 398                                 pDispParams, pVarResult, pExcepInfo, NULL);
 399 }
 400
 401 static HRESULT WINAPI DispatchEx_GetDispID(IDispatchEx *iface, BSTR bstrName, DWORD grfdex, DISPID *pid)
 402 {
 403     DispatchEx *This = impl_from_IDispatchEx(iface);
 404     dispex_data_t *data;
 405     int min, max, n, c;
 406
 407     TRACE("(%p)->(%s %x %p)\n", This, debugstr_w(bstrName), grfdex, pid);
 408
 409     if(grfdex & ~(fdexNameCaseSensitive|fdexNameEnsure|fdexNameImplicit))
 410         FIXME("Unsupported grfdex %x\n", grfdex);
 411
 412     data = get_dispex_data(This);
 413     if(!data)
 414         return E_FAIL;
 415
 416     min = 0;
 417     max = data->func_cnt-1;
 418
 419     while(min <= max) {
 420         n = (min+max)/2;
 421
 422         c = strcmpiW(data->name_table[n]->name, bstrName);
 423         if(!c) {
 424             if((grfdex & fdexNameCaseSensitive) && strcmpW(data->name_table[n]->name, bstrName))
 425                 break;
 426
 427             *pid = data->name_table[n]->id;
 428             return S_OK;
 429         }
 430
 431         if(c > 0)
 432             max = n-1;
 433         else
 434             min = n+1;
 435     }
 436
 437     if(This->dynamic_data) {
 438         unsigned i;
 439
 440         for(i=0; i < This->dynamic_data->prop_cnt; i++) {
 441             if(!strcmpW(This->dynamic_data->props[i].name, bstrName)) {
 442                 *pid = DISPID_DYNPROP_0 + i;
 443                 return S_OK;
 444             }
 445         }
 446     }
 447
 448     if(This->data->vtbl && This->data->vtbl->get_dispid) {
 449         HRESULT hres;
 450
 451         hres = This->data->vtbl->get_dispid(This->outer, bstrName, grfdex, pid);
 452         if(hres != DISP_E_UNKNOWNNAME)
 453             return hres;
 454     }
 455
 456     if(grfdex & fdexNameEnsure) {
 457         dispex_dynamic_data_t *dynamic_data;
 458
 459         TRACE("creating dynamic prop %s\n", debugstr_w(bstrName));
 460
 461         if(This->dynamic_data) {
 462             dynamic_data = This->dynamic_data;
 463         }else {
 464             dynamic_data = This->dynamic_data = heap_alloc_zero(sizeof(dispex_dynamic_data_t));
 465             if(!dynamic_data)
 466                 return E_OUTOFMEMORY;
 467         }
 468
 469         if(!dynamic_data->buf_size) {
 470             dynamic_data->props = heap_alloc(sizeof(dynamic_prop_t)*4);
 471             if(!dynamic_data->props)
 472                 return E_OUTOFMEMORY;
 473             dynamic_data->buf_size = 4;
 474         }else if(dynamic_data->buf_size == dynamic_data->prop_cnt) {
 475             dynamic_prop_t *new_props;
 476
 477             new_props = heap_realloc(dynamic_data->props, sizeof(dynamic_prop_t)*(dynamic_data->buf_size<<1));
 478             if(!new_props)
 479                 return E_OUTOFMEMORY;
 480
 481             dynamic_data->props = new_props;
 482             dynamic_data->buf_size <<= 1;
 483         }
 484
 485         dynamic_data->props[dynamic_data->prop_cnt].name = heap_strdupW(bstrName);
 486         VariantInit(&dynamic_data->props[dynamic_data->prop_cnt].var);
 487         *pid = DISPID_DYNPROP_0 + dynamic_data->prop_cnt++;
 488
 489         return S_OK;
 490     }
 491
 492     TRACE("not found %s\n", debugstr_w(bstrName));
 493     return DISP_E_UNKNOWNNAME;
 494 }
 495
 496 static HRESULT WINAPI DispatchEx_InvokeEx(IDispatchEx *iface, DISPID id, LCID lcid, WORD wFlags, DISPPARAMS *pdp,
 497         VARIANT *pvarRes, EXCEPINFO *pei, IServiceProvider *pspCaller)
 498 {
 499     DispatchEx *This = impl_from_IDispatchEx(iface);
 500     IUnknown *unk;
 501     ITypeInfo *ti;
 502     dispex_data_t *data;
 503     UINT argerr=0;
 504     int min, max, n;
 505     HRESULT hres;
 506
 507     TRACE("(%p)->(%x %x %x %p %p %p %p)\n", This, id, lcid, wFlags, pdp, pvarRes, pei, pspCaller);
 508
 509     if(This->data->vtbl && This->data->vtbl->invoke) {
 510         hres = This->data->vtbl->invoke(This->outer, id, lcid, wFlags, pdp, pvarRes, pei);
 511         if (hres != DISP_E_UNKNOWNNAME) return hres;
 512     }
 513
 514     if(wFlags == DISPATCH_CONSTRUCT) {
 515         FIXME("DISPATCH_CONSTRUCT not implemented\n");
 516         return E_NOTIMPL;
 517     }
 518
 519     if(is_dynamic_dispid(id)) {
 520         DWORD idx = id - DISPID_DYNPROP_0;
 521         VARIANT *var;
 522
 523         if(!This->dynamic_data || This->dynamic_data->prop_cnt <= idx)
 524             return DISP_E_UNKNOWNNAME;
 525
 526         var = &This->dynamic_data->props[idx].var;
 527
 528         switch(wFlags) {
 529         case INVOKE_PROPERTYGET:
 530             V_VT(pvarRes) = VT_EMPTY;
 531             return VariantCopy(pvarRes, var);
 532         case INVOKE_PROPERTYPUT:
 533             VariantClear(var);
 534             return VariantCopy(var, pdp->rgvarg);
 535         default:
 536             FIXME("unhandled wFlags %x\n", wFlags);
 537             return E_NOTIMPL;
 538         }
 539     }
 540
 541     data = get_dispex_data(This);
 542     if(!data)
 543         return E_FAIL;
 544
 545     min = 0;
 546     max = data->func_cnt-1;
 547
 548     while(min <= max) {
 549         n = (min+max)/2;
 550
 551         if(data->funcs[n].id == id)
 552             break;
 553
 554         if(data->funcs[n].id < id)
 555             min = n+1;
 556         else
 557             max = n-1;
 558     }
 559
 560     if(min > max) {
 561         WARN("invalid id %x\n", id);
 562         return DISP_E_UNKNOWNNAME;
 563     }
 564
 565     hres = get_typeinfo(data->funcs[n].tid, &ti);
 566     if(FAILED(hres)) {
 567         ERR("Could not get type info: %08x\n", hres);
 568         return hres;
 569     }
 570
 571     hres = IUnknown_QueryInterface(This->outer, get_riid_from_tid(data->funcs[n].tid), (void**)&unk);
 572     if(FAILED(hres)) {
 573         ERR("Could not get iface: %08x\n", hres);
 574         ITypeInfo_Release(ti);
 575         return E_FAIL;
 576     }
 577
 578     hres = ITypeInfo_Invoke(ti, unk, id, wFlags, pdp, pvarRes, pei, &argerr);
 579
 580     ITypeInfo_Release(ti);
 581     IUnknown_Release(unk);
 582     return hres;
 583 }
 584
 585 static HRESULT WINAPI DispatchEx_DeleteMemberByName(IDispatchEx *iface, BSTR bstrName, DWORD grfdex)
 586 {
 587     DispatchEx *This = impl_from_IDispatchEx(iface);
 588     TRACE("Not implemented in native msxml3 (%p)->(%s %x)\n", This, debugstr_w(bstrName), grfdex);
 589     return E_NOTIMPL;
 590 }
 591
 592 static HRESULT WINAPI DispatchEx_DeleteMemberByDispID(IDispatchEx *iface, DISPID id)
 593 {
 594     DispatchEx *This = impl_from_IDispatchEx(iface);
 595     TRACE("Not implemented in native msxml3 (%p)->(%x)\n", This, id);
 596     return E_NOTIMPL;
 597 }
 598
 599 static HRESULT WINAPI DispatchEx_GetMemberProperties(IDispatchEx *iface, DISPID id, DWORD grfdexFetch, DWORD *pgrfdex)
 600 {
 601     DispatchEx *This = impl_from_IDispatchEx(iface);
 602     TRACE("Not implemented in native msxml3 (%p)->(%x %x %p)\n", This, id, grfdexFetch, pgrfdex);
 603     return E_NOTIMPL;
 604 }
 605
 606 static HRESULT WINAPI DispatchEx_GetMemberName(IDispatchEx *iface, DISPID id, BSTR *pbstrName)
 607 {
 608     DispatchEx *This = impl_from_IDispatchEx(iface);
 609     TRACE("Not implemented in native msxml3 (%p)->(%x %p)\n", This, id, pbstrName);
 610     return E_NOTIMPL;
 611 }
 612
 613 static HRESULT WINAPI DispatchEx_GetNextDispID(IDispatchEx *iface, DWORD grfdex, DISPID id, DISPID *pid)
 614 {
 615     DispatchEx *This = impl_from_IDispatchEx(iface);
 616     TRACE(" Not implemented in native msxml3 (%p)->(%x %x %p)\n", This, grfdex, id, pid);
 617     return E_NOTIMPL;
 618 }
 619
 620 static HRESULT WINAPI DispatchEx_GetNameSpaceParent(IDispatchEx *iface, IUnknown **ppunk)
 621 {
 622     DispatchEx *This = impl_from_IDispatchEx(iface);
 623     TRACE("Not implemented in native msxml3 (%p)->(%p)\n", This, ppunk);
 624     return E_NOTIMPL;
 625 }
 626
 627 static IDispatchExVtbl DispatchExVtbl = {
 628     DispatchEx_QueryInterface,
 629     DispatchEx_AddRef,
 630     DispatchEx_Release,
 631     DispatchEx_GetTypeInfoCount,
 632     DispatchEx_GetTypeInfo,
 633     DispatchEx_GetIDsOfNames,
 634     DispatchEx_Invoke,
 635     DispatchEx_GetDispID,
 636     DispatchEx_InvokeEx,
 637     DispatchEx_DeleteMemberByName,
 638     DispatchEx_DeleteMemberByDispID,
 639     DispatchEx_GetMemberProperties,
 640     DispatchEx_GetMemberName,
 641     DispatchEx_GetNextDispID,
 642     DispatchEx_GetNameSpaceParent
 643 };
 644
 645 BOOL dispex_query_interface(DispatchEx *This, REFIID riid, void **ppv)
 646 {
 647     static const IID IID_UndocumentedScriptIface =
 648         {0x719c3050,0xf9d3,0x11cf,{0xa4,0x93,0x00,0x40,0x05,0x23,0xa8,0xa0}};
 649     static const IID IID_IDispatchJS =
 650         {0x719c3050,0xf9d3,0x11cf,{0xa4,0x93,0x00,0x40,0x05,0x23,0xa8,0xa6}};
 651
 652     if(IsEqualGUID(&IID_IDispatch, riid)) {
 653         TRACE("(%p)->(IID_IDispatch %p)\n", This, ppv);
 654         *ppv = &This->IDispatchEx_iface;
 655     }else if(IsEqualGUID(&IID_IDispatchEx, riid)) {
 656         TRACE("(%p)->(IID_IDispatchEx %p)\n", This, ppv);
 657         *ppv = &This->IDispatchEx_iface;
 658     }else if(IsEqualGUID(&IID_IDispatchJS, riid)) {
 659         TRACE("(%p)->(IID_IDispatchJS %p) returning NULL\n", This, ppv);
 660         *ppv = NULL;
 661     }else if(IsEqualGUID(&IID_UndocumentedScriptIface, riid)) {
 662         TRACE("(%p)->(IID_UndocumentedScriptIface %p) returning NULL\n", This, ppv);
 663         *ppv = NULL;
 664     }else if (IsEqualGUID(&IID_IObjectIdentity, riid)) {
 665         TRACE("IID_IObjectIdentity not supported returning NULL\n");
 666         *ppv = NULL;
 667     }else {
 668         return FALSE;
 669     }
 670
 671     if(*ppv)
 672         IUnknown_AddRef((IUnknown*)*ppv);
 673     return TRUE;
 674 }
 675
 676 void release_dispex(DispatchEx *This)
 677 {
 678     dynamic_prop_t *prop;
 679
 680     if(!This->dynamic_data)
 681         return;
 682
 683     for(prop = This->dynamic_data->props; prop < This->dynamic_data->props + This->dynamic_data->prop_cnt; prop++) {
 684         VariantClear(&prop->var);
 685         heap_free(prop->name);
 686     }
 687
 688     heap_free(This->dynamic_data->props);
 689     heap_free(This->dynamic_data);
 690 }
 691
 692 void init_dispex(DispatchEx *dispex, IUnknown *outer, dispex_static_data_t *data)
 693 {
 694     dispex->IDispatchEx_iface.lpVtbl = &DispatchExVtbl;
 695     dispex->outer = outer;
 696     dispex->data = data;
 697     dispex->dynamic_data = NULL;
 698 }