user: Added fast W->A mapping for WM_GETTEXT and WM_ASKCBFORNAME.
[wine] / dlls / msxml3 / element.c
1 /*
2  *    DOM Document 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., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
19  */
20
21 #define COBJMACROS
22
23 #include "config.h"
24
25 #include <stdarg.h>
26 #include "windef.h"
27 #include "winbase.h"
28 #include "winuser.h"
29 #include "ole2.h"
30 #include "msxml2.h"
31
32 #include "msxml_private.h"
33
34 #include "wine/debug.h"
35
36 WINE_DEFAULT_DEBUG_CHANNEL(msxml);
37
38 #ifdef HAVE_LIBXML2
39
40 typedef struct _domelem
41 {
42     const struct IXMLDOMElementVtbl *lpVtbl;
43     LONG ref;
44     IUnknown *node_unk;
45     IXMLDOMNode *node;
46 } domelem;
47
48 static inline domelem *impl_from_IXMLDOMElement( IXMLDOMElement *iface )
49 {
50     return (domelem *)((char*)iface - FIELD_OFFSET(domelem, lpVtbl));
51 }
52
53 static inline xmlNodePtr get_element( domelem *This )
54 {
55     return xmlNodePtr_from_domnode( This->node, XML_ELEMENT_NODE );
56 }
57
58 static HRESULT WINAPI domelem_QueryInterface(
59     IXMLDOMElement *iface,
60     REFIID riid,
61     void** ppvObject )
62 {
63     domelem *This = impl_from_IXMLDOMElement( iface );
64     TRACE("%p %s %p\n", This, debugstr_guid(riid), ppvObject);
65
66     if ( IsEqualGUID( riid, &IID_IXMLDOMElement ) ||
67          IsEqualGUID( riid, &IID_IUnknown ) )
68     {
69         *ppvObject = iface;
70     }
71     else if ( IsEqualGUID( riid, &IID_IDispatch ) ||
72               IsEqualGUID( riid, &IID_IXMLDOMNode ) )
73     {
74         return IUnknown_QueryInterface(This->node_unk, riid, ppvObject);
75     }
76     else
77     {
78         FIXME("interface %s not implemented\n", debugstr_guid(riid));
79         return E_NOINTERFACE;
80     }
81
82     IXMLDOMElement_AddRef( iface );
83
84     return S_OK;
85 }
86
87 static ULONG WINAPI domelem_AddRef(
88     IXMLDOMElement *iface )
89 {
90     domelem *This = impl_from_IXMLDOMElement( iface );
91     return InterlockedIncrement( &This->ref );
92 }
93
94 static ULONG WINAPI domelem_Release(
95     IXMLDOMElement *iface )
96 {
97     domelem *This = impl_from_IXMLDOMElement( iface );
98     ULONG ref;
99
100     ref = InterlockedDecrement( &This->ref );
101     if ( ref == 0 )
102     {
103         IUnknown_Release( This->node_unk );
104         HeapFree( GetProcessHeap(), 0, This );
105     }
106
107     return ref;
108 }
109
110 static HRESULT WINAPI domelem_GetTypeInfoCount(
111     IXMLDOMElement *iface,
112     UINT* pctinfo )
113 {
114     FIXME("\n");
115     return E_NOTIMPL;
116 }
117
118 static HRESULT WINAPI domelem_GetTypeInfo(
119     IXMLDOMElement *iface,
120     UINT iTInfo, LCID lcid,
121     ITypeInfo** ppTInfo )
122 {
123     FIXME("\n");
124     return E_NOTIMPL;
125 }
126
127 static HRESULT WINAPI domelem_GetIDsOfNames(
128     IXMLDOMElement *iface,
129     REFIID riid, LPOLESTR* rgszNames,
130     UINT cNames, LCID lcid, DISPID* rgDispId )
131 {
132     FIXME("\n");
133     return E_NOTIMPL;
134 }
135
136 static HRESULT WINAPI domelem_Invoke(
137     IXMLDOMElement *iface,
138     DISPID dispIdMember, REFIID riid, LCID lcid,
139     WORD wFlags, DISPPARAMS* pDispParams, VARIANT* pVarResult,
140     EXCEPINFO* pExcepInfo, UINT* puArgErr )
141 {
142     FIXME("\n");
143     return E_NOTIMPL;
144 }
145
146 static HRESULT WINAPI domelem_get_nodeName(
147     IXMLDOMElement *iface,
148     BSTR* p )
149 {
150     domelem *This = impl_from_IXMLDOMElement( iface );
151     return IXMLDOMNode_get_nodeName( This->node, p );
152 }
153
154 static HRESULT WINAPI domelem_get_nodeValue(
155     IXMLDOMElement *iface,
156     VARIANT* var1 )
157 {
158     domelem *This = impl_from_IXMLDOMElement( iface );
159     return IXMLDOMNode_get_nodeValue( This->node, var1 );
160 }
161
162 static HRESULT WINAPI domelem_put_nodeValue(
163     IXMLDOMElement *iface,
164     VARIANT var1 )
165 {
166     domelem *This = impl_from_IXMLDOMElement( iface );
167     return IXMLDOMNode_put_nodeValue( This->node, var1 );
168 }
169
170 static HRESULT WINAPI domelem_get_nodeType(
171     IXMLDOMElement *iface,
172     DOMNodeType* domNodeType )
173 {
174     domelem *This = impl_from_IXMLDOMElement( iface );
175     return IXMLDOMNode_get_nodeType( This->node, domNodeType );
176 }
177
178 static HRESULT WINAPI domelem_get_parentNode(
179     IXMLDOMElement *iface,
180     IXMLDOMNode** parent )
181 {
182     domelem *This = impl_from_IXMLDOMElement( iface );
183     return IXMLDOMNode_get_parentNode( This->node, parent );
184 }
185
186 static HRESULT WINAPI domelem_get_childNodes(
187     IXMLDOMElement *iface,
188     IXMLDOMNodeList** outList)
189 {
190     domelem *This = impl_from_IXMLDOMElement( iface );
191     return IXMLDOMNode_get_childNodes( This->node, outList );
192 }
193
194 static HRESULT WINAPI domelem_get_firstChild(
195     IXMLDOMElement *iface,
196     IXMLDOMNode** domNode)
197 {
198     domelem *This = impl_from_IXMLDOMElement( iface );
199     return IXMLDOMNode_get_firstChild( This->node, domNode );
200 }
201
202 static HRESULT WINAPI domelem_get_lastChild(
203     IXMLDOMElement *iface,
204     IXMLDOMNode** domNode)
205 {
206     domelem *This = impl_from_IXMLDOMElement( iface );
207     return IXMLDOMNode_get_lastChild( This->node, domNode );
208 }
209
210 static HRESULT WINAPI domelem_get_previousSibling(
211     IXMLDOMElement *iface,
212     IXMLDOMNode** domNode)
213 {
214     domelem *This = impl_from_IXMLDOMElement( iface );
215     return IXMLDOMNode_get_previousSibling( This->node, domNode );
216 }
217
218 static HRESULT WINAPI domelem_get_nextSibling(
219     IXMLDOMElement *iface,
220     IXMLDOMNode** domNode)
221 {
222     domelem *This = impl_from_IXMLDOMElement( iface );
223     return IXMLDOMNode_get_nextSibling( This->node, domNode );
224 }
225
226 static HRESULT WINAPI domelem_get_attributes(
227     IXMLDOMElement *iface,
228     IXMLDOMNamedNodeMap** attributeMap)
229 {
230     domelem *This = impl_from_IXMLDOMElement( iface );
231     return IXMLDOMNode_get_attributes( This->node, attributeMap );
232 }
233
234 static HRESULT WINAPI domelem_insertBefore(
235     IXMLDOMElement *iface,
236     IXMLDOMNode* newNode, VARIANT var1,
237     IXMLDOMNode** outOldNode)
238 {
239     domelem *This = impl_from_IXMLDOMElement( iface );
240     return IXMLDOMNode_insertBefore( This->node, newNode, var1, outOldNode );
241 }
242
243 static HRESULT WINAPI domelem_replaceChild(
244     IXMLDOMElement *iface,
245     IXMLDOMNode* newNode,
246     IXMLDOMNode* oldNode,
247     IXMLDOMNode** outOldNode)
248 {
249     domelem *This = impl_from_IXMLDOMElement( iface );
250     return IXMLDOMNode_replaceChild( This->node, newNode, oldNode, outOldNode );
251 }
252
253 static HRESULT WINAPI domelem_removeChild(
254     IXMLDOMElement *iface,
255     IXMLDOMNode* domNode, IXMLDOMNode** oldNode)
256 {
257     domelem *This = impl_from_IXMLDOMElement( iface );
258     return IXMLDOMNode_removeChild( This->node, domNode, oldNode );
259 }
260
261 static HRESULT WINAPI domelem_appendChild(
262     IXMLDOMElement *iface,
263     IXMLDOMNode* newNode, IXMLDOMNode** outNewNode)
264 {
265     domelem *This = impl_from_IXMLDOMElement( iface );
266     return IXMLDOMNode_appendChild( This->node, newNode, outNewNode );
267 }
268
269 static HRESULT WINAPI domelem_hasChildNodes(
270     IXMLDOMElement *iface,
271     VARIANT_BOOL* pbool)
272 {
273     domelem *This = impl_from_IXMLDOMElement( iface );
274     return IXMLDOMNode_hasChildNodes( This->node, pbool );
275 }
276
277 static HRESULT WINAPI domelem_get_ownerDocument(
278     IXMLDOMElement *iface,
279     IXMLDOMDocument** domDocument)
280 {
281     domelem *This = impl_from_IXMLDOMElement( iface );
282     return IXMLDOMNode_get_ownerDocument( This->node, domDocument );
283 }
284
285 static HRESULT WINAPI domelem_cloneNode(
286     IXMLDOMElement *iface,
287     VARIANT_BOOL pbool, IXMLDOMNode** outNode)
288 {
289     domelem *This = impl_from_IXMLDOMElement( iface );
290     return IXMLDOMNode_cloneNode( This->node, pbool, outNode );
291 }
292
293 static HRESULT WINAPI domelem_get_nodeTypeString(
294     IXMLDOMElement *iface,
295     BSTR* p)
296 {
297     domelem *This = impl_from_IXMLDOMElement( iface );
298     return IXMLDOMNode_get_nodeTypeString( This->node, p );
299 }
300
301 static HRESULT WINAPI domelem_get_text(
302     IXMLDOMElement *iface,
303     BSTR* p)
304 {
305     domelem *This = impl_from_IXMLDOMElement( iface );
306     return IXMLDOMNode_get_text( This->node, p );
307 }
308
309 static HRESULT WINAPI domelem_put_text(
310     IXMLDOMElement *iface,
311     BSTR p)
312 {
313     domelem *This = impl_from_IXMLDOMElement( iface );
314     return IXMLDOMNode_put_text( This->node, p );
315 }
316
317 static HRESULT WINAPI domelem_get_specified(
318     IXMLDOMElement *iface,
319     VARIANT_BOOL* pbool)
320 {
321     domelem *This = impl_from_IXMLDOMElement( iface );
322     return IXMLDOMNode_get_specified( This->node, pbool );
323 }
324
325 static HRESULT WINAPI domelem_get_definition(
326     IXMLDOMElement *iface,
327     IXMLDOMNode** domNode)
328 {
329     domelem *This = impl_from_IXMLDOMElement( iface );
330     return IXMLDOMNode_get_definition( This->node, domNode );
331 }
332
333 static HRESULT WINAPI domelem_get_nodeTypedValue(
334     IXMLDOMElement *iface,
335     VARIANT* var1)
336 {
337     domelem *This = impl_from_IXMLDOMElement( iface );
338     return IXMLDOMNode_get_nodeTypedValue( This->node, var1 );
339 }
340
341 static HRESULT WINAPI domelem_put_nodeTypedValue(
342     IXMLDOMElement *iface,
343     VARIANT var1)
344 {
345     domelem *This = impl_from_IXMLDOMElement( iface );
346     return IXMLDOMNode_put_nodeTypedValue( This->node, var1 );
347 }
348
349 static HRESULT WINAPI domelem_get_dataType(
350     IXMLDOMElement *iface,
351     VARIANT* var1)
352 {
353     domelem *This = impl_from_IXMLDOMElement( iface );
354     return IXMLDOMNode_get_dataType( This->node, var1 );
355 }
356
357 static HRESULT WINAPI domelem_put_dataType(
358     IXMLDOMElement *iface,
359     BSTR p)
360 {
361     domelem *This = impl_from_IXMLDOMElement( iface );
362     return IXMLDOMNode_put_dataType( This->node, p );
363 }
364
365 static HRESULT WINAPI domelem_get_xml(
366     IXMLDOMElement *iface,
367     BSTR* p)
368 {
369     domelem *This = impl_from_IXMLDOMElement( iface );
370     return IXMLDOMNode_get_xml( This->node, p );
371 }
372
373 static HRESULT WINAPI domelem_transformNode(
374     IXMLDOMElement *iface,
375     IXMLDOMNode* domNode, BSTR* p)
376 {
377     domelem *This = impl_from_IXMLDOMElement( iface );
378     return IXMLDOMNode_transformNode( This->node, domNode, p );
379 }
380
381 static HRESULT WINAPI domelem_selectNodes(
382     IXMLDOMElement *iface,
383     BSTR p, IXMLDOMNodeList** outList)
384 {
385     domelem *This = impl_from_IXMLDOMElement( iface );
386     return IXMLDOMNode_selectNodes( This->node, p, outList );
387 }
388
389 static HRESULT WINAPI domelem_selectSingleNode(
390     IXMLDOMElement *iface,
391     BSTR p, IXMLDOMNode** outNode)
392 {
393     domelem *This = impl_from_IXMLDOMElement( iface );
394     return IXMLDOMNode_selectSingleNode( This->node, p, outNode );
395 }
396
397 static HRESULT WINAPI domelem_get_parsed(
398     IXMLDOMElement *iface,
399     VARIANT_BOOL* pbool)
400 {
401     domelem *This = impl_from_IXMLDOMElement( iface );
402     return IXMLDOMNode_get_parsed( This->node, pbool );
403 }
404
405 static HRESULT WINAPI domelem_get_namespaceURI(
406     IXMLDOMElement *iface,
407     BSTR* p)
408 {
409     domelem *This = impl_from_IXMLDOMElement( iface );
410     return IXMLDOMNode_get_namespaceURI( This->node, p );
411 }
412
413 static HRESULT WINAPI domelem_get_prefix(
414     IXMLDOMElement *iface,
415     BSTR* p)
416 {
417     domelem *This = impl_from_IXMLDOMElement( iface );
418     return IXMLDOMNode_get_prefix( This->node, p );
419 }
420
421 static HRESULT WINAPI domelem_get_baseName(
422     IXMLDOMElement *iface,
423     BSTR* p)
424 {
425     domelem *This = impl_from_IXMLDOMElement( iface );
426     return IXMLDOMNode_get_baseName( This->node, p );
427 }
428
429 static HRESULT WINAPI domelem_transformNodeToObject(
430     IXMLDOMElement *iface,
431     IXMLDOMNode* domNode, VARIANT var1)
432 {
433     domelem *This = impl_from_IXMLDOMElement( iface );
434     return IXMLDOMNode_transformNodeToObject( This->node, domNode, var1 );
435 }
436
437 static HRESULT WINAPI domelem_get_tagName(
438     IXMLDOMElement *iface,
439     BSTR* p)
440 {
441     domelem *This = impl_from_IXMLDOMElement( iface );
442     xmlNodePtr element;
443
444     TRACE("%p\n", This );
445
446     if ( !This->node )
447         return E_FAIL;
448
449     element = get_element( This );
450     if ( !element )
451         return E_FAIL;
452
453     *p = bstr_from_xmlChar( element->name );
454
455     return S_OK;
456 }
457
458 static HRESULT WINAPI domelem_getAttribute(
459     IXMLDOMElement *iface,
460     BSTR name, VARIANT* value)
461 {
462     domelem *This = impl_from_IXMLDOMElement( iface );
463     xmlNodePtr element;
464     xmlChar *xml_name, *xml_value;
465     HRESULT hr = E_FAIL;
466
467     TRACE("(%p)->(%s,%p)\n", This, debugstr_w(name), value);
468
469     element = get_element( This );
470     if ( !element )
471         return E_FAIL;
472
473     VariantInit(value);
474     xml_name = xmlChar_from_wchar( name );
475     xml_value = xmlGetNsProp(element, xml_name, NULL);
476     HeapFree(GetProcessHeap(), 0, xml_name);
477     if(xml_value)
478     {
479         V_VT(value) = VT_BSTR;
480         V_BSTR(value) = bstr_from_xmlChar( xml_value );
481         xmlFree(xml_value);
482         hr = S_OK;
483     }
484
485     return hr;
486 }
487
488 static HRESULT WINAPI domelem_setAttribute(
489     IXMLDOMElement *iface,
490     BSTR name, VARIANT value)
491 {
492     domelem *This = impl_from_IXMLDOMElement( iface );
493     xmlNodePtr element;
494     xmlChar *xml_name, *xml_value;
495     HRESULT hr;
496     VARIANT var;
497
498     TRACE("(%p)->(%s, var)\n", This, debugstr_w(name));
499
500     element = get_element( This );
501     if ( !element )
502         return E_FAIL;
503
504     VariantInit(&var);
505     hr = VariantChangeType(&var, &value, 0, VT_BSTR);
506     if(hr != S_OK)
507     {
508         FIXME("VariantChangeType failed\n");
509         return hr;
510     }
511
512     xml_name = xmlChar_from_wchar( name );
513     xml_value = xmlChar_from_wchar( V_BSTR(&var) );
514
515     if(!xmlSetNsProp(element, NULL,  xml_name, xml_value))
516         hr = E_FAIL;
517
518     HeapFree(GetProcessHeap(), 0, xml_value);
519     HeapFree(GetProcessHeap(), 0, xml_name);
520     VariantClear(&var);
521
522     return hr;
523 }
524
525 static HRESULT WINAPI domelem_removeAttribute(
526     IXMLDOMElement *iface,
527     BSTR p)
528 {
529     FIXME("\n");
530     return E_NOTIMPL;
531 }
532
533 static HRESULT WINAPI domelem_getAttributeNode(
534     IXMLDOMElement *iface,
535     BSTR p, IXMLDOMAttribute** attributeNode )
536 {
537     FIXME("\n");
538     return E_NOTIMPL;
539 }
540
541 static HRESULT WINAPI domelem_setAttributeNode(
542     IXMLDOMElement *iface,
543     IXMLDOMAttribute* domAttribute,
544     IXMLDOMAttribute** attributeNode)
545 {
546     FIXME("\n");
547     return E_NOTIMPL;
548 }
549
550 static HRESULT WINAPI domelem_removeAttributeNode(
551     IXMLDOMElement *iface,
552     IXMLDOMAttribute* domAttribute,
553     IXMLDOMAttribute** attributeNode)
554 {
555     FIXME("\n");
556     return E_NOTIMPL;
557 }
558
559 static HRESULT WINAPI domelem_getElementsByTagName(
560     IXMLDOMElement *iface,
561     BSTR p, IXMLDOMNodeList** resultList)
562 {
563     FIXME("\n");
564     return E_NOTIMPL;
565 }
566
567 static HRESULT WINAPI domelem_normalize(
568     IXMLDOMElement *iface )
569 {
570     FIXME("\n");
571     return E_NOTIMPL;
572 }
573
574 static const struct IXMLDOMElementVtbl domelem_vtbl =
575 {
576     domelem_QueryInterface,
577     domelem_AddRef,
578     domelem_Release,
579     domelem_GetTypeInfoCount,
580     domelem_GetTypeInfo,
581     domelem_GetIDsOfNames,
582     domelem_Invoke,
583     domelem_get_nodeName,
584     domelem_get_nodeValue,
585     domelem_put_nodeValue,
586     domelem_get_nodeType,
587     domelem_get_parentNode,
588     domelem_get_childNodes,
589     domelem_get_firstChild,
590     domelem_get_lastChild,
591     domelem_get_previousSibling,
592     domelem_get_nextSibling,
593     domelem_get_attributes,
594     domelem_insertBefore,
595     domelem_replaceChild,
596     domelem_removeChild,
597     domelem_appendChild,
598     domelem_hasChildNodes,
599     domelem_get_ownerDocument,
600     domelem_cloneNode,
601     domelem_get_nodeTypeString,
602     domelem_get_text,
603     domelem_put_text,
604     domelem_get_specified,
605     domelem_get_definition,
606     domelem_get_nodeTypedValue,
607     domelem_put_nodeTypedValue,
608     domelem_get_dataType,
609     domelem_put_dataType,
610     domelem_get_xml,
611     domelem_transformNode,
612     domelem_selectNodes,
613     domelem_selectSingleNode,
614     domelem_get_parsed,
615     domelem_get_namespaceURI,
616     domelem_get_prefix,
617     domelem_get_baseName,
618     domelem_transformNodeToObject,
619     domelem_get_tagName,
620     domelem_getAttribute,
621     domelem_setAttribute,
622     domelem_removeAttribute,
623     domelem_getAttributeNode,
624     domelem_setAttributeNode,
625     domelem_removeAttributeNode,
626     domelem_getElementsByTagName,
627     domelem_normalize,
628 };
629
630 IUnknown* create_element( xmlNodePtr element )
631 {
632     domelem *This;
633     HRESULT hr;
634
635     This = HeapAlloc( GetProcessHeap(), 0, sizeof *This );
636     if ( !This )
637         return NULL;
638
639     This->lpVtbl = &domelem_vtbl;
640     This->ref = 1;
641
642     This->node_unk = create_basic_node( element, (IUnknown*)&This->lpVtbl );
643     if(!This->node_unk)
644     {
645         HeapFree(GetProcessHeap(), 0, This);
646         return NULL;
647     }
648
649     hr = IUnknown_QueryInterface(This->node_unk, &IID_IXMLDOMNode, (LPVOID*)&This->node);
650     if(FAILED(hr))
651     {
652         IUnknown_Release(This->node_unk);
653         HeapFree( GetProcessHeap(), 0, This );
654         return NULL;
655     }
656     /* The ref on This->node is actually looped back into this object, so release it */
657     IXMLDOMNode_Release(This->node);
658
659     return (IUnknown*) &This->lpVtbl;
660 }
661
662 #endif