msxml3: Don't use xmlnode's IXMLDOMNode iface in get_childNode implementations.
[wine] / dlls / msxml3 / pi.c
1 /*
2  *    DOM processing instruction node 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 #include "windef.h"
27 #include "winbase.h"
28 #include "winuser.h"
29 #include "ole2.h"
30 #include "msxml6.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 _dom_pi
41 {
42     xmlnode node;
43     const struct IXMLDOMProcessingInstructionVtbl *lpVtbl;
44     LONG ref;
45 } dom_pi;
46
47 static inline dom_pi *impl_from_IXMLDOMProcessingInstruction( IXMLDOMProcessingInstruction *iface )
48 {
49     return (dom_pi *)((char*)iface - FIELD_OFFSET(dom_pi, lpVtbl));
50 }
51
52 static HRESULT WINAPI dom_pi_QueryInterface(
53     IXMLDOMProcessingInstruction *iface,
54     REFIID riid,
55     void** ppvObject )
56 {
57     dom_pi *This = impl_from_IXMLDOMProcessingInstruction( iface );
58     TRACE("(%p)->(%s %p)\n", This, debugstr_guid(riid), ppvObject);
59
60     if ( IsEqualGUID( riid, &IID_IXMLDOMProcessingInstruction ) ||
61          IsEqualGUID( riid, &IID_IXMLDOMNode ) ||
62          IsEqualGUID( riid, &IID_IDispatch ) ||
63          IsEqualGUID( riid, &IID_IUnknown ) )
64     {
65         *ppvObject = iface;
66     }
67     else if(node_query_interface(&This->node, riid, ppvObject))
68     {
69         return *ppvObject ? S_OK : E_NOINTERFACE;
70     }
71     else
72     {
73         FIXME("Unsupported interface %s\n", debugstr_guid(riid));
74         return E_NOINTERFACE;
75     }
76
77     IUnknown_AddRef((IUnknown*)*ppvObject);
78     return S_OK;
79 }
80
81 static ULONG WINAPI dom_pi_AddRef(
82     IXMLDOMProcessingInstruction *iface )
83 {
84     dom_pi *This = impl_from_IXMLDOMProcessingInstruction( iface );
85     return InterlockedIncrement( &This->ref );
86 }
87
88 static ULONG WINAPI dom_pi_Release(
89     IXMLDOMProcessingInstruction *iface )
90 {
91     dom_pi *This = impl_from_IXMLDOMProcessingInstruction( iface );
92     ULONG ref;
93
94     ref = InterlockedDecrement( &This->ref );
95     if ( ref == 0 )
96     {
97         destroy_xmlnode(&This->node);
98         heap_free( This );
99     }
100
101     return ref;
102 }
103
104 static HRESULT WINAPI dom_pi_GetTypeInfoCount(
105     IXMLDOMProcessingInstruction *iface,
106     UINT* pctinfo )
107 {
108     dom_pi *This = impl_from_IXMLDOMProcessingInstruction( iface );
109
110     TRACE("(%p)->(%p)\n", This, pctinfo);
111
112     *pctinfo = 1;
113
114     return S_OK;
115 }
116
117 static HRESULT WINAPI dom_pi_GetTypeInfo(
118     IXMLDOMProcessingInstruction *iface,
119     UINT iTInfo, LCID lcid,
120     ITypeInfo** ppTInfo )
121 {
122     dom_pi *This = impl_from_IXMLDOMProcessingInstruction( iface );
123     HRESULT hr;
124
125     TRACE("(%p)->(%u %u %p)\n", This, iTInfo, lcid, ppTInfo);
126
127     hr = get_typeinfo(IXMLDOMProcessingInstruction_tid, ppTInfo);
128
129     return hr;
130 }
131
132 static HRESULT WINAPI dom_pi_GetIDsOfNames(
133     IXMLDOMProcessingInstruction *iface,
134     REFIID riid, LPOLESTR* rgszNames,
135     UINT cNames, LCID lcid, DISPID* rgDispId )
136 {
137     dom_pi *This = impl_from_IXMLDOMProcessingInstruction( iface );
138     ITypeInfo *typeinfo;
139     HRESULT hr;
140
141     TRACE("(%p)->(%s %p %u %u %p)\n", This, debugstr_guid(riid), rgszNames, cNames,
142           lcid, rgDispId);
143
144     if(!rgszNames || cNames == 0 || !rgDispId)
145         return E_INVALIDARG;
146
147     hr = get_typeinfo(IXMLDOMProcessingInstruction_tid, &typeinfo);
148     if(SUCCEEDED(hr))
149     {
150         hr = ITypeInfo_GetIDsOfNames(typeinfo, rgszNames, cNames, rgDispId);
151         ITypeInfo_Release(typeinfo);
152     }
153
154     return hr;
155 }
156
157 static HRESULT WINAPI dom_pi_Invoke(
158     IXMLDOMProcessingInstruction *iface,
159     DISPID dispIdMember, REFIID riid, LCID lcid,
160     WORD wFlags, DISPPARAMS* pDispParams, VARIANT* pVarResult,
161     EXCEPINFO* pExcepInfo, UINT* puArgErr )
162 {
163     dom_pi *This = impl_from_IXMLDOMProcessingInstruction( iface );
164     ITypeInfo *typeinfo;
165     HRESULT hr;
166
167     TRACE("(%p)->(%d %s %d %d %p %p %p %p)\n", This, dispIdMember, debugstr_guid(riid),
168           lcid, wFlags, pDispParams, pVarResult, pExcepInfo, puArgErr);
169
170     hr = get_typeinfo(IXMLDOMProcessingInstruction_tid, &typeinfo);
171     if(SUCCEEDED(hr))
172     {
173        hr = ITypeInfo_Invoke(typeinfo, &(This->lpVtbl), dispIdMember, wFlags, pDispParams,
174                 pVarResult, pExcepInfo, puArgErr);
175         ITypeInfo_Release(typeinfo);
176     }
177
178     return hr;
179 }
180
181 static HRESULT WINAPI dom_pi_get_nodeName(
182     IXMLDOMProcessingInstruction *iface,
183     BSTR* p )
184 {
185     dom_pi *This = impl_from_IXMLDOMProcessingInstruction( iface );
186
187     TRACE("(%p)->(%p)\n", This, p);
188
189     return node_get_nodeName(&This->node, p);
190 }
191
192 static HRESULT WINAPI dom_pi_get_nodeValue(
193     IXMLDOMProcessingInstruction *iface,
194     VARIANT* value)
195 {
196     dom_pi *This = impl_from_IXMLDOMProcessingInstruction( iface );
197
198     TRACE("(%p)->(%p)\n", This, value);
199
200     return node_get_content(&This->node, value);
201 }
202
203 static HRESULT WINAPI dom_pi_put_nodeValue(
204     IXMLDOMProcessingInstruction *iface,
205     VARIANT value)
206 {
207     dom_pi *This = impl_from_IXMLDOMProcessingInstruction( iface );
208     BSTR sTarget;
209     static const WCHAR szXML[] = {'x','m','l',0};
210     HRESULT hr;
211
212     TRACE("(%p)->(v%d)\n", This, V_VT(&value));
213
214     /* Cannot set data to a PI node whose target is 'xml' */
215     hr = dom_pi_get_nodeName(iface, &sTarget);
216     if(hr == S_OK)
217     {
218         if(lstrcmpW( sTarget, szXML) == 0)
219         {
220             SysFreeString(sTarget);
221             return E_FAIL;
222         }
223
224         SysFreeString(sTarget);
225     }
226
227     return node_put_value(&This->node, &value);
228 }
229
230 static HRESULT WINAPI dom_pi_get_nodeType(
231     IXMLDOMProcessingInstruction *iface,
232     DOMNodeType* domNodeType )
233 {
234     dom_pi *This = impl_from_IXMLDOMProcessingInstruction( iface );
235
236     TRACE("(%p)->(%p)\n", This, domNodeType);
237
238     *domNodeType = NODE_PROCESSING_INSTRUCTION;
239     return S_OK;
240 }
241
242 static HRESULT WINAPI dom_pi_get_parentNode(
243     IXMLDOMProcessingInstruction *iface,
244     IXMLDOMNode** parent )
245 {
246     dom_pi *This = impl_from_IXMLDOMProcessingInstruction( iface );
247
248     TRACE("(%p)->(%p)\n", This, parent);
249
250     return node_get_parent(&This->node, parent);
251 }
252
253 static HRESULT WINAPI dom_pi_get_childNodes(
254     IXMLDOMProcessingInstruction *iface,
255     IXMLDOMNodeList** outList)
256 {
257     dom_pi *This = impl_from_IXMLDOMProcessingInstruction( iface );
258
259     TRACE("(%p)->(%p)\n", This, outList);
260
261     return node_get_child_nodes(&This->node, outList);
262 }
263
264 static HRESULT WINAPI dom_pi_get_firstChild(
265     IXMLDOMProcessingInstruction *iface,
266     IXMLDOMNode** domNode)
267 {
268     dom_pi *This = impl_from_IXMLDOMProcessingInstruction( iface );
269     return IXMLDOMNode_get_firstChild( IXMLDOMNode_from_impl(&This->node), domNode );
270 }
271
272 static HRESULT WINAPI dom_pi_get_lastChild(
273     IXMLDOMProcessingInstruction *iface,
274     IXMLDOMNode** domNode)
275 {
276     dom_pi *This = impl_from_IXMLDOMProcessingInstruction( iface );
277     return IXMLDOMNode_get_lastChild( IXMLDOMNode_from_impl(&This->node), domNode );
278 }
279
280 static HRESULT WINAPI dom_pi_get_previousSibling(
281     IXMLDOMProcessingInstruction *iface,
282     IXMLDOMNode** domNode)
283 {
284     dom_pi *This = impl_from_IXMLDOMProcessingInstruction( iface );
285     return IXMLDOMNode_get_previousSibling( IXMLDOMNode_from_impl(&This->node), domNode );
286 }
287
288 static HRESULT WINAPI dom_pi_get_nextSibling(
289     IXMLDOMProcessingInstruction *iface,
290     IXMLDOMNode** domNode)
291 {
292     dom_pi *This = impl_from_IXMLDOMProcessingInstruction( iface );
293     return IXMLDOMNode_get_nextSibling( IXMLDOMNode_from_impl(&This->node), domNode );
294 }
295
296 static HRESULT WINAPI dom_pi_get_attributes(
297     IXMLDOMProcessingInstruction *iface,
298     IXMLDOMNamedNodeMap** attributeMap)
299 {
300     dom_pi *This = impl_from_IXMLDOMProcessingInstruction( iface );
301     return IXMLDOMNode_get_attributes( IXMLDOMNode_from_impl(&This->node), attributeMap );
302 }
303
304 static HRESULT WINAPI dom_pi_insertBefore(
305     IXMLDOMProcessingInstruction *iface,
306     IXMLDOMNode* newNode, VARIANT var1,
307     IXMLDOMNode** outOldNode)
308 {
309     dom_pi *This = impl_from_IXMLDOMProcessingInstruction( iface );
310     return IXMLDOMNode_insertBefore( IXMLDOMNode_from_impl(&This->node), newNode, var1, outOldNode );
311 }
312
313 static HRESULT WINAPI dom_pi_replaceChild(
314     IXMLDOMProcessingInstruction *iface,
315     IXMLDOMNode* newNode,
316     IXMLDOMNode* oldNode,
317     IXMLDOMNode** outOldNode)
318 {
319     dom_pi *This = impl_from_IXMLDOMProcessingInstruction( iface );
320     return IXMLDOMNode_replaceChild( IXMLDOMNode_from_impl(&This->node), newNode, oldNode, outOldNode );
321 }
322
323 static HRESULT WINAPI dom_pi_removeChild(
324     IXMLDOMProcessingInstruction *iface,
325     IXMLDOMNode* domNode, IXMLDOMNode** oldNode)
326 {
327     dom_pi *This = impl_from_IXMLDOMProcessingInstruction( iface );
328     return IXMLDOMNode_removeChild( IXMLDOMNode_from_impl(&This->node), domNode, oldNode );
329 }
330
331 static HRESULT WINAPI dom_pi_appendChild(
332     IXMLDOMProcessingInstruction *iface,
333     IXMLDOMNode* newNode, IXMLDOMNode** outNewNode)
334 {
335     dom_pi *This = impl_from_IXMLDOMProcessingInstruction( iface );
336     return IXMLDOMNode_appendChild( IXMLDOMNode_from_impl(&This->node), newNode, outNewNode );
337 }
338
339 static HRESULT WINAPI dom_pi_hasChildNodes(
340     IXMLDOMProcessingInstruction *iface,
341     VARIANT_BOOL* pbool)
342 {
343     dom_pi *This = impl_from_IXMLDOMProcessingInstruction( iface );
344     return IXMLDOMNode_hasChildNodes( IXMLDOMNode_from_impl(&This->node), pbool );
345 }
346
347 static HRESULT WINAPI dom_pi_get_ownerDocument(
348     IXMLDOMProcessingInstruction *iface,
349     IXMLDOMDocument** domDocument)
350 {
351     dom_pi *This = impl_from_IXMLDOMProcessingInstruction( iface );
352     return IXMLDOMNode_get_ownerDocument( IXMLDOMNode_from_impl(&This->node), domDocument );
353 }
354
355 static HRESULT WINAPI dom_pi_cloneNode(
356     IXMLDOMProcessingInstruction *iface,
357     VARIANT_BOOL pbool, IXMLDOMNode** outNode)
358 {
359     dom_pi *This = impl_from_IXMLDOMProcessingInstruction( iface );
360     return IXMLDOMNode_cloneNode( IXMLDOMNode_from_impl(&This->node), pbool, outNode );
361 }
362
363 static HRESULT WINAPI dom_pi_get_nodeTypeString(
364     IXMLDOMProcessingInstruction *iface,
365     BSTR* p)
366 {
367     dom_pi *This = impl_from_IXMLDOMProcessingInstruction( iface );
368     return IXMLDOMNode_get_nodeTypeString( IXMLDOMNode_from_impl(&This->node), p );
369 }
370
371 static HRESULT WINAPI dom_pi_get_text(
372     IXMLDOMProcessingInstruction *iface,
373     BSTR* p)
374 {
375     dom_pi *This = impl_from_IXMLDOMProcessingInstruction( iface );
376     return IXMLDOMNode_get_text( IXMLDOMNode_from_impl(&This->node), p );
377 }
378
379 static HRESULT WINAPI dom_pi_put_text(
380     IXMLDOMProcessingInstruction *iface,
381     BSTR p)
382 {
383     dom_pi *This = impl_from_IXMLDOMProcessingInstruction( iface );
384     return IXMLDOMNode_put_text( IXMLDOMNode_from_impl(&This->node), p );
385 }
386
387 static HRESULT WINAPI dom_pi_get_specified(
388     IXMLDOMProcessingInstruction *iface,
389     VARIANT_BOOL* pbool)
390 {
391     dom_pi *This = impl_from_IXMLDOMProcessingInstruction( iface );
392     return IXMLDOMNode_get_specified( IXMLDOMNode_from_impl(&This->node), pbool );
393 }
394
395 static HRESULT WINAPI dom_pi_get_definition(
396     IXMLDOMProcessingInstruction *iface,
397     IXMLDOMNode** domNode)
398 {
399     dom_pi *This = impl_from_IXMLDOMProcessingInstruction( iface );
400     return IXMLDOMNode_get_definition( IXMLDOMNode_from_impl(&This->node), domNode );
401 }
402
403 static HRESULT WINAPI dom_pi_get_nodeTypedValue(
404     IXMLDOMProcessingInstruction *iface,
405     VARIANT* var1)
406 {
407     dom_pi *This = impl_from_IXMLDOMProcessingInstruction( iface );
408     return IXMLDOMNode_get_nodeTypedValue( IXMLDOMNode_from_impl(&This->node), var1 );
409 }
410
411 static HRESULT WINAPI dom_pi_put_nodeTypedValue(
412     IXMLDOMProcessingInstruction *iface,
413     VARIANT var1)
414 {
415     dom_pi *This = impl_from_IXMLDOMProcessingInstruction( iface );
416     return IXMLDOMNode_put_nodeTypedValue( IXMLDOMNode_from_impl(&This->node), var1 );
417 }
418
419 static HRESULT WINAPI dom_pi_get_dataType(
420     IXMLDOMProcessingInstruction *iface,
421     VARIANT* var1)
422 {
423     dom_pi *This = impl_from_IXMLDOMProcessingInstruction( iface );
424     return IXMLDOMNode_get_dataType( IXMLDOMNode_from_impl(&This->node), var1 );
425 }
426
427 static HRESULT WINAPI dom_pi_put_dataType(
428     IXMLDOMProcessingInstruction *iface,
429     BSTR p)
430 {
431     dom_pi *This = impl_from_IXMLDOMProcessingInstruction( iface );
432     return IXMLDOMNode_put_dataType( IXMLDOMNode_from_impl(&This->node), p );
433 }
434
435 static HRESULT WINAPI dom_pi_get_xml(
436     IXMLDOMProcessingInstruction *iface,
437     BSTR* p)
438 {
439     dom_pi *This = impl_from_IXMLDOMProcessingInstruction( iface );
440     return IXMLDOMNode_get_xml( IXMLDOMNode_from_impl(&This->node), p );
441 }
442
443 static HRESULT WINAPI dom_pi_transformNode(
444     IXMLDOMProcessingInstruction *iface,
445     IXMLDOMNode* domNode, BSTR* p)
446 {
447     dom_pi *This = impl_from_IXMLDOMProcessingInstruction( iface );
448     return IXMLDOMNode_transformNode( IXMLDOMNode_from_impl(&This->node), domNode, p );
449 }
450
451 static HRESULT WINAPI dom_pi_selectNodes(
452     IXMLDOMProcessingInstruction *iface,
453     BSTR p, IXMLDOMNodeList** outList)
454 {
455     dom_pi *This = impl_from_IXMLDOMProcessingInstruction( iface );
456     return IXMLDOMNode_selectNodes( IXMLDOMNode_from_impl(&This->node), p, outList );
457 }
458
459 static HRESULT WINAPI dom_pi_selectSingleNode(
460     IXMLDOMProcessingInstruction *iface,
461     BSTR p, IXMLDOMNode** outNode)
462 {
463     dom_pi *This = impl_from_IXMLDOMProcessingInstruction( iface );
464     return IXMLDOMNode_selectSingleNode( IXMLDOMNode_from_impl(&This->node), p, outNode );
465 }
466
467 static HRESULT WINAPI dom_pi_get_parsed(
468     IXMLDOMProcessingInstruction *iface,
469     VARIANT_BOOL* pbool)
470 {
471     dom_pi *This = impl_from_IXMLDOMProcessingInstruction( iface );
472     return IXMLDOMNode_get_parsed( IXMLDOMNode_from_impl(&This->node), pbool );
473 }
474
475 static HRESULT WINAPI dom_pi_get_namespaceURI(
476     IXMLDOMProcessingInstruction *iface,
477     BSTR* p)
478 {
479     dom_pi *This = impl_from_IXMLDOMProcessingInstruction( iface );
480     return IXMLDOMNode_get_namespaceURI( IXMLDOMNode_from_impl(&This->node), p );
481 }
482
483 static HRESULT WINAPI dom_pi_get_prefix(
484     IXMLDOMProcessingInstruction *iface,
485     BSTR* p)
486 {
487     dom_pi *This = impl_from_IXMLDOMProcessingInstruction( iface );
488     return IXMLDOMNode_get_prefix( IXMLDOMNode_from_impl(&This->node), p );
489 }
490
491 static HRESULT WINAPI dom_pi_get_baseName(
492     IXMLDOMProcessingInstruction *iface,
493     BSTR* p)
494 {
495     dom_pi *This = impl_from_IXMLDOMProcessingInstruction( iface );
496     return IXMLDOMNode_get_baseName( IXMLDOMNode_from_impl(&This->node), p );
497 }
498
499 static HRESULT WINAPI dom_pi_transformNodeToObject(
500     IXMLDOMProcessingInstruction *iface,
501     IXMLDOMNode* domNode, VARIANT var1)
502 {
503     dom_pi *This = impl_from_IXMLDOMProcessingInstruction( iface );
504     return IXMLDOMNode_transformNodeToObject( IXMLDOMNode_from_impl(&This->node), domNode, var1 );
505 }
506
507 static HRESULT WINAPI dom_pi_get_target(
508     IXMLDOMProcessingInstruction *iface,
509     BSTR *p)
510 {
511     dom_pi *This = impl_from_IXMLDOMProcessingInstruction( iface );
512
513     TRACE("(%p)->(%p)\n", This, p);
514
515     /* target returns the same value as nodeName property */
516     return node_get_nodeName(&This->node, p);
517 }
518
519 static HRESULT WINAPI dom_pi_get_data(
520     IXMLDOMProcessingInstruction *iface,
521     BSTR *p)
522 {
523     HRESULT hr = E_FAIL;
524     VARIANT vRet;
525
526     if(!p)
527         return E_INVALIDARG;
528
529     hr = IXMLDOMProcessingInstruction_get_nodeValue( iface, &vRet );
530     if(hr == S_OK)
531     {
532         *p = V_BSTR(&vRet);
533     }
534
535     return hr;
536 }
537
538 static HRESULT WINAPI dom_pi_put_data(
539     IXMLDOMProcessingInstruction *iface,
540     BSTR data)
541 {
542     dom_pi *This = impl_from_IXMLDOMProcessingInstruction( iface );
543     HRESULT hr = E_FAIL;
544     VARIANT val;
545     BSTR sTarget;
546     static const WCHAR szXML[] = {'x','m','l',0};
547
548     TRACE("(%p)->(%s)\n", This, debugstr_w(data) );
549
550     /* Cannot set data to a PI node whose target is 'xml' */
551     hr = dom_pi_get_nodeName(iface, &sTarget);
552     if(hr == S_OK)
553     {
554         if(lstrcmpW( sTarget, szXML) == 0)
555         {
556             SysFreeString(sTarget);
557             return E_FAIL;
558         }
559
560         SysFreeString(sTarget);
561     }
562
563     V_VT(&val) = VT_BSTR;
564     V_BSTR(&val) = data;
565
566     hr = IXMLDOMProcessingInstruction_put_nodeValue( iface, val );
567
568     return hr;
569 }
570
571 static const struct IXMLDOMProcessingInstructionVtbl dom_pi_vtbl =
572 {
573     dom_pi_QueryInterface,
574     dom_pi_AddRef,
575     dom_pi_Release,
576     dom_pi_GetTypeInfoCount,
577     dom_pi_GetTypeInfo,
578     dom_pi_GetIDsOfNames,
579     dom_pi_Invoke,
580     dom_pi_get_nodeName,
581     dom_pi_get_nodeValue,
582     dom_pi_put_nodeValue,
583     dom_pi_get_nodeType,
584     dom_pi_get_parentNode,
585     dom_pi_get_childNodes,
586     dom_pi_get_firstChild,
587     dom_pi_get_lastChild,
588     dom_pi_get_previousSibling,
589     dom_pi_get_nextSibling,
590     dom_pi_get_attributes,
591     dom_pi_insertBefore,
592     dom_pi_replaceChild,
593     dom_pi_removeChild,
594     dom_pi_appendChild,
595     dom_pi_hasChildNodes,
596     dom_pi_get_ownerDocument,
597     dom_pi_cloneNode,
598     dom_pi_get_nodeTypeString,
599     dom_pi_get_text,
600     dom_pi_put_text,
601     dom_pi_get_specified,
602     dom_pi_get_definition,
603     dom_pi_get_nodeTypedValue,
604     dom_pi_put_nodeTypedValue,
605     dom_pi_get_dataType,
606     dom_pi_put_dataType,
607     dom_pi_get_xml,
608     dom_pi_transformNode,
609     dom_pi_selectNodes,
610     dom_pi_selectSingleNode,
611     dom_pi_get_parsed,
612     dom_pi_get_namespaceURI,
613     dom_pi_get_prefix,
614     dom_pi_get_baseName,
615     dom_pi_transformNodeToObject,
616
617     dom_pi_get_target,
618     dom_pi_get_data,
619     dom_pi_put_data
620 };
621
622 IUnknown* create_pi( xmlNodePtr pi )
623 {
624     dom_pi *This;
625
626     This = heap_alloc( sizeof *This );
627     if ( !This )
628         return NULL;
629
630     This->lpVtbl = &dom_pi_vtbl;
631     This->ref = 1;
632
633     init_xmlnode(&This->node, pi, (IXMLDOMNode*)&This->lpVtbl, NULL);
634
635     return (IUnknown*) &This->lpVtbl;
636 }
637
638 #endif