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
19 #define WIN32_NO_STATUS
28 # include <libxml/parser.h>
29 //# include <libxml/xmlerror.h>
34 //#include "winuser.h"
38 //#include "wininet.h"
41 //#include "shlwapi.h"
43 #include <wine/debug.h>
44 #include <wine/list.h>
45 //#include "wine/unicode.h"
47 #include "msxml_private.h"
49 WINE_DEFAULT_DEBUG_CHANNEL(msxml
);
51 static CRITICAL_SECTION cs_dispex_static_data
;
52 static CRITICAL_SECTION_DEBUG cs_dispex_static_data_dbg
=
54 0, 0, &cs_dispex_static_data
,
55 { &cs_dispex_static_data_dbg
.ProcessLocksList
, &cs_dispex_static_data_dbg
.ProcessLocksList
},
56 0, 0, { (DWORD_PTR
)(__FILE__
": dispex_static_data") }
58 static CRITICAL_SECTION cs_dispex_static_data
= { &cs_dispex_static_data_dbg
, -1, 0, 0, 0, 0 };
70 enum lib_version_t lib
;
84 struct dispex_data_t
{
87 func_info_t
**name_table
;
97 struct dispex_dynamic_data_t
{
100 dynamic_prop_t
*props
;
103 #define DISPID_DYNPROP_0 0x50000000
104 #define DISPID_DYNPROP_MAX 0x5fffffff
106 static struct list dispex_data_list
= LIST_INIT(dispex_data_list
);
107 static ITypeLib
*typelib
[LibXml_Last
];
108 static ITypeInfo
*typeinfos
[LAST_tid
];
110 /* indexed with lib_version_t values */
111 static lib_id_t lib_ids
[] = {
116 static tid_id_t tid_ids
[] = {
117 { &IID_NULL
, LibXml_Last
},
118 { &IID_IXMLDOMAttribute
, LibXml2
},
119 { &IID_IXMLDOMCDATASection
, LibXml2
},
120 { &IID_IXMLDOMComment
, LibXml2
},
121 { &IID_IXMLDOMDocument
, LibXml2
},
122 { &IID_IXMLDOMDocument2
, LibXml2
},
123 { &IID_IXMLDOMDocument3
, LibXml2
},
124 { &IID_IXMLDOMDocumentFragment
, LibXml2
},
125 { &IID_IXMLDOMDocumentType
, LibXml2
},
126 { &IID_IXMLDOMElement
, LibXml2
},
127 { &IID_IXMLDOMEntityReference
, LibXml2
},
128 { &IID_IXMLDOMImplementation
, LibXml2
},
129 { &IID_IXMLDOMNamedNodeMap
, LibXml2
},
130 { &IID_IXMLDOMNode
, LibXml2
},
131 { &IID_IXMLDOMNodeList
, LibXml2
},
132 { &IID_IXMLDOMParseError2
, LibXml2
},
133 { &IID_IXMLDOMProcessingInstruction
, LibXml2
},
134 { &IID_IXMLDOMSchemaCollection
, LibXml2
},
135 { &IID_IXMLDOMSchemaCollection2
, LibXml2
},
136 { &IID_IXMLDOMSelection
, LibXml2
},
137 { &IID_IXMLDOMText
, LibXml2
},
138 { &IID_IXMLElement
, LibXml
},
139 { &IID_IXMLDocument
, LibXml
},
140 { &IID_IXMLHTTPRequest
, LibXml2
},
141 { &IID_IXSLProcessor
, LibXml2
},
142 { &IID_IXSLTemplate
, LibXml2
},
143 { &IID_IVBSAXAttributes
, LibXml2
},
144 { &IID_IVBSAXContentHandler
, LibXml2
},
145 { &IID_IVBSAXDeclHandler
, LibXml2
},
146 { &IID_IVBSAXDTDHandler
, LibXml2
},
147 { &IID_IVBSAXEntityResolver
, LibXml2
},
148 { &IID_IVBSAXErrorHandler
, LibXml2
},
149 { &IID_IVBSAXLexicalHandler
, LibXml2
},
150 { &IID_IVBSAXLocator
, LibXml2
},
151 { &IID_IVBSAXXMLFilter
, LibXml2
},
152 { &IID_IVBSAXXMLReader
, LibXml2
},
153 { &IID_IMXAttributes
, LibXml2
},
154 { &IID_IMXReaderControl
, LibXml2
},
155 { &IID_IMXWriter
, LibXml2
},
156 { &IID_IVBMXNamespaceManager
, LibXml2
},
157 { &IID_IServerXMLHTTPRequest
, LibXml2
}
160 const IID
*get_riid_from_tid(tid_t tid
)
162 return tid_ids
[tid
].iid
;
165 static inline unsigned get_libid_from_tid(tid_t tid
)
167 return tid_ids
[tid
].lib
;
170 HRESULT
get_typeinfo(enum tid_t tid
, ITypeInfo
**typeinfo
)
172 unsigned lib
= get_libid_from_tid(tid
);
178 hres
= LoadRegTypeLib(lib_ids
[lib
].iid
, lib_ids
[lib
].major
, 0, LOCALE_SYSTEM_DEFAULT
, &tl
);
180 ERR("LoadRegTypeLib failed: %08x\n", hres
);
184 if(InterlockedCompareExchangePointer((void**)&typelib
[lib
], tl
, NULL
))
185 ITypeLib_Release(tl
);
188 if(!typeinfos
[tid
]) {
191 hres
= ITypeLib_GetTypeInfoOfGuid(typelib
[lib
], get_riid_from_tid(tid
), &ti
);
193 /* try harder with typelib from msxml.dll */
194 hres
= ITypeLib_GetTypeInfoOfGuid(typelib
[LibXml
], get_riid_from_tid(tid
), &ti
);
196 ERR("GetTypeInfoOfGuid failed: %08x\n", hres
);
201 if(InterlockedCompareExchangePointer((void**)(typeinfos
+tid
), ti
, NULL
))
202 ITypeInfo_Release(ti
);
205 *typeinfo
= typeinfos
[tid
];
207 ITypeInfo_AddRef(typeinfos
[tid
]);
211 void release_typelib(void)
216 while(!list_empty(&dispex_data_list
)) {
217 iter
= LIST_ENTRY(list_head(&dispex_data_list
), dispex_data_t
, entry
);
218 list_remove(&iter
->entry
);
220 for(i
=0; i
< iter
->func_cnt
; i
++)
221 SysFreeString(iter
->funcs
[i
].name
);
223 heap_free(iter
->funcs
);
224 heap_free(iter
->name_table
);
228 for(i
=0; i
< sizeof(typeinfos
)/sizeof(*typeinfos
); i
++)
230 ITypeInfo_Release(typeinfos
[i
]);
232 for(i
=0; i
< sizeof(typelib
)/sizeof(*typelib
); i
++)
234 ITypeLib_Release(typelib
[i
]);
236 DeleteCriticalSection(&cs_dispex_static_data
);
239 static void add_func_info(dispex_data_t
*data
, DWORD
*size
, tid_t tid
, DISPID id
, ITypeInfo
*dti
)
243 if(data
->func_cnt
&& data
->funcs
[data
->func_cnt
-1].id
== id
)
246 if(data
->func_cnt
== *size
)
247 data
->funcs
= heap_realloc(data
->funcs
, (*size
<<= 1)*sizeof(func_info_t
));
249 hres
= ITypeInfo_GetDocumentation(dti
, id
, &data
->funcs
[data
->func_cnt
].name
, NULL
, NULL
, NULL
);
253 data
->funcs
[data
->func_cnt
].id
= id
;
254 data
->funcs
[data
->func_cnt
].tid
= tid
;
259 static int dispid_cmp(const void *p1
, const void *p2
)
261 return ((const func_info_t
*)p1
)->id
- ((const func_info_t
*)p2
)->id
;
264 static int func_name_cmp(const void *p1
, const void *p2
)
266 return strcmpiW((*(func_info_t
* const*)p1
)->name
, (*(func_info_t
* const*)p2
)->name
);
269 static dispex_data_t
*preprocess_dispex_data(DispatchEx
*This
)
271 const tid_t
*tid
= This
->data
->iface_tids
;
278 TRACE("(%p)\n", This
);
280 hres
= get_typeinfo(This
->data
->disp_tid
, &dti
);
282 ERR("Could not get disp type info: %08x\n", hres
);
286 data
= heap_alloc(sizeof(dispex_data_t
));
288 data
->funcs
= heap_alloc(size
*sizeof(func_info_t
));
289 list_add_tail(&dispex_data_list
, &data
->entry
);
292 hres
= get_typeinfo(*tid
, &ti
);
298 hres
= ITypeInfo_GetFuncDesc(ti
, i
++, &funcdesc
);
302 add_func_info(data
, &size
, *tid
, funcdesc
->memid
, dti
);
303 ITypeInfo_ReleaseFuncDesc(ti
, funcdesc
);
306 ITypeInfo_Release(ti
);
310 if(!data
->func_cnt
) {
311 heap_free(data
->funcs
);
313 }else if(data
->func_cnt
!= size
) {
314 data
->funcs
= heap_realloc(data
->funcs
, data
->func_cnt
* sizeof(func_info_t
));
317 qsort(data
->funcs
, data
->func_cnt
, sizeof(func_info_t
), dispid_cmp
);
320 data
->name_table
= heap_alloc(data
->func_cnt
* sizeof(func_info_t
*));
321 for(i
=0; i
< data
->func_cnt
; i
++)
322 data
->name_table
[i
] = data
->funcs
+i
;
323 qsort(data
->name_table
, data
->func_cnt
, sizeof(func_info_t
*), func_name_cmp
);
325 data
->name_table
= NULL
;
328 ITypeInfo_Release(dti
);
332 static dispex_data_t
*get_dispex_data(DispatchEx
*This
)
335 return This
->data
->data
;
337 EnterCriticalSection(&cs_dispex_static_data
);
339 if(!This
->data
->data
)
340 This
->data
->data
= preprocess_dispex_data(This
);
342 LeaveCriticalSection(&cs_dispex_static_data
);
344 return This
->data
->data
;
347 static inline BOOL
is_dynamic_dispid(DISPID id
)
349 return DISPID_DYNPROP_0
<= id
&& id
<= DISPID_DYNPROP_MAX
;
352 static inline DispatchEx
*impl_from_IDispatchEx(IDispatchEx
*iface
)
354 return CONTAINING_RECORD(iface
, DispatchEx
, IDispatchEx_iface
);
357 static HRESULT WINAPI
DispatchEx_QueryInterface(IDispatchEx
*iface
, REFIID riid
, void **ppv
)
359 DispatchEx
*This
= impl_from_IDispatchEx(iface
);
361 return IUnknown_QueryInterface(This
->outer
, riid
, ppv
);
364 static ULONG WINAPI
DispatchEx_AddRef(IDispatchEx
*iface
)
366 DispatchEx
*This
= impl_from_IDispatchEx(iface
);
368 return IUnknown_AddRef(This
->outer
);
371 static ULONG WINAPI
DispatchEx_Release(IDispatchEx
*iface
)
373 DispatchEx
*This
= impl_from_IDispatchEx(iface
);
375 return IUnknown_Release(This
->outer
);
378 static HRESULT WINAPI
DispatchEx_GetTypeInfoCount(IDispatchEx
*iface
, UINT
*pctinfo
)
380 DispatchEx
*This
= impl_from_IDispatchEx(iface
);
382 TRACE("(%p)->(%p)\n", This
, pctinfo
);
388 static HRESULT WINAPI
DispatchEx_GetTypeInfo(IDispatchEx
*iface
, UINT iTInfo
,
389 LCID lcid
, ITypeInfo
**ppTInfo
)
391 DispatchEx
*This
= impl_from_IDispatchEx(iface
);
393 TRACE("(%p)->(%u %u %p)\n", This
, iTInfo
, lcid
, ppTInfo
);
395 return get_typeinfo(This
->data
->disp_tid
, ppTInfo
);
398 static HRESULT WINAPI
DispatchEx_GetIDsOfNames(IDispatchEx
*iface
, REFIID riid
,
399 LPOLESTR
*rgszNames
, UINT cNames
,
400 LCID lcid
, DISPID
*rgDispId
)
402 DispatchEx
*This
= impl_from_IDispatchEx(iface
);
406 TRACE("(%p)->(%s %p %u %u %p)\n", This
, debugstr_guid(riid
), rgszNames
, cNames
,
409 for(i
=0; i
< cNames
; i
++) {
410 hres
= IDispatchEx_GetDispID(&This
->IDispatchEx_iface
, rgszNames
[i
], 0, rgDispId
+i
);
418 static HRESULT WINAPI
DispatchEx_Invoke(IDispatchEx
*iface
, DISPID dispIdMember
,
419 REFIID riid
, LCID lcid
, WORD wFlags
, DISPPARAMS
*pDispParams
,
420 VARIANT
*pVarResult
, EXCEPINFO
*pExcepInfo
, UINT
*puArgErr
)
422 DispatchEx
*This
= impl_from_IDispatchEx(iface
);
424 TRACE("(%p)->(%d %s %d %d %p %p %p %p)\n", This
, dispIdMember
, debugstr_guid(riid
),
425 lcid
, wFlags
, pDispParams
, pVarResult
, pExcepInfo
, puArgErr
);
427 return IDispatchEx_InvokeEx(&This
->IDispatchEx_iface
, dispIdMember
, lcid
, wFlags
,
428 pDispParams
, pVarResult
, pExcepInfo
, NULL
);
431 static HRESULT WINAPI
DispatchEx_GetDispID(IDispatchEx
*iface
, BSTR bstrName
, DWORD grfdex
, DISPID
*pid
)
433 DispatchEx
*This
= impl_from_IDispatchEx(iface
);
437 TRACE("(%p)->(%s %x %p)\n", This
, debugstr_w(bstrName
), grfdex
, pid
);
439 if(grfdex
& ~(fdexNameCaseSensitive
|fdexNameEnsure
|fdexNameImplicit
))
440 FIXME("Unsupported grfdex %x\n", grfdex
);
442 data
= get_dispex_data(This
);
447 max
= data
->func_cnt
-1;
452 c
= strcmpiW(data
->name_table
[n
]->name
, bstrName
);
454 if((grfdex
& fdexNameCaseSensitive
) && strcmpW(data
->name_table
[n
]->name
, bstrName
))
457 *pid
= data
->name_table
[n
]->id
;
467 if(This
->dynamic_data
) {
470 for(i
=0; i
< This
->dynamic_data
->prop_cnt
; i
++) {
471 if(!strcmpW(This
->dynamic_data
->props
[i
].name
, bstrName
)) {
472 *pid
= DISPID_DYNPROP_0
+ i
;
478 if(This
->data
->vtbl
&& This
->data
->vtbl
->get_dispid
) {
481 hres
= This
->data
->vtbl
->get_dispid(This
->outer
, bstrName
, grfdex
, pid
);
482 if(hres
!= DISP_E_UNKNOWNNAME
)
486 if(grfdex
& fdexNameEnsure
) {
487 dispex_dynamic_data_t
*dynamic_data
;
489 TRACE("creating dynamic prop %s\n", debugstr_w(bstrName
));
491 if(This
->dynamic_data
) {
492 dynamic_data
= This
->dynamic_data
;
494 dynamic_data
= This
->dynamic_data
= heap_alloc_zero(sizeof(dispex_dynamic_data_t
));
496 return E_OUTOFMEMORY
;
499 if(!dynamic_data
->buf_size
) {
500 dynamic_data
->props
= heap_alloc(sizeof(dynamic_prop_t
)*4);
501 if(!dynamic_data
->props
)
502 return E_OUTOFMEMORY
;
503 dynamic_data
->buf_size
= 4;
504 }else if(dynamic_data
->buf_size
== dynamic_data
->prop_cnt
) {
505 dynamic_prop_t
*new_props
;
507 new_props
= heap_realloc(dynamic_data
->props
, sizeof(dynamic_prop_t
)*(dynamic_data
->buf_size
<<1));
509 return E_OUTOFMEMORY
;
511 dynamic_data
->props
= new_props
;
512 dynamic_data
->buf_size
<<= 1;
515 dynamic_data
->props
[dynamic_data
->prop_cnt
].name
= heap_strdupW(bstrName
);
516 VariantInit(&dynamic_data
->props
[dynamic_data
->prop_cnt
].var
);
517 *pid
= DISPID_DYNPROP_0
+ dynamic_data
->prop_cnt
++;
522 TRACE("not found %s\n", debugstr_w(bstrName
));
523 return DISP_E_UNKNOWNNAME
;
526 static HRESULT WINAPI
DispatchEx_InvokeEx(IDispatchEx
*iface
, DISPID id
, LCID lcid
, WORD wFlags
, DISPPARAMS
*pdp
,
527 VARIANT
*pvarRes
, EXCEPINFO
*pei
, IServiceProvider
*pspCaller
)
529 DispatchEx
*This
= impl_from_IDispatchEx(iface
);
537 TRACE("(%p)->(%x %x %x %p %p %p %p)\n", This
, id
, lcid
, wFlags
, pdp
, pvarRes
, pei
, pspCaller
);
539 if(This
->data
->vtbl
&& This
->data
->vtbl
->invoke
) {
540 hres
= This
->data
->vtbl
->invoke(This
->outer
, id
, lcid
, wFlags
, pdp
, pvarRes
, pei
);
541 if (hres
!= DISP_E_UNKNOWNNAME
) return hres
;
544 if(wFlags
== DISPATCH_CONSTRUCT
) {
545 FIXME("DISPATCH_CONSTRUCT not implemented\n");
549 if(is_dynamic_dispid(id
)) {
550 DWORD idx
= id
- DISPID_DYNPROP_0
;
553 if(!This
->dynamic_data
|| This
->dynamic_data
->prop_cnt
<= idx
)
554 return DISP_E_UNKNOWNNAME
;
556 var
= &This
->dynamic_data
->props
[idx
].var
;
559 case INVOKE_PROPERTYGET
:
560 V_VT(pvarRes
) = VT_EMPTY
;
561 return VariantCopy(pvarRes
, var
);
562 case INVOKE_PROPERTYPUT
:
564 return VariantCopy(var
, pdp
->rgvarg
);
566 FIXME("unhandled wFlags %x\n", wFlags
);
571 data
= get_dispex_data(This
);
576 max
= data
->func_cnt
-1;
581 if(data
->funcs
[n
].id
== id
)
584 if(data
->funcs
[n
].id
< id
)
591 WARN("invalid id %x\n", id
);
592 return DISP_E_UNKNOWNNAME
;
595 hres
= get_typeinfo(data
->funcs
[n
].tid
, &ti
);
597 ERR("Could not get type info: %08x\n", hres
);
601 hres
= IUnknown_QueryInterface(This
->outer
, get_riid_from_tid(data
->funcs
[n
].tid
), (void**)&unk
);
603 ERR("Could not get iface: %08x\n", hres
);
607 hres
= ITypeInfo_Invoke(ti
, unk
, id
, wFlags
, pdp
, pvarRes
, pei
, &argerr
);
609 ITypeInfo_Release(ti
);
610 IUnknown_Release(unk
);
614 static HRESULT WINAPI
DispatchEx_DeleteMemberByName(IDispatchEx
*iface
, BSTR bstrName
, DWORD grfdex
)
616 DispatchEx
*This
= impl_from_IDispatchEx(iface
);
617 TRACE("Not implemented in native msxml3 (%p)->(%s %x)\n", This
, debugstr_w(bstrName
), grfdex
);
621 static HRESULT WINAPI
DispatchEx_DeleteMemberByDispID(IDispatchEx
*iface
, DISPID id
)
623 DispatchEx
*This
= impl_from_IDispatchEx(iface
);
624 TRACE("Not implemented in native msxml3 (%p)->(%x)\n", This
, id
);
628 static HRESULT WINAPI
DispatchEx_GetMemberProperties(IDispatchEx
*iface
, DISPID id
, DWORD grfdexFetch
, DWORD
*pgrfdex
)
630 DispatchEx
*This
= impl_from_IDispatchEx(iface
);
631 TRACE("Not implemented in native msxml3 (%p)->(%x %x %p)\n", This
, id
, grfdexFetch
, pgrfdex
);
635 static HRESULT WINAPI
DispatchEx_GetMemberName(IDispatchEx
*iface
, DISPID id
, BSTR
*pbstrName
)
637 DispatchEx
*This
= impl_from_IDispatchEx(iface
);
638 TRACE("Not implemented in native msxml3 (%p)->(%x %p)\n", This
, id
, pbstrName
);
642 static HRESULT WINAPI
DispatchEx_GetNextDispID(IDispatchEx
*iface
, DWORD grfdex
, DISPID id
, DISPID
*pid
)
644 DispatchEx
*This
= impl_from_IDispatchEx(iface
);
645 TRACE(" Not implemented in native msxml3 (%p)->(%x %x %p)\n", This
, grfdex
, id
, pid
);
649 static HRESULT WINAPI
DispatchEx_GetNameSpaceParent(IDispatchEx
*iface
, IUnknown
**ppunk
)
651 DispatchEx
*This
= impl_from_IDispatchEx(iface
);
652 TRACE("Not implemented in native msxml3 (%p)->(%p)\n", This
, ppunk
);
656 static IDispatchExVtbl DispatchExVtbl
= {
657 DispatchEx_QueryInterface
,
660 DispatchEx_GetTypeInfoCount
,
661 DispatchEx_GetTypeInfo
,
662 DispatchEx_GetIDsOfNames
,
664 DispatchEx_GetDispID
,
666 DispatchEx_DeleteMemberByName
,
667 DispatchEx_DeleteMemberByDispID
,
668 DispatchEx_GetMemberProperties
,
669 DispatchEx_GetMemberName
,
670 DispatchEx_GetNextDispID
,
671 DispatchEx_GetNameSpaceParent
674 BOOL
dispex_query_interface(DispatchEx
*This
, REFIID riid
, void **ppv
)
676 static const IID IID_UndocumentedScriptIface
=
677 {0x719c3050,0xf9d3,0x11cf,{0xa4,0x93,0x00,0x40,0x05,0x23,0xa8,0xa0}};
678 static const IID IID_IDispatchJS
=
679 {0x719c3050,0xf9d3,0x11cf,{0xa4,0x93,0x00,0x40,0x05,0x23,0xa8,0xa6}};
681 if(IsEqualGUID(&IID_IDispatch
, riid
)) {
682 TRACE("(%p)->(IID_IDispatch %p)\n", This
, ppv
);
683 *ppv
= &This
->IDispatchEx_iface
;
684 }else if(IsEqualGUID(&IID_IDispatchEx
, riid
)) {
685 TRACE("(%p)->(IID_IDispatchEx %p)\n", This
, ppv
);
686 *ppv
= &This
->IDispatchEx_iface
;
687 }else if(IsEqualGUID(&IID_IDispatchJS
, riid
)) {
688 TRACE("(%p)->(IID_IDispatchJS %p) returning NULL\n", This
, ppv
);
690 }else if(IsEqualGUID(&IID_UndocumentedScriptIface
, riid
)) {
691 TRACE("(%p)->(IID_UndocumentedScriptIface %p) returning NULL\n", This
, ppv
);
693 }else if (IsEqualGUID(&IID_IObjectIdentity
, riid
)) {
694 TRACE("IID_IObjectIdentity not supported returning NULL\n");
701 IUnknown_AddRef((IUnknown
*)*ppv
);
705 void release_dispex(DispatchEx
*This
)
707 dynamic_prop_t
*prop
;
709 if(!This
->dynamic_data
)
712 for(prop
= This
->dynamic_data
->props
; prop
< This
->dynamic_data
->props
+ This
->dynamic_data
->prop_cnt
; prop
++) {
713 VariantClear(&prop
->var
);
714 heap_free(prop
->name
);
717 heap_free(This
->dynamic_data
->props
);
718 heap_free(This
->dynamic_data
);
721 void init_dispex(DispatchEx
*dispex
, IUnknown
*outer
, dispex_static_data_t
*data
)
723 dispex
->IDispatchEx_iface
.lpVtbl
= &DispatchExVtbl
;
724 dispex
->outer
= outer
;
726 dispex
->dynamic_data
= NULL
;