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