dlls/msxml3/node.c

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