xref: /reactos/dll/win32/msxml3/node.c (revision eb44c20c) 
1 /*
2  *    Node 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 
27 #ifdef HAVE_LIBXML2
28 # include <libxml/parser.h>
29 # include <libxml/parserInternals.h>
30 # include <libxml/xmlerror.h>
31 # include <libxml/HTMLtree.h>
32 # ifdef SONAME_LIBXSLT
33 #  ifdef HAVE_LIBXSLT_PATTERN_H
34 #   include <libxslt/pattern.h>
35 #  endif
36 #  ifdef HAVE_LIBXSLT_TRANSFORM_H
37 #   include <libxslt/transform.h>
38 #  endif
39 #  include <libxslt/imports.h>
40 #  include <libxslt/variables.h>
41 #  include <libxslt/xsltutils.h>
42 #  include <libxslt/xsltInternals.h>
43 #  include <libxslt/documents.h>
44 # endif
45 #endif
46 
47 #include "windef.h"
48 #include "winbase.h"
49 #include "winuser.h"
50 #include "winnls.h"
51 #include "ole2.h"
52 #include "msxml6.h"
53 
54 #include "msxml_private.h"
55 
56 #include "wine/debug.h"
57 
58 #ifdef HAVE_LIBXML2
59 
60 WINE_DEFAULT_DEBUG_CHANNEL(msxml);
61 
62 #ifdef SONAME_LIBXSLT
63 extern void* libxslt_handle;
64 # define MAKE_FUNCPTR(f) extern typeof(f) * p##f
65 MAKE_FUNCPTR(xsltApplyStylesheet);
66 MAKE_FUNCPTR(xsltApplyStylesheetUser);
67 MAKE_FUNCPTR(xsltCleanupGlobals);
68 MAKE_FUNCPTR(xsltFreeStylesheet);
69 MAKE_FUNCPTR(xsltFreeTransformContext);
70 MAKE_FUNCPTR(xsltNewTransformContext);
71 MAKE_FUNCPTR(xsltNextImport);
72 MAKE_FUNCPTR(xsltParseStylesheetDoc);
73 MAKE_FUNCPTR(xsltQuoteUserParams);
74 MAKE_FUNCPTR(xsltSaveResultTo);
75 # undef MAKE_FUNCPTR
76 #else
77 WINE_DECLARE_DEBUG_CHANNEL(winediag);
78 #endif
79 
80 static const IID IID_xmlnode = {0x4f2f4ba2,0xb822,0x11df,{0x8b,0x8a,0x68,0x50,0xdf,0xd7,0x20,0x85}};
81 
xmlNodePtr_from_domnode(IXMLDOMNode * iface,xmlElementType type)82 xmlNodePtr xmlNodePtr_from_domnode( IXMLDOMNode *iface, xmlElementType type )
83 {
84     xmlnode *This;
85 
86     if ( !iface )
87         return NULL;
88     This = get_node_obj( iface );
89     if ( !This || !This->node )
90         return NULL;
91     if ( type && This->node->type != type )
92         return NULL;
93     return This->node;
94 }
95 
node_query_interface(xmlnode * This,REFIID riid,void ** ppv)96 BOOL node_query_interface(xmlnode *This, REFIID riid, void **ppv)
97 {
98     if(IsEqualGUID(&IID_xmlnode, riid)) {
99         TRACE("(%p)->(IID_xmlnode %p)\n", This, ppv);
100         *ppv = This;
101         return TRUE;
102     }
103 
104     return dispex_query_interface(&This->dispex, riid, ppv);
105 }
106 
107 /* common ISupportErrorInfo implementation */
108 typedef struct {
109    ISupportErrorInfo ISupportErrorInfo_iface;
110    LONG ref;
111 
112    const tid_t* iids;
113 } SupportErrorInfo;
114 
impl_from_ISupportErrorInfo(ISupportErrorInfo * iface)115 static inline SupportErrorInfo *impl_from_ISupportErrorInfo(ISupportErrorInfo *iface)
116 {
117     return CONTAINING_RECORD(iface, SupportErrorInfo, ISupportErrorInfo_iface);
118 }
119 
SupportErrorInfo_QueryInterface(ISupportErrorInfo * iface,REFIID riid,void ** obj)120 static HRESULT WINAPI SupportErrorInfo_QueryInterface(ISupportErrorInfo *iface, REFIID riid, void **obj)
121 {
122     SupportErrorInfo *This = impl_from_ISupportErrorInfo(iface);
123     TRACE("(%p)->(%s %p)\n", This, debugstr_guid(riid), obj);
124 
125     *obj = NULL;
126 
127     if (IsEqualGUID(riid, &IID_IUnknown) || IsEqualGUID(riid, &IID_ISupportErrorInfo)) {
128         *obj = iface;
129         ISupportErrorInfo_AddRef(iface);
130         return S_OK;
131     }
132 
133     return E_NOINTERFACE;
134 }
135 
SupportErrorInfo_AddRef(ISupportErrorInfo * iface)136 static ULONG WINAPI SupportErrorInfo_AddRef(ISupportErrorInfo *iface)
137 {
138     SupportErrorInfo *This = impl_from_ISupportErrorInfo(iface);
139     ULONG ref = InterlockedIncrement(&This->ref);
140     TRACE("(%p)->(%d)\n", This, ref );
141     return ref;
142 }
143 
SupportErrorInfo_Release(ISupportErrorInfo * iface)144 static ULONG WINAPI SupportErrorInfo_Release(ISupportErrorInfo *iface)
145 {
146     SupportErrorInfo *This = impl_from_ISupportErrorInfo(iface);
147     LONG ref = InterlockedDecrement(&This->ref);
148 
149     TRACE("(%p)->(%d)\n", This, ref);
150 
151     if (ref == 0)
152         heap_free(This);
153 
154     return ref;
155 }
156 
SupportErrorInfo_InterfaceSupportsErrorInfo(ISupportErrorInfo * iface,REFIID riid)157 static HRESULT WINAPI SupportErrorInfo_InterfaceSupportsErrorInfo(ISupportErrorInfo *iface, REFIID riid)
158 {
159     SupportErrorInfo *This = impl_from_ISupportErrorInfo(iface);
160     enum tid_t const *tid;
161 
162     TRACE("(%p)->(%s)\n", This, debugstr_guid(riid));
163 
164     tid = This->iids;
165     while (*tid != NULL_tid)
166     {
167         if (IsEqualGUID(riid, get_riid_from_tid(*tid)))
168             return S_OK;
169         tid++;
170     }
171 
172     return S_FALSE;
173 }
174 
175 static const struct ISupportErrorInfoVtbl SupportErrorInfoVtbl = {
176     SupportErrorInfo_QueryInterface,
177     SupportErrorInfo_AddRef,
178     SupportErrorInfo_Release,
179     SupportErrorInfo_InterfaceSupportsErrorInfo
180 };
181 
node_create_supporterrorinfo(enum tid_t const * iids,void ** obj)182 HRESULT node_create_supporterrorinfo(enum tid_t const *iids, void **obj)
183 {
184     SupportErrorInfo *This;
185 
186     This = heap_alloc(sizeof(*This));
187     if (!This) return E_OUTOFMEMORY;
188 
189     This->ISupportErrorInfo_iface.lpVtbl = &SupportErrorInfoVtbl;
190     This->ref = 1;
191     This->iids = iids;
192 
193     *obj = &This->ISupportErrorInfo_iface;
194 
195     return S_OK;
196 }
197 
get_node_obj(IXMLDOMNode * node)198 xmlnode *get_node_obj(IXMLDOMNode *node)
199 {
200     xmlnode *obj = NULL;
201     HRESULT hres;
202 
203     hres = IXMLDOMNode_QueryInterface(node, &IID_xmlnode, (void**)&obj);
204     if (!obj) WARN("node is not our IXMLDOMNode implementation\n");
205     return SUCCEEDED(hres) ? obj : NULL;
206 }
207 
node_get_nodeName(xmlnode * This,BSTR * name)208 HRESULT node_get_nodeName(xmlnode *This, BSTR *name)
209 {
210     BSTR prefix, base;
211     HRESULT hr;
212 
213     if (!name)
214         return E_INVALIDARG;
215 
216     hr = node_get_base_name(This, &base);
217     if (hr != S_OK) return hr;
218 
219     hr = node_get_prefix(This, &prefix);
220     if (hr == S_OK)
221     {
222         static const WCHAR colW = ':';
223         WCHAR *ptr;
224 
225         /* +1 for ':' */
226         ptr = *name = SysAllocStringLen(NULL, SysStringLen(base) + SysStringLen(prefix) + 1);
227         memcpy(ptr, prefix, SysStringByteLen(prefix));
228         ptr += SysStringLen(prefix);
229         memcpy(ptr++, &colW, sizeof(WCHAR));
230         memcpy(ptr, base, SysStringByteLen(base));
231 
232         SysFreeString(base);
233         SysFreeString(prefix);
234     }
235     else
236         *name = base;
237 
238     return S_OK;
239 }
240 
node_get_content(xmlnode * This,VARIANT * value)241 HRESULT node_get_content(xmlnode *This, VARIANT *value)
242 {
243     xmlChar *content;
244 
245     if(!value)
246         return E_INVALIDARG;
247 
248     content = xmlNodeGetContent(This->node);
249     V_VT(value) = VT_BSTR;
250     V_BSTR(value) = bstr_from_xmlChar( content );
251     xmlFree(content);
252 
253     TRACE("%p returned %s\n", This, debugstr_w(V_BSTR(value)));
254     return S_OK;
255 }
256 
node_set_content(xmlnode * This,LPCWSTR value)257 HRESULT node_set_content(xmlnode *This, LPCWSTR value)
258 {
259     xmlChar *str;
260 
261     TRACE("(%p)->(%s)\n", This, debugstr_w(value));
262     str = xmlchar_from_wchar(value);
263     if(!str)
264         return E_OUTOFMEMORY;
265 
266     xmlNodeSetContent(This->node, str);
267     heap_free(str);
268     return S_OK;
269 }
270 
node_set_content_escaped(xmlnode * This,LPCWSTR value)271 static HRESULT node_set_content_escaped(xmlnode *This, LPCWSTR value)
272 {
273     xmlChar *str, *escaped;
274 
275     TRACE("(%p)->(%s)\n", This, debugstr_w(value));
276     str = xmlchar_from_wchar(value);
277     if(!str)
278         return E_OUTOFMEMORY;
279 
280     escaped = xmlEncodeSpecialChars(NULL, str);
281     if(!escaped)
282     {
283         heap_free(str);
284         return E_OUTOFMEMORY;
285     }
286 
287     xmlNodeSetContent(This->node, escaped);
288 
289     heap_free(str);
290     xmlFree(escaped);
291 
292     return S_OK;
293 }
294 
node_put_value(xmlnode * This,VARIANT * value)295 HRESULT node_put_value(xmlnode *This, VARIANT *value)
296 {
297     HRESULT hr;
298 
299     if (V_VT(value) != VT_BSTR)
300     {
301         VARIANT string_value;
302 
303         VariantInit(&string_value);
304         hr = VariantChangeType(&string_value, value, 0, VT_BSTR);
305         if(FAILED(hr)) {
306             WARN("Couldn't convert to VT_BSTR\n");
307             return hr;
308         }
309 
310         hr = node_set_content(This, V_BSTR(&string_value));
311         VariantClear(&string_value);
312     }
313     else
314         hr = node_set_content(This, V_BSTR(value));
315 
316     return hr;
317 }
318 
node_put_value_escaped(xmlnode * This,VARIANT * value)319 HRESULT node_put_value_escaped(xmlnode *This, VARIANT *value)
320 {
321     HRESULT hr;
322 
323     if (V_VT(value) != VT_BSTR)
324     {
325        VARIANT string_value;
326 
327         VariantInit(&string_value);
328         hr = VariantChangeType(&string_value, value, 0, VT_BSTR);
329         if(FAILED(hr)) {
330             WARN("Couldn't convert to VT_BSTR\n");
331             return hr;
332         }
333 
334         hr = node_set_content_escaped(This, V_BSTR(&string_value));
335         VariantClear(&string_value);
336     }
337     else
338         hr = node_set_content_escaped(This, V_BSTR(value));
339 
340     return hr;
341 }
342 
get_node(xmlnode * This,const char * name,xmlNodePtr node,IXMLDOMNode ** out)343 static HRESULT get_node(
344     xmlnode *This,
345     const char *name,
346     xmlNodePtr node,
347     IXMLDOMNode **out )
348 {
349     TRACE("(%p)->(%s %p %p)\n", This, name, node, out );
350 
351     if ( !out )
352         return E_INVALIDARG;
353 
354     /* if we don't have a doc, use our parent. */
355     if(node && !node->doc && node->parent)
356         node->doc = node->parent->doc;
357 
358     *out = create_node( node );
359     if (!*out)
360         return S_FALSE;
361     return S_OK;
362 }
363 
node_get_parent(xmlnode * This,IXMLDOMNode ** parent)364 HRESULT node_get_parent(xmlnode *This, IXMLDOMNode **parent)
365 {
366     return get_node( This, "parent", This->node->parent, parent );
367 }
368 
node_get_child_nodes(xmlnode * This,IXMLDOMNodeList ** ret)369 HRESULT node_get_child_nodes(xmlnode *This, IXMLDOMNodeList **ret)
370 {
371     if(!ret)
372         return E_INVALIDARG;
373 
374     *ret = create_children_nodelist(This->node);
375     if(!*ret)
376         return E_OUTOFMEMORY;
377 
378     return S_OK;
379 }
380 
node_get_first_child(xmlnode * This,IXMLDOMNode ** ret)381 HRESULT node_get_first_child(xmlnode *This, IXMLDOMNode **ret)
382 {
383     return get_node(This, "firstChild", This->node->children, ret);
384 }
385 
node_get_last_child(xmlnode * This,IXMLDOMNode ** ret)386 HRESULT node_get_last_child(xmlnode *This, IXMLDOMNode **ret)
387 {
388     return get_node(This, "lastChild", This->node->last, ret);
389 }
390 
node_get_previous_sibling(xmlnode * This,IXMLDOMNode ** ret)391 HRESULT node_get_previous_sibling(xmlnode *This, IXMLDOMNode **ret)
392 {
393     return get_node(This, "previous", This->node->prev, ret);
394 }
395 
node_get_next_sibling(xmlnode * This,IXMLDOMNode ** ret)396 HRESULT node_get_next_sibling(xmlnode *This, IXMLDOMNode **ret)
397 {
398     return get_node(This, "next", This->node->next, ret);
399 }
400 
node_get_inst_cnt(xmlNodePtr node)401 static int node_get_inst_cnt(xmlNodePtr node)
402 {
403     int ret = *(LONG *)&node->_private & NODE_PRIV_REFCOUNT_MASK;
404     xmlNodePtr child;
405 
406     /* add attribute counts */
407     if (node->type == XML_ELEMENT_NODE)
408     {
409         xmlAttrPtr prop = node->properties;
410 
411         while (prop)
412         {
413             ret += node_get_inst_cnt((xmlNodePtr)prop);
414             prop = prop->next;
415         }
416     }
417 
418     /* add children counts */
419     child = node->children;
420     while (child)
421     {
422         ret += node_get_inst_cnt(child);
423         child = child->next;
424     }
425 
426     return ret;
427 }
428 
xmlnode_get_inst_cnt(xmlnode * node)429 int xmlnode_get_inst_cnt(xmlnode *node)
430 {
431     return node_get_inst_cnt(node->node);
432 }
433 
434 /* _private field holds a number of COM instances spawned from this libxml2 node
435  * most significant bits are used to store information about ignorrable whitespace nodes */
xmlnode_add_ref(xmlNodePtr node)436 void xmlnode_add_ref(xmlNodePtr node)
437 {
438     if (node->type == XML_DOCUMENT_NODE) return;
439     InterlockedIncrement((LONG*)&node->_private);
440 }
441 
xmlnode_release(xmlNodePtr node)442 void xmlnode_release(xmlNodePtr node)
443 {
444     if (node->type == XML_DOCUMENT_NODE) return;
445     InterlockedDecrement((LONG*)&node->_private);
446 }
447 
node_insert_before(xmlnode * This,IXMLDOMNode * new_child,const VARIANT * ref_child,IXMLDOMNode ** ret)448 HRESULT node_insert_before(xmlnode *This, IXMLDOMNode *new_child, const VARIANT *ref_child,
449         IXMLDOMNode **ret)
450 {
451     IXMLDOMNode *before = NULL;
452     xmlnode *node_obj;
453     int refcount = 0;
454     xmlDocPtr doc;
455     HRESULT hr;
456 
457     if(!new_child)
458         return E_INVALIDARG;
459 
460     node_obj = get_node_obj(new_child);
461     if(!node_obj) return E_FAIL;
462 
463     switch(V_VT(ref_child))
464     {
465     case VT_EMPTY:
466     case VT_NULL:
467         break;
468 
469     case VT_UNKNOWN:
470     case VT_DISPATCH:
471         if (V_UNKNOWN(ref_child))
472         {
473             hr = IUnknown_QueryInterface(V_UNKNOWN(ref_child), &IID_IXMLDOMNode, (void**)&before);
474             if(FAILED(hr)) return hr;
475         }
476         break;
477 
478     default:
479         FIXME("refChild var type %x\n", V_VT(ref_child));
480         return E_FAIL;
481     }
482 
483     TRACE("new child %p, This->node %p\n", node_obj->node, This->node);
484 
485     if(!node_obj->node->parent)
486         if(xmldoc_remove_orphan(node_obj->node->doc, node_obj->node) != S_OK)
487             WARN("%p is not an orphan of %p\n", node_obj->node, node_obj->node->doc);
488 
489     refcount = xmlnode_get_inst_cnt(node_obj);
490 
491     if(before)
492     {
493         xmlnode *before_node_obj = get_node_obj(before);
494         IXMLDOMNode_Release(before);
495         if(!before_node_obj) return E_FAIL;
496     }
497 
498     /* unlink from current parent first */
499     if(node_obj->parent)
500     {
501         hr = IXMLDOMNode_removeChild(node_obj->parent, node_obj->iface, NULL);
502         if (hr == S_OK) xmldoc_remove_orphan(node_obj->node->doc, node_obj->node);
503     }
504     doc = node_obj->node->doc;
505 
506     if(before)
507     {
508         xmlNodePtr new_node;
509         xmlnode *before_node_obj = get_node_obj(before);
510 
511         /* refs count including subtree */
512         if (doc != before_node_obj->node->doc)
513             refcount = xmlnode_get_inst_cnt(node_obj);
514 
515         if (refcount) xmldoc_add_refs(before_node_obj->node->doc, refcount);
516         new_node = xmlAddPrevSibling(before_node_obj->node, node_obj->node);
517         if (new_node != node_obj->node)
518         {
519             if (refcount != 1)
520                 FIXME("referenced xmlNode was freed, expect crashes\n");
521             xmlnode_add_ref(new_node);
522             node_obj->node = new_node;
523         }
524         if (refcount) xmldoc_release_refs(doc, refcount);
525         node_obj->parent = This->parent;
526     }
527     else
528     {
529         xmlNodePtr new_node;
530 
531         if (doc != This->node->doc)
532             refcount = xmlnode_get_inst_cnt(node_obj);
533 
534         if (refcount) xmldoc_add_refs(This->node->doc, refcount);
535         /* xmlAddChild doesn't unlink node from previous parent */
536         xmlUnlinkNode(node_obj->node);
537         new_node = xmlAddChild(This->node, node_obj->node);
538         if (new_node != node_obj->node)
539         {
540             if (refcount != 1)
541                 FIXME("referenced xmlNode was freed, expect crashes\n");
542             xmlnode_add_ref(new_node);
543             node_obj->node = new_node;
544         }
545         if (refcount) xmldoc_release_refs(doc, refcount);
546         node_obj->parent = This->iface;
547     }
548 
549     if(ret)
550     {
551         IXMLDOMNode_AddRef(new_child);
552         *ret = new_child;
553     }
554 
555     TRACE("ret S_OK\n");
556     return S_OK;
557 }
558 
node_replace_child(xmlnode * This,IXMLDOMNode * newChild,IXMLDOMNode * oldChild,IXMLDOMNode ** ret)559 HRESULT node_replace_child(xmlnode *This, IXMLDOMNode *newChild, IXMLDOMNode *oldChild,
560         IXMLDOMNode **ret)
561 {
562     xmlnode *old_child, *new_child;
563     xmlDocPtr leaving_doc;
564     xmlNode *my_ancestor;
565     int refcount = 0;
566 
567     /* Do not believe any documentation telling that newChild == NULL
568        means removal. It does certainly *not* apply to msxml3! */
569     if(!newChild || !oldChild)
570         return E_INVALIDARG;
571 
572     if(ret)
573         *ret = NULL;
574 
575     old_child = get_node_obj(oldChild);
576     if(!old_child) return E_FAIL;
577 
578     if(old_child->node->parent != This->node)
579     {
580         WARN("childNode %p is not a child of %p\n", oldChild, This);
581         return E_INVALIDARG;
582     }
583 
584     new_child = get_node_obj(newChild);
585     if(!new_child) return E_FAIL;
586 
587     my_ancestor = This->node;
588     while(my_ancestor)
589     {
590         if(my_ancestor == new_child->node)
591         {
592             WARN("tried to create loop\n");
593             return E_FAIL;
594         }
595         my_ancestor = my_ancestor->parent;
596     }
597 
598     if(!new_child->node->parent)
599         if(xmldoc_remove_orphan(new_child->node->doc, new_child->node) != S_OK)
600             WARN("%p is not an orphan of %p\n", new_child->node, new_child->node->doc);
601 
602     leaving_doc = new_child->node->doc;
603 
604     if (leaving_doc != old_child->node->doc)
605         refcount = xmlnode_get_inst_cnt(new_child);
606 
607     if (refcount) xmldoc_add_refs(old_child->node->doc, refcount);
608     xmlReplaceNode(old_child->node, new_child->node);
609     if (refcount) xmldoc_release_refs(leaving_doc, refcount);
610     new_child->parent = old_child->parent;
611     old_child->parent = NULL;
612 
613     xmldoc_add_orphan(old_child->node->doc, old_child->node);
614 
615     if(ret)
616     {
617         IXMLDOMNode_AddRef(oldChild);
618         *ret = oldChild;
619     }
620 
621     return S_OK;
622 }
623 
node_remove_child(xmlnode * This,IXMLDOMNode * child,IXMLDOMNode ** oldChild)624 HRESULT node_remove_child(xmlnode *This, IXMLDOMNode* child, IXMLDOMNode** oldChild)
625 {
626     xmlnode *child_node;
627 
628     if(!child) return E_INVALIDARG;
629 
630     if(oldChild)
631         *oldChild = NULL;
632 
633     child_node = get_node_obj(child);
634     if(!child_node) return E_FAIL;
635 
636     if(child_node->node->parent != This->node)
637     {
638         WARN("childNode %p is not a child of %p\n", child, This);
639         return E_INVALIDARG;
640     }
641 
642     xmlUnlinkNode(child_node->node);
643     child_node->parent = NULL;
644     xmldoc_add_orphan(child_node->node->doc, child_node->node);
645 
646     if(oldChild)
647     {
648         IXMLDOMNode_AddRef(child);
649         *oldChild = child;
650     }
651 
652     return S_OK;
653 }
654 
node_append_child(xmlnode * This,IXMLDOMNode * child,IXMLDOMNode ** outChild)655 HRESULT node_append_child(xmlnode *This, IXMLDOMNode *child, IXMLDOMNode **outChild)
656 {
657     DOMNodeType type;
658     VARIANT var;
659     HRESULT hr;
660 
661     if (!child)
662         return E_INVALIDARG;
663 
664     hr = IXMLDOMNode_get_nodeType(child, &type);
665     if(FAILED(hr) || type == NODE_ATTRIBUTE) {
666         if (outChild) *outChild = NULL;
667         return E_FAIL;
668     }
669 
670     VariantInit(&var);
671     return IXMLDOMNode_insertBefore(This->iface, child, var, outChild);
672 }
673 
node_has_childnodes(const xmlnode * This,VARIANT_BOOL * ret)674 HRESULT node_has_childnodes(const xmlnode *This, VARIANT_BOOL *ret)
675 {
676     if (!ret) return E_INVALIDARG;
677 
678     if (!This->node->children)
679     {
680         *ret = VARIANT_FALSE;
681         return S_FALSE;
682     }
683 
684     *ret = VARIANT_TRUE;
685     return S_OK;
686 }
687 
node_get_owner_doc(const xmlnode * This,IXMLDOMDocument ** doc)688 HRESULT node_get_owner_doc(const xmlnode *This, IXMLDOMDocument **doc)
689 {
690     if(!doc)
691         return E_INVALIDARG;
692     return get_domdoc_from_xmldoc(This->node->doc, (IXMLDOMDocument3**)doc);
693 }
694 
node_clone(xmlnode * This,VARIANT_BOOL deep,IXMLDOMNode ** cloneNode)695 HRESULT node_clone(xmlnode *This, VARIANT_BOOL deep, IXMLDOMNode **cloneNode)
696 {
697     IXMLDOMNode *node;
698     xmlNodePtr clone;
699 
700     if(!cloneNode) return E_INVALIDARG;
701 
702     clone = xmlCopyNode(This->node, deep ? 1 : 2);
703     if (clone)
704     {
705         xmlSetTreeDoc(clone, This->node->doc);
706         xmldoc_add_orphan(clone->doc, clone);
707 
708         node = create_node(clone);
709         if (!node)
710         {
711             ERR("Copy failed\n");
712             xmldoc_remove_orphan(clone->doc, clone);
713             xmlFreeNode(clone);
714             return E_FAIL;
715         }
716 
717         *cloneNode = node;
718     }
719     else
720     {
721         ERR("Copy failed\n");
722         return E_FAIL;
723     }
724 
725     return S_OK;
726 }
727 
do_get_text(xmlNodePtr node,BOOL trim,DWORD * first,DWORD * last,BOOL * trail_ig_ws)728 static xmlChar* do_get_text(xmlNodePtr node, BOOL trim, DWORD *first, DWORD *last, BOOL *trail_ig_ws)
729 {
730     xmlNodePtr child;
731     xmlChar* str;
732     BOOL preserving = is_preserving_whitespace(node);
733 
734     *first = -1;
735     *last = 0;
736 
737     if (!node->children)
738     {
739         str = xmlNodeGetContent(node);
740         *trail_ig_ws = *(DWORD*)&node->_private & NODE_PRIV_CHILD_IGNORABLE_WS;
741     }
742     else
743     {
744         BOOL ig_ws = FALSE;
745         xmlChar* tmp;
746         DWORD pos = 0;
747         str = xmlStrdup(BAD_CAST "");
748 
749         if (node->type != XML_DOCUMENT_NODE)
750             ig_ws = *(DWORD*)&node->_private & NODE_PRIV_CHILD_IGNORABLE_WS;
751         *trail_ig_ws = FALSE;
752 
753         for (child = node->children; child != NULL; child = child->next)
754         {
755             switch (child->type)
756             {
757             case XML_ELEMENT_NODE: {
758                 DWORD node_first, node_last;
759 
760                 tmp = do_get_text(child, FALSE, &node_first, &node_last, trail_ig_ws);
761 
762                 if (node_first!=-1 && pos+node_first<*first)
763                     *first = pos+node_first;
764                 if (node_last && pos+node_last>*last)
765                     *last = pos+node_last;
766                 break;
767             }
768             case XML_TEXT_NODE:
769                 tmp = xmlNodeGetContent(child);
770                 if (!preserving && tmp[0])
771                 {
772                     xmlChar *beg;
773 
774                     for (beg = tmp; *beg; beg++)
775                         if (!isspace(*beg)) break;
776 
777                     if (!*beg)
778                     {
779                         ig_ws = TRUE;
780                         xmlFree(tmp);
781                         tmp = NULL;
782                     }
783                 }
784                 break;
785             case XML_CDATA_SECTION_NODE:
786             case XML_ENTITY_REF_NODE:
787             case XML_ENTITY_NODE:
788                 tmp = xmlNodeGetContent(child);
789                 break;
790             default:
791                 tmp = NULL;
792                 break;
793             }
794 
795             if ((tmp && *tmp) || child->type==XML_CDATA_SECTION_NODE)
796             {
797                 if (ig_ws && str[0])
798                 {
799                     str = xmlStrcat(str, BAD_CAST " ");
800                     pos++;
801                 }
802                 if (tmp && *tmp) str = xmlStrcat(str, tmp);
803                 if (child->type==XML_CDATA_SECTION_NODE && pos<*first)
804                     *first = pos;
805                 if (tmp && *tmp) pos += xmlStrlen(tmp);
806                 if (child->type==XML_CDATA_SECTION_NODE && pos>*last)
807                     *last = pos;
808                 ig_ws = FALSE;
809             }
810             if (tmp) xmlFree(tmp);
811 
812             if (!ig_ws)
813             {
814                 ig_ws = *(DWORD*)&child->_private & NODE_PRIV_TRAILING_IGNORABLE_WS;
815             }
816             if (!ig_ws)
817                 ig_ws = *trail_ig_ws;
818             *trail_ig_ws = FALSE;
819         }
820 
821         *trail_ig_ws = ig_ws;
822     }
823 
824     switch (node->type)
825     {
826     case XML_ELEMENT_NODE:
827     case XML_TEXT_NODE:
828     case XML_ENTITY_REF_NODE:
829     case XML_ENTITY_NODE:
830     case XML_DOCUMENT_NODE:
831     case XML_DOCUMENT_FRAG_NODE:
832         if (trim && !preserving)
833         {
834             xmlChar* ret;
835             int len;
836 
837             if (!str)
838                 break;
839 
840             for (ret = str; *ret && isspace(*ret) && (*first)--; ret++)
841                 if (*last) (*last)--;
842             for (len = xmlStrlen(ret)-1; len >= 0 && len >= *last; len--)
843                 if(!isspace(ret[len])) break;
844 
845             ret = xmlStrndup(ret, len+1);
846             xmlFree(str);
847             str = ret;
848             break;
849         }
850         break;
851     default:
852         break;
853     }
854 
855     return str;
856 }
857 
node_get_text(const xmlnode * This,BSTR * text)858 HRESULT node_get_text(const xmlnode *This, BSTR *text)
859 {
860     BSTR str = NULL;
861     xmlChar *content;
862     DWORD first, last;
863     BOOL tmp;
864 
865     if (!text) return E_INVALIDARG;
866 
867     content = do_get_text(This->node, TRUE, &first, &last, &tmp);
868     if (content)
869     {
870         str = bstr_from_xmlChar(content);
871         xmlFree(content);
872     }
873 
874     /* Always return a string. */
875     if (!str) str = SysAllocStringLen( NULL, 0 );
876 
877     TRACE("%p %s\n", This, debugstr_w(str) );
878     *text = str;
879 
880     return S_OK;
881 }
882 
node_put_text(xmlnode * This,BSTR text)883 HRESULT node_put_text(xmlnode *This, BSTR text)
884 {
885     xmlChar *str, *str2;
886 
887     TRACE("(%p)->(%s)\n", This, debugstr_w(text));
888 
889     str = xmlchar_from_wchar(text);
890 
891     /* Escape the string. */
892     str2 = xmlEncodeEntitiesReentrant(This->node->doc, str);
893     heap_free(str);
894 
895     xmlNodeSetContent(This->node, str2);
896     xmlFree(str2);
897 
898     return S_OK;
899 }
900 
EnsureCorrectEOL(BSTR sInput)901 BSTR EnsureCorrectEOL(BSTR sInput)
902 {
903     int nNum = 0;
904     BSTR sNew;
905     int nLen;
906     int i;
907 
908     nLen = SysStringLen(sInput);
909     /* Count line endings */
910     for(i=0; i < nLen; i++)
911     {
912         if(sInput[i] == '\n')
913             nNum++;
914     }
915 
916     TRACE("len=%d, num=%d\n", nLen, nNum);
917 
918     /* Add linefeed as needed */
919     if(nNum > 0)
920     {
921         int nPlace = 0;
922         sNew = SysAllocStringLen(NULL, nLen + nNum);
923         for(i=0; i < nLen; i++)
924         {
925             if(sInput[i] == '\n')
926             {
927                 sNew[i+nPlace] = '\r';
928                 nPlace++;
929             }
930             sNew[i+nPlace] = sInput[i];
931         }
932 
933         SysFreeString(sInput);
934     }
935     else
936     {
937         sNew = sInput;
938     }
939 
940     TRACE("len %d\n", SysStringLen(sNew));
941 
942     return sNew;
943 }
944 
945 /*
946  * We are trying to replicate the same behaviour as msxml by converting
947  * line endings to \r\n and using indents as \t. The problem is that msxml
948  * only formats nodes that have a line ending. Using libxml we cannot
949  * reproduce behaviour exactly.
950  *
951  */
node_get_xml(xmlnode * This,BOOL ensure_eol,BSTR * ret)952 HRESULT node_get_xml(xmlnode *This, BOOL ensure_eol, BSTR *ret)
953 {
954     xmlBufferPtr xml_buf;
955     xmlNodePtr xmldecl;
956     int size;
957 
958     if(!ret)
959         return E_INVALIDARG;
960 
961     *ret = NULL;
962 
963     xml_buf = xmlBufferCreate();
964     if(!xml_buf)
965         return E_OUTOFMEMORY;
966 
967     xmldecl = xmldoc_unlink_xmldecl( This->node->doc );
968 
969     size = xmlNodeDump(xml_buf, This->node->doc, This->node, 0, 1);
970     if(size > 0) {
971         const xmlChar *buf_content;
972         BSTR content;
973 
974         /* Attribute Nodes return a space in front of their name */
975         buf_content = xmlBufferContent(xml_buf);
976 
977         content = bstr_from_xmlChar(buf_content + (buf_content[0] == ' ' ? 1 : 0));
978         if(ensure_eol)
979             content = EnsureCorrectEOL(content);
980 
981         *ret = content;
982     }else {
983         *ret = SysAllocStringLen(NULL, 0);
984     }
985 
986     xmlBufferFree(xml_buf);
987     xmldoc_link_xmldecl( This->node->doc, xmldecl );
988     return *ret ? S_OK : E_OUTOFMEMORY;
989 }
990 
991 #ifdef SONAME_LIBXSLT
992 
993 /* duplicates xmlBufferWriteQuotedString() logic */
xml_write_quotedstring(xmlOutputBufferPtr buf,const xmlChar * string)994 static void xml_write_quotedstring(xmlOutputBufferPtr buf, const xmlChar *string)
995 {
996     const xmlChar *cur, *base;
997 
998     if (xmlStrchr(string, '\"'))
999     {
1000         if (xmlStrchr(string, '\''))
1001         {
1002             xmlOutputBufferWrite(buf, 1, "\"");
1003             base = cur = string;
1004 
1005             while (*cur)
1006             {
1007                 if (*cur == '"')
1008                 {
1009                     if (base != cur)
1010                         xmlOutputBufferWrite(buf, cur-base, (const char*)base);
1011                     xmlOutputBufferWrite(buf, 6, "&quot;");
1012                     cur++;
1013                     base = cur;
1014                 }
1015                 else
1016                     cur++;
1017             }
1018             if (base != cur)
1019                 xmlOutputBufferWrite(buf, cur-base, (const char*)base);
1020             xmlOutputBufferWrite(buf, 1, "\"");
1021         }
1022         else
1023         {
1024             xmlOutputBufferWrite(buf, 1, "\'");
1025             xmlOutputBufferWriteString(buf, (const char*)string);
1026             xmlOutputBufferWrite(buf, 1, "\'");
1027         }
1028     }
1029     else
1030     {
1031         xmlOutputBufferWrite(buf, 1, "\"");
1032         xmlOutputBufferWriteString(buf, (const char*)string);
1033         xmlOutputBufferWrite(buf, 1, "\"");
1034     }
1035 }
1036 
transform_to_stream_write(void * context,const char * buffer,int len)1037 static int XMLCALL transform_to_stream_write(void *context, const char *buffer, int len)
1038 {
1039     DWORD written;
1040     HRESULT hr = ISequentialStream_Write((ISequentialStream *)context, buffer, len, &written);
1041     return hr == S_OK ? written : -1;
1042 }
1043 
1044 /* Output for method "text" */
transform_write_text(xmlDocPtr result,xsltStylesheetPtr style,xmlOutputBufferPtr output)1045 static void transform_write_text(xmlDocPtr result, xsltStylesheetPtr style, xmlOutputBufferPtr output)
1046 {
1047     xmlNodePtr cur = result->children;
1048     while (cur)
1049     {
1050         if (cur->type == XML_TEXT_NODE)
1051             xmlOutputBufferWriteString(output, (const char*)cur->content);
1052 
1053         /* skip to next node */
1054         if (cur->children)
1055         {
1056             if ((cur->children->type != XML_ENTITY_DECL) &&
1057                 (cur->children->type != XML_ENTITY_REF_NODE) &&
1058                 (cur->children->type != XML_ENTITY_NODE))
1059             {
1060                 cur = cur->children;
1061                 continue;
1062             }
1063         }
1064 
1065         if (cur->next) {
1066             cur = cur->next;
1067             continue;
1068         }
1069 
1070         do
1071         {
1072             cur = cur->parent;
1073             if (cur == NULL)
1074                 break;
1075             if (cur == (xmlNodePtr) style->doc) {
1076                 cur = NULL;
1077                 break;
1078             }
1079             if (cur->next) {
1080                 cur = cur->next;
1081                 break;
1082             }
1083         } while (cur);
1084     }
1085 }
1086 
1087 #undef XSLT_GET_IMPORT_PTR
1088 #define XSLT_GET_IMPORT_PTR(res, style, name) {          \
1089     xsltStylesheetPtr st = style;                        \
1090     res = NULL;                                          \
1091     while (st != NULL) {                                 \
1092         if (st->name != NULL) { res = st->name; break; } \
1093         st = pxsltNextImport(st);                        \
1094     }}
1095 
1096 #undef XSLT_GET_IMPORT_INT
1097 #define XSLT_GET_IMPORT_INT(res, style, name) {         \
1098     xsltStylesheetPtr st = style;                       \
1099     res = -1;                                           \
1100     while (st != NULL) {                                \
1101         if (st->name != -1) { res = st->name; break; }  \
1102         st = pxsltNextImport(st);                       \
1103     }}
1104 
transform_write_xmldecl(xmlDocPtr result,xsltStylesheetPtr style,BOOL omit_encoding,xmlOutputBufferPtr output)1105 static void transform_write_xmldecl(xmlDocPtr result, xsltStylesheetPtr style, BOOL omit_encoding, xmlOutputBufferPtr output)
1106 {
1107     int omit_xmldecl, standalone;
1108 
1109     XSLT_GET_IMPORT_INT(omit_xmldecl, style, omitXmlDeclaration);
1110     if (omit_xmldecl == 1) return;
1111 
1112     XSLT_GET_IMPORT_INT(standalone, style, standalone);
1113 
1114     xmlOutputBufferWriteString(output, "<?xml version=");
1115     if (result->version)
1116     {
1117         xmlOutputBufferWriteString(output, "\"");
1118         xmlOutputBufferWriteString(output, (const char *)result->version);
1119         xmlOutputBufferWriteString(output, "\"");
1120     }
1121     else
1122         xmlOutputBufferWriteString(output, "\"1.0\"");
1123 
1124     if (!omit_encoding)
1125     {
1126         const xmlChar *encoding;
1127 
1128         /* default encoding is UTF-16 */
1129         XSLT_GET_IMPORT_PTR(encoding, style, encoding);
1130         xmlOutputBufferWriteString(output, " encoding=");
1131         xmlOutputBufferWriteString(output, "\"");
1132         xmlOutputBufferWriteString(output, encoding ? (const char *)encoding : "UTF-16");
1133         xmlOutputBufferWriteString(output, "\"");
1134     }
1135 
1136     /* standalone attribute */
1137     if (standalone != -1)
1138         xmlOutputBufferWriteString(output, standalone == 0 ? " standalone=\"no\"" : " standalone=\"yes\"");
1139 
1140     xmlOutputBufferWriteString(output, "?>");
1141 }
1142 
htmldtd_dumpcontent(xmlOutputBufferPtr buf,xmlDocPtr doc)1143 static void htmldtd_dumpcontent(xmlOutputBufferPtr buf, xmlDocPtr doc)
1144 {
1145     xmlDtdPtr cur = doc->intSubset;
1146 
1147     xmlOutputBufferWriteString(buf, "<!DOCTYPE ");
1148     xmlOutputBufferWriteString(buf, (const char *)cur->name);
1149     if (cur->ExternalID)
1150     {
1151         xmlOutputBufferWriteString(buf, " PUBLIC ");
1152         xml_write_quotedstring(buf, cur->ExternalID);
1153         if (cur->SystemID)
1154         {
1155             xmlOutputBufferWriteString(buf, " ");
1156             xml_write_quotedstring(buf, cur->SystemID);
1157         }
1158     }
1159     else if (cur->SystemID)
1160     {
1161         xmlOutputBufferWriteString(buf, " SYSTEM ");
1162         xml_write_quotedstring(buf, cur->SystemID);
1163     }
1164     xmlOutputBufferWriteString(buf, ">\n");
1165 }
1166 
1167 /* Duplicates htmlDocContentDumpFormatOutput() the way we need it - doesn't add trailing newline. */
htmldoc_dumpcontent(xmlOutputBufferPtr buf,xmlDocPtr doc,const char * encoding,int format)1168 static void htmldoc_dumpcontent(xmlOutputBufferPtr buf, xmlDocPtr doc, const char *encoding, int format)
1169 {
1170     xmlElementType type;
1171 
1172     /* force HTML output */
1173     type = doc->type;
1174     doc->type = XML_HTML_DOCUMENT_NODE;
1175     if (doc->intSubset)
1176         htmldtd_dumpcontent(buf, doc);
1177     if (doc->children) {
1178         xmlNodePtr cur = doc->children;
1179         while (cur) {
1180             htmlNodeDumpFormatOutput(buf, doc, cur, encoding, format);
1181             cur = cur->next;
1182         }
1183     }
1184     doc->type = type;
1185 }
1186 
transform_is_empty_resultdoc(xmlDocPtr result)1187 static inline BOOL transform_is_empty_resultdoc(xmlDocPtr result)
1188 {
1189     return !result->children || ((result->children->type == XML_DTD_NODE) && !result->children->next);
1190 }
1191 
transform_is_valid_method(xsltStylesheetPtr style)1192 static inline BOOL transform_is_valid_method(xsltStylesheetPtr style)
1193 {
1194     return !style->methodURI || !(style->method && xmlStrEqual(style->method, (const xmlChar *)"xhtml"));
1195 }
1196 
1197 /* Helper to write transformation result to specified output buffer. */
node_transform_write(xsltStylesheetPtr style,xmlDocPtr result,BOOL omit_encoding,const char * encoding,xmlOutputBufferPtr output)1198 static HRESULT node_transform_write(xsltStylesheetPtr style, xmlDocPtr result, BOOL omit_encoding, const char *encoding, xmlOutputBufferPtr output)
1199 {
1200     const xmlChar *method;
1201     int indent;
1202 
1203     if (!transform_is_valid_method(style))
1204     {
1205         ERR("unknown output method\n");
1206         return E_FAIL;
1207     }
1208 
1209     XSLT_GET_IMPORT_PTR(method, style, method)
1210     XSLT_GET_IMPORT_INT(indent, style, indent);
1211 
1212     if (!method && (result->type == XML_HTML_DOCUMENT_NODE))
1213         method = (const xmlChar *) "html";
1214 
1215     if (method && xmlStrEqual(method, (const xmlChar *)"html"))
1216     {
1217         htmlSetMetaEncoding(result, (const xmlChar *)encoding);
1218         if (indent == -1)
1219             indent = 1;
1220         htmldoc_dumpcontent(output, result, encoding, indent);
1221     }
1222     else if (method && xmlStrEqual(method, (const xmlChar *)"xhtml"))
1223     {
1224         htmlSetMetaEncoding(result, (const xmlChar *) encoding);
1225         htmlDocContentDumpOutput(output, result, encoding);
1226     }
1227     else if (method && xmlStrEqual(method, (const xmlChar *)"text"))
1228         transform_write_text(result, style, output);
1229     else
1230     {
1231         transform_write_xmldecl(result, style, omit_encoding, output);
1232 
1233         if (result->children)
1234         {
1235             xmlNodePtr child = result->children;
1236 
1237             while (child)
1238             {
1239                 xmlNodeDumpOutput(output, result, child, 0, indent == 1, encoding);
1240                 if (indent && ((child->type == XML_DTD_NODE) || ((child->type == XML_COMMENT_NODE) && child->next)))
1241                     xmlOutputBufferWriteString(output, "\r\n");
1242                 child = child->next;
1243             }
1244         }
1245     }
1246 
1247     xmlOutputBufferFlush(output);
1248     return S_OK;
1249 }
1250 
1251 /* For BSTR output is always UTF-16, without 'encoding' attribute */
node_transform_write_to_bstr(xsltStylesheetPtr style,xmlDocPtr result,BSTR * str)1252 static HRESULT node_transform_write_to_bstr(xsltStylesheetPtr style, xmlDocPtr result, BSTR *str)
1253 {
1254     HRESULT hr = S_OK;
1255 
1256     if (transform_is_empty_resultdoc(result))
1257         *str = SysAllocStringLen(NULL, 0);
1258     else
1259     {
1260         xmlOutputBufferPtr output = xmlAllocOutputBuffer(xmlFindCharEncodingHandler("UTF-16"));
1261         const xmlChar *content;
1262         size_t len;
1263 
1264         *str = NULL;
1265         if (!output)
1266             return E_OUTOFMEMORY;
1267 
1268         hr = node_transform_write(style, result, TRUE, "UTF-16", output);
1269 #ifdef LIBXML2_NEW_BUFFER
1270         content = xmlBufContent(output->conv);
1271         len = xmlBufUse(output->conv);
1272 #else
1273         content = xmlBufferContent(output->conv);
1274         len = xmlBufferLength(output->conv);
1275 #endif
1276         /* UTF-16 encoder places UTF-16 bom, we don't need it for BSTR */
1277         content += sizeof(WCHAR);
1278         *str = SysAllocStringLen((WCHAR*)content, len/sizeof(WCHAR) - 1);
1279         xmlOutputBufferClose(output);
1280     }
1281 
1282     return *str ? hr : E_OUTOFMEMORY;
1283 }
1284 
node_transform_write_to_stream(xsltStylesheetPtr style,xmlDocPtr result,ISequentialStream * stream)1285 static HRESULT node_transform_write_to_stream(xsltStylesheetPtr style, xmlDocPtr result, ISequentialStream *stream)
1286 {
1287     static const xmlChar *utf16 = (const xmlChar*)"UTF-16";
1288     xmlOutputBufferPtr output;
1289     const xmlChar *encoding;
1290     HRESULT hr;
1291 
1292     if (transform_is_empty_resultdoc(result))
1293     {
1294         WARN("empty result document\n");
1295         return S_OK;
1296     }
1297 
1298     if (style->methodURI && (!style->method || !xmlStrEqual(style->method, (const xmlChar *) "xhtml")))
1299     {
1300         ERR("unknown output method\n");
1301         return E_FAIL;
1302     }
1303 
1304     /* default encoding is UTF-16 */
1305     XSLT_GET_IMPORT_PTR(encoding, style, encoding);
1306     if (!encoding)
1307         encoding = utf16;
1308 
1309     output = xmlOutputBufferCreateIO(transform_to_stream_write, NULL, stream, xmlFindCharEncodingHandler((const char*)encoding));
1310     if (!output)
1311         return E_OUTOFMEMORY;
1312 
1313     hr = node_transform_write(style, result, FALSE, (const char*)encoding, output);
1314     xmlOutputBufferClose(output);
1315     return hr;
1316 }
1317 
1318 struct import_buffer
1319 {
1320     char *data;
1321     int cur;
1322     int len;
1323 };
1324 
import_loader_io_read(void * context,char * out,int len)1325 static int XMLCALL import_loader_io_read(void *context, char *out, int len)
1326 {
1327     struct import_buffer *buffer = (struct import_buffer *)context;
1328 
1329     TRACE("%p, %p, %d\n", context, out, len);
1330 
1331     if (buffer->cur == buffer->len)
1332         return 0;
1333 
1334     len = min(len, buffer->len - buffer->cur);
1335     memcpy(out, &buffer->data[buffer->cur], len);
1336     buffer->cur += len;
1337 
1338     TRACE("read %d\n", len);
1339 
1340     return len;
1341 }
1342 
import_loader_io_close(void * context)1343 static int XMLCALL import_loader_io_close(void * context)
1344 {
1345     struct import_buffer *buffer = (struct import_buffer *)context;
1346 
1347     TRACE("%p\n", context);
1348 
1349     heap_free(buffer->data);
1350     heap_free(buffer);
1351     return 0;
1352 }
1353 
import_loader_onDataAvailable(void * ctxt,char * ptr,DWORD len)1354 static HRESULT import_loader_onDataAvailable(void *ctxt, char *ptr, DWORD len)
1355 {
1356     xmlParserInputPtr *input = (xmlParserInputPtr *)ctxt;
1357     xmlParserInputBufferPtr inputbuffer;
1358     struct import_buffer *buffer;
1359 
1360     buffer = heap_alloc(sizeof(*buffer));
1361 
1362     buffer->data = heap_alloc(len);
1363     memcpy(buffer->data, ptr, len);
1364     buffer->cur = 0;
1365     buffer->len = len;
1366 
1367     inputbuffer = xmlParserInputBufferCreateIO(import_loader_io_read, import_loader_io_close, buffer,
1368             XML_CHAR_ENCODING_NONE);
1369     *input = xmlNewIOInputStream(ctxt, inputbuffer, XML_CHAR_ENCODING_NONE);
1370     if (!*input)
1371         xmlFreeParserInputBuffer(inputbuffer);
1372 
1373     return *input ? S_OK : E_FAIL;
1374 }
1375 
xslt_doc_get_uri(const xmlChar * uri,void * _ctxt,xsltLoadType type,IUri ** doc_uri)1376 static HRESULT xslt_doc_get_uri(const xmlChar *uri, void *_ctxt, xsltLoadType type, IUri **doc_uri)
1377 {
1378     xsltStylesheetPtr style = (xsltStylesheetPtr)_ctxt;
1379     IUri *href_uri;
1380     HRESULT hr;
1381     BSTR uriW;
1382 
1383     *doc_uri = NULL;
1384 
1385     uriW = bstr_from_xmlChar(uri);
1386     hr = CreateUri(uriW, Uri_CREATE_ALLOW_RELATIVE | Uri_CREATE_ALLOW_IMPLICIT_FILE_SCHEME, 0, &href_uri);
1387     SysFreeString(uriW);
1388     if (FAILED(hr))
1389     {
1390         WARN("Failed to create href uri, %#x.\n", hr);
1391         return hr;
1392     }
1393 
1394     if (type == XSLT_LOAD_STYLESHEET && style->doc && style->doc->name)
1395     {
1396         IUri *base_uri;
1397         BSTR baseuriW;
1398 
1399         baseuriW = bstr_from_xmlChar((xmlChar *)style->doc->name);
1400         hr = CreateUri(baseuriW, Uri_CREATE_ALLOW_IMPLICIT_FILE_SCHEME, 0, &base_uri);
1401         SysFreeString(baseuriW);
1402         if (FAILED(hr))
1403         {
1404             WARN("Failed to create base uri, %#x.\n", hr);
1405             return hr;
1406         }
1407 
1408         hr = CoInternetCombineIUri(base_uri, href_uri, 0, doc_uri, 0);
1409         IUri_Release(base_uri);
1410         if (FAILED(hr))
1411             WARN("Failed to combine uris, %#x.\n", hr);
1412     }
1413     else
1414     {
1415         *doc_uri = href_uri;
1416         IUri_AddRef(*doc_uri);
1417     }
1418 
1419     IUri_Release(href_uri);
1420 
1421     return hr;
1422 }
1423 
xslt_doc_default_loader(const xmlChar * uri,xmlDictPtr dict,int options,void * _ctxt,xsltLoadType type)1424 xmlDocPtr xslt_doc_default_loader(const xmlChar *uri, xmlDictPtr dict, int options,
1425     void *_ctxt, xsltLoadType type)
1426 {
1427     IUri *import_uri = NULL;
1428     xmlParserInputPtr input;
1429     xmlParserCtxtPtr pctxt;
1430     xmlDocPtr doc = NULL;
1431     IMoniker *moniker;
1432     HRESULT hr;
1433     bsc_t *bsc;
1434     BSTR uriW;
1435 
1436     TRACE("%s, %p, %#x, %p, %d\n", debugstr_a((const char *)uri), dict, options, _ctxt, type);
1437 
1438     pctxt = xmlNewParserCtxt();
1439     if (!pctxt)
1440         return NULL;
1441 
1442     if (dict && pctxt->dict)
1443     {
1444         xmlDictFree(pctxt->dict);
1445         pctxt->dict = NULL;
1446     }
1447 
1448     if (dict)
1449     {
1450         pctxt->dict = dict;
1451         xmlDictReference(pctxt->dict);
1452     }
1453 
1454     xmlCtxtUseOptions(pctxt, options);
1455 
1456     hr = xslt_doc_get_uri(uri, _ctxt, type, &import_uri);
1457     if (FAILED(hr))
1458         goto failed;
1459 
1460     hr = CreateURLMonikerEx2(NULL, import_uri, &moniker, 0);
1461     if (FAILED(hr))
1462         goto failed;
1463 
1464     hr = bind_url(moniker, import_loader_onDataAvailable, &input, &bsc);
1465     IMoniker_Release(moniker);
1466     if (FAILED(hr))
1467         goto failed;
1468 
1469     if (FAILED(detach_bsc(bsc)))
1470         goto failed;
1471 
1472     if (!input)
1473         goto failed;
1474 
1475     inputPush(pctxt, input);
1476     xmlParseDocument(pctxt);
1477 
1478     if (pctxt->wellFormed)
1479     {
1480         doc = pctxt->myDoc;
1481         /* Set imported uri, to give nested imports a chance. */
1482         if (IUri_GetPropertyBSTR(import_uri, Uri_PROPERTY_ABSOLUTE_URI, &uriW, 0) == S_OK)
1483         {
1484             doc->name = (char *)xmlchar_from_wcharn(uriW, SysStringLen(uriW), TRUE);
1485             SysFreeString(uriW);
1486         }
1487     }
1488     else
1489     {
1490         doc = NULL;
1491         xmlFreeDoc(pctxt->myDoc);
1492         pctxt->myDoc = NULL;
1493     }
1494 
1495 failed:
1496     xmlFreeParserCtxt(pctxt);
1497     if (import_uri)
1498         IUri_Release(import_uri);
1499 
1500     return doc;
1501 }
1502 
1503 #endif /* SONAME_LIBXSLT */
1504 
node_transform_node_params(const xmlnode * This,IXMLDOMNode * stylesheet,BSTR * p,ISequentialStream * stream,const struct xslprocessor_params * params)1505 HRESULT node_transform_node_params(const xmlnode *This, IXMLDOMNode *stylesheet, BSTR *p,
1506     ISequentialStream *stream, const struct xslprocessor_params *params)
1507 {
1508 #ifdef SONAME_LIBXSLT
1509     xsltStylesheetPtr xsltSS;
1510     xmlDocPtr sheet_doc;
1511     HRESULT hr = S_OK;
1512     xmlnode *sheet;
1513 
1514     if (!libxslt_handle) return E_NOTIMPL;
1515     if (!stylesheet || !p) return E_INVALIDARG;
1516 
1517     *p = NULL;
1518 
1519     sheet = get_node_obj(stylesheet);
1520     if(!sheet) return E_FAIL;
1521 
1522     sheet_doc = xmlCopyDoc(sheet->node->doc, 1);
1523     xsltSS = pxsltParseStylesheetDoc(sheet_doc);
1524     if (xsltSS)
1525     {
1526         const char **xslparams = NULL;
1527         xmlDocPtr result;
1528         unsigned int i;
1529 
1530         /* convert our parameter list to libxml2 format */
1531         if (params && params->count)
1532         {
1533             struct xslprocessor_par *par;
1534 
1535             i = 0;
1536             xslparams = heap_alloc((params->count*2 + 1)*sizeof(char*));
1537             LIST_FOR_EACH_ENTRY(par, &params->list, struct xslprocessor_par, entry)
1538             {
1539                 xslparams[i++] = (char*)xmlchar_from_wchar(par->name);
1540                 xslparams[i++] = (char*)xmlchar_from_wchar(par->value);
1541             }
1542             xslparams[i] = NULL;
1543         }
1544 
1545         if (xslparams)
1546         {
1547             xsltTransformContextPtr ctxt = pxsltNewTransformContext(xsltSS, This->node->doc);
1548 
1549             /* push parameters to user context */
1550             pxsltQuoteUserParams(ctxt, xslparams);
1551             result = pxsltApplyStylesheetUser(xsltSS, This->node->doc, NULL, NULL, NULL, ctxt);
1552             pxsltFreeTransformContext(ctxt);
1553 
1554             for (i = 0; i < params->count*2; i++)
1555                 heap_free((char*)xslparams[i]);
1556             heap_free(xslparams);
1557         }
1558         else
1559             result = pxsltApplyStylesheet(xsltSS, This->node->doc, NULL);
1560 
1561         if (result)
1562         {
1563             if (stream)
1564                 hr = node_transform_write_to_stream(xsltSS, result, stream);
1565             else
1566                 hr = node_transform_write_to_bstr(xsltSS, result, p);
1567             xmlFreeDoc(result);
1568         }
1569 
1570         pxsltFreeStylesheet(xsltSS);
1571     }
1572     else
1573         xmlFreeDoc(sheet_doc);
1574 
1575     if(!*p) *p = SysAllocStringLen(NULL, 0);
1576 
1577     return hr;
1578 #else
1579     ERR_(winediag)("libxslt headers were not found at compile time. Expect problems.\n");
1580 
1581     return E_NOTIMPL;
1582 #endif
1583 }
1584 
node_transform_node(const xmlnode * node,IXMLDOMNode * stylesheet,BSTR * p)1585 HRESULT node_transform_node(const xmlnode *node, IXMLDOMNode *stylesheet, BSTR *p)
1586 {
1587     return node_transform_node_params(node, stylesheet, p, NULL, NULL);
1588 }
1589 
node_select_nodes(const xmlnode * This,BSTR query,IXMLDOMNodeList ** nodes)1590 HRESULT node_select_nodes(const xmlnode *This, BSTR query, IXMLDOMNodeList **nodes)
1591 {
1592     xmlChar* str;
1593     HRESULT hr;
1594 
1595     if (!query || !nodes) return E_INVALIDARG;
1596 
1597     str = xmlchar_from_wchar(query);
1598     hr = create_selection(This->node, str, nodes);
1599     heap_free(str);
1600 
1601     return hr;
1602 }
1603 
node_select_singlenode(const xmlnode * This,BSTR query,IXMLDOMNode ** node)1604 HRESULT node_select_singlenode(const xmlnode *This, BSTR query, IXMLDOMNode **node)
1605 {
1606     IXMLDOMNodeList *list;
1607     HRESULT hr;
1608 
1609     hr = node_select_nodes(This, query, &list);
1610     if (hr == S_OK)
1611     {
1612         hr = IXMLDOMNodeList_nextNode(list, node);
1613         IXMLDOMNodeList_Release(list);
1614     }
1615     return hr;
1616 }
1617 
node_get_namespaceURI(xmlnode * This,BSTR * namespaceURI)1618 HRESULT node_get_namespaceURI(xmlnode *This, BSTR *namespaceURI)
1619 {
1620     xmlNsPtr ns = This->node->ns;
1621 
1622     if(!namespaceURI)
1623         return E_INVALIDARG;
1624 
1625     *namespaceURI = NULL;
1626 
1627     if (ns && ns->href)
1628         *namespaceURI = bstr_from_xmlChar(ns->href);
1629 
1630     TRACE("uri: %s\n", debugstr_w(*namespaceURI));
1631 
1632     return *namespaceURI ? S_OK : S_FALSE;
1633 }
1634 
node_get_prefix(xmlnode * This,BSTR * prefix)1635 HRESULT node_get_prefix(xmlnode *This, BSTR *prefix)
1636 {
1637     xmlNsPtr ns = This->node->ns;
1638 
1639     if (!prefix) return E_INVALIDARG;
1640 
1641     *prefix = NULL;
1642 
1643     if (ns && ns->prefix)
1644         *prefix = bstr_from_xmlChar(ns->prefix);
1645 
1646     TRACE("prefix: %s\n", debugstr_w(*prefix));
1647 
1648     return *prefix ? S_OK : S_FALSE;
1649 }
1650 
node_get_base_name(xmlnode * This,BSTR * name)1651 HRESULT node_get_base_name(xmlnode *This, BSTR *name)
1652 {
1653     if (!name) return E_INVALIDARG;
1654 
1655     *name = bstr_from_xmlChar(This->node->name);
1656     if (!*name) return E_OUTOFMEMORY;
1657 
1658     TRACE("returning %s\n", debugstr_w(*name));
1659 
1660     return S_OK;
1661 }
1662 
destroy_xmlnode(xmlnode * This)1663 void destroy_xmlnode(xmlnode *This)
1664 {
1665     if(This->node)
1666     {
1667         xmlnode_release(This->node);
1668         xmldoc_release(This->node->doc);
1669     }
1670 }
1671 
init_xmlnode(xmlnode * This,xmlNodePtr node,IXMLDOMNode * node_iface,dispex_static_data_t * dispex_data)1672 void init_xmlnode(xmlnode *This, xmlNodePtr node, IXMLDOMNode *node_iface, dispex_static_data_t *dispex_data)
1673 {
1674     if(node)
1675     {
1676         xmlnode_add_ref(node);
1677         xmldoc_add_ref(node->doc);
1678     }
1679 
1680     This->node = node;
1681     This->iface = node_iface;
1682     This->parent = NULL;
1683 
1684     init_dispex(&This->dispex, (IUnknown*)This->iface, dispex_data);
1685 }
1686 
1687 typedef struct {
1688     xmlnode node;
1689     IXMLDOMNode IXMLDOMNode_iface;
1690     LONG ref;
1691 } unknode;
1692 
unknode_from_IXMLDOMNode(IXMLDOMNode * iface)1693 static inline unknode *unknode_from_IXMLDOMNode(IXMLDOMNode *iface)
1694 {
1695     return CONTAINING_RECORD(iface, unknode, IXMLDOMNode_iface);
1696 }
1697 
unknode_QueryInterface(IXMLDOMNode * iface,REFIID riid,void ** ppvObject)1698 static HRESULT WINAPI unknode_QueryInterface(
1699     IXMLDOMNode *iface,
1700     REFIID riid,
1701     void** ppvObject )
1702 {
1703     unknode *This = unknode_from_IXMLDOMNode( iface );
1704 
1705     TRACE("(%p)->(%s %p)\n", This, debugstr_guid(riid), ppvObject);
1706 
1707     if (IsEqualGUID(riid, &IID_IUnknown)) {
1708         *ppvObject = iface;
1709     }else if (IsEqualGUID( riid, &IID_IDispatch) ||
1710               IsEqualGUID( riid, &IID_IXMLDOMNode)) {
1711         *ppvObject = &This->IXMLDOMNode_iface;
1712     }else if(node_query_interface(&This->node, riid, ppvObject)) {
1713         return *ppvObject ? S_OK : E_NOINTERFACE;
1714     }else  {
1715         FIXME("interface %s not implemented\n", debugstr_guid(riid));
1716         *ppvObject = NULL;
1717         return E_NOINTERFACE;
1718     }
1719 
1720     IUnknown_AddRef((IUnknown*)*ppvObject);
1721     return S_OK;
1722 }
1723 
unknode_AddRef(IXMLDOMNode * iface)1724 static ULONG WINAPI unknode_AddRef(
1725     IXMLDOMNode *iface )
1726 {
1727     unknode *This = unknode_from_IXMLDOMNode( iface );
1728 
1729     return InterlockedIncrement(&This->ref);
1730 }
1731 
unknode_Release(IXMLDOMNode * iface)1732 static ULONG WINAPI unknode_Release(
1733     IXMLDOMNode *iface )
1734 {
1735     unknode *This = unknode_from_IXMLDOMNode( iface );
1736     LONG ref;
1737 
1738     ref = InterlockedDecrement( &This->ref );
1739     if(!ref) {
1740         destroy_xmlnode(&This->node);
1741         heap_free(This);
1742     }
1743 
1744     return ref;
1745 }
1746 
unknode_GetTypeInfoCount(IXMLDOMNode * iface,UINT * pctinfo)1747 static HRESULT WINAPI unknode_GetTypeInfoCount(
1748     IXMLDOMNode *iface,
1749     UINT* pctinfo )
1750 {
1751     unknode *This = unknode_from_IXMLDOMNode( iface );
1752 
1753     TRACE("(%p)->(%p)\n", This, pctinfo);
1754 
1755     *pctinfo = 1;
1756 
1757     return S_OK;
1758 }
1759 
unknode_GetTypeInfo(IXMLDOMNode * iface,UINT iTInfo,LCID lcid,ITypeInfo ** ppTInfo)1760 static HRESULT WINAPI unknode_GetTypeInfo(
1761     IXMLDOMNode *iface,
1762     UINT iTInfo,
1763     LCID lcid,
1764     ITypeInfo** ppTInfo )
1765 {
1766     unknode *This = unknode_from_IXMLDOMNode( iface );
1767     HRESULT hr;
1768 
1769     TRACE("(%p)->(%u %u %p)\n", This, iTInfo, lcid, ppTInfo);
1770 
1771     hr = get_typeinfo(IXMLDOMNode_tid, ppTInfo);
1772 
1773     return hr;
1774 }
1775 
unknode_GetIDsOfNames(IXMLDOMNode * iface,REFIID riid,LPOLESTR * rgszNames,UINT cNames,LCID lcid,DISPID * rgDispId)1776 static HRESULT WINAPI unknode_GetIDsOfNames(
1777     IXMLDOMNode *iface,
1778     REFIID riid,
1779     LPOLESTR* rgszNames,
1780     UINT cNames,
1781     LCID lcid,
1782     DISPID* rgDispId )
1783 {
1784     unknode *This = unknode_from_IXMLDOMNode( iface );
1785 
1786     ITypeInfo *typeinfo;
1787     HRESULT hr;
1788 
1789     TRACE("(%p)->(%s %p %u %u %p)\n", This, debugstr_guid(riid), rgszNames, cNames,
1790           lcid, rgDispId);
1791 
1792     if(!rgszNames || cNames == 0 || !rgDispId)
1793         return E_INVALIDARG;
1794 
1795     hr = get_typeinfo(IXMLDOMNode_tid, &typeinfo);
1796     if(SUCCEEDED(hr))
1797     {
1798         hr = ITypeInfo_GetIDsOfNames(typeinfo, rgszNames, cNames, rgDispId);
1799         ITypeInfo_Release(typeinfo);
1800     }
1801 
1802     return hr;
1803 }
1804 
unknode_Invoke(IXMLDOMNode * iface,DISPID dispIdMember,REFIID riid,LCID lcid,WORD wFlags,DISPPARAMS * pDispParams,VARIANT * pVarResult,EXCEPINFO * pExcepInfo,UINT * puArgErr)1805 static HRESULT WINAPI unknode_Invoke(
1806     IXMLDOMNode *iface,
1807     DISPID dispIdMember,
1808     REFIID riid,
1809     LCID lcid,
1810     WORD wFlags,
1811     DISPPARAMS* pDispParams,
1812     VARIANT* pVarResult,
1813     EXCEPINFO* pExcepInfo,
1814     UINT* puArgErr )
1815 {
1816     unknode *This = unknode_from_IXMLDOMNode( iface );
1817     ITypeInfo *typeinfo;
1818     HRESULT hr;
1819 
1820     TRACE("(%p)->(%d %s %d %d %p %p %p %p)\n", This, dispIdMember, debugstr_guid(riid),
1821           lcid, wFlags, pDispParams, pVarResult, pExcepInfo, puArgErr);
1822 
1823     hr = get_typeinfo(IXMLDOMNode_tid, &typeinfo);
1824     if(SUCCEEDED(hr))
1825     {
1826         hr = ITypeInfo_Invoke(typeinfo, &This->IXMLDOMNode_iface, dispIdMember, wFlags, pDispParams,
1827                 pVarResult, pExcepInfo, puArgErr);
1828         ITypeInfo_Release(typeinfo);
1829     }
1830 
1831     return hr;
1832 }
1833 
unknode_get_nodeName(IXMLDOMNode * iface,BSTR * p)1834 static HRESULT WINAPI unknode_get_nodeName(
1835     IXMLDOMNode *iface,
1836     BSTR* p )
1837 {
1838     unknode *This = unknode_from_IXMLDOMNode( iface );
1839 
1840     FIXME("(%p)->(%p)\n", This, p);
1841 
1842     return node_get_nodeName(&This->node, p);
1843 }
1844 
unknode_get_nodeValue(IXMLDOMNode * iface,VARIANT * value)1845 static HRESULT WINAPI unknode_get_nodeValue(
1846     IXMLDOMNode *iface,
1847     VARIANT* value)
1848 {
1849     unknode *This = unknode_from_IXMLDOMNode( iface );
1850 
1851     FIXME("(%p)->(%p)\n", This, value);
1852 
1853     if(!value)
1854         return E_INVALIDARG;
1855 
1856     V_VT(value) = VT_NULL;
1857     return S_FALSE;
1858 }
1859 
unknode_put_nodeValue(IXMLDOMNode * iface,VARIANT value)1860 static HRESULT WINAPI unknode_put_nodeValue(
1861     IXMLDOMNode *iface,
1862     VARIANT value)
1863 {
1864     unknode *This = unknode_from_IXMLDOMNode( iface );
1865     FIXME("(%p)->(v%d)\n", This, V_VT(&value));
1866     return E_FAIL;
1867 }
1868 
unknode_get_nodeType(IXMLDOMNode * iface,DOMNodeType * domNodeType)1869 static HRESULT WINAPI unknode_get_nodeType(
1870     IXMLDOMNode *iface,
1871     DOMNodeType* domNodeType )
1872 {
1873     unknode *This = unknode_from_IXMLDOMNode( iface );
1874 
1875     FIXME("(%p)->(%p)\n", This, domNodeType);
1876 
1877     switch (This->node.node->type)
1878     {
1879     case XML_ELEMENT_NODE:
1880     case XML_ATTRIBUTE_NODE:
1881     case XML_TEXT_NODE:
1882     case XML_CDATA_SECTION_NODE:
1883     case XML_ENTITY_REF_NODE:
1884     case XML_ENTITY_NODE:
1885     case XML_PI_NODE:
1886     case XML_COMMENT_NODE:
1887     case XML_DOCUMENT_NODE:
1888     case XML_DOCUMENT_TYPE_NODE:
1889     case XML_DOCUMENT_FRAG_NODE:
1890     case XML_NOTATION_NODE:
1891         /* we only care about this set of types, libxml2 type values are
1892            exactly what we need */
1893         *domNodeType = (DOMNodeType)This->node.node->type;
1894         break;
1895     default:
1896         *domNodeType = NODE_INVALID;
1897         break;
1898     }
1899 
1900     return S_OK;
1901 }
1902 
unknode_get_parentNode(IXMLDOMNode * iface,IXMLDOMNode ** parent)1903 static HRESULT WINAPI unknode_get_parentNode(
1904     IXMLDOMNode *iface,
1905     IXMLDOMNode** parent )
1906 {
1907     unknode *This = unknode_from_IXMLDOMNode( iface );
1908     FIXME("(%p)->(%p)\n", This, parent);
1909     if (!parent) return E_INVALIDARG;
1910     *parent = NULL;
1911     return S_FALSE;
1912 }
1913 
unknode_get_childNodes(IXMLDOMNode * iface,IXMLDOMNodeList ** outList)1914 static HRESULT WINAPI unknode_get_childNodes(
1915     IXMLDOMNode *iface,
1916     IXMLDOMNodeList** outList)
1917 {
1918     unknode *This = unknode_from_IXMLDOMNode( iface );
1919 
1920     TRACE("(%p)->(%p)\n", This, outList);
1921 
1922     return node_get_child_nodes(&This->node, outList);
1923 }
1924 
unknode_get_firstChild(IXMLDOMNode * iface,IXMLDOMNode ** domNode)1925 static HRESULT WINAPI unknode_get_firstChild(
1926     IXMLDOMNode *iface,
1927     IXMLDOMNode** domNode)
1928 {
1929     unknode *This = unknode_from_IXMLDOMNode( iface );
1930 
1931     TRACE("(%p)->(%p)\n", This, domNode);
1932 
1933     return node_get_first_child(&This->node, domNode);
1934 }
1935 
unknode_get_lastChild(IXMLDOMNode * iface,IXMLDOMNode ** domNode)1936 static HRESULT WINAPI unknode_get_lastChild(
1937     IXMLDOMNode *iface,
1938     IXMLDOMNode** domNode)
1939 {
1940     unknode *This = unknode_from_IXMLDOMNode( iface );
1941 
1942     TRACE("(%p)->(%p)\n", This, domNode);
1943 
1944     return node_get_last_child(&This->node, domNode);
1945 }
1946 
unknode_get_previousSibling(IXMLDOMNode * iface,IXMLDOMNode ** domNode)1947 static HRESULT WINAPI unknode_get_previousSibling(
1948     IXMLDOMNode *iface,
1949     IXMLDOMNode** domNode)
1950 {
1951     unknode *This = unknode_from_IXMLDOMNode( iface );
1952 
1953     TRACE("(%p)->(%p)\n", This, domNode);
1954 
1955     return node_get_previous_sibling(&This->node, domNode);
1956 }
1957 
unknode_get_nextSibling(IXMLDOMNode * iface,IXMLDOMNode ** domNode)1958 static HRESULT WINAPI unknode_get_nextSibling(
1959     IXMLDOMNode *iface,
1960     IXMLDOMNode** domNode)
1961 {
1962     unknode *This = unknode_from_IXMLDOMNode( iface );
1963 
1964     TRACE("(%p)->(%p)\n", This, domNode);
1965 
1966     return node_get_next_sibling(&This->node, domNode);
1967 }
1968 
unknode_get_attributes(IXMLDOMNode * iface,IXMLDOMNamedNodeMap ** attributeMap)1969 static HRESULT WINAPI unknode_get_attributes(
1970     IXMLDOMNode *iface,
1971     IXMLDOMNamedNodeMap** attributeMap)
1972 {
1973     unknode *This = unknode_from_IXMLDOMNode( iface );
1974 
1975     FIXME("(%p)->(%p)\n", This, attributeMap);
1976 
1977     return return_null_ptr((void**)attributeMap);
1978 }
1979 
unknode_insertBefore(IXMLDOMNode * iface,IXMLDOMNode * newNode,VARIANT refChild,IXMLDOMNode ** outOldNode)1980 static HRESULT WINAPI unknode_insertBefore(
1981     IXMLDOMNode *iface,
1982     IXMLDOMNode* newNode, VARIANT refChild,
1983     IXMLDOMNode** outOldNode)
1984 {
1985     unknode *This = unknode_from_IXMLDOMNode( iface );
1986 
1987     FIXME("(%p)->(%p x%d %p)\n", This, newNode, V_VT(&refChild), outOldNode);
1988 
1989     return node_insert_before(&This->node, newNode, &refChild, outOldNode);
1990 }
1991 
unknode_replaceChild(IXMLDOMNode * iface,IXMLDOMNode * newNode,IXMLDOMNode * oldNode,IXMLDOMNode ** outOldNode)1992 static HRESULT WINAPI unknode_replaceChild(
1993     IXMLDOMNode *iface,
1994     IXMLDOMNode* newNode,
1995     IXMLDOMNode* oldNode,
1996     IXMLDOMNode** outOldNode)
1997 {
1998     unknode *This = unknode_from_IXMLDOMNode( iface );
1999 
2000     FIXME("(%p)->(%p %p %p)\n", This, newNode, oldNode, outOldNode);
2001 
2002     return node_replace_child(&This->node, newNode, oldNode, outOldNode);
2003 }
2004 
unknode_removeChild(IXMLDOMNode * iface,IXMLDOMNode * domNode,IXMLDOMNode ** oldNode)2005 static HRESULT WINAPI unknode_removeChild(
2006     IXMLDOMNode *iface,
2007     IXMLDOMNode* domNode, IXMLDOMNode** oldNode)
2008 {
2009     unknode *This = unknode_from_IXMLDOMNode( iface );
2010     return node_remove_child(&This->node, domNode, oldNode);
2011 }
2012 
unknode_appendChild(IXMLDOMNode * iface,IXMLDOMNode * newNode,IXMLDOMNode ** outNewNode)2013 static HRESULT WINAPI unknode_appendChild(
2014     IXMLDOMNode *iface,
2015     IXMLDOMNode* newNode, IXMLDOMNode** outNewNode)
2016 {
2017     unknode *This = unknode_from_IXMLDOMNode( iface );
2018     return node_append_child(&This->node, newNode, outNewNode);
2019 }
2020 
unknode_hasChildNodes(IXMLDOMNode * iface,VARIANT_BOOL * pbool)2021 static HRESULT WINAPI unknode_hasChildNodes(
2022     IXMLDOMNode *iface,
2023     VARIANT_BOOL* pbool)
2024 {
2025     unknode *This = unknode_from_IXMLDOMNode( iface );
2026     return node_has_childnodes(&This->node, pbool);
2027 }
2028 
unknode_get_ownerDocument(IXMLDOMNode * iface,IXMLDOMDocument ** domDocument)2029 static HRESULT WINAPI unknode_get_ownerDocument(
2030     IXMLDOMNode *iface,
2031     IXMLDOMDocument** domDocument)
2032 {
2033     unknode *This = unknode_from_IXMLDOMNode( iface );
2034     return node_get_owner_doc(&This->node, domDocument);
2035 }
2036 
unknode_cloneNode(IXMLDOMNode * iface,VARIANT_BOOL pbool,IXMLDOMNode ** outNode)2037 static HRESULT WINAPI unknode_cloneNode(
2038     IXMLDOMNode *iface,
2039     VARIANT_BOOL pbool, IXMLDOMNode** outNode)
2040 {
2041     unknode *This = unknode_from_IXMLDOMNode( iface );
2042     return node_clone(&This->node, pbool, outNode );
2043 }
2044 
unknode_get_nodeTypeString(IXMLDOMNode * iface,BSTR * p)2045 static HRESULT WINAPI unknode_get_nodeTypeString(
2046     IXMLDOMNode *iface,
2047     BSTR* p)
2048 {
2049     unknode *This = unknode_from_IXMLDOMNode( iface );
2050 
2051     FIXME("(%p)->(%p)\n", This, p);
2052 
2053     return node_get_nodeName(&This->node, p);
2054 }
2055 
unknode_get_text(IXMLDOMNode * iface,BSTR * p)2056 static HRESULT WINAPI unknode_get_text(
2057     IXMLDOMNode *iface,
2058     BSTR* p)
2059 {
2060     unknode *This = unknode_from_IXMLDOMNode( iface );
2061     return node_get_text(&This->node, p);
2062 }
2063 
unknode_put_text(IXMLDOMNode * iface,BSTR p)2064 static HRESULT WINAPI unknode_put_text(
2065     IXMLDOMNode *iface,
2066     BSTR p)
2067 {
2068     unknode *This = unknode_from_IXMLDOMNode( iface );
2069     return node_put_text(&This->node, p);
2070 }
2071 
unknode_get_specified(IXMLDOMNode * iface,VARIANT_BOOL * isSpecified)2072 static HRESULT WINAPI unknode_get_specified(
2073     IXMLDOMNode *iface,
2074     VARIANT_BOOL* isSpecified)
2075 {
2076     unknode *This = unknode_from_IXMLDOMNode( iface );
2077     FIXME("(%p)->(%p) stub!\n", This, isSpecified);
2078     *isSpecified = VARIANT_TRUE;
2079     return S_OK;
2080 }
2081 
unknode_get_definition(IXMLDOMNode * iface,IXMLDOMNode ** definitionNode)2082 static HRESULT WINAPI unknode_get_definition(
2083     IXMLDOMNode *iface,
2084     IXMLDOMNode** definitionNode)
2085 {
2086     unknode *This = unknode_from_IXMLDOMNode( iface );
2087     FIXME("(%p)->(%p)\n", This, definitionNode);
2088     return E_NOTIMPL;
2089 }
2090 
unknode_get_nodeTypedValue(IXMLDOMNode * iface,VARIANT * var1)2091 static HRESULT WINAPI unknode_get_nodeTypedValue(
2092     IXMLDOMNode *iface,
2093     VARIANT* var1)
2094 {
2095     unknode *This = unknode_from_IXMLDOMNode( iface );
2096     FIXME("(%p)->(%p)\n", This, var1);
2097     return return_null_var(var1);
2098 }
2099 
unknode_put_nodeTypedValue(IXMLDOMNode * iface,VARIANT typedValue)2100 static HRESULT WINAPI unknode_put_nodeTypedValue(
2101     IXMLDOMNode *iface,
2102     VARIANT typedValue)
2103 {
2104     unknode *This = unknode_from_IXMLDOMNode( iface );
2105     FIXME("(%p)->(%s)\n", This, debugstr_variant(&typedValue));
2106     return E_NOTIMPL;
2107 }
2108 
unknode_get_dataType(IXMLDOMNode * iface,VARIANT * var1)2109 static HRESULT WINAPI unknode_get_dataType(
2110     IXMLDOMNode *iface,
2111     VARIANT* var1)
2112 {
2113     unknode *This = unknode_from_IXMLDOMNode( iface );
2114     TRACE("(%p)->(%p)\n", This, var1);
2115     return return_null_var(var1);
2116 }
2117 
unknode_put_dataType(IXMLDOMNode * iface,BSTR p)2118 static HRESULT WINAPI unknode_put_dataType(
2119     IXMLDOMNode *iface,
2120     BSTR p)
2121 {
2122     unknode *This = unknode_from_IXMLDOMNode( iface );
2123 
2124     FIXME("(%p)->(%s)\n", This, debugstr_w(p));
2125 
2126     if(!p)
2127         return E_INVALIDARG;
2128 
2129     return E_FAIL;
2130 }
2131 
unknode_get_xml(IXMLDOMNode * iface,BSTR * p)2132 static HRESULT WINAPI unknode_get_xml(
2133     IXMLDOMNode *iface,
2134     BSTR* p)
2135 {
2136     unknode *This = unknode_from_IXMLDOMNode( iface );
2137 
2138     FIXME("(%p)->(%p)\n", This, p);
2139 
2140     return node_get_xml(&This->node, FALSE, p);
2141 }
2142 
unknode_transformNode(IXMLDOMNode * iface,IXMLDOMNode * domNode,BSTR * p)2143 static HRESULT WINAPI unknode_transformNode(
2144     IXMLDOMNode *iface,
2145     IXMLDOMNode* domNode, BSTR* p)
2146 {
2147     unknode *This = unknode_from_IXMLDOMNode( iface );
2148     return node_transform_node(&This->node, domNode, p);
2149 }
2150 
unknode_selectNodes(IXMLDOMNode * iface,BSTR p,IXMLDOMNodeList ** outList)2151 static HRESULT WINAPI unknode_selectNodes(
2152     IXMLDOMNode *iface,
2153     BSTR p, IXMLDOMNodeList** outList)
2154 {
2155     unknode *This = unknode_from_IXMLDOMNode( iface );
2156     return node_select_nodes(&This->node, p, outList);
2157 }
2158 
unknode_selectSingleNode(IXMLDOMNode * iface,BSTR p,IXMLDOMNode ** outNode)2159 static HRESULT WINAPI unknode_selectSingleNode(
2160     IXMLDOMNode *iface,
2161     BSTR p, IXMLDOMNode** outNode)
2162 {
2163     unknode *This = unknode_from_IXMLDOMNode( iface );
2164     return node_select_singlenode(&This->node, p, outNode);
2165 }
2166 
unknode_get_parsed(IXMLDOMNode * iface,VARIANT_BOOL * isParsed)2167 static HRESULT WINAPI unknode_get_parsed(
2168     IXMLDOMNode *iface,
2169     VARIANT_BOOL* isParsed)
2170 {
2171     unknode *This = unknode_from_IXMLDOMNode( iface );
2172     FIXME("(%p)->(%p) stub!\n", This, isParsed);
2173     *isParsed = VARIANT_TRUE;
2174     return S_OK;
2175 }
2176 
unknode_get_namespaceURI(IXMLDOMNode * iface,BSTR * p)2177 static HRESULT WINAPI unknode_get_namespaceURI(
2178     IXMLDOMNode *iface,
2179     BSTR* p)
2180 {
2181     unknode *This = unknode_from_IXMLDOMNode( iface );
2182     TRACE("(%p)->(%p)\n", This, p);
2183     return node_get_namespaceURI(&This->node, p);
2184 }
2185 
unknode_get_prefix(IXMLDOMNode * iface,BSTR * p)2186 static HRESULT WINAPI unknode_get_prefix(
2187     IXMLDOMNode *iface,
2188     BSTR* p)
2189 {
2190     unknode *This = unknode_from_IXMLDOMNode( iface );
2191     return node_get_prefix(&This->node, p);
2192 }
2193 
unknode_get_baseName(IXMLDOMNode * iface,BSTR * p)2194 static HRESULT WINAPI unknode_get_baseName(
2195     IXMLDOMNode *iface,
2196     BSTR* p)
2197 {
2198     unknode *This = unknode_from_IXMLDOMNode( iface );
2199     return node_get_base_name(&This->node, p);
2200 }
2201 
unknode_transformNodeToObject(IXMLDOMNode * iface,IXMLDOMNode * domNode,VARIANT var1)2202 static HRESULT WINAPI unknode_transformNodeToObject(
2203     IXMLDOMNode *iface,
2204     IXMLDOMNode* domNode, VARIANT var1)
2205 {
2206     unknode *This = unknode_from_IXMLDOMNode( iface );
2207     FIXME("(%p)->(%p %s)\n", This, domNode, debugstr_variant(&var1));
2208     return E_NOTIMPL;
2209 }
2210 
2211 static const struct IXMLDOMNodeVtbl unknode_vtbl =
2212 {
2213     unknode_QueryInterface,
2214     unknode_AddRef,
2215     unknode_Release,
2216     unknode_GetTypeInfoCount,
2217     unknode_GetTypeInfo,
2218     unknode_GetIDsOfNames,
2219     unknode_Invoke,
2220     unknode_get_nodeName,
2221     unknode_get_nodeValue,
2222     unknode_put_nodeValue,
2223     unknode_get_nodeType,
2224     unknode_get_parentNode,
2225     unknode_get_childNodes,
2226     unknode_get_firstChild,
2227     unknode_get_lastChild,
2228     unknode_get_previousSibling,
2229     unknode_get_nextSibling,
2230     unknode_get_attributes,
2231     unknode_insertBefore,
2232     unknode_replaceChild,
2233     unknode_removeChild,
2234     unknode_appendChild,
2235     unknode_hasChildNodes,
2236     unknode_get_ownerDocument,
2237     unknode_cloneNode,
2238     unknode_get_nodeTypeString,
2239     unknode_get_text,
2240     unknode_put_text,
2241     unknode_get_specified,
2242     unknode_get_definition,
2243     unknode_get_nodeTypedValue,
2244     unknode_put_nodeTypedValue,
2245     unknode_get_dataType,
2246     unknode_put_dataType,
2247     unknode_get_xml,
2248     unknode_transformNode,
2249     unknode_selectNodes,
2250     unknode_selectSingleNode,
2251     unknode_get_parsed,
2252     unknode_get_namespaceURI,
2253     unknode_get_prefix,
2254     unknode_get_baseName,
2255     unknode_transformNodeToObject
2256 };
2257 
create_node(xmlNodePtr node)2258 IXMLDOMNode *create_node( xmlNodePtr node )
2259 {
2260     IUnknown *pUnk;
2261     IXMLDOMNode *ret;
2262     HRESULT hr;
2263 
2264     if ( !node )
2265         return NULL;
2266 
2267     TRACE("type %d\n", node->type);
2268     switch(node->type)
2269     {
2270     case XML_ELEMENT_NODE:
2271         pUnk = create_element( node );
2272         break;
2273     case XML_ATTRIBUTE_NODE:
2274         pUnk = create_attribute( node, FALSE );
2275         break;
2276     case XML_TEXT_NODE:
2277         pUnk = create_text( node );
2278         break;
2279     case XML_CDATA_SECTION_NODE:
2280         pUnk = create_cdata( node );
2281         break;
2282     case XML_ENTITY_REF_NODE:
2283         pUnk = create_doc_entity_ref( node );
2284         break;
2285     case XML_PI_NODE:
2286         pUnk = create_pi( node );
2287         break;
2288     case XML_COMMENT_NODE:
2289         pUnk = create_comment( node );
2290         break;
2291     case XML_DOCUMENT_NODE:
2292         pUnk = create_domdoc( node );
2293         break;
2294     case XML_DOCUMENT_FRAG_NODE:
2295         pUnk = create_doc_fragment( node );
2296         break;
2297     case XML_DTD_NODE:
2298     case XML_DOCUMENT_TYPE_NODE:
2299         pUnk = create_doc_type( node );
2300         break;
2301     case XML_ENTITY_NODE:
2302     case XML_NOTATION_NODE: {
2303         unknode *new_node;
2304 
2305         FIXME("only creating basic node for type %d\n", node->type);
2306 
2307         new_node = heap_alloc(sizeof(unknode));
2308         if(!new_node)
2309             return NULL;
2310 
2311         new_node->IXMLDOMNode_iface.lpVtbl = &unknode_vtbl;
2312         new_node->ref = 1;
2313         init_xmlnode(&new_node->node, node, &new_node->IXMLDOMNode_iface, NULL);
2314         pUnk = (IUnknown*)&new_node->IXMLDOMNode_iface;
2315         break;
2316     }
2317     default:
2318         ERR("Called for unsupported node type %d\n", node->type);
2319         return NULL;
2320     }
2321 
2322     hr = IUnknown_QueryInterface(pUnk, &IID_IXMLDOMNode, (LPVOID*)&ret);
2323     IUnknown_Release(pUnk);
2324     if(FAILED(hr)) return NULL;
2325     return ret;
2326 }
2327 #endif
2328