widl: Follow type references in procformat and typeformat string generation.
[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         return E_NOINTERFACE;
78
79     IXMLDOMElement_AddRef( iface );
80
81     return S_OK;
82 }
83
84 static ULONG WINAPI domelem_AddRef(
85     IXMLDOMElement *iface )
86 {
87     domelem *This = impl_from_IXMLDOMElement( iface );
88     return InterlockedIncrement( &This->ref );
89 }
90
91 static ULONG WINAPI domelem_Release(
92     IXMLDOMElement *iface )
93 {
94     domelem *This = impl_from_IXMLDOMElement( iface );
95     ULONG ref;
96
97     ref = InterlockedDecrement( &This->ref );
98     if ( ref == 0 )
99     {
100         IUnknown_Release( This->node_unk );
101         HeapFree( GetProcessHeap(), 0, This );
102     }
103
104     return ref;
105 }
106
107 static HRESULT WINAPI domelem_GetTypeInfoCount(
108     IXMLDOMElement *iface,
109     UINT* pctinfo )
110 {
111     FIXME("\n");
112     return E_NOTIMPL;
113 }
114
115 static HRESULT WINAPI domelem_GetTypeInfo(
116     IXMLDOMElement *iface,
117     UINT iTInfo, LCID lcid,
118     ITypeInfo** ppTInfo )
119 {
120     FIXME("\n");
121     return E_NOTIMPL;
122 }
123
124 static HRESULT WINAPI domelem_GetIDsOfNames(
125     IXMLDOMElement *iface,
126     REFIID riid, LPOLESTR* rgszNames,
127     UINT cNames, LCID lcid, DISPID* rgDispId )
128 {
129     FIXME("\n");
130     return E_NOTIMPL;
131 }
132
133 static HRESULT WINAPI domelem_Invoke(
134     IXMLDOMElement *iface,
135     DISPID dispIdMember, REFIID riid, LCID lcid,
136     WORD wFlags, DISPPARAMS* pDispParams, VARIANT* pVarResult,
137     EXCEPINFO* pExcepInfo, UINT* puArgErr )
138 {
139     FIXME("\n");
140     return E_NOTIMPL;
141 }
142
143 static HRESULT WINAPI domelem_get_nodeName(
144     IXMLDOMElement *iface,
145     BSTR* p )
146 {
147     domelem *This = impl_from_IXMLDOMElement( iface );
148     return IXMLDOMNode_get_nodeName( This->node, p );
149 }
150
151 static HRESULT WINAPI domelem_get_nodeValue(
152     IXMLDOMElement *iface,
153     VARIANT* var1 )
154 {
155     domelem *This = impl_from_IXMLDOMElement( iface );
156     return IXMLDOMNode_get_nodeValue( This->node, var1 );
157 }
158
159 static HRESULT WINAPI domelem_put_nodeValue(
160     IXMLDOMElement *iface,
161     VARIANT var1 )
162 {
163     domelem *This = impl_from_IXMLDOMElement( iface );
164     return IXMLDOMNode_put_nodeValue( This->node, var1 );
165 }
166
167 static HRESULT WINAPI domelem_get_nodeType(
168     IXMLDOMElement *iface,
169     DOMNodeType* domNodeType )
170 {
171     domelem *This = impl_from_IXMLDOMElement( iface );
172     return IXMLDOMNode_get_nodeType( This->node, domNodeType );
173 }
174
175 static HRESULT WINAPI domelem_get_parentNode(
176     IXMLDOMElement *iface,
177     IXMLDOMNode** parent )
178 {
179     domelem *This = impl_from_IXMLDOMElement( iface );
180     return IXMLDOMNode_get_parentNode( This->node, parent );
181 }
182
183 static HRESULT WINAPI domelem_get_childNodes(
184     IXMLDOMElement *iface,
185     IXMLDOMNodeList** outList)
186 {
187     domelem *This = impl_from_IXMLDOMElement( iface );
188     return IXMLDOMNode_get_childNodes( This->node, outList );
189 }
190
191 static HRESULT WINAPI domelem_get_firstChild(
192     IXMLDOMElement *iface,
193     IXMLDOMNode** domNode)
194 {
195     domelem *This = impl_from_IXMLDOMElement( iface );
196     return IXMLDOMNode_get_firstChild( This->node, domNode );
197 }
198
199 static HRESULT WINAPI domelem_get_lastChild(
200     IXMLDOMElement *iface,
201     IXMLDOMNode** domNode)
202 {
203     domelem *This = impl_from_IXMLDOMElement( iface );
204     return IXMLDOMNode_get_lastChild( This->node, domNode );
205 }
206
207 static HRESULT WINAPI domelem_get_previousSibling(
208     IXMLDOMElement *iface,
209     IXMLDOMNode** domNode)
210 {
211     domelem *This = impl_from_IXMLDOMElement( iface );
212     return IXMLDOMNode_get_previousSibling( This->node, domNode );
213 }
214
215 static HRESULT WINAPI domelem_get_nextSibling(
216     IXMLDOMElement *iface,
217     IXMLDOMNode** domNode)
218 {
219     domelem *This = impl_from_IXMLDOMElement( iface );
220     return IXMLDOMNode_get_nextSibling( This->node, domNode );
221 }
222
223 static HRESULT WINAPI domelem_get_attributes(
224     IXMLDOMElement *iface,
225     IXMLDOMNamedNodeMap** attributeMap)
226 {
227     domelem *This = impl_from_IXMLDOMElement( iface );
228     return IXMLDOMNode_get_attributes( This->node, attributeMap );
229 }
230
231 static HRESULT WINAPI domelem_insertBefore(
232     IXMLDOMElement *iface,
233     IXMLDOMNode* newNode, VARIANT var1,
234     IXMLDOMNode** outOldNode)
235 {
236     domelem *This = impl_from_IXMLDOMElement( iface );
237     return IXMLDOMNode_insertBefore( This->node, newNode, var1, outOldNode );
238 }
239
240 static HRESULT WINAPI domelem_replaceChild(
241     IXMLDOMElement *iface,
242     IXMLDOMNode* newNode,
243     IXMLDOMNode* oldNode,
244     IXMLDOMNode** outOldNode)
245 {
246     domelem *This = impl_from_IXMLDOMElement( iface );
247     return IXMLDOMNode_replaceChild( This->node, newNode, oldNode, outOldNode );
248 }
249
250 static HRESULT WINAPI domelem_removeChild(
251     IXMLDOMElement *iface,
252     IXMLDOMNode* domNode, IXMLDOMNode** oldNode)
253 {
254     domelem *This = impl_from_IXMLDOMElement( iface );
255     return IXMLDOMNode_removeChild( This->node, domNode, oldNode );
256 }
257
258 static HRESULT WINAPI domelem_appendChild(
259     IXMLDOMElement *iface,
260     IXMLDOMNode* newNode, IXMLDOMNode** outNewNode)
261 {
262     domelem *This = impl_from_IXMLDOMElement( iface );
263     return IXMLDOMNode_appendChild( This->node, newNode, outNewNode );
264 }
265
266 static HRESULT WINAPI domelem_hasChildNodes(
267     IXMLDOMElement *iface,
268     VARIANT_BOOL* pbool)
269 {
270     domelem *This = impl_from_IXMLDOMElement( iface );
271     return IXMLDOMNode_hasChildNodes( This->node, pbool );
272 }
273
274 static HRESULT WINAPI domelem_get_ownerDocument(
275     IXMLDOMElement *iface,
276     IXMLDOMDocument** domDocument)
277 {
278     domelem *This = impl_from_IXMLDOMElement( iface );
279     return IXMLDOMNode_get_ownerDocument( This->node, domDocument );
280 }
281
282 static HRESULT WINAPI domelem_cloneNode(
283     IXMLDOMElement *iface,
284     VARIANT_BOOL pbool, IXMLDOMNode** outNode)
285 {
286     domelem *This = impl_from_IXMLDOMElement( iface );
287     return IXMLDOMNode_cloneNode( This->node, pbool, outNode );
288 }
289
290 static HRESULT WINAPI domelem_get_nodeTypeString(
291     IXMLDOMElement *iface,
292     BSTR* p)
293 {
294     domelem *This = impl_from_IXMLDOMElement( iface );
295     return IXMLDOMNode_get_nodeTypeString( This->node, p );
296 }
297
298 static HRESULT WINAPI domelem_get_text(
299     IXMLDOMElement *iface,
300     BSTR* p)
301 {
302     domelem *This = impl_from_IXMLDOMElement( iface );
303     return IXMLDOMNode_get_text( This->node, p );
304 }
305
306 static HRESULT WINAPI domelem_put_text(
307     IXMLDOMElement *iface,
308     BSTR p)
309 {
310     domelem *This = impl_from_IXMLDOMElement( iface );
311     return IXMLDOMNode_put_text( This->node, p );
312 }
313
314 static HRESULT WINAPI domelem_get_specified(
315     IXMLDOMElement *iface,
316     VARIANT_BOOL* pbool)
317 {
318     domelem *This = impl_from_IXMLDOMElement( iface );
319     return IXMLDOMNode_get_specified( This->node, pbool );
320 }
321
322 static HRESULT WINAPI domelem_get_definition(
323     IXMLDOMElement *iface,
324     IXMLDOMNode** domNode)
325 {
326     domelem *This = impl_from_IXMLDOMElement( iface );
327     return IXMLDOMNode_get_definition( This->node, domNode );
328 }
329
330 static HRESULT WINAPI domelem_get_nodeTypedValue(
331     IXMLDOMElement *iface,
332     VARIANT* var1)
333 {
334     domelem *This = impl_from_IXMLDOMElement( iface );
335     return IXMLDOMNode_get_nodeTypedValue( This->node, var1 );
336 }
337
338 static HRESULT WINAPI domelem_put_nodeTypedValue(
339     IXMLDOMElement *iface,
340     VARIANT var1)
341 {
342     domelem *This = impl_from_IXMLDOMElement( iface );
343     return IXMLDOMNode_put_nodeTypedValue( This->node, var1 );
344 }
345
346 static HRESULT WINAPI domelem_get_dataType(
347     IXMLDOMElement *iface,
348     VARIANT* var1)
349 {
350     domelem *This = impl_from_IXMLDOMElement( iface );
351     return IXMLDOMNode_get_dataType( This->node, var1 );
352 }
353
354 static HRESULT WINAPI domelem_put_dataType(
355     IXMLDOMElement *iface,
356     BSTR p)
357 {
358     domelem *This = impl_from_IXMLDOMElement( iface );
359     return IXMLDOMNode_put_dataType( This->node, p );
360 }
361
362 static HRESULT WINAPI domelem_get_xml(
363     IXMLDOMElement *iface,
364     BSTR* p)
365 {
366     domelem *This = impl_from_IXMLDOMElement( iface );
367     return IXMLDOMNode_get_xml( This->node, p );
368 }
369
370 static HRESULT WINAPI domelem_transformNode(
371     IXMLDOMElement *iface,
372     IXMLDOMNode* domNode, BSTR* p)
373 {
374     domelem *This = impl_from_IXMLDOMElement( iface );
375     return IXMLDOMNode_transformNode( This->node, domNode, p );
376 }
377
378 static HRESULT WINAPI domelem_selectNodes(
379     IXMLDOMElement *iface,
380     BSTR p, IXMLDOMNodeList** outList)
381 {
382     domelem *This = impl_from_IXMLDOMElement( iface );
383     return IXMLDOMNode_selectNodes( This->node, p, outList );
384 }
385
386 static HRESULT WINAPI domelem_selectSingleNode(
387     IXMLDOMElement *iface,
388     BSTR p, IXMLDOMNode** outNode)
389 {
390     domelem *This = impl_from_IXMLDOMElement( iface );
391     return IXMLDOMNode_selectSingleNode( This->node, p, outNode );
392 }
393
394 static HRESULT WINAPI domelem_get_parsed(
395     IXMLDOMElement *iface,
396     VARIANT_BOOL* pbool)
397 {
398     domelem *This = impl_from_IXMLDOMElement( iface );
399     return IXMLDOMNode_get_parsed( This->node, pbool );
400 }
401
402 static HRESULT WINAPI domelem_get_namespaceURI(
403     IXMLDOMElement *iface,
404     BSTR* p)
405 {
406     domelem *This = impl_from_IXMLDOMElement( iface );
407     return IXMLDOMNode_get_namespaceURI( This->node, p );
408 }
409
410 static HRESULT WINAPI domelem_get_prefix(
411     IXMLDOMElement *iface,
412     BSTR* p)
413 {
414     domelem *This = impl_from_IXMLDOMElement( iface );
415     return IXMLDOMNode_get_prefix( This->node, p );
416 }
417
418 static HRESULT WINAPI domelem_get_baseName(
419     IXMLDOMElement *iface,
420     BSTR* p)
421 {
422     domelem *This = impl_from_IXMLDOMElement( iface );
423     return IXMLDOMNode_get_baseName( This->node, p );
424 }
425
426 static HRESULT WINAPI domelem_transformNodeToObject(
427     IXMLDOMElement *iface,
428     IXMLDOMNode* domNode, VARIANT var1)
429 {
430     domelem *This = impl_from_IXMLDOMElement( iface );
431     return IXMLDOMNode_transformNodeToObject( This->node, domNode, var1 );
432 }
433
434 static HRESULT WINAPI domelem_get_tagName(
435     IXMLDOMElement *iface,
436     BSTR* p)
437 {
438     domelem *This = impl_from_IXMLDOMElement( iface );
439     xmlNodePtr element;
440
441     TRACE("%p\n", This );
442
443     if ( !This->node )
444         return E_FAIL;
445
446     element = get_element( This );
447     if ( !element )
448         return E_FAIL;
449
450     *p = bstr_from_xmlChar( element->name );
451
452     return S_OK;
453 }
454
455 static HRESULT WINAPI domelem_getAttribute(
456     IXMLDOMElement *iface,
457     BSTR p, VARIANT* var)
458 {
459     FIXME("\n");
460     return E_NOTIMPL;
461 }
462
463 static HRESULT WINAPI domelem_setAttribute(
464     IXMLDOMElement *iface,
465     BSTR p, VARIANT var)
466 {
467     FIXME("\n");
468     return E_NOTIMPL;
469 }
470
471 static HRESULT WINAPI domelem_removeAttribute(
472     IXMLDOMElement *iface,
473     BSTR p)
474 {
475     FIXME("\n");
476     return E_NOTIMPL;
477 }
478
479 static HRESULT WINAPI domelem_getAttributeNode(
480     IXMLDOMElement *iface,
481     BSTR p, IXMLDOMAttribute** attributeNode )
482 {
483     FIXME("\n");
484     return E_NOTIMPL;
485 }
486
487 static HRESULT WINAPI domelem_setAttributeNode(
488     IXMLDOMElement *iface,
489     IXMLDOMAttribute* domAttribute,
490     IXMLDOMAttribute** attributeNode)
491 {
492     FIXME("\n");
493     return E_NOTIMPL;
494 }
495
496 static HRESULT WINAPI domelem_removeAttributeNode(
497     IXMLDOMElement *iface,
498     IXMLDOMAttribute* domAttribute,
499     IXMLDOMAttribute** attributeNode)
500 {
501     FIXME("\n");
502     return E_NOTIMPL;
503 }
504
505 static HRESULT WINAPI domelem_getElementsByTagName(
506     IXMLDOMElement *iface,
507     BSTR p, IXMLDOMNodeList** resultList)
508 {
509     FIXME("\n");
510     return E_NOTIMPL;
511 }
512
513 static HRESULT WINAPI domelem_normalize(
514     IXMLDOMElement *iface )
515 {
516     FIXME("\n");
517     return E_NOTIMPL;
518 }
519
520 static const struct IXMLDOMElementVtbl domelem_vtbl =
521 {
522     domelem_QueryInterface,
523     domelem_AddRef,
524     domelem_Release,
525     domelem_GetTypeInfoCount,
526     domelem_GetTypeInfo,
527     domelem_GetIDsOfNames,
528     domelem_Invoke,
529     domelem_get_nodeName,
530     domelem_get_nodeValue,
531     domelem_put_nodeValue,
532     domelem_get_nodeType,
533     domelem_get_parentNode,
534     domelem_get_childNodes,
535     domelem_get_firstChild,
536     domelem_get_lastChild,
537     domelem_get_previousSibling,
538     domelem_get_nextSibling,
539     domelem_get_attributes,
540     domelem_insertBefore,
541     domelem_replaceChild,
542     domelem_removeChild,
543     domelem_appendChild,
544     domelem_hasChildNodes,
545     domelem_get_ownerDocument,
546     domelem_cloneNode,
547     domelem_get_nodeTypeString,
548     domelem_get_text,
549     domelem_put_text,
550     domelem_get_specified,
551     domelem_get_definition,
552     domelem_get_nodeTypedValue,
553     domelem_put_nodeTypedValue,
554     domelem_get_dataType,
555     domelem_put_dataType,
556     domelem_get_xml,
557     domelem_transformNode,
558     domelem_selectNodes,
559     domelem_selectSingleNode,
560     domelem_get_parsed,
561     domelem_get_namespaceURI,
562     domelem_get_prefix,
563     domelem_get_baseName,
564     domelem_transformNodeToObject,
565     domelem_get_tagName,
566     domelem_getAttribute,
567     domelem_setAttribute,
568     domelem_removeAttribute,
569     domelem_getAttributeNode,
570     domelem_setAttributeNode,
571     domelem_removeAttributeNode,
572     domelem_getElementsByTagName,
573     domelem_normalize,
574 };
575
576 IUnknown* create_element( xmlNodePtr element )
577 {
578     domelem *This;
579     HRESULT hr;
580
581     This = HeapAlloc( GetProcessHeap(), 0, sizeof *This );
582     if ( !This )
583         return NULL;
584
585     This->lpVtbl = &domelem_vtbl;
586     This->ref = 1;
587
588     This->node_unk = create_basic_node( element, (IUnknown*)&This->lpVtbl );
589     if(!This->node_unk)
590     {
591         HeapFree(GetProcessHeap(), 0, This);
592         return NULL;
593     }
594
595     hr = IUnknown_QueryInterface(This->node_unk, &IID_IXMLDOMNode, (LPVOID*)&This->node);
596     if(FAILED(hr))
597     {
598         IUnknown_Release(This->node_unk);
599         HeapFree( GetProcessHeap(), 0, This );
600         return NULL;
601     }
602     /* The ref on This->node is actually looped back into this object, so release it */
603     IXMLDOMNode_Release(This->node);
604
605     return (IUnknown*) &This->lpVtbl;
606 }
607
608 #endif