mshtml: Improved VARIANT debug traces in htmldoc.c.
[wine] / dlls / msxml3 / nodemap.c
1 /*
2  *    Node map implementation
3  *
4  * Copyright 2005 Mike McCormack
5  *
6  * This library is free software; you can redistribute it and/or
7  * modify it under the terms of the GNU Lesser General Public
8  * License as published by the Free Software Foundation; either
9  * version 2.1 of the License, or (at your option) any later version.
10  *
11  * This library is distributed in the hope that it will be useful,
12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
14  * Lesser General Public License for more details.
15  *
16  * You should have received a copy of the GNU Lesser General Public
17  * License along with this library; if not, write to the Free Software
18  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
19  */
20
21 #include "config.h"
22
23 #define COBJMACROS
24
25 #include <stdarg.h>
26 #ifdef HAVE_LIBXML2
27 # include <libxml/parser.h>
28 # include <libxml/xmlerror.h>
29 #endif
30
31 #include "windef.h"
32 #include "winbase.h"
33 #include "winuser.h"
34 #include "winnls.h"
35 #include "ole2.h"
36 #include "msxml6.h"
37 #include "msxml2did.h"
38
39 #include "msxml_private.h"
40
41 #include "wine/debug.h"
42
43 WINE_DEFAULT_DEBUG_CHANNEL(msxml);
44
45 #ifdef HAVE_LIBXML2
46
47 typedef struct _xmlnodemap
48 {
49     DispatchEx dispex;
50     IXMLDOMNamedNodeMap IXMLDOMNamedNodeMap_iface;
51     ISupportErrorInfo ISupportErrorInfo_iface;
52     LONG ref;
53
54     xmlNodePtr node;
55     LONG iterator;
56
57     const struct nodemap_funcs *funcs;
58 } xmlnodemap;
59
60 static inline xmlnodemap *impl_from_IXMLDOMNamedNodeMap( IXMLDOMNamedNodeMap *iface )
61 {
62     return CONTAINING_RECORD(iface, xmlnodemap, IXMLDOMNamedNodeMap_iface);
63 }
64
65 static inline xmlnodemap *impl_from_ISupportErrorInfo( ISupportErrorInfo *iface )
66 {
67     return CONTAINING_RECORD(iface, xmlnodemap, ISupportErrorInfo_iface);
68 }
69
70 static HRESULT WINAPI xmlnodemap_QueryInterface(
71     IXMLDOMNamedNodeMap *iface,
72     REFIID riid, void** ppvObject )
73 {
74     xmlnodemap *This = impl_from_IXMLDOMNamedNodeMap( iface );
75     TRACE("(%p)->(%s %p)\n", iface, debugstr_guid(riid), ppvObject);
76
77     if( IsEqualGUID( riid, &IID_IUnknown ) ||
78         IsEqualGUID( riid, &IID_IDispatch ) ||
79         IsEqualGUID( riid, &IID_IXMLDOMNamedNodeMap ) )
80     {
81         *ppvObject = iface;
82     }
83     else if (dispex_query_interface(&This->dispex, riid, ppvObject))
84     {
85         return *ppvObject ? S_OK : E_NOINTERFACE;
86     }
87     else if( IsEqualGUID( riid, &IID_ISupportErrorInfo ))
88     {
89         *ppvObject = &This->ISupportErrorInfo_iface;
90     }
91     else
92     {
93         TRACE("interface %s not implemented\n", debugstr_guid(riid));
94         *ppvObject = NULL;
95         return E_NOINTERFACE;
96     }
97
98     IXMLDOMElement_AddRef( iface );
99
100     return S_OK;
101 }
102
103 static ULONG WINAPI xmlnodemap_AddRef(
104     IXMLDOMNamedNodeMap *iface )
105 {
106     xmlnodemap *This = impl_from_IXMLDOMNamedNodeMap( iface );
107     ULONG ref = InterlockedIncrement( &This->ref );
108     TRACE("(%p)->(%d)\n", This, ref);
109     return ref;
110 }
111
112 static ULONG WINAPI xmlnodemap_Release(
113     IXMLDOMNamedNodeMap *iface )
114 {
115     xmlnodemap *This = impl_from_IXMLDOMNamedNodeMap( iface );
116     ULONG ref = InterlockedDecrement( &This->ref );
117
118     TRACE("(%p)->(%d)\n", This, ref);
119     if ( ref == 0 )
120     {
121         xmldoc_release( This->node->doc );
122         release_dispex(&This->dispex);
123         heap_free( This );
124     }
125
126     return ref;
127 }
128
129 static HRESULT WINAPI xmlnodemap_GetTypeInfoCount(
130     IXMLDOMNamedNodeMap *iface,
131     UINT* pctinfo )
132 {
133     xmlnodemap *This = impl_from_IXMLDOMNamedNodeMap( iface );
134     return IDispatchEx_GetTypeInfoCount(&This->dispex.IDispatchEx_iface, pctinfo);
135 }
136
137 static HRESULT WINAPI xmlnodemap_GetTypeInfo(
138     IXMLDOMNamedNodeMap *iface,
139     UINT iTInfo, LCID lcid,
140     ITypeInfo** ppTInfo )
141 {
142     xmlnodemap *This = impl_from_IXMLDOMNamedNodeMap( iface );
143     return IDispatchEx_GetTypeInfo(&This->dispex.IDispatchEx_iface,
144         iTInfo, lcid, ppTInfo);
145 }
146
147 static HRESULT WINAPI xmlnodemap_GetIDsOfNames(
148     IXMLDOMNamedNodeMap *iface,
149     REFIID riid, LPOLESTR* rgszNames,
150     UINT cNames, LCID lcid, DISPID* rgDispId )
151 {
152     xmlnodemap *This = impl_from_IXMLDOMNamedNodeMap( iface );
153     return IDispatchEx_GetIDsOfNames(&This->dispex.IDispatchEx_iface,
154         riid, rgszNames, cNames, lcid, rgDispId);
155 }
156
157 static HRESULT WINAPI xmlnodemap_Invoke(
158     IXMLDOMNamedNodeMap *iface,
159     DISPID dispIdMember, REFIID riid, LCID lcid,
160     WORD wFlags, DISPPARAMS* pDispParams, VARIANT* pVarResult,
161     EXCEPINFO* pExcepInfo, UINT* puArgErr )
162 {
163     xmlnodemap *This = impl_from_IXMLDOMNamedNodeMap( iface );
164     return IDispatchEx_Invoke(&This->dispex.IDispatchEx_iface,
165         dispIdMember, riid, lcid, wFlags, pDispParams, pVarResult, pExcepInfo, puArgErr);
166 }
167
168 static HRESULT WINAPI xmlnodemap_getNamedItem(
169     IXMLDOMNamedNodeMap *iface,
170     BSTR name,
171     IXMLDOMNode** item)
172 {
173     xmlnodemap *This = impl_from_IXMLDOMNamedNodeMap( iface );
174
175     TRACE("(%p)->(%s %p)\n", This, debugstr_w(name), item );
176
177     return This->funcs->get_named_item(This->node, name, item);
178 }
179
180 static HRESULT WINAPI xmlnodemap_setNamedItem(
181     IXMLDOMNamedNodeMap *iface,
182     IXMLDOMNode* newItem,
183     IXMLDOMNode** namedItem)
184 {
185     xmlnodemap *This = impl_from_IXMLDOMNamedNodeMap( iface );
186
187     TRACE("(%p)->(%p %p)\n", This, newItem, namedItem );
188
189     return This->funcs->set_named_item(This->node, newItem, namedItem);
190 }
191
192 static HRESULT WINAPI xmlnodemap_removeNamedItem(
193     IXMLDOMNamedNodeMap *iface,
194     BSTR name,
195     IXMLDOMNode** namedItem)
196 {
197     xmlnodemap *This = impl_from_IXMLDOMNamedNodeMap( iface );
198
199     TRACE("(%p)->(%s %p)\n", This, debugstr_w(name), namedItem );
200
201     return This->funcs->remove_named_item(This->node, name, namedItem);
202 }
203
204 static HRESULT WINAPI xmlnodemap_get_item(
205     IXMLDOMNamedNodeMap *iface,
206     LONG index,
207     IXMLDOMNode** item)
208 {
209     xmlnodemap *This = impl_from_IXMLDOMNamedNodeMap( iface );
210
211     TRACE("(%p)->(%d %p)\n", This, index, item);
212
213     return This->funcs->get_item(This->node, index, item);
214 }
215
216 static HRESULT WINAPI xmlnodemap_get_length(
217     IXMLDOMNamedNodeMap *iface,
218     LONG *length)
219 {
220     xmlnodemap *This = impl_from_IXMLDOMNamedNodeMap( iface );
221
222     TRACE("(%p)->(%p)\n", This, length);
223
224     return This->funcs->get_length(This->node, length);
225 }
226
227 static HRESULT WINAPI xmlnodemap_getQualifiedItem(
228     IXMLDOMNamedNodeMap *iface,
229     BSTR baseName,
230     BSTR namespaceURI,
231     IXMLDOMNode** item)
232 {
233     xmlnodemap *This = impl_from_IXMLDOMNamedNodeMap( iface );
234
235     TRACE("(%p)->(%s %s %p)\n", This, debugstr_w(baseName), debugstr_w(namespaceURI), item);
236
237     return This->funcs->get_qualified_item(This->node, baseName, namespaceURI, item);
238 }
239
240 static HRESULT WINAPI xmlnodemap_removeQualifiedItem(
241     IXMLDOMNamedNodeMap *iface,
242     BSTR baseName,
243     BSTR namespaceURI,
244     IXMLDOMNode** item)
245 {
246     xmlnodemap *This = impl_from_IXMLDOMNamedNodeMap( iface );
247
248     TRACE("(%p)->(%s %s %p)\n", This, debugstr_w(baseName), debugstr_w(namespaceURI), item);
249
250     return This->funcs->remove_qualified_item(This->node, baseName, namespaceURI, item);
251 }
252
253 static HRESULT WINAPI xmlnodemap_nextNode(
254     IXMLDOMNamedNodeMap *iface,
255     IXMLDOMNode** nextItem)
256 {
257     xmlnodemap *This = impl_from_IXMLDOMNamedNodeMap( iface );
258
259     TRACE("(%p)->(%p: %d)\n", This, nextItem, This->iterator);
260
261     return This->funcs->next_node(This->node, &This->iterator, nextItem);
262 }
263
264 static HRESULT WINAPI xmlnodemap_reset(
265     IXMLDOMNamedNodeMap *iface )
266 {
267     xmlnodemap *This = impl_from_IXMLDOMNamedNodeMap( iface );
268
269     TRACE("(%p)->(%d)\n", This, This->iterator);
270
271     This->iterator = 0;
272
273     return S_OK;
274 }
275
276 static HRESULT WINAPI xmlnodemap__newEnum(
277     IXMLDOMNamedNodeMap *iface,
278     IUnknown** ppUnk)
279 {
280     xmlnodemap *This = impl_from_IXMLDOMNamedNodeMap( iface );
281     FIXME("(%p)->(%p)\n", This, ppUnk);
282     return E_NOTIMPL;
283 }
284
285 static const struct IXMLDOMNamedNodeMapVtbl XMLDOMNamedNodeMapVtbl =
286 {
287     xmlnodemap_QueryInterface,
288     xmlnodemap_AddRef,
289     xmlnodemap_Release,
290     xmlnodemap_GetTypeInfoCount,
291     xmlnodemap_GetTypeInfo,
292     xmlnodemap_GetIDsOfNames,
293     xmlnodemap_Invoke,
294     xmlnodemap_getNamedItem,
295     xmlnodemap_setNamedItem,
296     xmlnodemap_removeNamedItem,
297     xmlnodemap_get_item,
298     xmlnodemap_get_length,
299     xmlnodemap_getQualifiedItem,
300     xmlnodemap_removeQualifiedItem,
301     xmlnodemap_nextNode,
302     xmlnodemap_reset,
303     xmlnodemap__newEnum,
304 };
305
306 static HRESULT WINAPI support_error_QueryInterface(
307     ISupportErrorInfo *iface,
308     REFIID riid, void** ppvObject )
309 {
310     xmlnodemap *This = impl_from_ISupportErrorInfo( iface );
311     TRACE("(%p)->(%s %p)\n", This, debugstr_guid(riid), ppvObject);
312     return IXMLDOMNamedNodeMap_QueryInterface(&This->IXMLDOMNamedNodeMap_iface, riid, ppvObject);
313 }
314
315 static ULONG WINAPI support_error_AddRef(
316     ISupportErrorInfo *iface )
317 {
318     xmlnodemap *This = impl_from_ISupportErrorInfo( iface );
319     return IXMLDOMNamedNodeMap_AddRef(&This->IXMLDOMNamedNodeMap_iface);
320 }
321
322 static ULONG WINAPI support_error_Release(
323     ISupportErrorInfo *iface )
324 {
325     xmlnodemap *This = impl_from_ISupportErrorInfo( iface );
326     return IXMLDOMNamedNodeMap_Release(&This->IXMLDOMNamedNodeMap_iface);
327 }
328
329 static HRESULT WINAPI support_error_InterfaceSupportsErrorInfo(
330     ISupportErrorInfo *iface,
331     REFIID riid )
332 {
333     xmlnodemap *This = impl_from_ISupportErrorInfo( iface );
334     TRACE("(%p)->(%s)\n", This, debugstr_guid(riid));
335     return IsEqualGUID(riid, &IID_IXMLDOMNamedNodeMap) ? S_OK : S_FALSE;
336 }
337
338 static const struct ISupportErrorInfoVtbl SupportErrorInfoVtbl =
339 {
340     support_error_QueryInterface,
341     support_error_AddRef,
342     support_error_Release,
343     support_error_InterfaceSupportsErrorInfo
344 };
345
346 static HRESULT xmlnodemap_get_dispid(IUnknown *iface, BSTR name, DWORD flags, DISPID *dispid)
347 {
348     WCHAR *ptr;
349     int idx = 0;
350
351     for(ptr = name; *ptr && isdigitW(*ptr); ptr++)
352         idx = idx*10 + (*ptr-'0');
353     if(*ptr)
354         return DISP_E_UNKNOWNNAME;
355
356     *dispid = DISPID_DOM_COLLECTION_BASE + idx;
357     TRACE("ret %x\n", *dispid);
358     return S_OK;
359 }
360
361 static HRESULT xmlnodemap_invoke(IUnknown *iface, DISPID id, LCID lcid, WORD flags, DISPPARAMS *params,
362         VARIANT *res, EXCEPINFO *ei)
363 {
364     xmlnodemap *This = impl_from_IXMLDOMNamedNodeMap( (IXMLDOMNamedNodeMap*)iface );
365
366     TRACE("(%p)->(%x %x %x %p %p %p)\n", This, id, lcid, flags, params, res, ei);
367
368     V_VT(res) = VT_DISPATCH;
369     V_DISPATCH(res) = NULL;
370
371     if (id < DISPID_DOM_COLLECTION_BASE || id > DISPID_DOM_COLLECTION_MAX)
372         return DISP_E_UNKNOWNNAME;
373
374     switch(flags)
375     {
376         case INVOKE_PROPERTYGET:
377         {
378             IXMLDOMNode *disp = NULL;
379
380             IXMLDOMNamedNodeMap_get_item(&This->IXMLDOMNamedNodeMap_iface, id - DISPID_DOM_COLLECTION_BASE, &disp);
381             V_DISPATCH(res) = (IDispatch*)disp;
382             break;
383         }
384         default:
385         {
386             FIXME("unimplemented flags %x\n", flags);
387             break;
388         }
389     }
390
391     TRACE("ret %p\n", V_DISPATCH(res));
392
393     return S_OK;
394 }
395
396 static const dispex_static_data_vtbl_t xmlnodemap_dispex_vtbl = {
397     xmlnodemap_get_dispid,
398     xmlnodemap_invoke
399 };
400
401 static const tid_t xmlnodemap_iface_tids[] = {
402     IXMLDOMNamedNodeMap_tid,
403     0
404 };
405
406 static dispex_static_data_t xmlnodemap_dispex = {
407     &xmlnodemap_dispex_vtbl,
408     IXMLDOMNamedNodeMap_tid,
409     NULL,
410     xmlnodemap_iface_tids
411 };
412
413 IXMLDOMNamedNodeMap *create_nodemap(xmlNodePtr node, const struct nodemap_funcs *funcs)
414 {
415     xmlnodemap *This;
416
417     This = heap_alloc( sizeof *This );
418     if ( !This )
419         return NULL;
420
421     This->IXMLDOMNamedNodeMap_iface.lpVtbl = &XMLDOMNamedNodeMapVtbl;
422     This->ISupportErrorInfo_iface.lpVtbl = &SupportErrorInfoVtbl;
423     This->node = node;
424     This->ref = 1;
425     This->iterator = 0;
426     This->funcs = funcs;
427
428     init_dispex(&This->dispex, (IUnknown*)&This->IXMLDOMNamedNodeMap_iface, &xmlnodemap_dispex);
429
430     xmldoc_add_ref(node->doc);
431
432     return &This->IXMLDOMNamedNodeMap_iface;
433 }
434
435 #endif