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 #ifdef HAVE_LIBXML2
  57
  58 WINE_DEFAULT_DEBUG_CHANNEL(msxml);
  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
 482     /* unlink from current parent first */
 483     if(node_obj->parent)
 484     {
 485         hr = IXMLDOMNode_removeChild(node_obj->parent, node_obj->iface, NULL);
 486         if (hr == S_OK) xmldoc_remove_orphan(node_obj->node->doc, node_obj->node);
 487     }
 488     doc = node_obj->node->doc;
 489
 490     if(before)
 491     {
 492         xmlnode *before_node_obj = get_node_obj(before);
 493
 494         /* refs count including subtree */
 495         if (doc != before_node_obj->node->doc)
 496             refcount = xmlnode_get_inst_cnt(node_obj);
 497
 498         if (refcount) xmldoc_add_refs(before_node_obj->node->doc, refcount);
 499         xmlAddPrevSibling(before_node_obj->node, node_obj->node);
 500         if (refcount) xmldoc_release_refs(doc, refcount);
 501         node_obj->parent = This->parent;
 502     }
 503     else
 504     {
 505         if (doc != This->node->doc)
 506             refcount = xmlnode_get_inst_cnt(node_obj);
 507
 508         if (refcount) xmldoc_add_refs(This->node->doc, refcount);
 509         /* xmlAddChild doesn't unlink node from previous parent */
 510         xmlUnlinkNode(node_obj->node);
 511         xmlAddChild(This->node, node_obj->node);
 512         if (refcount) xmldoc_release_refs(doc, refcount);
 513         node_obj->parent = This->iface;
 514     }
 515
 516     if(ret)
 517     {
 518         IXMLDOMNode_AddRef(new_child);
 519         *ret = new_child;
 520     }
 521
 522     TRACE("ret S_OK\n");
 523     return S_OK;
 524 }
 525
 526 HRESULT node_replace_child(xmlnode *This, IXMLDOMNode *newChild, IXMLDOMNode *oldChild,
 527         IXMLDOMNode **ret)
 528 {
 529     xmlnode *old_child, *new_child;
 530     xmlDocPtr leaving_doc;
 531     xmlNode *my_ancestor;
 532     int refcount = 0;
 533
 534     /* Do not believe any documentation telling that newChild == NULL
 535        means removal. It does certainly *not* apply to msxml3! */
 536     if(!newChild || !oldChild)
 537         return E_INVALIDARG;
 538
 539     if(ret)
 540         *ret = NULL;
 541
 542     old_child = get_node_obj(oldChild);
 543     if(!old_child) return E_FAIL;
 544
 545     if(old_child->node->parent != This->node)
 546     {
 547         WARN("childNode %p is not a child of %p\n", oldChild, This);
 548         return E_INVALIDARG;
 549     }
 550
 551     new_child = get_node_obj(newChild);
 552     if(!new_child) return E_FAIL;
 553
 554     my_ancestor = This->node;
 555     while(my_ancestor)
 556     {
 557         if(my_ancestor == new_child->node)
 558         {
 559             WARN("tried to create loop\n");
 560             return E_FAIL;
 561         }
 562         my_ancestor = my_ancestor->parent;
 563     }
 564
 565     if(!new_child->node->parent)
 566         if(xmldoc_remove_orphan(new_child->node->doc, new_child->node) != S_OK)
 567             WARN("%p is not an orphan of %p\n", new_child->node, new_child->node->doc);
 568
 569     leaving_doc = new_child->node->doc;
 570
 571     if (leaving_doc != old_child->node->doc)
 572         refcount = xmlnode_get_inst_cnt(new_child);
 573
 574     if (refcount) xmldoc_add_refs(old_child->node->doc, refcount);
 575     xmlReplaceNode(old_child->node, new_child->node);
 576     if (refcount) xmldoc_release_refs(leaving_doc, refcount);
 577     new_child->parent = old_child->parent;
 578     old_child->parent = NULL;
 579
 580     xmldoc_add_orphan(old_child->node->doc, old_child->node);
 581
 582     if(ret)
 583     {
 584         IXMLDOMNode_AddRef(oldChild);
 585         *ret = oldChild;
 586     }
 587
 588     return S_OK;
 589 }
 590
 591 HRESULT node_remove_child(xmlnode *This, IXMLDOMNode* child, IXMLDOMNode** oldChild)
 592 {
 593     xmlnode *child_node;
 594
 595     if(!child) return E_INVALIDARG;
 596
 597     if(oldChild)
 598         *oldChild = NULL;
 599
 600     child_node = get_node_obj(child);
 601     if(!child_node) return E_FAIL;
 602
 603     if(child_node->node->parent != This->node)
 604     {
 605         WARN("childNode %p is not a child of %p\n", child, This);
 606         return E_INVALIDARG;
 607     }
 608
 609     xmlUnlinkNode(child_node->node);
 610     child_node->parent = NULL;
 611     xmldoc_add_orphan(child_node->node->doc, child_node->node);
 612
 613     if(oldChild)
 614     {
 615         IXMLDOMNode_AddRef(child);
 616         *oldChild = child;
 617     }
 618
 619     return S_OK;
 620 }
 621
 622 HRESULT node_append_child(xmlnode *This, IXMLDOMNode *child, IXMLDOMNode **outChild)
 623 {
 624     DOMNodeType type;
 625     VARIANT var;
 626     HRESULT hr;
 627
 628     if (!child)
 629         return E_INVALIDARG;
 630
 631     hr = IXMLDOMNode_get_nodeType(child, &type);
 632     if(FAILED(hr) || type == NODE_ATTRIBUTE) {
 633         if (outChild) *outChild = NULL;
 634         return E_FAIL;
 635     }
 636
 637     VariantInit(&var);
 638     return IXMLDOMNode_insertBefore(This->iface, child, var, outChild);
 639 }
 640
 641 HRESULT node_has_childnodes(const xmlnode *This, VARIANT_BOOL *ret)
 642 {
 643     if (!ret) return E_INVALIDARG;
 644
 645     if (!This->node->children)
 646     {
 647         *ret = VARIANT_FALSE;
 648         return S_FALSE;
 649     }
 650
 651     *ret = VARIANT_TRUE;
 652     return S_OK;
 653 }
 654
 655 HRESULT node_get_owner_doc(const xmlnode *This, IXMLDOMDocument **doc)
 656 {
 657     if(!doc)
 658         return E_INVALIDARG;
 659     return get_domdoc_from_xmldoc(This->node->doc, (IXMLDOMDocument3**)doc);
 660 }
 661
 662 HRESULT node_clone(xmlnode *This, VARIANT_BOOL deep, IXMLDOMNode **cloneNode)
 663 {
 664     IXMLDOMNode *node;
 665     xmlNodePtr clone;
 666
 667     if(!cloneNode) return E_INVALIDARG;
 668
 669     clone = xmlCopyNode(This->node, deep ? 1 : 2);
 670     if (clone)
 671     {
 672         xmlSetTreeDoc(clone, This->node->doc);
 673         xmldoc_add_orphan(clone->doc, clone);
 674
 675         node = create_node(clone);
 676         if (!node)
 677         {
 678             ERR("Copy failed\n");
 679             xmldoc_remove_orphan(clone->doc, clone);
 680             xmlFreeNode(clone);
 681             return E_FAIL;
 682         }
 683
 684         *cloneNode = node;
 685     }
 686     else
 687     {
 688         ERR("Copy failed\n");
 689         return E_FAIL;
 690     }
 691
 692     return S_OK;
 693 }
 694
 695 static inline xmlChar* trim_whitespace(xmlChar* str)
 696 {
 697     xmlChar* ret = str;
 698     int len;
 699
 700     if (!str)
 701         return NULL;
 702
 703     while (*ret && isspace(*ret))
 704         ++ret;
 705     len = xmlStrlen(ret);
 706     if (len)
 707         while (isspace(ret[len-1])) --len;
 708
 709     ret = xmlStrndup(ret, len);
 710     xmlFree(str);
 711     return ret;
 712 }
 713
 714 static xmlChar* do_get_text(xmlNodePtr node)
 715 {
 716     xmlNodePtr child;
 717     xmlChar* str;
 718     BOOL preserving = is_preserving_whitespace(node);
 719
 720     if (!node->children)
 721     {
 722         str = xmlNodeGetContent(node);
 723     }
 724     else
 725     {
 726         xmlElementType prev_type = XML_TEXT_NODE;
 727         xmlChar* tmp;
 728         str = xmlStrdup(BAD_CAST "");
 729         for (child = node->children; child != NULL; child = child->next)
 730         {
 731             switch (child->type)
 732             {
 733             case XML_ELEMENT_NODE:
 734                 tmp = do_get_text(child);
 735                 break;
 736             case XML_TEXT_NODE:
 737             case XML_CDATA_SECTION_NODE:
 738             case XML_ENTITY_REF_NODE:
 739             case XML_ENTITY_NODE:
 740                 tmp = xmlNodeGetContent(child);
 741                 break;
 742             default:
 743                 tmp = NULL;
 744                 break;
 745             }
 746
 747             if (tmp)
 748             {
 749                 if (*tmp)
 750                 {
 751                     if (prev_type == XML_ELEMENT_NODE && child->type == XML_ELEMENT_NODE)
 752                         str = xmlStrcat(str, BAD_CAST " ");
 753                     str = xmlStrcat(str, tmp);
 754                     prev_type = child->type;
 755                 }
 756                 xmlFree(tmp);
 757             }
 758         }
 759     }
 760
 761     switch (node->type)
 762     {
 763     case XML_ELEMENT_NODE:
 764     case XML_TEXT_NODE:
 765     case XML_ENTITY_REF_NODE:
 766     case XML_ENTITY_NODE:
 767     case XML_DOCUMENT_NODE:
 768     case XML_DOCUMENT_FRAG_NODE:
 769         if (!preserving)
 770             str = trim_whitespace(str);
 771         break;
 772     default:
 773         break;
 774     }
 775
 776     return str;
 777 }
 778
 779 HRESULT node_get_text(const xmlnode *This, BSTR *text)
 780 {
 781     BSTR str = NULL;
 782     xmlChar *content;
 783
 784     if (!text) return E_INVALIDARG;
 785
 786     content = do_get_text(This->node);
 787     if (content)
 788     {
 789         str = bstr_from_xmlChar(content);
 790         xmlFree(content);
 791     }
 792
 793     /* Always return a string. */
 794     if (!str) str = SysAllocStringLen( NULL, 0 );
 795
 796     TRACE("%p %s\n", This, debugstr_w(str) );
 797     *text = str;
 798
 799     return S_OK;
 800 }
 801
 802 HRESULT node_put_text(xmlnode *This, BSTR text)
 803 {
 804     xmlChar *str, *str2;
 805
 806     TRACE("(%p)->(%s)\n", This, debugstr_w(text));
 807
 808     str = xmlchar_from_wchar(text);
 809
 810     /* Escape the string. */
 811     str2 = xmlEncodeEntitiesReentrant(This->node->doc, str);
 812     heap_free(str);
 813
 814     xmlNodeSetContent(This->node, str2);
 815     xmlFree(str2);
 816
 817     return S_OK;
 818 }
 819
 820 BSTR EnsureCorrectEOL(BSTR sInput)
 821 {
 822     int nNum = 0;
 823     BSTR sNew;
 824     int nLen;
 825     int i;
 826
 827     nLen = SysStringLen(sInput);
 828     /* Count line endings */
 829     for(i=0; i < nLen; i++)
 830     {
 831         if(sInput[i] == '\n')
 832             nNum++;
 833     }
 834
 835     TRACE("len=%d, num=%d\n", nLen, nNum);
 836
 837     /* Add linefeed as needed */
 838     if(nNum > 0)
 839     {
 840         int nPlace = 0;
 841         sNew = SysAllocStringLen(NULL, nLen + nNum);
 842         for(i=0; i < nLen; i++)
 843         {
 844             if(sInput[i] == '\n')
 845             {
 846                 sNew[i+nPlace] = '\r';
 847                 nPlace++;
 848             }
 849             sNew[i+nPlace] = sInput[i];
 850         }
 851
 852         SysFreeString(sInput);
 853     }
 854     else
 855     {
 856         sNew = sInput;
 857     }
 858
 859     TRACE("len %d\n", SysStringLen(sNew));
 860
 861     return sNew;
 862 }
 863
 864 /*
 865  * We are trying to replicate the same behaviour as msxml by converting
 866  * line endings to \r\n and using indents as \t. The problem is that msxml
 867  * only formats nodes that have a line ending. Using libxml we cannot
 868  * reproduce behaviour exactly.
 869  *
 870  */
 871 HRESULT node_get_xml(xmlnode *This, BOOL ensure_eol, BSTR *ret)
 872 {
 873     xmlBufferPtr xml_buf;
 874     xmlNodePtr xmldecl;
 875     int size;
 876
 877     if(!ret)
 878         return E_INVALIDARG;
 879
 880     *ret = NULL;
 881
 882     xml_buf = xmlBufferCreate();
 883     if(!xml_buf)
 884         return E_OUTOFMEMORY;
 885
 886     xmldecl = xmldoc_unlink_xmldecl( This->node->doc );
 887
 888     size = xmlNodeDump(xml_buf, This->node->doc, This->node, 0, 1);
 889     if(size > 0) {
 890         const xmlChar *buf_content;
 891         BSTR content;
 892
 893         /* Attribute Nodes return a space in front of their name */
 894         buf_content = xmlBufferContent(xml_buf);
 895
 896         content = bstr_from_xmlChar(buf_content + (buf_content[0] == ' ' ? 1 : 0));
 897         if(ensure_eol)
 898             content = EnsureCorrectEOL(content);
 899
 900         *ret = content;
 901     }else {
 902         *ret = SysAllocStringLen(NULL, 0);
 903     }
 904
 905     xmlBufferFree(xml_buf);
 906     xmldoc_link_xmldecl( This->node->doc, xmldecl );
 907     return *ret ? S_OK : E_OUTOFMEMORY;
 908 }
 909
 910 #ifdef SONAME_LIBXSLT
 911
 912 /* duplicates xmlBufferWriteQuotedString() logic */
 913 static void xml_write_quotedstring(xmlOutputBufferPtr buf, const xmlChar *string)
 914 {
 915     const xmlChar *cur, *base;
 916
 917     if (xmlStrchr(string, '\"'))
 918     {
 919         if (xmlStrchr(string, '\''))
 920         {
 921             xmlOutputBufferWrite(buf, 1, "\"");
 922             base = cur = string;
 923
 924             while (*cur)
 925             {
 926                 if (*cur == '"')
 927                 {
 928                     if (base != cur)
 929                         xmlOutputBufferWrite(buf, cur-base, (const char*)base);
 930                     xmlOutputBufferWrite(buf, 6, "&quot;");
 931                     cur++;
 932                     base = cur;
 933                 }
 934                 else
 935                     cur++;
 936             }
 937             if (base != cur)
 938                 xmlOutputBufferWrite(buf, cur-base, (const char*)base);
 939             xmlOutputBufferWrite(buf, 1, "\"");
 940         }
 941         else
 942         {
 943             xmlOutputBufferWrite(buf, 1, "\'");
 944             xmlOutputBufferWriteString(buf, (const char*)string);
 945             xmlOutputBufferWrite(buf, 1, "\'");
 946         }
 947     }
 948     else
 949     {
 950         xmlOutputBufferWrite(buf, 1, "\"");
 951         xmlOutputBufferWriteString(buf, (const char*)string);
 952         xmlOutputBufferWrite(buf, 1, "\"");
 953     }
 954 }
 955
 956 static int XMLCALL transform_to_stream_write(void *context, const char *buffer, int len)
 957 {
 958     DWORD written;
 959     HRESULT hr = IStream_Write((IStream*)context, buffer, len, &written);
 960     return hr == S_OK ? written : -1;
 961 }
 962
 963 /* Output for method "text" */
 964 static void transform_write_text(xmlDocPtr result, xsltStylesheetPtr style, xmlOutputBufferPtr output)
 965 {
 966     xmlNodePtr cur = result->children;
 967     while (cur)
 968     {
 969         if (cur->type == XML_TEXT_NODE)
 970             xmlOutputBufferWriteString(output, (const char*)cur->content);
 971
 972         /* skip to next node */
 973         if (cur->children)
 974         {
 975             if ((cur->children->type != XML_ENTITY_DECL) &&
 976                 (cur->children->type != XML_ENTITY_REF_NODE) &&
 977                 (cur->children->type != XML_ENTITY_NODE))
 978             {
 979                 cur = cur->children;
 980                 continue;
 981             }
 982         }
 983
 984         if (cur->next) {
 985             cur = cur->next;
 986             continue;
 987         }
 988
 989         do
 990         {
 991             cur = cur->parent;
 992             if (cur == NULL)
 993                 break;
 994             if (cur == (xmlNodePtr) style->doc) {
 995                 cur = NULL;
 996                 break;
 997             }
 998             if (cur->next) {
 999                 cur = cur->next;
1000                 break;
1001             }
1002         } while (cur);
1003     }
1004 }
1005
1006 #undef XSLT_GET_IMPORT_PTR
1007 #define XSLT_GET_IMPORT_PTR(res, style, name) {          \
1008     xsltStylesheetPtr st = style;                        \
1009     res = NULL;                                          \
1010     while (st != NULL) {                                 \
1011         if (st->name != NULL) { res = st->name; break; } \
1012         st = pxsltNextImport(st);                        \
1013     }}
1014
1015 #undef XSLT_GET_IMPORT_INT
1016 #define XSLT_GET_IMPORT_INT(res, style, name) {         \
1017     xsltStylesheetPtr st = style;                       \
1018     res = -1;                                           \
1019     while (st != NULL) {                                \
1020         if (st->name != -1) { res = st->name; break; }  \
1021         st = pxsltNextImport(st);                       \
1022     }}
1023
1024 static void transform_write_xmldecl(xmlDocPtr result, xsltStylesheetPtr style, BOOL omit_encoding, xmlOutputBufferPtr output)
1025 {
1026     int omit_xmldecl, standalone;
1027
1028     XSLT_GET_IMPORT_INT(omit_xmldecl, style, omitXmlDeclaration);
1029     if (omit_xmldecl == 1) return;
1030
1031     XSLT_GET_IMPORT_INT(standalone, style, standalone);
1032
1033     xmlOutputBufferWriteString(output, "<?xml version=");
1034     if (result->version)
1035     {
1036         xmlOutputBufferWriteString(output, "\"");
1037         xmlOutputBufferWriteString(output, (const char *)result->version);
1038         xmlOutputBufferWriteString(output, "\"");
1039     }
1040     else
1041         xmlOutputBufferWriteString(output, "\"1.0\"");
1042
1043     if (!omit_encoding)
1044     {
1045         const xmlChar *encoding;
1046
1047         /* default encoding is UTF-16 */
1048         XSLT_GET_IMPORT_PTR(encoding, style, encoding);
1049         xmlOutputBufferWriteString(output, " encoding=");
1050         xmlOutputBufferWriteString(output, "\"");
1051         xmlOutputBufferWriteString(output, encoding ? (const char *)encoding : "UTF-16");
1052         xmlOutputBufferWriteString(output, "\"");
1053     }
1054
1055     /* standalone attribute */
1056     if (standalone != -1)
1057         xmlOutputBufferWriteString(output, standalone == 0 ? " standalone=\"no\"" : " standalone=\"yes\"");
1058
1059     xmlOutputBufferWriteString(output, "?>");
1060 }
1061
1062 static void htmldtd_dumpcontent(xmlOutputBufferPtr buf, xmlDocPtr doc)
1063 {
1064     xmlDtdPtr cur = doc->intSubset;
1065
1066     xmlOutputBufferWriteString(buf, "<!DOCTYPE ");
1067     xmlOutputBufferWriteString(buf, (const char *)cur->name);
1068     if (cur->ExternalID)
1069     {
1070         xmlOutputBufferWriteString(buf, " PUBLIC ");
1071         xml_write_quotedstring(buf, cur->ExternalID);
1072         if (cur->SystemID)
1073         {
1074             xmlOutputBufferWriteString(buf, " ");
1075             xml_write_quotedstring(buf, cur->SystemID);
1076         }
1077     }
1078     else if (cur->SystemID)
1079     {
1080         xmlOutputBufferWriteString(buf, " SYSTEM ");
1081         xml_write_quotedstring(buf, cur->SystemID);
1082     }
1083     xmlOutputBufferWriteString(buf, ">\n");
1084 }
1085
1086 /* Duplicates htmlDocContentDumpFormatOutput() the way we need it - doesn't add trailing newline. */
1087 static void htmldoc_dumpcontent(xmlOutputBufferPtr buf, xmlDocPtr doc, const char *encoding, int format)
1088 {
1089     xmlElementType type;
1090
1091     /* force HTML output */
1092     type = doc->type;
1093     doc->type = XML_HTML_DOCUMENT_NODE;
1094     if (doc->intSubset)
1095         htmldtd_dumpcontent(buf, doc);
1096     if (doc->children) {
1097         xmlNodePtr cur = doc->children;
1098         while (cur) {
1099             htmlNodeDumpFormatOutput(buf, doc, cur, encoding, format);
1100             cur = cur->next;
1101         }
1102     }
1103     doc->type = type;
1104 }
1105
1106 static inline BOOL transform_is_empty_resultdoc(xmlDocPtr result)
1107 {
1108     return !result->children || ((result->children->type == XML_DTD_NODE) && !result->children->next);
1109 }
1110
1111 static inline BOOL transform_is_valid_method(xsltStylesheetPtr style)
1112 {
1113     return !style->methodURI || !(style->method && xmlStrEqual(style->method, (const xmlChar *)"xhtml"));
1114 }
1115
1116 /* Helper to write transformation result to specified output buffer. */
1117 static HRESULT node_transform_write(xsltStylesheetPtr style, xmlDocPtr result, BOOL omit_encoding, const char *encoding, xmlOutputBufferPtr output)
1118 {
1119     const xmlChar *method;
1120     int indent;
1121
1122     if (!transform_is_valid_method(style))
1123     {
1124         ERR("unknown output method\n");
1125         return E_FAIL;
1126     }
1127
1128     XSLT_GET_IMPORT_PTR(method, style, method)
1129     XSLT_GET_IMPORT_INT(indent, style, indent);
1130
1131     if (!method && (result->type == XML_HTML_DOCUMENT_NODE))
1132         method = (const xmlChar *) "html";
1133
1134     if (method && xmlStrEqual(method, (const xmlChar *)"html"))
1135     {
1136         htmlSetMetaEncoding(result, (const xmlChar *)encoding);
1137         if (indent == -1)
1138             indent = 1;
1139         htmldoc_dumpcontent(output, result, (const char*)encoding, indent);
1140     }
1141     else if (method && xmlStrEqual(method, (const xmlChar *)"xhtml"))
1142     {
1143         htmlSetMetaEncoding(result, (const xmlChar *) encoding);
1144         htmlDocContentDumpOutput(output, result, encoding);
1145     }
1146     else if (method && xmlStrEqual(method, (const xmlChar *)"text"))
1147         transform_write_text(result, style, output);
1148     else
1149     {
1150         transform_write_xmldecl(result, style, omit_encoding, output);
1151
1152         if (result->children)
1153         {
1154             xmlNodePtr child = result->children;
1155
1156             while (child)
1157             {
1158                 xmlNodeDumpOutput(output, result, child, 0, indent == 1, encoding);
1159                 if (indent && ((child->type == XML_DTD_NODE) || ((child->type == XML_COMMENT_NODE) && child->next)))
1160                     xmlOutputBufferWriteString(output, "\r\n");
1161                 child = child->next;
1162             }
1163         }
1164     }
1165
1166     xmlOutputBufferFlush(output);
1167     return S_OK;
1168 }
1169
1170 /* For BSTR output is always UTF-16, without 'encoding' attribute */
1171 static HRESULT node_transform_write_to_bstr(xsltStylesheetPtr style, xmlDocPtr result, BSTR *str)
1172 {
1173     HRESULT hr = S_OK;
1174
1175     if (transform_is_empty_resultdoc(result))
1176         *str = SysAllocStringLen(NULL, 0);
1177     else
1178     {
1179         xmlOutputBufferPtr output = xmlAllocOutputBuffer(xmlFindCharEncodingHandler("UTF-16"));
1180         const xmlChar *content;
1181         size_t len;
1182
1183         *str = NULL;
1184         if (!output)
1185             return E_OUTOFMEMORY;
1186
1187         hr = node_transform_write(style, result, TRUE, "UTF-16", output);
1188 #ifdef LIBXML2_NEW_BUFFER
1189         content = xmlBufContent(output->conv);
1190         len = xmlBufUse(output->conv);
1191 #else
1192         content = xmlBufferContent(output->conv);
1193         len = xmlBufferLength(output->conv);
1194 #endif
1195         /* UTF-16 encoder places UTF-16 bom, we don't need it for BSTR */
1196         content += sizeof(WCHAR);
1197         *str = SysAllocStringLen((WCHAR*)content, len/sizeof(WCHAR) - 1);
1198         xmlOutputBufferClose(output);
1199     }
1200
1201     return *str ? hr : E_OUTOFMEMORY;
1202 }
1203
1204 static HRESULT node_transform_write_to_stream(xsltStylesheetPtr style, xmlDocPtr result, IStream *stream)
1205 {
1206     static const xmlChar *utf16 = (const xmlChar*)"UTF-16";
1207     xmlOutputBufferPtr output;
1208     const xmlChar *encoding;
1209     HRESULT hr;
1210
1211     if (transform_is_empty_resultdoc(result))
1212     {
1213         WARN("empty result document\n");
1214         return S_OK;
1215     }
1216
1217     if (style->methodURI && (!style->method || !xmlStrEqual(style->method, (const xmlChar *) "xhtml")))
1218     {
1219         ERR("unknown output method\n");
1220         return E_FAIL;
1221     }
1222
1223     /* default encoding is UTF-16 */
1224     XSLT_GET_IMPORT_PTR(encoding, style, encoding);
1225     if (!encoding)
1226         encoding = utf16;
1227
1228     output = xmlOutputBufferCreateIO(transform_to_stream_write, NULL, stream, xmlFindCharEncodingHandler((const char*)encoding));
1229     if (!output)
1230         return E_OUTOFMEMORY;
1231
1232     hr = node_transform_write(style, result, FALSE, (const char*)encoding, output);
1233     xmlOutputBufferClose(output);
1234     return hr;
1235 }
1236
1237 #endif
1238
1239 HRESULT node_transform_node_params(const xmlnode *This, IXMLDOMNode *stylesheet, BSTR *p,
1240     IStream *stream, const struct xslprocessor_params *params)
1241 {
1242 #ifdef SONAME_LIBXSLT
1243     xsltStylesheetPtr xsltSS;
1244     HRESULT hr = S_OK;
1245     xmlnode *sheet;
1246
1247     if (!libxslt_handle) return E_NOTIMPL;
1248     if (!stylesheet || !p) return E_INVALIDARG;
1249
1250     *p = NULL;
1251
1252     sheet = get_node_obj(stylesheet);
1253     if(!sheet) return E_FAIL;
1254
1255     xsltSS = pxsltParseStylesheetDoc(sheet->node->doc);
1256     if(xsltSS)
1257     {
1258         const char **xslparams = NULL;
1259         xmlDocPtr result;
1260         unsigned int i;
1261
1262         /* convert our parameter list to libxml2 format */
1263         if (params && params->count)
1264         {
1265             struct xslprocessor_par *par;
1266
1267             i = 0;
1268             xslparams = heap_alloc((params->count*2 + 1)*sizeof(char*));
1269             LIST_FOR_EACH_ENTRY(par, &params->list, struct xslprocessor_par, entry)
1270             {
1271                 xslparams[i++] = (char*)xmlchar_from_wchar(par->name);
1272                 xslparams[i++] = (char*)xmlchar_from_wchar(par->value);
1273             }
1274             xslparams[i] = NULL;
1275         }
1276
1277         if (xslparams)
1278         {
1279             xsltTransformContextPtr ctxt = pxsltNewTransformContext(xsltSS, This->node->doc);
1280
1281             /* push parameters to user context */
1282             pxsltQuoteUserParams(ctxt, xslparams);
1283             result = pxsltApplyStylesheetUser(xsltSS, This->node->doc, NULL, NULL, NULL, ctxt);
1284             pxsltFreeTransformContext(ctxt);
1285
1286             for (i = 0; i < params->count*2; i++)
1287                 heap_free((char*)xslparams[i]);
1288             heap_free(xslparams);
1289         }
1290         else
1291             result = pxsltApplyStylesheet(xsltSS, This->node->doc, NULL);
1292
1293         if (result)
1294         {
1295             if (stream)
1296                 hr = node_transform_write_to_stream(xsltSS, result, stream);
1297             else
1298                 hr = node_transform_write_to_bstr(xsltSS, result, p);
1299             xmlFreeDoc(result);
1300         }
1301         /* libxslt "helpfully" frees the XML document the stylesheet was
1302            generated from, too */
1303         xsltSS->doc = NULL;
1304         pxsltFreeStylesheet(xsltSS);
1305     }
1306
1307     if(!*p) *p = SysAllocStringLen(NULL, 0);
1308
1309     return hr;
1310 #else
1311     ERR_(winediag)("libxslt headers were not found at compile time. Expect problems.\n");
1312
1313     return E_NOTIMPL;
1314 #endif
1315 }
1316
1317 HRESULT node_transform_node(const xmlnode *node, IXMLDOMNode *stylesheet, BSTR *p)
1318 {
1319     return node_transform_node_params(node, stylesheet, p, NULL, NULL);
1320 }
1321
1322 HRESULT node_select_nodes(const xmlnode *This, BSTR query, IXMLDOMNodeList **nodes)
1323 {
1324     xmlChar* str;
1325     HRESULT hr;
1326
1327     if (!query || !nodes) return E_INVALIDARG;
1328
1329     str = xmlchar_from_wchar(query);
1330     hr = create_selection(This->node, str, nodes);
1331     heap_free(str);
1332
1333     return hr;
1334 }
1335
1336 HRESULT node_select_singlenode(const xmlnode *This, BSTR query, IXMLDOMNode **node)
1337 {
1338     IXMLDOMNodeList *list;
1339     HRESULT hr;
1340
1341     hr = node_select_nodes(This, query, &list);
1342     if (hr == S_OK)
1343     {
1344         hr = IXMLDOMNodeList_nextNode(list, node);
1345         IXMLDOMNodeList_Release(list);
1346     }
1347     return hr;
1348 }
1349
1350 HRESULT node_get_namespaceURI(xmlnode *This, BSTR *namespaceURI)
1351 {
1352     xmlNsPtr ns = This->node->ns;
1353
1354     if(!namespaceURI)
1355         return E_INVALIDARG;
1356
1357     *namespaceURI = NULL;
1358
1359     if (ns && ns->href)
1360         *namespaceURI = bstr_from_xmlChar(ns->href);
1361
1362     TRACE("uri: %s\n", debugstr_w(*namespaceURI));
1363
1364     return *namespaceURI ? S_OK : S_FALSE;
1365 }
1366
1367 HRESULT node_get_prefix(xmlnode *This, BSTR *prefix)
1368 {
1369     xmlNsPtr ns = This->node->ns;
1370
1371     if (!prefix) return E_INVALIDARG;
1372
1373     *prefix = NULL;
1374
1375     if (ns && ns->prefix)
1376         *prefix = bstr_from_xmlChar(ns->prefix);
1377
1378     TRACE("prefix: %s\n", debugstr_w(*prefix));
1379
1380     return *prefix ? S_OK : S_FALSE;
1381 }
1382
1383 HRESULT node_get_base_name(xmlnode *This, BSTR *name)
1384 {
1385     if (!name) return E_INVALIDARG;
1386
1387     *name = bstr_from_xmlChar(This->node->name);
1388     if (!*name) return E_OUTOFMEMORY;
1389
1390     TRACE("returning %s\n", debugstr_w(*name));
1391
1392     return S_OK;
1393 }
1394
1395 /* _private field holds a number of COM instances spawned from this libxml2 node */
1396 static void xmlnode_add_ref(xmlNodePtr node)
1397 {
1398     if (node->type == XML_DOCUMENT_NODE) return;
1399     InterlockedIncrement((LONG*)&node->_private);
1400 }
1401
1402 static void xmlnode_release(xmlNodePtr node)
1403 {
1404     if (node->type == XML_DOCUMENT_NODE) return;
1405     InterlockedDecrement((LONG*)&node->_private);
1406 }
1407
1408 void destroy_xmlnode(xmlnode *This)
1409 {
1410     if(This->node)
1411     {
1412         xmlnode_release(This->node);
1413         xmldoc_release(This->node->doc);
1414     }
1415 }
1416
1417 void init_xmlnode(xmlnode *This, xmlNodePtr node, IXMLDOMNode *node_iface, dispex_static_data_t *dispex_data)
1418 {
1419     if(node)
1420     {
1421         xmlnode_add_ref(node);
1422         xmldoc_add_ref(node->doc);
1423     }
1424
1425     This->node = node;
1426     This->iface = node_iface;
1427     This->parent = NULL;
1428
1429     init_dispex(&This->dispex, (IUnknown*)This->iface, dispex_data);
1430 }
1431
1432 typedef struct {
1433     xmlnode node;
1434     IXMLDOMNode IXMLDOMNode_iface;
1435     LONG ref;
1436 } unknode;
1437
1438 static inline unknode *unknode_from_IXMLDOMNode(IXMLDOMNode *iface)
1439 {
1440     return CONTAINING_RECORD(iface, unknode, IXMLDOMNode_iface);
1441 }
1442
1443 static HRESULT WINAPI unknode_QueryInterface(
1444     IXMLDOMNode *iface,
1445     REFIID riid,
1446     void** ppvObject )
1447 {
1448     unknode *This = unknode_from_IXMLDOMNode( iface );
1449
1450     TRACE("(%p)->(%s %p)\n", This, debugstr_guid(riid), ppvObject);
1451
1452     if (IsEqualGUID(riid, &IID_IUnknown)) {
1453         *ppvObject = iface;
1454     }else if (IsEqualGUID( riid, &IID_IDispatch) ||
1455               IsEqualGUID( riid, &IID_IXMLDOMNode)) {
1456         *ppvObject = &This->IXMLDOMNode_iface;
1457     }else if(node_query_interface(&This->node, riid, ppvObject)) {
1458         return *ppvObject ? S_OK : E_NOINTERFACE;
1459     }else  {
1460         FIXME("interface %s not implemented\n", debugstr_guid(riid));
1461         *ppvObject = NULL;
1462         return E_NOINTERFACE;
1463     }
1464
1465     IUnknown_AddRef((IUnknown*)*ppvObject);
1466     return S_OK;
1467 }
1468
1469 static ULONG WINAPI unknode_AddRef(
1470     IXMLDOMNode *iface )
1471 {
1472     unknode *This = unknode_from_IXMLDOMNode( iface );
1473
1474     return InterlockedIncrement(&This->ref);
1475 }
1476
1477 static ULONG WINAPI unknode_Release(
1478     IXMLDOMNode *iface )
1479 {
1480     unknode *This = unknode_from_IXMLDOMNode( iface );
1481     LONG ref;
1482
1483     ref = InterlockedDecrement( &This->ref );
1484     if(!ref) {
1485         destroy_xmlnode(&This->node);
1486         heap_free(This);
1487     }
1488
1489     return ref;
1490 }
1491
1492 static HRESULT WINAPI unknode_GetTypeInfoCount(
1493     IXMLDOMNode *iface,
1494     UINT* pctinfo )
1495 {
1496     unknode *This = unknode_from_IXMLDOMNode( iface );
1497
1498     TRACE("(%p)->(%p)\n", This, pctinfo);
1499
1500     *pctinfo = 1;
1501
1502     return S_OK;
1503 }
1504
1505 static HRESULT WINAPI unknode_GetTypeInfo(
1506     IXMLDOMNode *iface,
1507     UINT iTInfo,
1508     LCID lcid,
1509     ITypeInfo** ppTInfo )
1510 {
1511     unknode *This = unknode_from_IXMLDOMNode( iface );
1512     HRESULT hr;
1513
1514     TRACE("(%p)->(%u %u %p)\n", This, iTInfo, lcid, ppTInfo);
1515
1516     hr = get_typeinfo(IXMLDOMNode_tid, ppTInfo);
1517
1518     return hr;
1519 }
1520
1521 static HRESULT WINAPI unknode_GetIDsOfNames(
1522     IXMLDOMNode *iface,
1523     REFIID riid,
1524     LPOLESTR* rgszNames,
1525     UINT cNames,
1526     LCID lcid,
1527     DISPID* rgDispId )
1528 {
1529     unknode *This = unknode_from_IXMLDOMNode( iface );
1530
1531     ITypeInfo *typeinfo;
1532     HRESULT hr;
1533
1534     TRACE("(%p)->(%s %p %u %u %p)\n", This, debugstr_guid(riid), rgszNames, cNames,
1535           lcid, rgDispId);
1536
1537     if(!rgszNames || cNames == 0 || !rgDispId)
1538         return E_INVALIDARG;
1539
1540     hr = get_typeinfo(IXMLDOMNode_tid, &typeinfo);
1541     if(SUCCEEDED(hr))
1542     {
1543         hr = ITypeInfo_GetIDsOfNames(typeinfo, rgszNames, cNames, rgDispId);
1544         ITypeInfo_Release(typeinfo);
1545     }
1546
1547     return hr;
1548 }
1549
1550 static HRESULT WINAPI unknode_Invoke(
1551     IXMLDOMNode *iface,
1552     DISPID dispIdMember,
1553     REFIID riid,
1554     LCID lcid,
1555     WORD wFlags,
1556     DISPPARAMS* pDispParams,
1557     VARIANT* pVarResult,
1558     EXCEPINFO* pExcepInfo,
1559     UINT* puArgErr )
1560 {
1561     unknode *This = unknode_from_IXMLDOMNode( iface );
1562     ITypeInfo *typeinfo;
1563     HRESULT hr;
1564
1565     TRACE("(%p)->(%d %s %d %d %p %p %p %p)\n", This, dispIdMember, debugstr_guid(riid),
1566           lcid, wFlags, pDispParams, pVarResult, pExcepInfo, puArgErr);
1567
1568     hr = get_typeinfo(IXMLDOMNode_tid, &typeinfo);
1569     if(SUCCEEDED(hr))
1570     {
1571         hr = ITypeInfo_Invoke(typeinfo, &This->IXMLDOMNode_iface, dispIdMember, wFlags, pDispParams,
1572                 pVarResult, pExcepInfo, puArgErr);
1573         ITypeInfo_Release(typeinfo);
1574     }
1575
1576     return hr;
1577 }
1578
1579 static HRESULT WINAPI unknode_get_nodeName(
1580     IXMLDOMNode *iface,
1581     BSTR* p )
1582 {
1583     unknode *This = unknode_from_IXMLDOMNode( iface );
1584
1585     FIXME("(%p)->(%p)\n", This, p);
1586
1587     return node_get_nodeName(&This->node, p);
1588 }
1589
1590 static HRESULT WINAPI unknode_get_nodeValue(
1591     IXMLDOMNode *iface,
1592     VARIANT* value)
1593 {
1594     unknode *This = unknode_from_IXMLDOMNode( iface );
1595
1596     FIXME("(%p)->(%p)\n", This, value);
1597
1598     if(!value)
1599         return E_INVALIDARG;
1600
1601     V_VT(value) = VT_NULL;
1602     return S_FALSE;
1603 }
1604
1605 static HRESULT WINAPI unknode_put_nodeValue(
1606     IXMLDOMNode *iface,
1607     VARIANT value)
1608 {
1609     unknode *This = unknode_from_IXMLDOMNode( iface );
1610     FIXME("(%p)->(v%d)\n", This, V_VT(&value));
1611     return E_FAIL;
1612 }
1613
1614 static HRESULT WINAPI unknode_get_nodeType(
1615     IXMLDOMNode *iface,
1616     DOMNodeType* domNodeType )
1617 {
1618     unknode *This = unknode_from_IXMLDOMNode( iface );
1619
1620     FIXME("(%p)->(%p)\n", This, domNodeType);
1621
1622     switch (This->node.node->type)
1623     {
1624     case XML_ELEMENT_NODE:
1625     case XML_ATTRIBUTE_NODE:
1626     case XML_TEXT_NODE:
1627     case XML_CDATA_SECTION_NODE:
1628     case XML_ENTITY_REF_NODE:
1629     case XML_ENTITY_NODE:
1630     case XML_PI_NODE:
1631     case XML_COMMENT_NODE:
1632     case XML_DOCUMENT_NODE:
1633     case XML_DOCUMENT_TYPE_NODE:
1634     case XML_DOCUMENT_FRAG_NODE:
1635     case XML_NOTATION_NODE:
1636         /* we only care about this set of types, libxml2 type values are
1637            exactly what we need */
1638         *domNodeType = (DOMNodeType)This->node.node->type;
1639         break;
1640     default:
1641         *domNodeType = NODE_INVALID;
1642         break;
1643     }
1644
1645     return S_OK;
1646 }
1647
1648 static HRESULT WINAPI unknode_get_parentNode(
1649     IXMLDOMNode *iface,
1650     IXMLDOMNode** parent )
1651 {
1652     unknode *This = unknode_from_IXMLDOMNode( iface );
1653     FIXME("(%p)->(%p)\n", This, parent);
1654     if (!parent) return E_INVALIDARG;
1655     *parent = NULL;
1656     return S_FALSE;
1657 }
1658
1659 static HRESULT WINAPI unknode_get_childNodes(
1660     IXMLDOMNode *iface,
1661     IXMLDOMNodeList** outList)
1662 {
1663     unknode *This = unknode_from_IXMLDOMNode( iface );
1664
1665     TRACE("(%p)->(%p)\n", This, outList);
1666
1667     return node_get_child_nodes(&This->node, outList);
1668 }
1669
1670 static HRESULT WINAPI unknode_get_firstChild(
1671     IXMLDOMNode *iface,
1672     IXMLDOMNode** domNode)
1673 {
1674     unknode *This = unknode_from_IXMLDOMNode( iface );
1675
1676     TRACE("(%p)->(%p)\n", This, domNode);
1677
1678     return node_get_first_child(&This->node, domNode);
1679 }
1680
1681 static HRESULT WINAPI unknode_get_lastChild(
1682     IXMLDOMNode *iface,
1683     IXMLDOMNode** domNode)
1684 {
1685     unknode *This = unknode_from_IXMLDOMNode( iface );
1686
1687     TRACE("(%p)->(%p)\n", This, domNode);
1688
1689     return node_get_last_child(&This->node, domNode);
1690 }
1691
1692 static HRESULT WINAPI unknode_get_previousSibling(
1693     IXMLDOMNode *iface,
1694     IXMLDOMNode** domNode)
1695 {
1696     unknode *This = unknode_from_IXMLDOMNode( iface );
1697
1698     TRACE("(%p)->(%p)\n", This, domNode);
1699
1700     return node_get_previous_sibling(&This->node, domNode);
1701 }
1702
1703 static HRESULT WINAPI unknode_get_nextSibling(
1704     IXMLDOMNode *iface,
1705     IXMLDOMNode** domNode)
1706 {
1707     unknode *This = unknode_from_IXMLDOMNode( iface );
1708
1709     TRACE("(%p)->(%p)\n", This, domNode);
1710
1711     return node_get_next_sibling(&This->node, domNode);
1712 }
1713
1714 static HRESULT WINAPI unknode_get_attributes(
1715     IXMLDOMNode *iface,
1716     IXMLDOMNamedNodeMap** attributeMap)
1717 {
1718     unknode *This = unknode_from_IXMLDOMNode( iface );
1719
1720     FIXME("(%p)->(%p)\n", This, attributeMap);
1721
1722     return return_null_ptr((void**)attributeMap);
1723 }
1724
1725 static HRESULT WINAPI unknode_insertBefore(
1726     IXMLDOMNode *iface,
1727     IXMLDOMNode* newNode, VARIANT refChild,
1728     IXMLDOMNode** outOldNode)
1729 {
1730     unknode *This = unknode_from_IXMLDOMNode( iface );
1731
1732     FIXME("(%p)->(%p x%d %p)\n", This, newNode, V_VT(&refChild), outOldNode);
1733
1734     return node_insert_before(&This->node, newNode, &refChild, outOldNode);
1735 }
1736
1737 static HRESULT WINAPI unknode_replaceChild(
1738     IXMLDOMNode *iface,
1739     IXMLDOMNode* newNode,
1740     IXMLDOMNode* oldNode,
1741     IXMLDOMNode** outOldNode)
1742 {
1743     unknode *This = unknode_from_IXMLDOMNode( iface );
1744
1745     FIXME("(%p)->(%p %p %p)\n", This, newNode, oldNode, outOldNode);
1746
1747     return node_replace_child(&This->node, newNode, oldNode, outOldNode);
1748 }
1749
1750 static HRESULT WINAPI unknode_removeChild(
1751     IXMLDOMNode *iface,
1752     IXMLDOMNode* domNode, IXMLDOMNode** oldNode)
1753 {
1754     unknode *This = unknode_from_IXMLDOMNode( iface );
1755     return node_remove_child(&This->node, domNode, oldNode);
1756 }
1757
1758 static HRESULT WINAPI unknode_appendChild(
1759     IXMLDOMNode *iface,
1760     IXMLDOMNode* newNode, IXMLDOMNode** outNewNode)
1761 {
1762     unknode *This = unknode_from_IXMLDOMNode( iface );
1763     return node_append_child(&This->node, newNode, outNewNode);
1764 }
1765
1766 static HRESULT WINAPI unknode_hasChildNodes(
1767     IXMLDOMNode *iface,
1768     VARIANT_BOOL* pbool)
1769 {
1770     unknode *This = unknode_from_IXMLDOMNode( iface );
1771     return node_has_childnodes(&This->node, pbool);
1772 }
1773
1774 static HRESULT WINAPI unknode_get_ownerDocument(
1775     IXMLDOMNode *iface,
1776     IXMLDOMDocument** domDocument)
1777 {
1778     unknode *This = unknode_from_IXMLDOMNode( iface );
1779     return node_get_owner_doc(&This->node, domDocument);
1780 }
1781
1782 static HRESULT WINAPI unknode_cloneNode(
1783     IXMLDOMNode *iface,
1784     VARIANT_BOOL pbool, IXMLDOMNode** outNode)
1785 {
1786     unknode *This = unknode_from_IXMLDOMNode( iface );
1787     return node_clone(&This->node, pbool, outNode );
1788 }
1789
1790 static HRESULT WINAPI unknode_get_nodeTypeString(
1791     IXMLDOMNode *iface,
1792     BSTR* p)
1793 {
1794     unknode *This = unknode_from_IXMLDOMNode( iface );
1795
1796     FIXME("(%p)->(%p)\n", This, p);
1797
1798     return node_get_nodeName(&This->node, p);
1799 }
1800
1801 static HRESULT WINAPI unknode_get_text(
1802     IXMLDOMNode *iface,
1803     BSTR* p)
1804 {
1805     unknode *This = unknode_from_IXMLDOMNode( iface );
1806     return node_get_text(&This->node, p);
1807 }
1808
1809 static HRESULT WINAPI unknode_put_text(
1810     IXMLDOMNode *iface,
1811     BSTR p)
1812 {
1813     unknode *This = unknode_from_IXMLDOMNode( iface );
1814     return node_put_text(&This->node, p);
1815 }
1816
1817 static HRESULT WINAPI unknode_get_specified(
1818     IXMLDOMNode *iface,
1819     VARIANT_BOOL* isSpecified)
1820 {
1821     unknode *This = unknode_from_IXMLDOMNode( iface );
1822     FIXME("(%p)->(%p) stub!\n", This, isSpecified);
1823     *isSpecified = VARIANT_TRUE;
1824     return S_OK;
1825 }
1826
1827 static HRESULT WINAPI unknode_get_definition(
1828     IXMLDOMNode *iface,
1829     IXMLDOMNode** definitionNode)
1830 {
1831     unknode *This = unknode_from_IXMLDOMNode( iface );
1832     FIXME("(%p)->(%p)\n", This, definitionNode);
1833     return E_NOTIMPL;
1834 }
1835
1836 static HRESULT WINAPI unknode_get_nodeTypedValue(
1837     IXMLDOMNode *iface,
1838     VARIANT* var1)
1839 {
1840     unknode *This = unknode_from_IXMLDOMNode( iface );
1841     FIXME("(%p)->(%p)\n", This, var1);
1842     return return_null_var(var1);
1843 }
1844
1845 static HRESULT WINAPI unknode_put_nodeTypedValue(
1846     IXMLDOMNode *iface,
1847     VARIANT typedValue)
1848 {
1849     unknode *This = unknode_from_IXMLDOMNode( iface );
1850     FIXME("(%p)->(%s)\n", This, debugstr_variant(&typedValue));
1851     return E_NOTIMPL;
1852 }
1853
1854 static HRESULT WINAPI unknode_get_dataType(
1855     IXMLDOMNode *iface,
1856     VARIANT* var1)
1857 {
1858     unknode *This = unknode_from_IXMLDOMNode( iface );
1859     TRACE("(%p)->(%p)\n", This, var1);
1860     return return_null_var(var1);
1861 }
1862
1863 static HRESULT WINAPI unknode_put_dataType(
1864     IXMLDOMNode *iface,
1865     BSTR p)
1866 {
1867     unknode *This = unknode_from_IXMLDOMNode( iface );
1868
1869     FIXME("(%p)->(%s)\n", This, debugstr_w(p));
1870
1871     if(!p)
1872         return E_INVALIDARG;
1873
1874     return E_FAIL;
1875 }
1876
1877 static HRESULT WINAPI unknode_get_xml(
1878     IXMLDOMNode *iface,
1879     BSTR* p)
1880 {
1881     unknode *This = unknode_from_IXMLDOMNode( iface );
1882
1883     FIXME("(%p)->(%p)\n", This, p);
1884
1885     return node_get_xml(&This->node, FALSE, p);
1886 }
1887
1888 static HRESULT WINAPI unknode_transformNode(
1889     IXMLDOMNode *iface,
1890     IXMLDOMNode* domNode, BSTR* p)
1891 {
1892     unknode *This = unknode_from_IXMLDOMNode( iface );
1893     return node_transform_node(&This->node, domNode, p);
1894 }
1895
1896 static HRESULT WINAPI unknode_selectNodes(
1897     IXMLDOMNode *iface,
1898     BSTR p, IXMLDOMNodeList** outList)
1899 {
1900     unknode *This = unknode_from_IXMLDOMNode( iface );
1901     return node_select_nodes(&This->node, p, outList);
1902 }
1903
1904 static HRESULT WINAPI unknode_selectSingleNode(
1905     IXMLDOMNode *iface,
1906     BSTR p, IXMLDOMNode** outNode)
1907 {
1908     unknode *This = unknode_from_IXMLDOMNode( iface );
1909     return node_select_singlenode(&This->node, p, outNode);
1910 }
1911
1912 static HRESULT WINAPI unknode_get_parsed(
1913     IXMLDOMNode *iface,
1914     VARIANT_BOOL* isParsed)
1915 {
1916     unknode *This = unknode_from_IXMLDOMNode( iface );
1917     FIXME("(%p)->(%p) stub!\n", This, isParsed);
1918     *isParsed = VARIANT_TRUE;
1919     return S_OK;
1920 }
1921
1922 static HRESULT WINAPI unknode_get_namespaceURI(
1923     IXMLDOMNode *iface,
1924     BSTR* p)
1925 {
1926     unknode *This = unknode_from_IXMLDOMNode( iface );
1927     TRACE("(%p)->(%p)\n", This, p);
1928     return node_get_namespaceURI(&This->node, p);
1929 }
1930
1931 static HRESULT WINAPI unknode_get_prefix(
1932     IXMLDOMNode *iface,
1933     BSTR* p)
1934 {
1935     unknode *This = unknode_from_IXMLDOMNode( iface );
1936     return node_get_prefix(&This->node, p);
1937 }
1938
1939 static HRESULT WINAPI unknode_get_baseName(
1940     IXMLDOMNode *iface,
1941     BSTR* p)
1942 {
1943     unknode *This = unknode_from_IXMLDOMNode( iface );
1944     return node_get_base_name(&This->node, p);
1945 }
1946
1947 static HRESULT WINAPI unknode_transformNodeToObject(
1948     IXMLDOMNode *iface,
1949     IXMLDOMNode* domNode, VARIANT var1)
1950 {
1951     unknode *This = unknode_from_IXMLDOMNode( iface );
1952     FIXME("(%p)->(%p %s)\n", This, domNode, debugstr_variant(&var1));
1953     return E_NOTIMPL;
1954 }
1955
1956 static const struct IXMLDOMNodeVtbl unknode_vtbl =
1957 {
1958     unknode_QueryInterface,
1959     unknode_AddRef,
1960     unknode_Release,
1961     unknode_GetTypeInfoCount,
1962     unknode_GetTypeInfo,
1963     unknode_GetIDsOfNames,
1964     unknode_Invoke,
1965     unknode_get_nodeName,
1966     unknode_get_nodeValue,
1967     unknode_put_nodeValue,
1968     unknode_get_nodeType,
1969     unknode_get_parentNode,
1970     unknode_get_childNodes,
1971     unknode_get_firstChild,
1972     unknode_get_lastChild,
1973     unknode_get_previousSibling,
1974     unknode_get_nextSibling,
1975     unknode_get_attributes,
1976     unknode_insertBefore,
1977     unknode_replaceChild,
1978     unknode_removeChild,
1979     unknode_appendChild,
1980     unknode_hasChildNodes,
1981     unknode_get_ownerDocument,
1982     unknode_cloneNode,
1983     unknode_get_nodeTypeString,
1984     unknode_get_text,
1985     unknode_put_text,
1986     unknode_get_specified,
1987     unknode_get_definition,
1988     unknode_get_nodeTypedValue,
1989     unknode_put_nodeTypedValue,
1990     unknode_get_dataType,
1991     unknode_put_dataType,
1992     unknode_get_xml,
1993     unknode_transformNode,
1994     unknode_selectNodes,
1995     unknode_selectSingleNode,
1996     unknode_get_parsed,
1997     unknode_get_namespaceURI,
1998     unknode_get_prefix,
1999     unknode_get_baseName,
2000     unknode_transformNodeToObject
2001 };
2002
2003 IXMLDOMNode *create_node( xmlNodePtr node )
2004 {
2005     IUnknown *pUnk;
2006     IXMLDOMNode *ret;
2007     HRESULT hr;
2008
2009     if ( !node )
2010         return NULL;
2011
2012     TRACE("type %d\n", node->type);
2013     switch(node->type)
2014     {
2015     case XML_ELEMENT_NODE:
2016         pUnk = create_element( node );
2017         break;
2018     case XML_ATTRIBUTE_NODE:
2019         pUnk = create_attribute( node );
2020         break;
2021     case XML_TEXT_NODE:
2022         pUnk = create_text( node );
2023         break;
2024     case XML_CDATA_SECTION_NODE:
2025         pUnk = create_cdata( node );
2026         break;
2027     case XML_ENTITY_REF_NODE:
2028         pUnk = create_doc_entity_ref( node );
2029         break;
2030     case XML_PI_NODE:
2031         pUnk = create_pi( node );
2032         break;
2033     case XML_COMMENT_NODE:
2034         pUnk = create_comment( node );
2035         break;
2036     case XML_DOCUMENT_NODE:
2037         pUnk = create_domdoc( node );
2038         break;
2039     case XML_DOCUMENT_FRAG_NODE:
2040         pUnk = create_doc_fragment( node );
2041         break;
2042     case XML_DTD_NODE:
2043     case XML_DOCUMENT_TYPE_NODE:
2044         pUnk = create_doc_type( node );
2045         break;
2046     case XML_ENTITY_NODE:
2047     case XML_NOTATION_NODE: {
2048         unknode *new_node;
2049
2050         FIXME("only creating basic node for type %d\n", node->type);
2051
2052         new_node = heap_alloc(sizeof(unknode));
2053         if(!new_node)
2054             return NULL;
2055
2056         new_node->IXMLDOMNode_iface.lpVtbl = &unknode_vtbl;
2057         new_node->ref = 1;
2058         init_xmlnode(&new_node->node, node, &new_node->IXMLDOMNode_iface, NULL);
2059         pUnk = (IUnknown*)&new_node->IXMLDOMNode_iface;
2060         break;
2061     }
2062     default:
2063         ERR("Called for unsupported node type %d\n", node->type);
2064         return NULL;
2065     }
2066
2067     hr = IUnknown_QueryInterface(pUnk, &IID_IXMLDOMNode, (LPVOID*)&ret);
2068     IUnknown_Release(pUnk);
2069     if(FAILED(hr)) return NULL;
2070     return ret;
2071 }
2072 #endif