mshtml: Improved VARIANT debug traces in htmldoc.c.
[wine] / dlls / msxml3 / attribute.c
1 /*
2  *    DOM Attribute implementation
3  *
4  * Copyright 2006 Huw Davies
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 #define COBJMACROS
22
23 #include "config.h"
24
25 #include <stdarg.h>
26 #ifdef HAVE_LIBXML2
27 # include <libxml/parser.h>
28 # include <libxml/xmlerror.h>
29 # include <libxml/HTMLtree.h>
30 #endif
31
32 #include "windef.h"
33 #include "winbase.h"
34 #include "winuser.h"
35 #include "ole2.h"
36 #include "msxml6.h"
37
38 #include "msxml_private.h"
39
40 #include "wine/debug.h"
41
42 WINE_DEFAULT_DEBUG_CHANNEL(msxml);
43
44 #ifdef HAVE_LIBXML2
45
46 typedef struct _domattr
47 {
48     xmlnode node;
49     IXMLDOMAttribute IXMLDOMAttribute_iface;
50     LONG ref;
51 } domattr;
52
53 static const tid_t domattr_se_tids[] = {
54     IXMLDOMNode_tid,
55     IXMLDOMAttribute_tid,
56     0
57 };
58
59 static inline domattr *impl_from_IXMLDOMAttribute( IXMLDOMAttribute *iface )
60 {
61     return CONTAINING_RECORD(iface, domattr, IXMLDOMAttribute_iface);
62 }
63
64 static HRESULT WINAPI domattr_QueryInterface(
65     IXMLDOMAttribute *iface,
66     REFIID riid,
67     void** ppvObject )
68 {
69     domattr *This = impl_from_IXMLDOMAttribute( iface );
70     TRACE("(%p)->(%s %p)\n", This, debugstr_guid(riid), ppvObject);
71
72     if ( IsEqualGUID( riid, &IID_IXMLDOMAttribute ) ||
73          IsEqualGUID( riid, &IID_IXMLDOMNode ) ||
74          IsEqualGUID( riid, &IID_IDispatch ) ||
75          IsEqualGUID( riid, &IID_IUnknown ) )
76     {
77         *ppvObject = iface;
78     }
79     else if(node_query_interface(&This->node, riid, ppvObject))
80     {
81         return *ppvObject ? S_OK : E_NOINTERFACE;
82     }
83     else if(IsEqualGUID( riid, &IID_ISupportErrorInfo ))
84     {
85         return node_create_supporterrorinfo(domattr_se_tids, ppvObject);
86     }
87     else
88     {
89         TRACE("Unsupported interface %s\n", debugstr_guid(riid));
90         *ppvObject = NULL;
91         return E_NOINTERFACE;
92     }
93
94     IXMLDOMText_AddRef((IUnknown*)*ppvObject);
95     return S_OK;
96 }
97
98 static ULONG WINAPI domattr_AddRef(
99     IXMLDOMAttribute *iface )
100 {
101     domattr *This = impl_from_IXMLDOMAttribute( iface );
102     ULONG ref = InterlockedIncrement( &This->ref );
103     TRACE("(%p)->(%d)\n", This, ref);
104     return ref;
105 }
106
107 static ULONG WINAPI domattr_Release(
108     IXMLDOMAttribute *iface )
109 {
110     domattr *This = impl_from_IXMLDOMAttribute( iface );
111     ULONG ref = InterlockedDecrement( &This->ref );
112
113     TRACE("(%p)->(%d)\n", This, ref);
114     if ( ref == 0 )
115     {
116         destroy_xmlnode(&This->node);
117         heap_free( This );
118     }
119
120     return ref;
121 }
122
123 static HRESULT WINAPI domattr_GetTypeInfoCount(
124     IXMLDOMAttribute *iface,
125     UINT* pctinfo )
126 {
127     domattr *This = impl_from_IXMLDOMAttribute( iface );
128     return IDispatchEx_GetTypeInfoCount(&This->node.dispex.IDispatchEx_iface, pctinfo);
129 }
130
131 static HRESULT WINAPI domattr_GetTypeInfo(
132     IXMLDOMAttribute *iface,
133     UINT iTInfo, LCID lcid,
134     ITypeInfo** ppTInfo )
135 {
136     domattr *This = impl_from_IXMLDOMAttribute( iface );
137     return IDispatchEx_GetTypeInfo(&This->node.dispex.IDispatchEx_iface,
138         iTInfo, lcid, ppTInfo);
139 }
140
141 static HRESULT WINAPI domattr_GetIDsOfNames(
142     IXMLDOMAttribute *iface,
143     REFIID riid, LPOLESTR* rgszNames,
144     UINT cNames, LCID lcid, DISPID* rgDispId )
145 {
146     domattr *This = impl_from_IXMLDOMAttribute( iface );
147     return IDispatchEx_GetIDsOfNames(&This->node.dispex.IDispatchEx_iface,
148         riid, rgszNames, cNames, lcid, rgDispId);
149 }
150
151 static HRESULT WINAPI domattr_Invoke(
152     IXMLDOMAttribute *iface,
153     DISPID dispIdMember, REFIID riid, LCID lcid,
154     WORD wFlags, DISPPARAMS* pDispParams, VARIANT* pVarResult,
155     EXCEPINFO* pExcepInfo, UINT* puArgErr )
156 {
157     domattr *This = impl_from_IXMLDOMAttribute( iface );
158     return IDispatchEx_Invoke(&This->node.dispex.IDispatchEx_iface,
159         dispIdMember, riid, lcid, wFlags, pDispParams, pVarResult, pExcepInfo, puArgErr);
160 }
161
162 static HRESULT WINAPI domattr_get_nodeName(
163     IXMLDOMAttribute *iface,
164     BSTR* p )
165 {
166     domattr *This = impl_from_IXMLDOMAttribute( iface );
167
168     TRACE("(%p)->(%p)\n", This, p);
169
170     return node_get_nodeName(&This->node, p);
171 }
172
173 static HRESULT WINAPI domattr_get_nodeValue(
174     IXMLDOMAttribute *iface,
175     VARIANT* value)
176 {
177     domattr *This = impl_from_IXMLDOMAttribute( iface );
178
179     TRACE("(%p)->(%p)\n", This, value);
180
181     return node_get_content(&This->node, value);
182 }
183
184 static HRESULT WINAPI domattr_put_nodeValue(
185     IXMLDOMAttribute *iface,
186     VARIANT value)
187 {
188     domattr *This = impl_from_IXMLDOMAttribute( iface );
189
190     TRACE("(%p)->(%s)\n", This, debugstr_variant(&value));
191
192     return node_put_value_escaped(&This->node, &value);
193 }
194
195 static HRESULT WINAPI domattr_get_nodeType(
196     IXMLDOMAttribute *iface,
197     DOMNodeType* domNodeType )
198 {
199     domattr *This = impl_from_IXMLDOMAttribute( iface );
200
201     TRACE("(%p)->(%p)\n", This, domNodeType);
202
203     *domNodeType = NODE_ATTRIBUTE;
204     return S_OK;
205 }
206
207 static HRESULT WINAPI domattr_get_parentNode(
208     IXMLDOMAttribute *iface,
209     IXMLDOMNode** parent )
210 {
211     domattr *This = impl_from_IXMLDOMAttribute( iface );
212     TRACE("(%p)->(%p)\n", This, parent);
213     if (!parent) return E_INVALIDARG;
214     *parent = NULL;
215     return S_FALSE;
216 }
217
218 static HRESULT WINAPI domattr_get_childNodes(
219     IXMLDOMAttribute *iface,
220     IXMLDOMNodeList** outList)
221 {
222     domattr *This = impl_from_IXMLDOMAttribute( iface );
223
224     TRACE("(%p)->(%p)\n", This, outList);
225
226     return node_get_child_nodes(&This->node, outList);
227 }
228
229 static HRESULT WINAPI domattr_get_firstChild(
230     IXMLDOMAttribute *iface,
231     IXMLDOMNode** domNode)
232 {
233     domattr *This = impl_from_IXMLDOMAttribute( iface );
234
235     TRACE("(%p)->(%p)\n", This, domNode);
236
237     return node_get_first_child(&This->node, domNode);
238 }
239
240 static HRESULT WINAPI domattr_get_lastChild(
241     IXMLDOMAttribute *iface,
242     IXMLDOMNode** domNode)
243 {
244     domattr *This = impl_from_IXMLDOMAttribute( iface );
245
246     TRACE("(%p)->(%p)\n", This, domNode);
247
248     return node_get_last_child(&This->node, domNode);
249 }
250
251 static HRESULT WINAPI domattr_get_previousSibling(
252     IXMLDOMAttribute *iface,
253     IXMLDOMNode** domNode)
254 {
255     domattr *This = impl_from_IXMLDOMAttribute( iface );
256
257     TRACE("(%p)->(%p)\n", This, domNode);
258
259     return return_null_node(domNode);
260 }
261
262 static HRESULT WINAPI domattr_get_nextSibling(
263     IXMLDOMAttribute *iface,
264     IXMLDOMNode** domNode)
265 {
266     domattr *This = impl_from_IXMLDOMAttribute( iface );
267
268     TRACE("(%p)->(%p)\n", This, domNode);
269
270     return return_null_node(domNode);
271 }
272
273 static HRESULT WINAPI domattr_get_attributes(
274     IXMLDOMAttribute *iface,
275     IXMLDOMNamedNodeMap** attributeMap)
276 {
277     domattr *This = impl_from_IXMLDOMAttribute( iface );
278
279     TRACE("(%p)->(%p)\n", This, attributeMap);
280
281     return return_null_ptr((void**)attributeMap);
282 }
283
284 static HRESULT WINAPI domattr_insertBefore(
285     IXMLDOMAttribute *iface,
286     IXMLDOMNode* newNode, VARIANT refChild,
287     IXMLDOMNode** old_node)
288 {
289     domattr *This = impl_from_IXMLDOMAttribute( iface );
290     DOMNodeType type;
291     HRESULT hr;
292
293     FIXME("(%p)->(%p %s %p) needs test\n", This, newNode, debugstr_variant(&refChild), old_node);
294
295     if (!newNode) return E_INVALIDARG;
296
297     hr = IXMLDOMNode_get_nodeType(newNode, &type);
298     if (hr != S_OK) return hr;
299
300     TRACE("new node type %d\n", type);
301     switch (type)
302     {
303         case NODE_ATTRIBUTE:
304         case NODE_CDATA_SECTION:
305         case NODE_COMMENT:
306         case NODE_ELEMENT:
307         case NODE_PROCESSING_INSTRUCTION:
308             if (old_node) *old_node = NULL;
309             return E_FAIL;
310         default:
311             return node_insert_before(&This->node, newNode, &refChild, old_node);
312     }
313 }
314
315 static HRESULT WINAPI domattr_replaceChild(
316     IXMLDOMAttribute *iface,
317     IXMLDOMNode* newNode,
318     IXMLDOMNode* oldNode,
319     IXMLDOMNode** outOldNode)
320 {
321     domattr *This = impl_from_IXMLDOMAttribute( iface );
322
323     FIXME("(%p)->(%p %p %p) needs tests\n", This, newNode, oldNode, outOldNode);
324
325     return node_replace_child(&This->node, newNode, oldNode, outOldNode);
326 }
327
328 static HRESULT WINAPI domattr_removeChild(
329     IXMLDOMAttribute *iface,
330     IXMLDOMNode *child, IXMLDOMNode **oldChild)
331 {
332     domattr *This = impl_from_IXMLDOMAttribute( iface );
333     TRACE("(%p)->(%p %p)\n", This, child, oldChild);
334     return node_remove_child(&This->node, child, oldChild);
335 }
336
337 static HRESULT WINAPI domattr_appendChild(
338     IXMLDOMAttribute *iface,
339     IXMLDOMNode *child, IXMLDOMNode **outChild)
340 {
341     domattr *This = impl_from_IXMLDOMAttribute( iface );
342     TRACE("(%p)->(%p %p)\n", This, child, outChild);
343     return node_append_child(&This->node, child, outChild);
344 }
345
346 static HRESULT WINAPI domattr_hasChildNodes(
347     IXMLDOMAttribute *iface,
348     VARIANT_BOOL *ret)
349 {
350     domattr *This = impl_from_IXMLDOMAttribute( iface );
351     TRACE("(%p)->(%p)\n", This, ret);
352     return node_has_childnodes(&This->node, ret);
353 }
354
355 static HRESULT WINAPI domattr_get_ownerDocument(
356     IXMLDOMAttribute *iface,
357     IXMLDOMDocument **doc)
358 {
359     domattr *This = impl_from_IXMLDOMAttribute( iface );
360     TRACE("(%p)->(%p)\n", This, doc);
361     return node_get_owner_doc(&This->node, doc);
362 }
363
364 static HRESULT WINAPI domattr_cloneNode(
365     IXMLDOMAttribute *iface,
366     VARIANT_BOOL deep, IXMLDOMNode** outNode)
367 {
368     domattr *This = impl_from_IXMLDOMAttribute( iface );
369     TRACE("(%p)->(%d %p)\n", This, deep, outNode);
370     return node_clone( &This->node, deep, outNode );
371 }
372
373 static HRESULT WINAPI domattr_get_nodeTypeString(
374     IXMLDOMAttribute *iface,
375     BSTR* p)
376 {
377     domattr *This = impl_from_IXMLDOMAttribute( iface );
378     static const WCHAR attributeW[] = {'a','t','t','r','i','b','u','t','e',0};
379
380     TRACE("(%p)->(%p)\n", This, p);
381
382     return return_bstr(attributeW, p);
383 }
384
385 static HRESULT WINAPI domattr_get_text(
386     IXMLDOMAttribute *iface,
387     BSTR* p)
388 {
389     domattr *This = impl_from_IXMLDOMAttribute( iface );
390     TRACE("(%p)->(%p)\n", This, p);
391     return node_get_text(&This->node, p);
392 }
393
394 static HRESULT WINAPI domattr_put_text(
395     IXMLDOMAttribute *iface,
396     BSTR p)
397 {
398     domattr *This = impl_from_IXMLDOMAttribute( iface );
399     TRACE("(%p)->(%s)\n", This, debugstr_w(p));
400     return node_put_text( &This->node, p );
401 }
402
403 static HRESULT WINAPI domattr_get_specified(
404     IXMLDOMAttribute *iface,
405     VARIANT_BOOL* isSpecified)
406 {
407     domattr *This = impl_from_IXMLDOMAttribute( iface );
408     FIXME("(%p)->(%p) stub!\n", This, isSpecified);
409     *isSpecified = VARIANT_TRUE;
410     return S_OK;
411 }
412
413 static HRESULT WINAPI domattr_get_definition(
414     IXMLDOMAttribute *iface,
415     IXMLDOMNode** definitionNode)
416 {
417     domattr *This = impl_from_IXMLDOMAttribute( iface );
418     FIXME("(%p)->(%p)\n", This, definitionNode);
419     return E_NOTIMPL;
420 }
421
422 static HRESULT WINAPI domattr_get_nodeTypedValue(
423     IXMLDOMAttribute *iface,
424     VARIANT* value)
425 {
426     domattr *This = impl_from_IXMLDOMAttribute( iface );
427     IXMLDOMDocument *doc;
428     HRESULT hr;
429
430     TRACE("(%p)->(%p)\n", This, value);
431
432     hr = IXMLDOMAttribute_get_ownerDocument(iface, &doc);
433     if (hr == S_OK)
434     {
435         IXMLDOMDocument3 *doc3;
436
437         hr = IXMLDOMDocument_QueryInterface(doc, &IID_IXMLDOMDocument3, (void**)&doc3);
438         IXMLDOMDocument_Release(doc);
439
440         if (hr == S_OK)
441         {
442             VARIANT schemas;
443
444             hr = IXMLDOMDocument3_get_schemas(doc3, &schemas);
445             IXMLDOMDocument3_Release(doc3);
446
447             if (hr != S_OK)
448                 return IXMLDOMAttribute_get_value(iface, value);
449             else
450             {
451                 FIXME("need to query schema for attribute type\n");
452                 VariantClear(&schemas);
453             }
454         }
455     }
456
457     return return_null_var(value);
458 }
459
460 static HRESULT WINAPI domattr_put_nodeTypedValue(
461     IXMLDOMAttribute *iface,
462     VARIANT typedValue)
463 {
464     domattr *This = impl_from_IXMLDOMAttribute( iface );
465     FIXME("(%p)->(%s)\n", This, debugstr_variant(&typedValue));
466     return E_NOTIMPL;
467 }
468
469 static HRESULT WINAPI domattr_get_dataType(
470     IXMLDOMAttribute *iface,
471     VARIANT* typename)
472 {
473     domattr *This = impl_from_IXMLDOMAttribute( iface );
474     TRACE("(%p)->(%p)\n", This, typename);
475     return return_null_var( typename );
476 }
477
478 static HRESULT WINAPI domattr_put_dataType(
479     IXMLDOMAttribute *iface,
480     BSTR p)
481 {
482     domattr *This = impl_from_IXMLDOMAttribute( iface );
483
484     FIXME("(%p)->(%s)\n", This, debugstr_w(p));
485
486     if(!p)
487         return E_INVALIDARG;
488
489     return E_FAIL;
490 }
491
492 static HRESULT WINAPI domattr_get_xml(
493     IXMLDOMAttribute *iface,
494     BSTR* p)
495 {
496     domattr *This = impl_from_IXMLDOMAttribute( iface );
497
498     TRACE("(%p)->(%p)\n", This, p);
499
500     return node_get_xml(&This->node, FALSE, FALSE, p);
501 }
502
503 static HRESULT WINAPI domattr_transformNode(
504     IXMLDOMAttribute *iface,
505     IXMLDOMNode *node, BSTR *p)
506 {
507     domattr *This = impl_from_IXMLDOMAttribute( iface );
508     TRACE("(%p)->(%p %p)\n", This, node, p);
509     return node_transform_node(&This->node, node, p);
510 }
511
512 static HRESULT WINAPI domattr_selectNodes(
513     IXMLDOMAttribute *iface,
514     BSTR p, IXMLDOMNodeList** outList)
515 {
516     domattr *This = impl_from_IXMLDOMAttribute( iface );
517     TRACE("(%p)->(%s %p)\n", This, debugstr_w(p), outList);
518     return node_select_nodes(&This->node, p, outList);
519 }
520
521 static HRESULT WINAPI domattr_selectSingleNode(
522     IXMLDOMAttribute *iface,
523     BSTR p, IXMLDOMNode** outNode)
524 {
525     domattr *This = impl_from_IXMLDOMAttribute( iface );
526     TRACE("(%p)->(%s %p)\n", This, debugstr_w(p), outNode);
527     return node_select_singlenode(&This->node, p, outNode);
528 }
529
530 static HRESULT WINAPI domattr_get_parsed(
531     IXMLDOMAttribute *iface,
532     VARIANT_BOOL* isParsed)
533 {
534     domattr *This = impl_from_IXMLDOMAttribute( iface );
535     FIXME("(%p)->(%p) stub!\n", This, isParsed);
536     *isParsed = VARIANT_TRUE;
537     return S_OK;
538 }
539
540 static HRESULT WINAPI domattr_get_namespaceURI(
541     IXMLDOMAttribute *iface,
542     BSTR* p)
543 {
544     domattr *This = impl_from_IXMLDOMAttribute( iface );
545     TRACE("(%p)->(%p)\n", This, p);
546     return node_get_namespaceURI(&This->node, p);
547 }
548
549 static HRESULT WINAPI domattr_get_prefix(
550     IXMLDOMAttribute *iface,
551     BSTR* prefix)
552 {
553     domattr *This = impl_from_IXMLDOMAttribute( iface );
554     TRACE("(%p)->(%p)\n", This, prefix);
555     return node_get_prefix( &This->node, prefix );
556 }
557
558 static HRESULT WINAPI domattr_get_baseName(
559     IXMLDOMAttribute *iface,
560     BSTR* name)
561 {
562     domattr *This = impl_from_IXMLDOMAttribute( iface );
563     TRACE("(%p)->(%p)\n", This, name);
564     return node_get_base_name( &This->node, name );
565 }
566
567 static HRESULT WINAPI domattr_transformNodeToObject(
568     IXMLDOMAttribute *iface,
569     IXMLDOMNode* domNode, VARIANT var1)
570 {
571     domattr *This = impl_from_IXMLDOMAttribute( iface );
572     FIXME("(%p)->(%p %s)\n", This, domNode, debugstr_variant(&var1));
573     return E_NOTIMPL;
574 }
575
576 static HRESULT WINAPI domattr_get_name(
577     IXMLDOMAttribute *iface,
578     BSTR *p)
579 {
580     domattr *This = impl_from_IXMLDOMAttribute( iface );
581
582     TRACE("(%p)->(%p)\n", This, p);
583
584     return node_get_nodeName(&This->node, p);
585 }
586
587 static HRESULT WINAPI domattr_get_value(
588     IXMLDOMAttribute *iface,
589     VARIANT *value)
590 {
591     domattr *This = impl_from_IXMLDOMAttribute( iface );
592
593     TRACE("(%p)->(%p)\n", This, value);
594
595     return node_get_content(&This->node, value);
596 }
597
598 static HRESULT WINAPI domattr_put_value(
599     IXMLDOMAttribute *iface,
600     VARIANT value)
601 {
602     domattr *This = impl_from_IXMLDOMAttribute( iface );
603
604     TRACE("(%p)->(%s)\n", This, debugstr_variant(&value));
605
606     return node_put_value(&This->node, &value);
607 }
608
609 static const struct IXMLDOMAttributeVtbl domattr_vtbl =
610 {
611     domattr_QueryInterface,
612     domattr_AddRef,
613     domattr_Release,
614     domattr_GetTypeInfoCount,
615     domattr_GetTypeInfo,
616     domattr_GetIDsOfNames,
617     domattr_Invoke,
618     domattr_get_nodeName,
619     domattr_get_nodeValue,
620     domattr_put_nodeValue,
621     domattr_get_nodeType,
622     domattr_get_parentNode,
623     domattr_get_childNodes,
624     domattr_get_firstChild,
625     domattr_get_lastChild,
626     domattr_get_previousSibling,
627     domattr_get_nextSibling,
628     domattr_get_attributes,
629     domattr_insertBefore,
630     domattr_replaceChild,
631     domattr_removeChild,
632     domattr_appendChild,
633     domattr_hasChildNodes,
634     domattr_get_ownerDocument,
635     domattr_cloneNode,
636     domattr_get_nodeTypeString,
637     domattr_get_text,
638     domattr_put_text,
639     domattr_get_specified,
640     domattr_get_definition,
641     domattr_get_nodeTypedValue,
642     domattr_put_nodeTypedValue,
643     domattr_get_dataType,
644     domattr_put_dataType,
645     domattr_get_xml,
646     domattr_transformNode,
647     domattr_selectNodes,
648     domattr_selectSingleNode,
649     domattr_get_parsed,
650     domattr_get_namespaceURI,
651     domattr_get_prefix,
652     domattr_get_baseName,
653     domattr_transformNodeToObject,
654     domattr_get_name,
655     domattr_get_value,
656     domattr_put_value
657 };
658
659 static const tid_t domattr_iface_tids[] = {
660     IXMLDOMAttribute_tid,
661     0
662 };
663
664 static dispex_static_data_t domattr_dispex = {
665     NULL,
666     IXMLDOMAttribute_tid,
667     NULL,
668     domattr_iface_tids
669 };
670
671 IUnknown* create_attribute( xmlNodePtr attribute )
672 {
673     domattr *This;
674
675     This = heap_alloc( sizeof *This );
676     if ( !This )
677         return NULL;
678
679     This->IXMLDOMAttribute_iface.lpVtbl = &domattr_vtbl;
680     This->ref = 1;
681
682     init_xmlnode(&This->node, attribute, (IXMLDOMNode*)&This->IXMLDOMAttribute_iface, &domattr_dispex);
683
684     return (IUnknown*)&This->IXMLDOMAttribute_iface;
685 }
686
687 #endif