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