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