git.oblomov.eu Git - wine/blob - 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/xsltutils.h>
  39 #  include <libxslt/xsltInternals.h>
  40 # endif
  41 #endif
  42
  43 #include "windef.h"
  44 #include "winbase.h"
  45 #include "winuser.h"
  46 #include "winnls.h"
  47 #include "ole2.h"
  48 #include "msxml6.h"
  49
  50 #include "msxml_private.h"
  51
  52 #include "wine/debug.h"
  53
  54 WINE_DEFAULT_DEBUG_CHANNEL(msxml);
  55
  56 #ifdef HAVE_LIBXML2
  57
  58 #ifdef SONAME_LIBXSLT
  59 extern void* libxslt_handle;
  60 # define MAKE_FUNCPTR(f) extern typeof(f) * p##f
  61 MAKE_FUNCPTR(xsltApplyStylesheet);
  62 MAKE_FUNCPTR(xsltCleanupGlobals);
  63 MAKE_FUNCPTR(xsltFreeStylesheet);
  64 MAKE_FUNCPTR(xsltParseStylesheetDoc);
  65 # undef MAKE_FUNCPTR
  66 #endif
  67
  68 /* TODO: get rid of these and use the enum */
  69 static const WCHAR szBinBase64[]  = {'b','i','n','.','b','a','s','e','6','4',0};
  70 static const WCHAR szString[]     = {'s','t','r','i','n','g',0};
  71 static const WCHAR szNumber[]     = {'n','u','m','b','e','r',0};
  72 static const WCHAR szInt[]        = {'I','n','t',0};
  73 static const WCHAR szFixed[]      = {'F','i','x','e','d','.','1','4','.','4',0};
  74 static const WCHAR szBoolean[]    = {'B','o','o','l','e','a','n',0};
  75 static const WCHAR szDateTime[]   = {'d','a','t','e','T','i','m','e',0};
  76 static const WCHAR szDateTimeTZ[] = {'d','a','t','e','T','i','m','e','.','t','z',0};
  77 static const WCHAR szDate[]       = {'D','a','t','e',0};
  78 static const WCHAR szTime[]       = {'T','i','m','e',0};
  79 static const WCHAR szTimeTZ[]     = {'T','i','m','e','.','t','z',0};
  80 static const WCHAR szI1[]         = {'i','1',0};
  81 static const WCHAR szI2[]         = {'i','2',0};
  82 static const WCHAR szI4[]         = {'i','4',0};
  83 static const WCHAR szIU1[]        = {'u','i','1',0};
  84 static const WCHAR szIU2[]        = {'u','i','2',0};
  85 static const WCHAR szIU4[]        = {'u','i','4',0};
  86 static const WCHAR szR4[]         = {'r','4',0};
  87 static const WCHAR szR8[]         = {'r','8',0};
  88 static const WCHAR szFloat[]      = {'f','l','o','a','t',0};
  89 static const WCHAR szUUID[]       = {'u','u','i','d',0};
  90 static const WCHAR szBinHex[]     = {'b','i','n','.','h','e','x',0};
  91
  92 static const IID IID_xmlnode = {0x4f2f4ba2,0xb822,0x11df,{0x8b,0x8a,0x68,0x50,0xdf,0xd7,0x20,0x85}};
  93
  94 xmlNodePtr xmlNodePtr_from_domnode( IXMLDOMNode *iface, xmlElementType type )
  95 {
  96     xmlnode *This;
  97
  98     if ( !iface )
  99         return NULL;
 100     This = get_node_obj( iface );
 101     if ( !This || !This->node )
 102         return NULL;
 103     if ( type && This->node->type != type )
 104         return NULL;
 105     return This->node;
 106 }
 107
 108 BOOL node_query_interface(xmlnode *This, REFIID riid, void **ppv)
 109 {
 110     if(IsEqualGUID(&IID_xmlnode, riid)) {
 111         TRACE("(%p)->(IID_xmlnode %p)\n", This, ppv);
 112         *ppv = This;
 113         return TRUE;
 114     }
 115
 116     if(This->dispex.outer)
 117         return dispex_query_interface(&This->dispex, riid, ppv);
 118
 119     return FALSE;
 120 }
 121
 122 xmlnode *get_node_obj(IXMLDOMNode *node)
 123 {
 124     xmlnode *obj = NULL;
 125     HRESULT hres;
 126
 127     hres = IXMLDOMNode_QueryInterface(node, &IID_xmlnode, (void**)&obj);
 128     if (!obj) WARN("node is not our IXMLDOMNode implementation\n");
 129     return SUCCEEDED(hres) ? obj : NULL;
 130 }
 131
 132 HRESULT node_get_nodeName(xmlnode *This, BSTR *name)
 133 {
 134     if (!name)
 135         return E_INVALIDARG;
 136
 137     *name = bstr_from_xmlChar(This->node->name);
 138     if (!*name)
 139         return S_FALSE;
 140
 141     return S_OK;
 142 }
 143
 144 HRESULT node_get_content(xmlnode *This, VARIANT *value)
 145 {
 146     xmlChar *content;
 147
 148     if(!value)
 149         return E_INVALIDARG;
 150
 151     content = xmlNodeGetContent(This->node);
 152     V_VT(value) = VT_BSTR;
 153     V_BSTR(value) = bstr_from_xmlChar( content );
 154     xmlFree(content);
 155
 156     TRACE("%p returned %s\n", This, debugstr_w(V_BSTR(value)));
 157     return S_OK;
 158 }
 159
 160 HRESULT node_set_content(xmlnode *This, LPCWSTR value)
 161 {
 162     xmlChar *str;
 163
 164     TRACE("(%p)->(%s)\n", This, debugstr_w(value));
 165     str = xmlChar_from_wchar(value);
 166     if(!str)
 167         return E_OUTOFMEMORY;
 168
 169     xmlNodeSetContent(This->node, str);
 170     heap_free(str);
 171     return S_OK;
 172 }
 173
 174 static HRESULT node_set_content_escaped(xmlnode *This, LPCWSTR value)
 175 {
 176     xmlChar *str, *escaped;
 177
 178     TRACE("(%p)->(%s)\n", This, debugstr_w(value));
 179     str = xmlChar_from_wchar(value);
 180     if(!str)
 181         return E_OUTOFMEMORY;
 182
 183     escaped = xmlEncodeSpecialChars(NULL, str);
 184     if(!escaped)
 185     {
 186         heap_free(str);
 187         return E_OUTOFMEMORY;
 188     }
 189
 190     xmlNodeSetContent(This->node, escaped);
 191
 192     heap_free(str);
 193     xmlFree(escaped);
 194
 195     return S_OK;
 196 }
 197
 198 HRESULT node_put_value(xmlnode *This, VARIANT *value)
 199 {
 200     VARIANT string_value;
 201     HRESULT hr;
 202
 203     VariantInit(&string_value);
 204     hr = VariantChangeType(&string_value, value, 0, VT_BSTR);
 205     if(FAILED(hr)) {
 206         WARN("Couldn't convert to VT_BSTR\n");
 207         return hr;
 208     }
 209
 210     hr = node_set_content(This, V_BSTR(&string_value));
 211     VariantClear(&string_value);
 212
 213     return hr;
 214 }
 215
 216 HRESULT node_put_value_escaped(xmlnode *This, VARIANT *value)
 217 {
 218     VARIANT string_value;
 219     HRESULT hr;
 220
 221     VariantInit(&string_value);
 222     hr = VariantChangeType(&string_value, value, 0, VT_BSTR);
 223     if(FAILED(hr)) {
 224         WARN("Couldn't convert to VT_BSTR\n");
 225         return hr;
 226     }
 227
 228     hr = node_set_content_escaped(This, V_BSTR(&string_value));
 229     VariantClear(&string_value);
 230
 231     return hr;
 232 }
 233
 234 static HRESULT get_node(
 235     xmlnode *This,
 236     const char *name,
 237     xmlNodePtr node,
 238     IXMLDOMNode **out )
 239 {
 240     TRACE("(%p)->(%s %p %p)\n", This, name, node, out );
 241
 242     if ( !out )
 243         return E_INVALIDARG;
 244
 245     /* if we don't have a doc, use our parent. */
 246     if(node && !node->doc && node->parent)
 247         node->doc = node->parent->doc;
 248
 249     *out = create_node( node );
 250     if (!*out)
 251         return S_FALSE;
 252     return S_OK;
 253 }
 254
 255 HRESULT node_get_parent(xmlnode *This, IXMLDOMNode **parent)
 256 {
 257     return get_node( This, "parent", This->node->parent, parent );
 258 }
 259
 260 HRESULT node_get_child_nodes(xmlnode *This, IXMLDOMNodeList **ret)
 261 {
 262     if(!ret)
 263         return E_INVALIDARG;
 264
 265     *ret = create_children_nodelist(This->node);
 266     if(!*ret)
 267         return E_OUTOFMEMORY;
 268
 269     return S_OK;
 270 }
 271
 272 HRESULT node_get_first_child(xmlnode *This, IXMLDOMNode **ret)
 273 {
 274     return get_node(This, "firstChild", This->node->children, ret);
 275 }
 276
 277 HRESULT node_get_last_child(xmlnode *This, IXMLDOMNode **ret)
 278 {
 279     return get_node(This, "lastChild", This->node->last, ret);
 280 }
 281
 282 HRESULT node_get_previous_sibling(xmlnode *This, IXMLDOMNode **ret)
 283 {
 284     return get_node(This, "previous", This->node->prev, ret);
 285 }
 286
 287 HRESULT node_get_next_sibling(xmlnode *This, IXMLDOMNode **ret)
 288 {
 289     return get_node(This, "next", This->node->next, ret);
 290 }
 291
 292 HRESULT node_insert_before(xmlnode *This, IXMLDOMNode *new_child, const VARIANT *ref_child,
 293         IXMLDOMNode **ret)
 294 {
 295     IXMLDOMNode *before = NULL;
 296     xmlnode *node_obj;
 297     xmlDocPtr doc;
 298     HRESULT hr;
 299
 300     if(!new_child)
 301         return E_INVALIDARG;
 302
 303     node_obj = get_node_obj(new_child);
 304     if(!node_obj) return E_FAIL;
 305
 306     switch(V_VT(ref_child))
 307     {
 308     case VT_EMPTY:
 309     case VT_NULL:
 310         break;
 311
 312     case VT_UNKNOWN:
 313     case VT_DISPATCH:
 314         hr = IUnknown_QueryInterface(V_UNKNOWN(ref_child), &IID_IXMLDOMNode, (void**)&before);
 315         if(FAILED(hr)) return hr;
 316         break;
 317
 318     default:
 319         FIXME("refChild var type %x\n", V_VT(ref_child));
 320         return E_FAIL;
 321     }
 322
 323     TRACE("new child %p, This->node %p\n", node_obj->node, This->node);
 324
 325     if(!node_obj->node->parent)
 326         if(xmldoc_remove_orphan(node_obj->node->doc, node_obj->node) != S_OK)
 327             WARN("%p is not an orphan of %p\n", node_obj->node, node_obj->node->doc);
 328
 329     if(before)
 330     {
 331         xmlnode *before_node_obj = get_node_obj(before);
 332         IXMLDOMNode_Release(before);
 333         if(!before_node_obj) return E_FAIL;
 334
 335         /* unlink from current parent first */
 336         if(node_obj->parent)
 337         {
 338             hr = IXMLDOMNode_removeChild(node_obj->parent, node_obj->iface, NULL);
 339             if (hr == S_OK) xmldoc_remove_orphan(node_obj->node->doc, node_obj->node);
 340         }
 341         doc = node_obj->node->doc;
 342         xmldoc_add_ref(before_node_obj->node->doc);
 343         xmlAddPrevSibling(before_node_obj->node, node_obj->node);
 344         xmldoc_release(doc);
 345         node_obj->parent = This->parent;
 346     }
 347     else
 348     {
 349         /* unlink from current parent first */
 350         if(node_obj->parent)
 351         {
 352             hr = IXMLDOMNode_removeChild(node_obj->parent, node_obj->iface, NULL);
 353             if (hr == S_OK) xmldoc_remove_orphan(node_obj->node->doc, node_obj->node);
 354         }
 355         doc = node_obj->node->doc;
 356         xmldoc_add_ref(This->node->doc);
 357         xmlAddChild(This->node, node_obj->node);
 358         xmldoc_release(doc);
 359         node_obj->parent = This->iface;
 360     }
 361
 362     if(ret)
 363     {
 364         IXMLDOMNode_AddRef(new_child);
 365         *ret = new_child;
 366     }
 367
 368     TRACE("ret S_OK\n");
 369     return S_OK;
 370 }
 371
 372 HRESULT node_replace_child(xmlnode *This, IXMLDOMNode *newChild, IXMLDOMNode *oldChild,
 373         IXMLDOMNode **ret)
 374 {
 375     xmlnode *old_child, *new_child;
 376     xmlDocPtr leaving_doc;
 377     xmlNode *my_ancestor;
 378
 379     /* Do not believe any documentation telling that newChild == NULL
 380        means removal. It does certainly *not* apply to msxml3! */
 381     if(!newChild || !oldChild)
 382         return E_INVALIDARG;
 383
 384     if(ret)
 385         *ret = NULL;
 386
 387     old_child = get_node_obj(oldChild);
 388     if(!old_child) return E_FAIL;
 389
 390     if(old_child->node->parent != This->node)
 391     {
 392         WARN("childNode %p is not a child of %p\n", oldChild, This);
 393         return E_INVALIDARG;
 394     }
 395
 396     new_child = get_node_obj(newChild);
 397     if(!new_child) return E_FAIL;
 398
 399     my_ancestor = This->node;
 400     while(my_ancestor)
 401     {
 402         if(my_ancestor == new_child->node)
 403         {
 404             WARN("tried to create loop\n");
 405             return E_FAIL;
 406         }
 407         my_ancestor = my_ancestor->parent;
 408     }
 409
 410     if(!new_child->node->parent)
 411         if(xmldoc_remove_orphan(new_child->node->doc, new_child->node) != S_OK)
 412             WARN("%p is not an orphan of %p\n", new_child->node, new_child->node->doc);
 413
 414     leaving_doc = new_child->node->doc;
 415     xmldoc_add_ref(old_child->node->doc);
 416     xmlReplaceNode(old_child->node, new_child->node);
 417     xmldoc_release(leaving_doc);
 418     new_child->parent = old_child->parent;
 419     old_child->parent = NULL;
 420
 421     xmldoc_add_orphan(old_child->node->doc, old_child->node);
 422
 423     if(ret)
 424     {
 425         IXMLDOMNode_AddRef(oldChild);
 426         *ret = oldChild;
 427     }
 428
 429     return S_OK;
 430 }
 431
 432 HRESULT node_remove_child(xmlnode *This, IXMLDOMNode* child, IXMLDOMNode** oldChild)
 433 {
 434     xmlnode *child_node;
 435
 436     if(!child) return E_INVALIDARG;
 437
 438     if(oldChild)
 439         *oldChild = NULL;
 440
 441     child_node = get_node_obj(child);
 442     if(!child_node) return E_FAIL;
 443
 444     if(child_node->node->parent != This->node)
 445     {
 446         WARN("childNode %p is not a child of %p\n", child, This);
 447         return E_INVALIDARG;
 448     }
 449
 450     xmlUnlinkNode(child_node->node);
 451     child_node->parent = NULL;
 452     xmldoc_add_orphan(child_node->node->doc, child_node->node);
 453
 454     if(oldChild)
 455     {
 456         IXMLDOMNode_AddRef(child);
 457         *oldChild = child;
 458     }
 459
 460     return S_OK;
 461 }
 462
 463 HRESULT node_append_child(xmlnode *This, IXMLDOMNode *child, IXMLDOMNode **outChild)
 464 {
 465     DOMNodeType type;
 466     VARIANT var;
 467     HRESULT hr;
 468
 469     hr = IXMLDOMNode_get_nodeType(child, &type);
 470     if(FAILED(hr) || type == NODE_ATTRIBUTE) {
 471         if (outChild) *outChild = NULL;
 472         return E_FAIL;
 473     }
 474
 475     VariantInit(&var);
 476     return IXMLDOMNode_insertBefore(This->iface, child, var, outChild);
 477 }
 478
 479 HRESULT node_has_childnodes(const xmlnode *This, VARIANT_BOOL *ret)
 480 {
 481     if (!ret) return E_INVALIDARG;
 482
 483     if (!This->node->children)
 484     {
 485         *ret = VARIANT_FALSE;
 486         return S_FALSE;
 487     }
 488
 489     *ret = VARIANT_TRUE;
 490     return S_OK;
 491 }
 492
 493 HRESULT node_get_owner_doc(const xmlnode *This, IXMLDOMDocument **doc)
 494 {
 495     return get_domdoc_from_xmldoc(This->node->doc, (IXMLDOMDocument3**)doc);
 496 }
 497
 498 HRESULT node_clone(xmlnode *This, VARIANT_BOOL deep, IXMLDOMNode **cloneNode)
 499 {
 500     IXMLDOMNode *node;
 501     xmlNodePtr clone;
 502
 503     if(!cloneNode) return E_INVALIDARG;
 504
 505     clone = xmlCopyNode(This->node, deep ? 1 : 2);
 506     if (clone)
 507     {
 508         clone->doc = This->node->doc;
 509         xmldoc_add_orphan(clone->doc, clone);
 510
 511         node = create_node(clone);
 512         if (!node)
 513         {
 514             ERR("Copy failed\n");
 515             xmldoc_remove_orphan(clone->doc, clone);
 516             xmlFreeNode(clone);
 517             return E_FAIL;
 518         }
 519
 520         *cloneNode = node;
 521     }
 522     else
 523     {
 524         ERR("Copy failed\n");
 525         return E_FAIL;
 526     }
 527
 528     return S_OK;
 529 }
 530
 531 static inline xmlChar* trim_whitespace(xmlChar* str)
 532 {
 533     xmlChar* ret = str;
 534     int len;
 535
 536     if (!str)
 537         return NULL;
 538
 539     while (*ret && isspace(*ret))
 540         ++ret;
 541     len = xmlStrlen(ret);
 542     if (len)
 543         while (isspace(ret[len-1])) --len;
 544
 545     ret = xmlStrndup(ret, len);
 546     xmlFree(str);
 547     return ret;
 548 }
 549
 550 static xmlChar* do_get_text(xmlNodePtr node)
 551 {
 552     xmlNodePtr child;
 553     xmlChar* str;
 554     BOOL preserving = is_preserving_whitespace(node);
 555
 556     if (!node->children)
 557     {
 558         str = xmlNodeGetContent(node);
 559     }
 560     else
 561     {
 562         xmlElementType prev_type = XML_TEXT_NODE;
 563         xmlChar* tmp;
 564         str = xmlStrdup(BAD_CAST "");
 565         for (child = node->children; child != NULL; child = child->next)
 566         {
 567             switch (child->type)
 568             {
 569             case XML_ELEMENT_NODE:
 570                 tmp = do_get_text(child);
 571                 break;
 572             case XML_TEXT_NODE:
 573             case XML_CDATA_SECTION_NODE:
 574             case XML_ENTITY_REF_NODE:
 575             case XML_ENTITY_NODE:
 576                 tmp = xmlNodeGetContent(child);
 577                 break;
 578             default:
 579                 tmp = NULL;
 580                 break;
 581             }
 582
 583             if (tmp)
 584             {
 585                 if (*tmp)
 586                 {
 587                     if (prev_type == XML_ELEMENT_NODE && child->type == XML_ELEMENT_NODE)
 588                         str = xmlStrcat(str, BAD_CAST " ");
 589                     str = xmlStrcat(str, tmp);
 590                     prev_type = child->type;
 591                 }
 592                 xmlFree(tmp);
 593             }
 594         }
 595     }
 596
 597     switch (node->type)
 598     {
 599     case XML_ELEMENT_NODE:
 600     case XML_TEXT_NODE:
 601     case XML_ENTITY_REF_NODE:
 602     case XML_ENTITY_NODE:
 603     case XML_DOCUMENT_NODE:
 604     case XML_DOCUMENT_FRAG_NODE:
 605         if (!preserving)
 606             str = trim_whitespace(str);
 607         break;
 608     default:
 609         break;
 610     }
 611
 612     return str;
 613 }
 614
 615 HRESULT node_get_text(const xmlnode *This, BSTR *text)
 616 {
 617     BSTR str = NULL;
 618     xmlChar *content;
 619
 620     if (!text) return E_INVALIDARG;
 621
 622     content = do_get_text(This->node);
 623     if (content)
 624     {
 625         str = bstr_from_xmlChar(content);
 626         xmlFree(content);
 627     }
 628
 629     /* Always return a string. */
 630     if (!str) str = SysAllocStringLen( NULL, 0 );
 631
 632     TRACE("%p %s\n", This, debugstr_w(str) );
 633     *text = str;
 634
 635     return S_OK;
 636 }
 637
 638 HRESULT node_put_text(xmlnode *This, BSTR text)
 639 {
 640     xmlChar *str, *str2;
 641
 642     TRACE("(%p)->(%s)\n", This, debugstr_w(text));
 643
 644     str = xmlChar_from_wchar(text);
 645
 646     /* Escape the string. */
 647     str2 = xmlEncodeEntitiesReentrant(This->node->doc, str);
 648     heap_free(str);
 649
 650     xmlNodeSetContent(This->node, str2);
 651     xmlFree(str2);
 652
 653     return S_OK;
 654 }
 655
 656 static inline BYTE hex_to_byte(xmlChar c)
 657 {
 658     if(c <= '9') return c-'0';
 659     if(c <= 'F') return c-'A'+10;
 660     return c-'a'+10;
 661 }
 662
 663 static inline BYTE base64_to_byte(xmlChar c)
 664 {
 665     if(c == '+') return 62;
 666     if(c == '/') return 63;
 667     if(c <= '9') return c-'0'+52;
 668     if(c <= 'Z') return c-'A';
 669     return c-'a'+26;
 670 }
 671
 672 /* TODO: phasing this version out */
 673 static inline HRESULT VARIANT_from_xmlChar(xmlChar *str, VARIANT *v, BSTR type)
 674 {
 675     if(!type || !lstrcmpiW(type, szString) ||
 676             !lstrcmpiW(type, szNumber) || !lstrcmpiW(type, szUUID))
 677     {
 678         V_VT(v) = VT_BSTR;
 679         V_BSTR(v) = bstr_from_xmlChar(str);
 680
 681         if(!V_BSTR(v))
 682             return E_OUTOFMEMORY;
 683     }
 684     else if(!lstrcmpiW(type, szDateTime) || !lstrcmpiW(type, szDateTimeTZ) ||
 685             !lstrcmpiW(type, szDate) || !lstrcmpiW(type, szTime) ||
 686             !lstrcmpiW(type, szTimeTZ))
 687     {
 688         VARIANT src;
 689         WCHAR *p, *e;
 690         SYSTEMTIME st;
 691         DOUBLE date = 0.0;
 692
 693         st.wYear = 1899;
 694         st.wMonth = 12;
 695         st.wDay = 30;
 696         st.wDayOfWeek = st.wHour = st.wMinute = st.wSecond = st.wMilliseconds = 0;
 697
 698         V_VT(&src) = VT_BSTR;
 699         V_BSTR(&src) = bstr_from_xmlChar(str);
 700
 701         if(!V_BSTR(&src))
 702             return E_OUTOFMEMORY;
 703
 704         p = V_BSTR(&src);
 705         e = p + SysStringLen(V_BSTR(&src));
 706
 707         if(p+4<e && *(p+4)=='-') /* parse date (yyyy-mm-dd) */
 708         {
 709             st.wYear = atoiW(p);
 710             st.wMonth = atoiW(p+5);
 711             st.wDay = atoiW(p+8);
 712             p += 10;
 713
 714             if(*p == 'T') p++;
 715         }
 716
 717         if(p+2<e && *(p+2)==':') /* parse time (hh:mm:ss.?) */
 718         {
 719             st.wHour = atoiW(p);
 720             st.wMinute = atoiW(p+3);
 721             st.wSecond = atoiW(p+6);
 722             p += 8;
 723
 724             if(*p == '.')
 725             {
 726                 p++;
 727                 while(isdigitW(*p)) p++;
 728             }
 729         }
 730
 731         SystemTimeToVariantTime(&st, &date);
 732         V_VT(v) = VT_DATE;
 733         V_DATE(v) = date;
 734
 735         if(*p == '+') /* parse timezone offset (+hh:mm) */
 736             V_DATE(v) += (DOUBLE)atoiW(p+1)/24 + (DOUBLE)atoiW(p+4)/1440;
 737         else if(*p == '-') /* parse timezone offset (-hh:mm) */
 738             V_DATE(v) -= (DOUBLE)atoiW(p+1)/24 + (DOUBLE)atoiW(p+4)/1440;
 739
 740         VariantClear(&src);
 741     }
 742     else if(!lstrcmpiW(type, szBinHex))
 743     {
 744         SAFEARRAYBOUND sab;
 745         int i, len;
 746
 747         len = xmlStrlen(str)/2;
 748         sab.lLbound = 0;
 749         sab.cElements = len;
 750
 751         V_VT(v) = (VT_ARRAY|VT_UI1);
 752         V_ARRAY(v) = SafeArrayCreate(VT_UI1, 1, &sab);
 753
 754         if(!V_ARRAY(v))
 755             return E_OUTOFMEMORY;
 756
 757         for(i=0; i<len; i++)
 758             ((BYTE*)V_ARRAY(v)->pvData)[i] = (hex_to_byte(str[2*i])<<4)
 759                 + hex_to_byte(str[2*i+1]);
 760     }
 761     else if(!lstrcmpiW(type, szBinBase64))
 762     {
 763         SAFEARRAYBOUND sab;
 764         int i, len;
 765
 766         len  = xmlStrlen(str);
 767         if(str[len-2] == '=') i = 2;
 768         else if(str[len-1] == '=') i = 1;
 769         else i = 0;
 770
 771         sab.lLbound = 0;
 772         sab.cElements = len/4*3-i;
 773
 774         V_VT(v) = (VT_ARRAY|VT_UI1);
 775         V_ARRAY(v) = SafeArrayCreate(VT_UI1, 1, &sab);
 776
 777         if(!V_ARRAY(v))
 778             return E_OUTOFMEMORY;
 779
 780         for(i=0; i<len/4; i++)
 781         {
 782             ((BYTE*)V_ARRAY(v)->pvData)[3*i] = (base64_to_byte(str[4*i])<<2)
 783                 + (base64_to_byte(str[4*i+1])>>4);
 784             if(3*i+1 < sab.cElements)
 785                 ((BYTE*)V_ARRAY(v)->pvData)[3*i+1] = (base64_to_byte(str[4*i+1])<<4)
 786                     + (base64_to_byte(str[4*i+2])>>2);
 787             if(3*i+2 < sab.cElements)
 788                 ((BYTE*)V_ARRAY(v)->pvData)[3*i+2] = (base64_to_byte(str[4*i+2])<<6)
 789                     + base64_to_byte(str[4*i+3]);
 790         }
 791     }
 792     else
 793     {
 794         VARIANT src;
 795         HRESULT hres;
 796
 797         if(!lstrcmpiW(type, szInt) || !lstrcmpiW(type, szI4))
 798             V_VT(v) = VT_I4;
 799         else if(!lstrcmpiW(type, szFixed))
 800             V_VT(v) = VT_CY;
 801         else if(!lstrcmpiW(type, szBoolean))
 802             V_VT(v) = VT_BOOL;
 803         else if(!lstrcmpiW(type, szI1))
 804             V_VT(v) = VT_I1;
 805         else if(!lstrcmpiW(type, szI2))
 806             V_VT(v) = VT_I2;
 807         else if(!lstrcmpiW(type, szIU1))
 808             V_VT(v) = VT_UI1;
 809         else if(!lstrcmpiW(type, szIU2))
 810             V_VT(v) = VT_UI2;
 811         else if(!lstrcmpiW(type, szIU4))
 812             V_VT(v) = VT_UI4;
 813         else if(!lstrcmpiW(type, szR4))
 814             V_VT(v) = VT_R4;
 815         else if(!lstrcmpiW(type, szR8) || !lstrcmpiW(type, szFloat))
 816             V_VT(v) = VT_R8;
 817         else
 818         {
 819             FIXME("Type handling not yet implemented\n");
 820             V_VT(v) = VT_BSTR;
 821         }
 822
 823         V_VT(&src) = VT_BSTR;
 824         V_BSTR(&src) = bstr_from_xmlChar(str);
 825
 826         if(!V_BSTR(&src))
 827             return E_OUTOFMEMORY;
 828
 829         hres = VariantChangeTypeEx(v, &src, MAKELCID(MAKELANGID(
 830                         LANG_ENGLISH,SUBLANG_ENGLISH_US),SORT_DEFAULT),0, V_VT(v));
 831         VariantClear(&src);
 832         return hres;
 833     }
 834
 835     return S_OK;
 836 }
 837
 838 BSTR EnsureCorrectEOL(BSTR sInput)
 839 {
 840     int nNum = 0;
 841     BSTR sNew;
 842     int nLen;
 843     int i;
 844
 845     nLen = SysStringLen(sInput);
 846     /* Count line endings */
 847     for(i=0; i < nLen; i++)
 848     {
 849         if(sInput[i] == '\n')
 850             nNum++;
 851     }
 852
 853     TRACE("len=%d, num=%d\n", nLen, nNum);
 854
 855     /* Add linefeed as needed */
 856     if(nNum > 0)
 857     {
 858         int nPlace = 0;
 859         sNew = SysAllocStringLen(NULL, nLen + nNum+1);
 860         for(i=0; i < nLen; i++)
 861         {
 862             if(sInput[i] == '\n')
 863             {
 864                 sNew[i+nPlace] = '\r';
 865                 nPlace++;
 866             }
 867             sNew[i+nPlace] = sInput[i];
 868         }
 869
 870         SysFreeString(sInput);
 871     }
 872     else
 873     {
 874         sNew = sInput;
 875     }
 876
 877     TRACE("len %d\n", SysStringLen(sNew));
 878
 879     return sNew;
 880 }
 881
 882 /* Removes encoding information and last character (nullbyte) */
 883 static BSTR EnsureNoEncoding(BSTR sInput)
 884 {
 885     static const WCHAR wszEncoding[] = {'e','n','c','o','d','i','n','g','='};
 886     BSTR sNew;
 887     WCHAR *pBeg, *pEnd;
 888
 889     pBeg = sInput;
 890     while(*pBeg != '\n' && memcmp(pBeg, wszEncoding, sizeof(wszEncoding)))
 891         pBeg++;
 892
 893     if(*pBeg == '\n')
 894     {
 895         SysReAllocStringLen(&sInput, sInput, SysStringLen(sInput)-1);
 896         return sInput;
 897     }
 898     pBeg--;
 899
 900     pEnd = pBeg + sizeof(wszEncoding)/sizeof(WCHAR) + 2;
 901     while(*pEnd != '\"') pEnd++;
 902     pEnd++;
 903
 904     sNew = SysAllocStringLen(NULL,
 905             pBeg-sInput + SysStringLen(sInput)-(pEnd-sInput)-1);
 906     memcpy(sNew, sInput, (pBeg-sInput)*sizeof(WCHAR));
 907     memcpy(&sNew[pBeg-sInput], pEnd, (SysStringLen(sInput)-(pEnd-sInput)-1)*sizeof(WCHAR));
 908
 909     SysFreeString(sInput);
 910     return sNew;
 911 }
 912
 913 /*
 914  * We are trying to replicate the same behaviour as msxml by converting
 915  * line endings to \r\n and using indents as \t. The problem is that msxml
 916  * only formats nodes that have a line ending. Using libxml we cannot
 917  * reproduce behaviour exactly.
 918  *
 919  */
 920 HRESULT node_get_xml(xmlnode *This, BOOL ensure_eol, BOOL ensure_no_encoding, BSTR *ret)
 921 {
 922     xmlBufferPtr xml_buf;
 923     xmlNodePtr xmldecl;
 924     int size;
 925
 926     if(!ret)
 927         return E_INVALIDARG;
 928
 929     *ret = NULL;
 930
 931     xml_buf = xmlBufferCreate();
 932     if(!xml_buf)
 933         return E_OUTOFMEMORY;
 934
 935     xmldecl = xmldoc_unlink_xmldecl( This->node->doc );
 936
 937     size = xmlNodeDump(xml_buf, This->node->doc, This->node, 0, 1);
 938     if(size > 0) {
 939         const xmlChar *buf_content;
 940         BSTR content;
 941
 942         /* Attribute Nodes return a space in front of their name */
 943         buf_content = xmlBufferContent(xml_buf);
 944
 945         content = bstr_from_xmlChar(buf_content + (buf_content[0] == ' ' ? 1 : 0));
 946         if(ensure_eol)
 947             content = EnsureCorrectEOL(content);
 948         if(ensure_no_encoding)
 949             content = EnsureNoEncoding(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 HRESULT node_transform_node(const xmlnode *This, IXMLDOMNode *stylesheet, BSTR *p)
 962 {
 963 #ifdef SONAME_LIBXSLT
 964     xsltStylesheetPtr xsltSS;
 965     xmlnode *sheet;
 966
 967     if (!libxslt_handle) return E_NOTIMPL;
 968     if (!stylesheet || !p) return E_INVALIDARG;
 969
 970     *p = NULL;
 971
 972     sheet = get_node_obj(stylesheet);
 973     if(!sheet) return E_FAIL;
 974
 975     xsltSS = pxsltParseStylesheetDoc(sheet->node->doc);
 976     if(xsltSS)
 977     {
 978         xmlDocPtr result = pxsltApplyStylesheet(xsltSS, This->node->doc, NULL);
 979         if(result)
 980         {
 981             const xmlChar *content;
 982
 983             if(result->type == XML_HTML_DOCUMENT_NODE)
 984             {
 985                 xmlOutputBufferPtr output = xmlAllocOutputBuffer(NULL);
 986                 if (output)
 987                 {
 988                     htmlDocContentDumpOutput(output, result->doc, NULL);
 989                     content = xmlBufferContent(output->buffer);
 990                     *p = bstr_from_xmlChar(content);
 991                     xmlOutputBufferClose(output);
 992                 }
 993             }
 994             else
 995             {
 996                 xmlBufferPtr buf = xmlBufferCreate();
 997                 if (buf)
 998                 {
 999                     int size = xmlNodeDump(buf, NULL, (xmlNodePtr)result, 0, 0);
1000                     if(size > 0)
1001                     {
1002                         content = xmlBufferContent(buf);
1003                         *p = bstr_from_xmlChar(content);
1004                     }
1005                     xmlBufferFree(buf);
1006                 }
1007             }
1008             xmlFreeDoc(result);
1009         }
1010         /* libxslt "helpfully" frees the XML document the stylesheet was
1011            generated from, too */
1012         xsltSS->doc = NULL;
1013         pxsltFreeStylesheet(xsltSS);
1014     }
1015
1016     if(!*p) *p = SysAllocStringLen(NULL, 0);
1017
1018     return S_OK;
1019 #else
1020     FIXME("libxslt headers were not found at compile time\n");
1021     return E_NOTIMPL;
1022 #endif
1023 }
1024
1025 HRESULT node_select_nodes(const xmlnode *This, BSTR query, IXMLDOMNodeList **nodes)
1026 {
1027     xmlChar* str;
1028     HRESULT hr;
1029
1030     if (!query || !nodes) return E_INVALIDARG;
1031
1032     str = xmlChar_from_wchar(query);
1033     hr = queryresult_create(This->node, str, nodes);
1034     heap_free(str);
1035
1036     return hr;
1037 }
1038
1039 HRESULT node_select_singlenode(const xmlnode *This, BSTR query, IXMLDOMNode **node)
1040 {
1041     IXMLDOMNodeList *list;
1042     HRESULT hr;
1043
1044     hr = node_select_nodes(This, query, &list);
1045     if (hr == S_OK)
1046     {
1047         hr = IXMLDOMNodeList_nextNode(list, node);
1048         IXMLDOMNodeList_Release(list);
1049     }
1050     return hr;
1051 }
1052
1053 HRESULT node_get_namespaceURI(xmlnode *This, BSTR *namespaceURI)
1054 {
1055     xmlNsPtr *ns;
1056
1057     if(!namespaceURI)
1058         return E_INVALIDARG;
1059
1060     *namespaceURI = NULL;
1061
1062     if ((ns = xmlGetNsList(This->node->doc, This->node)))
1063     {
1064         if (ns[0]->href) *namespaceURI = bstr_from_xmlChar( ns[0]->href );
1065         xmlFree(ns);
1066     }
1067
1068     TRACE("uri: %s\n", debugstr_w(*namespaceURI));
1069
1070     return *namespaceURI ? S_OK : S_FALSE;
1071 }
1072
1073 HRESULT node_get_prefix(xmlnode *This, BSTR *prefix)
1074 {
1075     xmlNsPtr *ns;
1076
1077     if (!prefix) return E_INVALIDARG;
1078
1079     *prefix = NULL;
1080
1081     if ((ns = xmlGetNsList(This->node->doc, This->node)))
1082     {
1083         if (ns[0]->prefix) *prefix = bstr_from_xmlChar( ns[0]->prefix );
1084         xmlFree(ns);
1085     }
1086
1087     TRACE("prefix: %s\n", debugstr_w(*prefix));
1088
1089     return *prefix ? S_OK : S_FALSE;
1090 }
1091
1092 HRESULT node_get_base_name(xmlnode *This, BSTR *name)
1093 {
1094     if (!name) return E_INVALIDARG;
1095
1096     *name = bstr_from_xmlChar(This->node->name);
1097     if (!*name) return E_OUTOFMEMORY;
1098
1099     TRACE("returning %s\n", debugstr_w(*name));
1100
1101     return S_OK;
1102 }
1103
1104 void destroy_xmlnode(xmlnode *This)
1105 {
1106     if(This->node)
1107         xmldoc_release(This->node->doc);
1108 }
1109
1110 void init_xmlnode(xmlnode *This, xmlNodePtr node, IXMLDOMNode *node_iface, dispex_static_data_t *dispex_data)
1111 {
1112     if(node)
1113         xmldoc_add_ref( node->doc );
1114
1115     This->node = node;
1116     This->iface = node_iface;
1117     This->parent = NULL;
1118
1119     if(dispex_data)
1120         init_dispex(&This->dispex, (IUnknown*)This->iface, dispex_data);
1121     else
1122         This->dispex.outer = NULL;
1123 }
1124
1125 typedef struct {
1126     xmlnode node;
1127     IXMLDOMNode IXMLDOMNode_iface;
1128     LONG ref;
1129 } unknode;
1130
1131 static inline unknode *unknode_from_IXMLDOMNode(IXMLDOMNode *iface)
1132 {
1133     return CONTAINING_RECORD(iface, unknode, IXMLDOMNode_iface);
1134 }
1135
1136 static HRESULT WINAPI unknode_QueryInterface(
1137     IXMLDOMNode *iface,
1138     REFIID riid,
1139     void** ppvObject )
1140 {
1141     unknode *This = unknode_from_IXMLDOMNode( iface );
1142
1143     TRACE("(%p)->(%s %p)\n", This, debugstr_guid(riid), ppvObject);
1144
1145     if (IsEqualGUID(riid, &IID_IUnknown)) {
1146         *ppvObject = iface;
1147     }else if (IsEqualGUID( riid, &IID_IDispatch) ||
1148               IsEqualGUID( riid, &IID_IXMLDOMNode)) {
1149         *ppvObject = &This->IXMLDOMNode_iface;
1150     }else if(node_query_interface(&This->node, riid, ppvObject)) {
1151         return *ppvObject ? S_OK : E_NOINTERFACE;
1152     }else  {
1153         FIXME("interface %s not implemented\n", debugstr_guid(riid));
1154         *ppvObject = NULL;
1155         return E_NOINTERFACE;
1156     }
1157
1158     IUnknown_AddRef((IUnknown*)*ppvObject);
1159     return S_OK;
1160 }
1161
1162 static ULONG WINAPI unknode_AddRef(
1163     IXMLDOMNode *iface )
1164 {
1165     unknode *This = unknode_from_IXMLDOMNode( iface );
1166
1167     return InterlockedIncrement(&This->ref);
1168 }
1169
1170 static ULONG WINAPI unknode_Release(
1171     IXMLDOMNode *iface )
1172 {
1173     unknode *This = unknode_from_IXMLDOMNode( iface );
1174     LONG ref;
1175
1176     ref = InterlockedDecrement( &This->ref );
1177     if(!ref) {
1178         destroy_xmlnode(&This->node);
1179         heap_free(This);
1180     }
1181
1182     return ref;
1183 }
1184
1185 static HRESULT WINAPI unknode_GetTypeInfoCount(
1186     IXMLDOMNode *iface,
1187     UINT* pctinfo )
1188 {
1189     unknode *This = unknode_from_IXMLDOMNode( iface );
1190
1191     TRACE("(%p)->(%p)\n", This, pctinfo);
1192
1193     *pctinfo = 1;
1194
1195     return S_OK;
1196 }
1197
1198 static HRESULT WINAPI unknode_GetTypeInfo(
1199     IXMLDOMNode *iface,
1200     UINT iTInfo,
1201     LCID lcid,
1202     ITypeInfo** ppTInfo )
1203 {
1204     unknode *This = unknode_from_IXMLDOMNode( iface );
1205     HRESULT hr;
1206
1207     TRACE("(%p)->(%u %u %p)\n", This, iTInfo, lcid, ppTInfo);
1208
1209     hr = get_typeinfo(IXMLDOMNode_tid, ppTInfo);
1210
1211     return hr;
1212 }
1213
1214 static HRESULT WINAPI unknode_GetIDsOfNames(
1215     IXMLDOMNode *iface,
1216     REFIID riid,
1217     LPOLESTR* rgszNames,
1218     UINT cNames,
1219     LCID lcid,
1220     DISPID* rgDispId )
1221 {
1222     unknode *This = unknode_from_IXMLDOMNode( iface );
1223
1224     ITypeInfo *typeinfo;
1225     HRESULT hr;
1226
1227     TRACE("(%p)->(%s %p %u %u %p)\n", This, debugstr_guid(riid), rgszNames, cNames,
1228           lcid, rgDispId);
1229
1230     if(!rgszNames || cNames == 0 || !rgDispId)
1231         return E_INVALIDARG;
1232
1233     hr = get_typeinfo(IXMLDOMNode_tid, &typeinfo);
1234     if(SUCCEEDED(hr))
1235     {
1236         hr = ITypeInfo_GetIDsOfNames(typeinfo, rgszNames, cNames, rgDispId);
1237         ITypeInfo_Release(typeinfo);
1238     }
1239
1240     return hr;
1241 }
1242
1243 static HRESULT WINAPI unknode_Invoke(
1244     IXMLDOMNode *iface,
1245     DISPID dispIdMember,
1246     REFIID riid,
1247     LCID lcid,
1248     WORD wFlags,
1249     DISPPARAMS* pDispParams,
1250     VARIANT* pVarResult,
1251     EXCEPINFO* pExcepInfo,
1252     UINT* puArgErr )
1253 {
1254     unknode *This = unknode_from_IXMLDOMNode( iface );
1255     ITypeInfo *typeinfo;
1256     HRESULT hr;
1257
1258     TRACE("(%p)->(%d %s %d %d %p %p %p %p)\n", This, dispIdMember, debugstr_guid(riid),
1259           lcid, wFlags, pDispParams, pVarResult, pExcepInfo, puArgErr);
1260
1261     hr = get_typeinfo(IXMLDOMNode_tid, &typeinfo);
1262     if(SUCCEEDED(hr))
1263     {
1264         hr = ITypeInfo_Invoke(typeinfo, &This->IXMLDOMNode_iface, dispIdMember, wFlags, pDispParams,
1265                 pVarResult, pExcepInfo, puArgErr);
1266         ITypeInfo_Release(typeinfo);
1267     }
1268
1269     return hr;
1270 }
1271
1272 static HRESULT WINAPI unknode_get_nodeName(
1273     IXMLDOMNode *iface,
1274     BSTR* p )
1275 {
1276     unknode *This = unknode_from_IXMLDOMNode( iface );
1277
1278     FIXME("(%p)->(%p)\n", This, p);
1279
1280     return node_get_nodeName(&This->node, p);
1281 }
1282
1283 static HRESULT WINAPI unknode_get_nodeValue(
1284     IXMLDOMNode *iface,
1285     VARIANT* value)
1286 {
1287     unknode *This = unknode_from_IXMLDOMNode( iface );
1288
1289     FIXME("(%p)->(%p)\n", This, value);
1290
1291     if(!value)
1292         return E_INVALIDARG;
1293
1294     V_VT(value) = VT_NULL;
1295     return S_FALSE;
1296 }
1297
1298 static HRESULT WINAPI unknode_put_nodeValue(
1299     IXMLDOMNode *iface,
1300     VARIANT value)
1301 {
1302     unknode *This = unknode_from_IXMLDOMNode( iface );
1303     FIXME("(%p)->(v%d)\n", This, V_VT(&value));
1304     return E_FAIL;
1305 }
1306
1307 static HRESULT WINAPI unknode_get_nodeType(
1308     IXMLDOMNode *iface,
1309     DOMNodeType* domNodeType )
1310 {
1311     unknode *This = unknode_from_IXMLDOMNode( iface );
1312
1313     FIXME("(%p)->(%p)\n", This, domNodeType);
1314
1315     *domNodeType = This->node.node->type;
1316     return S_OK;
1317 }
1318
1319 static HRESULT WINAPI unknode_get_parentNode(
1320     IXMLDOMNode *iface,
1321     IXMLDOMNode** parent )
1322 {
1323     unknode *This = unknode_from_IXMLDOMNode( iface );
1324     FIXME("(%p)->(%p)\n", This, parent);
1325     if (!parent) return E_INVALIDARG;
1326     *parent = NULL;
1327     return S_FALSE;
1328 }
1329
1330 static HRESULT WINAPI unknode_get_childNodes(
1331     IXMLDOMNode *iface,
1332     IXMLDOMNodeList** outList)
1333 {
1334     unknode *This = unknode_from_IXMLDOMNode( iface );
1335
1336     TRACE("(%p)->(%p)\n", This, outList);
1337
1338     return node_get_child_nodes(&This->node, outList);
1339 }
1340
1341 static HRESULT WINAPI unknode_get_firstChild(
1342     IXMLDOMNode *iface,
1343     IXMLDOMNode** domNode)
1344 {
1345     unknode *This = unknode_from_IXMLDOMNode( iface );
1346
1347     TRACE("(%p)->(%p)\n", This, domNode);
1348
1349     return node_get_first_child(&This->node, domNode);
1350 }
1351
1352 static HRESULT WINAPI unknode_get_lastChild(
1353     IXMLDOMNode *iface,
1354     IXMLDOMNode** domNode)
1355 {
1356     unknode *This = unknode_from_IXMLDOMNode( iface );
1357
1358     TRACE("(%p)->(%p)\n", This, domNode);
1359
1360     return node_get_last_child(&This->node, domNode);
1361 }
1362
1363 static HRESULT WINAPI unknode_get_previousSibling(
1364     IXMLDOMNode *iface,
1365     IXMLDOMNode** domNode)
1366 {
1367     unknode *This = unknode_from_IXMLDOMNode( iface );
1368
1369     TRACE("(%p)->(%p)\n", This, domNode);
1370
1371     return node_get_previous_sibling(&This->node, domNode);
1372 }
1373
1374 static HRESULT WINAPI unknode_get_nextSibling(
1375     IXMLDOMNode *iface,
1376     IXMLDOMNode** domNode)
1377 {
1378     unknode *This = unknode_from_IXMLDOMNode( iface );
1379
1380     TRACE("(%p)->(%p)\n", This, domNode);
1381
1382     return node_get_next_sibling(&This->node, domNode);
1383 }
1384
1385 static HRESULT WINAPI unknode_get_attributes(
1386     IXMLDOMNode *iface,
1387     IXMLDOMNamedNodeMap** attributeMap)
1388 {
1389     unknode *This = unknode_from_IXMLDOMNode( iface );
1390
1391     FIXME("(%p)->(%p)\n", This, attributeMap);
1392
1393     return return_null_ptr((void**)attributeMap);
1394 }
1395
1396 static HRESULT WINAPI unknode_insertBefore(
1397     IXMLDOMNode *iface,
1398     IXMLDOMNode* newNode, VARIANT refChild,
1399     IXMLDOMNode** outOldNode)
1400 {
1401     unknode *This = unknode_from_IXMLDOMNode( iface );
1402
1403     FIXME("(%p)->(%p x%d %p)\n", This, newNode, V_VT(&refChild), outOldNode);
1404
1405     return node_insert_before(&This->node, newNode, &refChild, outOldNode);
1406 }
1407
1408 static HRESULT WINAPI unknode_replaceChild(
1409     IXMLDOMNode *iface,
1410     IXMLDOMNode* newNode,
1411     IXMLDOMNode* oldNode,
1412     IXMLDOMNode** outOldNode)
1413 {
1414     unknode *This = unknode_from_IXMLDOMNode( iface );
1415
1416     FIXME("(%p)->(%p %p %p)\n", This, newNode, oldNode, outOldNode);
1417
1418     return node_replace_child(&This->node, newNode, oldNode, outOldNode);
1419 }
1420
1421 static HRESULT WINAPI unknode_removeChild(
1422     IXMLDOMNode *iface,
1423     IXMLDOMNode* domNode, IXMLDOMNode** oldNode)
1424 {
1425     unknode *This = unknode_from_IXMLDOMNode( iface );
1426     return node_remove_child(&This->node, domNode, oldNode);
1427 }
1428
1429 static HRESULT WINAPI unknode_appendChild(
1430     IXMLDOMNode *iface,
1431     IXMLDOMNode* newNode, IXMLDOMNode** outNewNode)
1432 {
1433     unknode *This = unknode_from_IXMLDOMNode( iface );
1434     return node_append_child(&This->node, newNode, outNewNode);
1435 }
1436
1437 static HRESULT WINAPI unknode_hasChildNodes(
1438     IXMLDOMNode *iface,
1439     VARIANT_BOOL* pbool)
1440 {
1441     unknode *This = unknode_from_IXMLDOMNode( iface );
1442     return node_has_childnodes(&This->node, pbool);
1443 }
1444
1445 static HRESULT WINAPI unknode_get_ownerDocument(
1446     IXMLDOMNode *iface,
1447     IXMLDOMDocument** domDocument)
1448 {
1449     unknode *This = unknode_from_IXMLDOMNode( iface );
1450     return node_get_owner_doc(&This->node, domDocument);
1451 }
1452
1453 static HRESULT WINAPI unknode_cloneNode(
1454     IXMLDOMNode *iface,
1455     VARIANT_BOOL pbool, IXMLDOMNode** outNode)
1456 {
1457     unknode *This = unknode_from_IXMLDOMNode( iface );
1458     return node_clone(&This->node, pbool, outNode );
1459 }
1460
1461 static HRESULT WINAPI unknode_get_nodeTypeString(
1462     IXMLDOMNode *iface,
1463     BSTR* p)
1464 {
1465     unknode *This = unknode_from_IXMLDOMNode( iface );
1466
1467     FIXME("(%p)->(%p)\n", This, p);
1468
1469     return node_get_nodeName(&This->node, p);
1470 }
1471
1472 static HRESULT WINAPI unknode_get_text(
1473     IXMLDOMNode *iface,
1474     BSTR* p)
1475 {
1476     unknode *This = unknode_from_IXMLDOMNode( iface );
1477     return node_get_text(&This->node, p);
1478 }
1479
1480 static HRESULT WINAPI unknode_put_text(
1481     IXMLDOMNode *iface,
1482     BSTR p)
1483 {
1484     unknode *This = unknode_from_IXMLDOMNode( iface );
1485     return node_put_text(&This->node, p);
1486 }
1487
1488 static HRESULT WINAPI unknode_get_specified(
1489     IXMLDOMNode *iface,
1490     VARIANT_BOOL* isSpecified)
1491 {
1492     unknode *This = unknode_from_IXMLDOMNode( iface );
1493     FIXME("(%p)->(%p) stub!\n", This, isSpecified);
1494     *isSpecified = VARIANT_TRUE;
1495     return S_OK;
1496 }
1497
1498 static HRESULT WINAPI unknode_get_definition(
1499     IXMLDOMNode *iface,
1500     IXMLDOMNode** definitionNode)
1501 {
1502     unknode *This = unknode_from_IXMLDOMNode( iface );
1503     FIXME("(%p)->(%p)\n", This, definitionNode);
1504     return E_NOTIMPL;
1505 }
1506
1507 static HRESULT WINAPI unknode_get_nodeTypedValue(
1508     IXMLDOMNode *iface,
1509     VARIANT* var1)
1510 {
1511     unknode *This = unknode_from_IXMLDOMNode( iface );
1512     FIXME("(%p)->(%p)\n", This, var1);
1513     return return_null_var(var1);
1514 }
1515
1516 static HRESULT WINAPI unknode_put_nodeTypedValue(
1517     IXMLDOMNode *iface,
1518     VARIANT typedValue)
1519 {
1520     unknode *This = unknode_from_IXMLDOMNode( iface );
1521     FIXME("(%p)->(%s)\n", This, debugstr_variant(&typedValue));
1522     return E_NOTIMPL;
1523 }
1524
1525 static HRESULT WINAPI unknode_get_dataType(
1526     IXMLDOMNode *iface,
1527     VARIANT* var1)
1528 {
1529     unknode *This = unknode_from_IXMLDOMNode( iface );
1530     TRACE("(%p)->(%p)\n", This, var1);
1531     return return_null_var(var1);
1532 }
1533
1534 static HRESULT WINAPI unknode_put_dataType(
1535     IXMLDOMNode *iface,
1536     BSTR p)
1537 {
1538     unknode *This = unknode_from_IXMLDOMNode( iface );
1539
1540     FIXME("(%p)->(%s)\n", This, debugstr_w(p));
1541
1542     if(!p)
1543         return E_INVALIDARG;
1544
1545     return E_FAIL;
1546 }
1547
1548 static HRESULT WINAPI unknode_get_xml(
1549     IXMLDOMNode *iface,
1550     BSTR* p)
1551 {
1552     unknode *This = unknode_from_IXMLDOMNode( iface );
1553
1554     FIXME("(%p)->(%p)\n", This, p);
1555
1556     return node_get_xml(&This->node, FALSE, FALSE, p);
1557 }
1558
1559 static HRESULT WINAPI unknode_transformNode(
1560     IXMLDOMNode *iface,
1561     IXMLDOMNode* domNode, BSTR* p)
1562 {
1563     unknode *This = unknode_from_IXMLDOMNode( iface );
1564     return node_transform_node(&This->node, domNode, p);
1565 }
1566
1567 static HRESULT WINAPI unknode_selectNodes(
1568     IXMLDOMNode *iface,
1569     BSTR p, IXMLDOMNodeList** outList)
1570 {
1571     unknode *This = unknode_from_IXMLDOMNode( iface );
1572     return node_select_nodes(&This->node, p, outList);
1573 }
1574
1575 static HRESULT WINAPI unknode_selectSingleNode(
1576     IXMLDOMNode *iface,
1577     BSTR p, IXMLDOMNode** outNode)
1578 {
1579     unknode *This = unknode_from_IXMLDOMNode( iface );
1580     return node_select_singlenode(&This->node, p, outNode);
1581 }
1582
1583 static HRESULT WINAPI unknode_get_parsed(
1584     IXMLDOMNode *iface,
1585     VARIANT_BOOL* isParsed)
1586 {
1587     unknode *This = unknode_from_IXMLDOMNode( iface );
1588     FIXME("(%p)->(%p) stub!\n", This, isParsed);
1589     *isParsed = VARIANT_TRUE;
1590     return S_OK;
1591 }
1592
1593 static HRESULT WINAPI unknode_get_namespaceURI(
1594     IXMLDOMNode *iface,
1595     BSTR* p)
1596 {
1597     unknode *This = unknode_from_IXMLDOMNode( iface );
1598     TRACE("(%p)->(%p)\n", This, p);
1599     return node_get_namespaceURI(&This->node, p);
1600 }
1601
1602 static HRESULT WINAPI unknode_get_prefix(
1603     IXMLDOMNode *iface,
1604     BSTR* p)
1605 {
1606     unknode *This = unknode_from_IXMLDOMNode( iface );
1607     return node_get_prefix(&This->node, p);
1608 }
1609
1610 static HRESULT WINAPI unknode_get_baseName(
1611     IXMLDOMNode *iface,
1612     BSTR* p)
1613 {
1614     unknode *This = unknode_from_IXMLDOMNode( iface );
1615     return node_get_base_name(&This->node, p);
1616 }
1617
1618 static HRESULT WINAPI unknode_transformNodeToObject(
1619     IXMLDOMNode *iface,
1620     IXMLDOMNode* domNode, VARIANT var1)
1621 {
1622     unknode *This = unknode_from_IXMLDOMNode( iface );
1623     FIXME("(%p)->(%p %s)\n", This, domNode, debugstr_variant(&var1));
1624     return E_NOTIMPL;
1625 }
1626
1627 static const struct IXMLDOMNodeVtbl unknode_vtbl =
1628 {
1629     unknode_QueryInterface,
1630     unknode_AddRef,
1631     unknode_Release,
1632     unknode_GetTypeInfoCount,
1633     unknode_GetTypeInfo,
1634     unknode_GetIDsOfNames,
1635     unknode_Invoke,
1636     unknode_get_nodeName,
1637     unknode_get_nodeValue,
1638     unknode_put_nodeValue,
1639     unknode_get_nodeType,
1640     unknode_get_parentNode,
1641     unknode_get_childNodes,
1642     unknode_get_firstChild,
1643     unknode_get_lastChild,
1644     unknode_get_previousSibling,
1645     unknode_get_nextSibling,
1646     unknode_get_attributes,
1647     unknode_insertBefore,
1648     unknode_replaceChild,
1649     unknode_removeChild,
1650     unknode_appendChild,
1651     unknode_hasChildNodes,
1652     unknode_get_ownerDocument,
1653     unknode_cloneNode,
1654     unknode_get_nodeTypeString,
1655     unknode_get_text,
1656     unknode_put_text,
1657     unknode_get_specified,
1658     unknode_get_definition,
1659     unknode_get_nodeTypedValue,
1660     unknode_put_nodeTypedValue,
1661     unknode_get_dataType,
1662     unknode_put_dataType,
1663     unknode_get_xml,
1664     unknode_transformNode,
1665     unknode_selectNodes,
1666     unknode_selectSingleNode,
1667     unknode_get_parsed,
1668     unknode_get_namespaceURI,
1669     unknode_get_prefix,
1670     unknode_get_baseName,
1671     unknode_transformNodeToObject
1672 };
1673
1674 IXMLDOMNode *create_node( xmlNodePtr node )
1675 {
1676     IUnknown *pUnk;
1677     IXMLDOMNode *ret;
1678     HRESULT hr;
1679
1680     if ( !node )
1681         return NULL;
1682
1683     TRACE("type %d\n", node->type);
1684     switch(node->type)
1685     {
1686     case XML_ELEMENT_NODE:
1687         pUnk = create_element( node );
1688         break;
1689     case XML_ATTRIBUTE_NODE:
1690         pUnk = create_attribute( node );
1691         break;
1692     case XML_TEXT_NODE:
1693         pUnk = create_text( node );
1694         break;
1695     case XML_CDATA_SECTION_NODE:
1696         pUnk = create_cdata( node );
1697         break;
1698     case XML_ENTITY_REF_NODE:
1699         pUnk = create_doc_entity_ref( node );
1700         break;
1701     case XML_PI_NODE:
1702         pUnk = create_pi( node );
1703         break;
1704     case XML_COMMENT_NODE:
1705         pUnk = create_comment( node );
1706         break;
1707     case XML_DOCUMENT_NODE:
1708         pUnk = create_domdoc( node );
1709         break;
1710     case XML_DOCUMENT_FRAG_NODE:
1711         pUnk = create_doc_fragment( node );
1712         break;
1713     case XML_DTD_NODE:
1714         pUnk = create_doc_type( node );
1715         break;
1716     default: {
1717         unknode *new_node;
1718
1719         FIXME("only creating basic node for type %d\n", node->type);
1720
1721         new_node = heap_alloc(sizeof(unknode));
1722         if(!new_node)
1723             return NULL;
1724
1725         new_node->IXMLDOMNode_iface.lpVtbl = &unknode_vtbl;
1726         new_node->ref = 1;
1727         init_xmlnode(&new_node->node, node, &new_node->IXMLDOMNode_iface, NULL);
1728         pUnk = (IUnknown*)&new_node->IXMLDOMNode_iface;
1729     }
1730     }
1731
1732     hr = IUnknown_QueryInterface(pUnk, &IID_IXMLDOMNode, (LPVOID*)&ret);
1733     IUnknown_Release(pUnk);
1734     if(FAILED(hr)) return NULL;
1735     return ret;
1736 }
1737 #endif