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