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 #include <assert.h>
  27 #include "windef.h"
  28 #include "winbase.h"
  29 #include "winuser.h"
  30 #include "winnls.h"
  31 #include "ole2.h"
  32 #include "msxml6.h"
  33
  34 #include "msxml_private.h"
  35
  36 #ifdef HAVE_LIBXML2
  37 # include <libxml/HTMLtree.h>
  38 #endif
  39
  40 #include "wine/debug.h"
  41
  42 WINE_DEFAULT_DEBUG_CHANNEL(msxml);
  43
  44 #ifdef HAVE_LIBXML2
  45
  46 static const WCHAR szBinBase64[]  = {'b','i','n','.','b','a','s','e','6','4',0};
  47 static const WCHAR szString[]     = {'s','t','r','i','n','g',0};
  48 static const WCHAR szNumber[]     = {'n','u','m','b','e','r',0};
  49 static const WCHAR szInt[]        = {'I','n','t',0};
  50 static const WCHAR szFixed[]      = {'F','i','x','e','d','.','1','4','.','4',0};
  51 static const WCHAR szBoolean[]    = {'B','o','o','l','e','a','n',0};
  52 static const WCHAR szDateTime[]   = {'d','a','t','e','T','i','m','e',0};
  53 static const WCHAR szDateTimeTZ[] = {'d','a','t','e','T','i','m','e','.','t','z',0};
  54 static const WCHAR szDate[]       = {'D','a','t','e',0};
  55 static const WCHAR szTime[]       = {'T','i','m','e',0};
  56 static const WCHAR szTimeTZ[]     = {'T','i','m','e','.','t','z',0};
  57 static const WCHAR szI1[]         = {'i','1',0};
  58 static const WCHAR szI2[]         = {'i','2',0};
  59 static const WCHAR szI4[]         = {'i','4',0};
  60 static const WCHAR szIU1[]        = {'u','i','1',0};
  61 static const WCHAR szIU2[]        = {'u','i','2',0};
  62 static const WCHAR szIU4[]        = {'u','i','4',0};
  63 static const WCHAR szR4[]         = {'r','4',0};
  64 static const WCHAR szR8[]         = {'r','8',0};
  65 static const WCHAR szFloat[]      = {'f','l','o','a','t',0};
  66 static const WCHAR szUUID[]       = {'u','u','i','d',0};
  67 static const WCHAR szBinHex[]     = {'b','i','n','.','h','e','x',0};
  68
  69 static const IID IID_xmlnode = {0x4f2f4ba2,0xb822,0x11df,{0x8b,0x8a,0x68,0x50,0xdf,0xd7,0x20,0x85}};
  70
  71 xmlNodePtr xmlNodePtr_from_domnode( IXMLDOMNode *iface, xmlElementType type )
  72 {
  73     xmlnode *This;
  74
  75     if ( !iface )
  76         return NULL;
  77     This = get_node_obj( iface );
  78     if ( !This || !This->node )
  79         return NULL;
  80     if ( type && This->node->type != type )
  81         return NULL;
  82     return This->node;
  83 }
  84
  85 BOOL node_query_interface(xmlnode *This, REFIID riid, void **ppv)
  86 {
  87     if(IsEqualGUID(&IID_xmlnode, riid)) {
  88         TRACE("(%p)->(IID_xmlnode %p)\n", This, ppv);
  89         *ppv = This;
  90         return TRUE;
  91     }
  92
  93     if(This->dispex.outer)
  94         return dispex_query_interface(&This->dispex, riid, ppv);
  95
  96     return FALSE;
  97 }
  98
  99 xmlnode *get_node_obj(IXMLDOMNode *node)
 100 {
 101     xmlnode *obj;
 102     HRESULT hres;
 103
 104     hres = IXMLDOMNode_QueryInterface(node, &IID_xmlnode, (void**)&obj);
 105     return SUCCEEDED(hres) ? obj : NULL;
 106 }
 107
 108 static inline xmlnode *impl_from_IXMLDOMNode( IXMLDOMNode *iface )
 109 {
 110     return (xmlnode *)((char*)iface - FIELD_OFFSET(xmlnode, lpVtbl));
 111 }
 112
 113 static HRESULT WINAPI xmlnode_QueryInterface(
 114     IXMLDOMNode *iface,
 115     REFIID riid,
 116     void** ppvObject )
 117 {
 118     xmlnode *This = impl_from_IXMLDOMNode( iface );
 119
 120     TRACE("(%p)->(%s %p)\n", This, debugstr_guid(riid), ppvObject);
 121
 122     if(This->iface)
 123         return IXMLDOMNode_QueryInterface(This->iface, riid, ppvObject);
 124
 125     if (IsEqualGUID(riid, &IID_IUnknown)) {
 126         *ppvObject = iface;
 127     }else if (IsEqualGUID( riid, &IID_IDispatch) ||
 128               IsEqualGUID( riid, &IID_IXMLDOMNode)) {
 129         *ppvObject = &This->lpVtbl;
 130     }else if(node_query_interface(This, riid, ppvObject)) {
 131         return *ppvObject ? S_OK : E_NOINTERFACE;
 132     }else  {
 133         FIXME("interface %s not implemented\n", debugstr_guid(riid));
 134         *ppvObject = NULL;
 135         return E_NOINTERFACE;
 136     }
 137
 138     IUnknown_AddRef( (IUnknown*)*ppvObject );
 139     return S_OK;
 140 }
 141
 142 static ULONG WINAPI xmlnode_AddRef(
 143     IXMLDOMNode *iface )
 144 {
 145     xmlnode *This = impl_from_IXMLDOMNode( iface );
 146     return IXMLDOMNode_AddRef(This->iface);
 147 }
 148
 149 static ULONG WINAPI xmlnode_Release(
 150     IXMLDOMNode *iface )
 151 {
 152     xmlnode *This = impl_from_IXMLDOMNode( iface );
 153     return IXMLDOMNode_Release(This->iface);
 154 }
 155
 156 static HRESULT WINAPI xmlnode_GetTypeInfoCount(
 157     IXMLDOMNode *iface,
 158     UINT* pctinfo )
 159 {
 160     xmlnode *This = impl_from_IXMLDOMNode( iface );
 161
 162     TRACE("(%p)->(%p)\n", This, pctinfo);
 163
 164     *pctinfo = 1;
 165
 166     return S_OK;
 167 }
 168
 169 static HRESULT WINAPI xmlnode_GetTypeInfo(
 170     IXMLDOMNode *iface,
 171     UINT iTInfo,
 172     LCID lcid,
 173     ITypeInfo** ppTInfo )
 174 {
 175     xmlnode *This = impl_from_IXMLDOMNode( iface );
 176     HRESULT hr;
 177
 178     TRACE("(%p)->(%u %u %p)\n", This, iTInfo, lcid, ppTInfo);
 179
 180     hr = get_typeinfo(IXMLDOMNode_tid, ppTInfo);
 181
 182     return hr;
 183 }
 184
 185 static HRESULT WINAPI xmlnode_GetIDsOfNames(
 186     IXMLDOMNode *iface,
 187     REFIID riid,
 188     LPOLESTR* rgszNames,
 189     UINT cNames,
 190     LCID lcid,
 191     DISPID* rgDispId )
 192 {
 193     xmlnode *This = impl_from_IXMLDOMNode( iface );
 194
 195     ITypeInfo *typeinfo;
 196     HRESULT hr;
 197
 198     TRACE("(%p)->(%s %p %u %u %p)\n", This, debugstr_guid(riid), rgszNames, cNames,
 199           lcid, rgDispId);
 200
 201     if(!rgszNames || cNames == 0 || !rgDispId)
 202         return E_INVALIDARG;
 203
 204     hr = get_typeinfo(IXMLDOMNode_tid, &typeinfo);
 205     if(SUCCEEDED(hr))
 206     {
 207         hr = ITypeInfo_GetIDsOfNames(typeinfo, rgszNames, cNames, rgDispId);
 208         ITypeInfo_Release(typeinfo);
 209     }
 210
 211     return hr;
 212 }
 213
 214 static HRESULT WINAPI xmlnode_Invoke(
 215     IXMLDOMNode *iface,
 216     DISPID dispIdMember,
 217     REFIID riid,
 218     LCID lcid,
 219     WORD wFlags,
 220     DISPPARAMS* pDispParams,
 221     VARIANT* pVarResult,
 222     EXCEPINFO* pExcepInfo,
 223     UINT* puArgErr )
 224 {
 225     xmlnode *This = impl_from_IXMLDOMNode( iface );
 226     ITypeInfo *typeinfo;
 227     HRESULT hr;
 228
 229     TRACE("(%p)->(%d %s %d %d %p %p %p %p)\n", This, dispIdMember, debugstr_guid(riid),
 230           lcid, wFlags, pDispParams, pVarResult, pExcepInfo, puArgErr);
 231
 232     hr = get_typeinfo(IXMLDOMNode_tid, &typeinfo);
 233     if(SUCCEEDED(hr))
 234     {
 235         hr = ITypeInfo_Invoke(typeinfo, &(This->lpVtbl), dispIdMember, wFlags, pDispParams,
 236                 pVarResult, pExcepInfo, puArgErr);
 237         ITypeInfo_Release(typeinfo);
 238     }
 239
 240     return hr;
 241 }
 242
 243 static HRESULT WINAPI xmlnode_get_nodeName(
 244     IXMLDOMNode *iface,
 245     BSTR* name)
 246 {
 247     xmlnode *This = impl_from_IXMLDOMNode( iface );
 248     const xmlChar *str;
 249
 250     TRACE("(%p)->(%p)\n", This, name );
 251
 252     if (!name)
 253         return E_INVALIDARG;
 254
 255     if ( !This->node )
 256         return E_FAIL;
 257
 258     switch( This->node->type )
 259     {
 260     case XML_CDATA_SECTION_NODE:
 261         str = (const xmlChar*) "#cdata-section";
 262         break;
 263     case XML_COMMENT_NODE:
 264         str = (const xmlChar*) "#comment";
 265         break;
 266     case XML_DOCUMENT_FRAG_NODE:
 267         str = (const xmlChar*) "#document-fragment";
 268         break;
 269     case XML_TEXT_NODE:
 270         str = (const xmlChar*) "#text";
 271         break;
 272     case XML_DOCUMENT_NODE:
 273         str = (const xmlChar*) "#document";
 274         break;
 275     case XML_ATTRIBUTE_NODE:
 276     case XML_ELEMENT_NODE:
 277     case XML_PI_NODE:
 278         str = This->node->name;
 279         break;
 280     default:
 281         FIXME("nodeName not mapped correctly (%d)\n", This->node->type);
 282         str = This->node->name;
 283         break;
 284     }
 285
 286     *name = bstr_from_xmlChar( str );
 287     if (!*name)
 288         return S_FALSE;
 289
 290     return S_OK;
 291 }
 292
 293 static HRESULT WINAPI xmlnode_get_nodeValue(
 294     IXMLDOMNode *iface,
 295     VARIANT* value)
 296 {
 297     xmlnode *This = impl_from_IXMLDOMNode( iface );
 298     HRESULT r = S_FALSE;
 299
 300     TRACE("(%p)->(%p)\n", This, value);
 301
 302     if(!value)
 303         return E_INVALIDARG;
 304
 305     V_BSTR(value) = NULL;
 306     V_VT(value) = VT_NULL;
 307
 308     switch ( This->node->type )
 309     {
 310     case XML_CDATA_SECTION_NODE:
 311     case XML_COMMENT_NODE:
 312     case XML_PI_NODE:
 313     case XML_ATTRIBUTE_NODE:
 314       {
 315         xmlChar *content = xmlNodeGetContent(This->node);
 316         V_VT(value) = VT_BSTR;
 317         V_BSTR(value) = bstr_from_xmlChar( content );
 318         xmlFree(content);
 319         r = S_OK;
 320         break;
 321       }
 322     case XML_TEXT_NODE:
 323         V_VT(value) = VT_BSTR;
 324         V_BSTR(value) = bstr_from_xmlChar( This->node->content );
 325         r = S_OK;
 326         break;
 327     case XML_ELEMENT_NODE:
 328     case XML_DOCUMENT_NODE:
 329         /* these seem to return NULL */
 330         break;
 331
 332     default:
 333         FIXME("node %p type %d\n", This, This->node->type);
 334     }
 335
 336     TRACE("%p returned %s\n", This, debugstr_w( V_BSTR(value) ) );
 337
 338     return r;
 339 }
 340
 341 static HRESULT WINAPI xmlnode_put_nodeValue(
 342     IXMLDOMNode *iface,
 343     VARIANT value)
 344 {
 345     xmlnode *This = impl_from_IXMLDOMNode( iface );
 346     HRESULT hr;
 347
 348     TRACE("%p type(%d)\n", This, This->node->type);
 349
 350     /* Document, Document Fragment, Document Type, Element,
 351        Entity, Entity Reference, Notation aren't supported. */
 352     switch ( This->node->type )
 353     {
 354     case XML_ATTRIBUTE_NODE:
 355     case XML_CDATA_SECTION_NODE:
 356     case XML_COMMENT_NODE:
 357     case XML_PI_NODE:
 358     case XML_TEXT_NODE:
 359     {
 360         VARIANT string_value;
 361         xmlChar *str;
 362
 363         VariantInit(&string_value);
 364         hr = VariantChangeType(&string_value, &value, 0, VT_BSTR);
 365         if(FAILED(hr))
 366         {
 367             VariantClear(&string_value);
 368             WARN("Couldn't convert to VT_BSTR\n");
 369             return hr;
 370         }
 371
 372         str = xmlChar_from_wchar(V_BSTR(&string_value));
 373         VariantClear(&string_value);
 374
 375         xmlNodeSetContent(This->node, str);
 376         heap_free(str);
 377         hr = S_OK;
 378         break;
 379     }
 380     default:
 381         /* Do nothing for unsupported types. */
 382         hr = E_FAIL;
 383         break;
 384     }
 385
 386     return hr;
 387 }
 388
 389 static HRESULT WINAPI xmlnode_get_nodeType(
 390     IXMLDOMNode *iface,
 391     DOMNodeType* type)
 392 {
 393     xmlnode *This = impl_from_IXMLDOMNode( iface );
 394
 395     TRACE("(%p)->(%p)\n", This, type);
 396
 397     assert( (int)NODE_ELEMENT  == (int)XML_ELEMENT_NODE );
 398     assert( (int)NODE_NOTATION == (int)XML_NOTATION_NODE );
 399
 400     *type = This->node->type;
 401
 402     return S_OK;
 403 }
 404
 405 static HRESULT get_node(
 406     xmlnode *This,
 407     const char *name,
 408     xmlNodePtr node,
 409     IXMLDOMNode **out )
 410 {
 411     TRACE("(%p)->(%s %p %p)\n", This, name, node, out );
 412
 413     if ( !out )
 414         return E_INVALIDARG;
 415
 416     /* if we don't have a doc, use our parent. */
 417     if(node && !node->doc && node->parent)
 418         node->doc = node->parent->doc;
 419
 420     *out = create_node( node );
 421     if (!*out)
 422         return S_FALSE;
 423     return S_OK;
 424 }
 425
 426 static HRESULT WINAPI xmlnode_get_parentNode(
 427     IXMLDOMNode *iface,
 428     IXMLDOMNode** parent)
 429 {
 430     xmlnode *This = impl_from_IXMLDOMNode( iface );
 431     return get_node( This, "parent", This->node->parent, parent );
 432 }
 433
 434 static HRESULT WINAPI xmlnode_get_childNodes(
 435     IXMLDOMNode *iface,
 436     IXMLDOMNodeList** childList)
 437 {
 438     xmlnode *This = impl_from_IXMLDOMNode( iface );
 439
 440     TRACE("(%p)->(%p)\n", This, childList );
 441
 442     if ( !childList )
 443         return E_INVALIDARG;
 444
 445     *childList = create_children_nodelist(This->node);
 446     if (*childList == NULL)
 447         return E_OUTOFMEMORY;
 448
 449     return S_OK;
 450 }
 451
 452 static HRESULT WINAPI xmlnode_get_firstChild(
 453     IXMLDOMNode *iface,
 454     IXMLDOMNode** firstChild)
 455 {
 456     xmlnode *This = impl_from_IXMLDOMNode( iface );
 457     TRACE("(%p)->(%p)\n", This, firstChild);
 458     return get_node( This, "firstChild", This->node->children, firstChild );
 459 }
 460
 461 static HRESULT WINAPI xmlnode_get_lastChild(
 462     IXMLDOMNode *iface,
 463     IXMLDOMNode** lastChild)
 464 {
 465     xmlnode *This = impl_from_IXMLDOMNode( iface );
 466
 467     TRACE("(%p)->(%p)\n", This, lastChild );
 468
 469     if (!lastChild)
 470         return E_INVALIDARG;
 471
 472     switch( This->node->type )
 473     {
 474     /* CDATASection, Comment, PI and Text Nodes do not support lastChild */
 475     case XML_TEXT_NODE:
 476     case XML_CDATA_SECTION_NODE:
 477     case XML_PI_NODE:
 478     case XML_COMMENT_NODE:
 479         *lastChild = NULL;
 480         return S_FALSE;
 481     default:
 482         return get_node( This, "lastChild", This->node->last, lastChild );
 483     }
 484 }
 485
 486 static HRESULT WINAPI xmlnode_get_previousSibling(
 487     IXMLDOMNode *iface,
 488     IXMLDOMNode** previousSibling)
 489 {
 490     xmlnode *This = impl_from_IXMLDOMNode( iface );
 491
 492     TRACE("(%p)->(%p)\n", This, previousSibling );
 493
 494     if (!previousSibling)
 495         return E_INVALIDARG;
 496
 497     switch( This->node->type )
 498     {
 499     /* Attribute, Document and Document Fragment Nodes do not support previousSibling */
 500     case XML_DOCUMENT_NODE:
 501     case XML_DOCUMENT_FRAG_NODE:
 502     case XML_ATTRIBUTE_NODE:
 503         *previousSibling = NULL;
 504         return S_FALSE;
 505     default:
 506         return get_node( This, "previous", This->node->prev, previousSibling );
 507     }
 508 }
 509
 510 static HRESULT WINAPI xmlnode_get_nextSibling(
 511     IXMLDOMNode *iface,
 512     IXMLDOMNode** nextSibling)
 513 {
 514     xmlnode *This = impl_from_IXMLDOMNode( iface );
 515
 516     TRACE("(%p)->(%p)\n", This, nextSibling );
 517
 518     if (!nextSibling)
 519         return E_INVALIDARG;
 520
 521     switch( This->node->type )
 522     {
 523     /* Attribute, Document and Document Fragment Nodes do not support nextSibling */
 524     case XML_DOCUMENT_NODE:
 525     case XML_DOCUMENT_FRAG_NODE:
 526     case XML_ATTRIBUTE_NODE:
 527         *nextSibling = NULL;
 528         return S_FALSE;
 529     default:
 530         return get_node( This, "next", This->node->next, nextSibling );
 531     }
 532 }
 533
 534 static HRESULT WINAPI xmlnode_get_attributes(
 535     IXMLDOMNode *iface,
 536     IXMLDOMNamedNodeMap** attributeMap)
 537 {
 538     xmlnode *This = impl_from_IXMLDOMNode( iface );
 539     TRACE("(%p)->(%p)\n", This, attributeMap);
 540
 541     if (!attributeMap)
 542         return E_INVALIDARG;
 543
 544     switch( This->node->type )
 545     {
 546     /* Attribute, CDataSection, Comment, Documents, Documents Fragments,
 547        Entity and Text Nodes does not support get_attributes */
 548     case XML_ATTRIBUTE_NODE:
 549     case XML_CDATA_SECTION_NODE:
 550     case XML_COMMENT_NODE:
 551     case XML_DOCUMENT_NODE:
 552     case XML_DOCUMENT_FRAG_NODE:
 553     case XML_ENTITY_NODE:
 554     case XML_ENTITY_REF_NODE:
 555     case XML_TEXT_NODE:
 556         *attributeMap = NULL;
 557         return S_FALSE;
 558     default:
 559         *attributeMap = create_nodemap( iface );
 560         return S_OK;
 561     }
 562 }
 563
 564 static HRESULT WINAPI xmlnode_insertBefore(
 565     IXMLDOMNode *iface,
 566     IXMLDOMNode* newChild,
 567     VARIANT refChild,
 568     IXMLDOMNode** outNewChild)
 569 {
 570     xmlnode *This = impl_from_IXMLDOMNode( iface );
 571     xmlNodePtr before_node, new_child_node;
 572     IXMLDOMNode *before = NULL;
 573     xmlnode *node_obj;
 574     HRESULT hr;
 575
 576     TRACE("(%p)->(%p var %p)\n",This,newChild,outNewChild);
 577
 578     if (!newChild)
 579         return E_INVALIDARG;
 580
 581     switch(V_VT(&refChild))
 582     {
 583     case VT_EMPTY:
 584     case VT_NULL:
 585         break;
 586
 587     case VT_UNKNOWN:
 588         hr = IUnknown_QueryInterface(V_UNKNOWN(&refChild), &IID_IXMLDOMNode, (LPVOID)&before);
 589         if(FAILED(hr)) return hr;
 590         break;
 591
 592     case VT_DISPATCH:
 593         hr = IDispatch_QueryInterface(V_DISPATCH(&refChild), &IID_IXMLDOMNode, (LPVOID)&before);
 594         if(FAILED(hr)) return hr;
 595         break;
 596
 597     default:
 598         FIXME("refChild var type %x\n", V_VT(&refChild));
 599         return E_FAIL;
 600     }
 601
 602     node_obj = get_node_obj(newChild);
 603     if(!node_obj) {
 604         FIXME("newChild is not our node implementation\n");
 605         return E_FAIL;
 606     }
 607
 608     new_child_node = node_obj->node;
 609     TRACE("new_child_node %p This->node %p\n", new_child_node, This->node);
 610
 611     if(!new_child_node->parent)
 612         if(xmldoc_remove_orphan(new_child_node->doc, new_child_node) != S_OK)
 613             WARN("%p is not an orphan of %p\n", new_child_node, new_child_node->doc);
 614
 615     if(before)
 616     {
 617         node_obj = get_node_obj(before);
 618         IXMLDOMNode_Release(before);
 619         if(!node_obj) {
 620             FIXME("before node is not our node implementation\n");
 621             return E_FAIL;
 622         }
 623
 624         before_node = node_obj->node;
 625         xmlAddPrevSibling(before_node, new_child_node);
 626     }
 627     else
 628     {
 629         xmlAddChild(This->node, new_child_node);
 630     }
 631
 632     IXMLDOMNode_AddRef(newChild);
 633     if(outNewChild)
 634         *outNewChild = newChild;
 635
 636     TRACE("ret S_OK\n");
 637     return S_OK;
 638 }
 639
 640 static HRESULT WINAPI xmlnode_replaceChild(
 641     IXMLDOMNode *iface,
 642     IXMLDOMNode* newChild,
 643     IXMLDOMNode* oldChild,
 644     IXMLDOMNode** outOldChild)
 645 {
 646     xmlnode *This = impl_from_IXMLDOMNode( iface );
 647     xmlnode *old_child, *new_child;
 648     xmlDocPtr leaving_doc;
 649     xmlNode *my_ancestor;
 650
 651     TRACE("(%p)->(%p %p %p)\n", This, newChild, oldChild, outOldChild);
 652
 653     /* Do not believe any documentation telling that newChild == NULL
 654        means removal. It does certainly *not* apply to msxml3! */
 655     if(!newChild || !oldChild)
 656         return E_INVALIDARG;
 657
 658     if(outOldChild)
 659         *outOldChild = NULL;
 660
 661     old_child = get_node_obj(oldChild);
 662     if(!old_child) {
 663         FIXME("oldChild is not our node implementation\n");
 664         return E_FAIL;
 665     }
 666
 667     if(old_child->node->parent != This->node)
 668     {
 669         WARN("childNode %p is not a child of %p\n", oldChild, iface);
 670         return E_INVALIDARG;
 671     }
 672
 673     new_child = get_node_obj(newChild);
 674     if(!new_child) {
 675         FIXME("newChild is not our node implementation\n");
 676         return E_FAIL;
 677     }
 678
 679     my_ancestor = This->node;
 680     while(my_ancestor)
 681     {
 682         if(my_ancestor == new_child->node)
 683         {
 684             WARN("tried to create loop\n");
 685             return E_FAIL;
 686         }
 687         my_ancestor = my_ancestor->parent;
 688     }
 689
 690     if(!new_child->node->parent)
 691         if(xmldoc_remove_orphan(new_child->node->doc, new_child->node) != S_OK)
 692             WARN("%p is not an orphan of %p\n", new_child->node, new_child->node->doc);
 693
 694     leaving_doc = new_child->node->doc;
 695     xmldoc_add_ref(old_child->node->doc);
 696     xmlReplaceNode(old_child->node, new_child->node);
 697     xmldoc_release(leaving_doc);
 698
 699     xmldoc_add_orphan(old_child->node->doc, old_child->node);
 700
 701     if(outOldChild)
 702     {
 703         IXMLDOMNode_AddRef(oldChild);
 704         *outOldChild = oldChild;
 705     }
 706
 707     return S_OK;
 708 }
 709
 710 static HRESULT WINAPI xmlnode_removeChild(
 711     IXMLDOMNode *iface,
 712     IXMLDOMNode* childNode,
 713     IXMLDOMNode** oldChild)
 714 {
 715     xmlnode *This = impl_from_IXMLDOMNode( iface );
 716     xmlnode *child_node;
 717
 718     TRACE("(%p)->(%p %p)\n", This, childNode, oldChild);
 719
 720     if(!childNode) return E_INVALIDARG;
 721
 722     if(oldChild)
 723         *oldChild = NULL;
 724
 725     child_node = get_node_obj(childNode);
 726     if(!child_node) {
 727         FIXME("childNode is not our node implementation\n");
 728         return E_FAIL;
 729     }
 730
 731     if(child_node->node->parent != This->node)
 732     {
 733         WARN("childNode %p is not a child of %p\n", childNode, iface);
 734         return E_INVALIDARG;
 735     }
 736
 737     xmlUnlinkNode(child_node->node);
 738
 739     if(oldChild)
 740     {
 741         IXMLDOMNode_AddRef(childNode);
 742         *oldChild = childNode;
 743     }
 744
 745     return S_OK;
 746 }
 747
 748 static HRESULT WINAPI xmlnode_appendChild(
 749     IXMLDOMNode *iface,
 750     IXMLDOMNode* newChild,
 751     IXMLDOMNode** outNewChild)
 752 {
 753     xmlnode *This = impl_from_IXMLDOMNode( iface );
 754     DOMNodeType type;
 755     VARIANT var;
 756     HRESULT hr;
 757
 758     TRACE("(%p)->(%p %p)\n", This, newChild, outNewChild);
 759
 760     hr = IXMLDOMNode_get_nodeType(newChild, &type);
 761     if(FAILED(hr) || type == NODE_ATTRIBUTE) {
 762         if(outNewChild) *outNewChild = NULL;
 763         return E_FAIL;
 764     }
 765
 766     VariantInit(&var);
 767     return IXMLDOMNode_insertBefore(iface, newChild, var, outNewChild);
 768 }
 769
 770 static HRESULT WINAPI xmlnode_hasChildNodes(
 771     IXMLDOMNode *iface,
 772     VARIANT_BOOL* hasChild)
 773 {
 774     xmlnode *This = impl_from_IXMLDOMNode( iface );
 775
 776     TRACE("(%p)->(%p)\n", This, hasChild);
 777
 778     if (!hasChild)
 779         return E_INVALIDARG;
 780     if (!This->node->children)
 781     {
 782         *hasChild = VARIANT_FALSE;
 783         return S_FALSE;
 784     }
 785
 786     *hasChild = VARIANT_TRUE;
 787     return S_OK;
 788 }
 789
 790 static HRESULT WINAPI xmlnode_get_ownerDocument(
 791     IXMLDOMNode *iface,
 792     IXMLDOMDocument** DOMDocument)
 793 {
 794     xmlnode *This = impl_from_IXMLDOMNode( iface );
 795
 796     TRACE("(%p)->(%p)\n", This, DOMDocument);
 797
 798     return DOMDocument_create_from_xmldoc(This->node->doc, (IXMLDOMDocument3**)DOMDocument);
 799 }
 800
 801 static HRESULT WINAPI xmlnode_cloneNode(
 802     IXMLDOMNode *iface,
 803     VARIANT_BOOL deep,
 804     IXMLDOMNode** cloneRoot)
 805 {
 806     xmlnode *This = impl_from_IXMLDOMNode( iface );
 807     xmlNodePtr pClone = NULL;
 808     IXMLDOMNode *pNode = NULL;
 809
 810     TRACE("(%p)->(%d %p)\n", This, deep, cloneRoot);
 811
 812     if(!cloneRoot)
 813         return E_INVALIDARG;
 814
 815     pClone = xmlCopyNode(This->node, deep ? 1 : 2);
 816     if(pClone)
 817     {
 818         pClone->doc = This->node->doc;
 819         xmldoc_add_orphan(pClone->doc, pClone);
 820
 821         pNode = create_node(pClone);
 822         if(!pNode)
 823         {
 824             ERR("Copy failed\n");
 825             return E_FAIL;
 826         }
 827
 828         *cloneRoot = pNode;
 829     }
 830     else
 831     {
 832         ERR("Copy failed\n");
 833         return E_FAIL;
 834     }
 835
 836     return S_OK;
 837 }
 838
 839 static HRESULT WINAPI xmlnode_get_nodeTypeString(
 840     IXMLDOMNode *iface,
 841     BSTR* xmlnodeType)
 842 {
 843     xmlnode *This = impl_from_IXMLDOMNode( iface );
 844     const xmlChar *str;
 845
 846     TRACE("(%p)->(%p)\n", This, xmlnodeType );
 847
 848     if (!xmlnodeType)
 849         return E_INVALIDARG;
 850
 851     if ( !This->node )
 852         return E_FAIL;
 853
 854     switch( This->node->type )
 855     {
 856     case XML_ATTRIBUTE_NODE:
 857         str = (const xmlChar*) "attribute";
 858         break;
 859     case XML_CDATA_SECTION_NODE:
 860         str = (const xmlChar*) "cdatasection";
 861         break;
 862     case XML_COMMENT_NODE:
 863         str = (const xmlChar*) "comment";
 864         break;
 865     case XML_DOCUMENT_NODE:
 866         str = (const xmlChar*) "document";
 867         break;
 868     case XML_DOCUMENT_FRAG_NODE:
 869         str = (const xmlChar*) "documentfragment";
 870         break;
 871     case XML_ELEMENT_NODE:
 872         str = (const xmlChar*) "element";
 873         break;
 874     case XML_ENTITY_NODE:
 875         str = (const xmlChar*) "entity";
 876         break;
 877     case XML_ENTITY_REF_NODE:
 878         str = (const xmlChar*) "entityreference";
 879         break;
 880     case XML_NOTATION_NODE:
 881         str = (const xmlChar*) "notation";
 882         break;
 883     case XML_PI_NODE:
 884         str = (const xmlChar*) "processinginstruction";
 885         break;
 886     case XML_TEXT_NODE:
 887         str = (const xmlChar*) "text";
 888         break;
 889     default:
 890         FIXME("Unknown node type (%d)\n", This->node->type);
 891         str = This->node->name;
 892         break;
 893     }
 894
 895     *xmlnodeType = bstr_from_xmlChar( str );
 896     if (!*xmlnodeType)
 897         return S_FALSE;
 898
 899     return S_OK;
 900 }
 901
 902 static HRESULT WINAPI xmlnode_get_text(
 903     IXMLDOMNode *iface,
 904     BSTR* text)
 905 {
 906     xmlnode *This = impl_from_IXMLDOMNode( iface );
 907     BSTR str = NULL;
 908     xmlChar *pContent;
 909
 910     TRACE("(%p, type %d)->(%p)\n", This, This->node->type, text);
 911
 912     if ( !text )
 913         return E_INVALIDARG;
 914
 915     pContent = xmlNodeGetContent((xmlNodePtr)This->node);
 916     if(pContent)
 917     {
 918         str = bstr_from_xmlChar(pContent);
 919         xmlFree(pContent);
 920     }
 921
 922     /* Always return a string. */
 923     if (!str) str = SysAllocStringLen( NULL, 0 );
 924
 925     TRACE("%p %s\n", This, debugstr_w(str) );
 926     *text = str;
 927
 928     return S_OK;
 929 }
 930
 931 static HRESULT WINAPI xmlnode_put_text(
 932     IXMLDOMNode *iface,
 933     BSTR text)
 934 {
 935     xmlnode *This = impl_from_IXMLDOMNode( iface );
 936     xmlChar *str, *str2;
 937
 938     TRACE("(%p)->(%s)\n", This, debugstr_w(text));
 939
 940     switch(This->node->type)
 941     {
 942     case XML_DOCUMENT_NODE:
 943         return E_FAIL;
 944     default:
 945         break;
 946     }
 947
 948     str = xmlChar_from_wchar(text);
 949
 950     /* Escape the string. */
 951     str2 = xmlEncodeEntitiesReentrant(This->node->doc, str);
 952     heap_free(str);
 953
 954     xmlNodeSetContent(This->node, str2);
 955     xmlFree(str2);
 956
 957     return S_OK;
 958 }
 959
 960 static HRESULT WINAPI xmlnode_get_specified(
 961     IXMLDOMNode *iface,
 962     VARIANT_BOOL* isSpecified)
 963 {
 964     xmlnode *This = impl_from_IXMLDOMNode( iface );
 965     FIXME("(%p)->(%p) stub!\n", This, isSpecified);
 966     *isSpecified = VARIANT_TRUE;
 967     return S_OK;
 968 }
 969
 970 static HRESULT WINAPI xmlnode_get_definition(
 971     IXMLDOMNode *iface,
 972     IXMLDOMNode** definitionNode)
 973 {
 974     xmlnode *This = impl_from_IXMLDOMNode( iface );
 975     FIXME("(%p)->(%p)\n", This, definitionNode);
 976     return E_NOTIMPL;
 977 }
 978
 979 static inline BYTE hex_to_byte(xmlChar c)
 980 {
 981     if(c <= '9') return c-'0';
 982     if(c <= 'F') return c-'A'+10;
 983     return c-'a'+10;
 984 }
 985
 986 static inline BYTE base64_to_byte(xmlChar c)
 987 {
 988     if(c == '+') return 62;
 989     if(c == '/') return 63;
 990     if(c <= '9') return c-'0'+52;
 991     if(c <= 'Z') return c-'A';
 992     return c-'a'+26;
 993 }
 994
 995 static inline HRESULT VARIANT_from_xmlChar(xmlChar *str, VARIANT *v, BSTR type)
 996 {
 997     if(!type || !lstrcmpiW(type, szString) ||
 998             !lstrcmpiW(type, szNumber) || !lstrcmpiW(type, szUUID))
 999     {
1000         V_VT(v) = VT_BSTR;
1001         V_BSTR(v) = bstr_from_xmlChar(str);
1002
1003         if(!V_BSTR(v))
1004             return E_OUTOFMEMORY;
1005     }
1006     else if(!lstrcmpiW(type, szDateTime) || !lstrcmpiW(type, szDateTimeTZ) ||
1007             !lstrcmpiW(type, szDate) || !lstrcmpiW(type, szTime) ||
1008             !lstrcmpiW(type, szTimeTZ))
1009     {
1010         VARIANT src;
1011         WCHAR *p, *e;
1012         SYSTEMTIME st;
1013         DOUBLE date = 0.0;
1014
1015         st.wYear = 1899;
1016         st.wMonth = 12;
1017         st.wDay = 30;
1018         st.wDayOfWeek = st.wHour = st.wMinute = st.wSecond = st.wMilliseconds = 0;
1019
1020         V_VT(&src) = VT_BSTR;
1021         V_BSTR(&src) = bstr_from_xmlChar(str);
1022
1023         if(!V_BSTR(&src))
1024             return E_OUTOFMEMORY;
1025
1026         p = V_BSTR(&src);
1027         e = p + SysStringLen(V_BSTR(&src));
1028
1029         if(p+4<e && *(p+4)=='-') /* parse date (yyyy-mm-dd) */
1030         {
1031             st.wYear = atoiW(p);
1032             st.wMonth = atoiW(p+5);
1033             st.wDay = atoiW(p+8);
1034             p += 10;
1035
1036             if(*p == 'T') p++;
1037         }
1038
1039         if(p+2<e && *(p+2)==':') /* parse time (hh:mm:ss.?) */
1040         {
1041             st.wHour = atoiW(p);
1042             st.wMinute = atoiW(p+3);
1043             st.wSecond = atoiW(p+6);
1044             p += 8;
1045
1046             if(*p == '.')
1047             {
1048                 p++;
1049                 while(isdigitW(*p)) p++;
1050             }
1051         }
1052
1053         SystemTimeToVariantTime(&st, &date);
1054         V_VT(v) = VT_DATE;
1055         V_DATE(v) = date;
1056
1057         if(*p == '+') /* parse timezone offset (+hh:mm) */
1058             V_DATE(v) += (DOUBLE)atoiW(p+1)/24 + (DOUBLE)atoiW(p+4)/1440;
1059         else if(*p == '-') /* parse timezone offset (-hh:mm) */
1060             V_DATE(v) -= (DOUBLE)atoiW(p+1)/24 + (DOUBLE)atoiW(p+4)/1440;
1061
1062         VariantClear(&src);
1063     }
1064     else if(!lstrcmpiW(type, szBinHex))
1065     {
1066         SAFEARRAYBOUND sab;
1067         int i, len;
1068
1069         len = xmlStrlen(str)/2;
1070         sab.lLbound = 0;
1071         sab.cElements = len;
1072
1073         V_VT(v) = (VT_ARRAY|VT_UI1);
1074         V_ARRAY(v) = SafeArrayCreate(VT_UI1, 1, &sab);
1075
1076         if(!V_ARRAY(v))
1077             return E_OUTOFMEMORY;
1078
1079         for(i=0; i<len; i++)
1080             ((BYTE*)V_ARRAY(v)->pvData)[i] = (hex_to_byte(str[2*i])<<4)
1081                 + hex_to_byte(str[2*i+1]);
1082     }
1083     else if(!lstrcmpiW(type, szBinBase64))
1084     {
1085         SAFEARRAYBOUND sab;
1086         int i, len;
1087
1088         len  = xmlStrlen(str);
1089         if(str[len-2] == '=') i = 2;
1090         else if(str[len-1] == '=') i = 1;
1091         else i = 0;
1092
1093         sab.lLbound = 0;
1094         sab.cElements = len/4*3-i;
1095
1096         V_VT(v) = (VT_ARRAY|VT_UI1);
1097         V_ARRAY(v) = SafeArrayCreate(VT_UI1, 1, &sab);
1098
1099         if(!V_ARRAY(v))
1100             return E_OUTOFMEMORY;
1101
1102         for(i=0; i<len/4; i++)
1103         {
1104             ((BYTE*)V_ARRAY(v)->pvData)[3*i] = (base64_to_byte(str[4*i])<<2)
1105                 + (base64_to_byte(str[4*i+1])>>4);
1106             if(3*i+1 < sab.cElements)
1107                 ((BYTE*)V_ARRAY(v)->pvData)[3*i+1] = (base64_to_byte(str[4*i+1])<<4)
1108                     + (base64_to_byte(str[4*i+2])>>2);
1109             if(3*i+2 < sab.cElements)
1110                 ((BYTE*)V_ARRAY(v)->pvData)[3*i+2] = (base64_to_byte(str[4*i+2])<<6)
1111                     + base64_to_byte(str[4*i+3]);
1112         }
1113     }
1114     else
1115     {
1116         VARIANT src;
1117         HRESULT hres;
1118
1119         if(!lstrcmpiW(type, szInt) || !lstrcmpiW(type, szI4))
1120             V_VT(v) = VT_I4;
1121         else if(!lstrcmpiW(type, szFixed))
1122             V_VT(v) = VT_CY;
1123         else if(!lstrcmpiW(type, szBoolean))
1124             V_VT(v) = VT_BOOL;
1125         else if(!lstrcmpiW(type, szI1))
1126             V_VT(v) = VT_I1;
1127         else if(!lstrcmpiW(type, szI2))
1128             V_VT(v) = VT_I2;
1129         else if(!lstrcmpiW(type, szIU1))
1130             V_VT(v) = VT_UI1;
1131         else if(!lstrcmpiW(type, szIU2))
1132             V_VT(v) = VT_UI2;
1133         else if(!lstrcmpiW(type, szIU4))
1134             V_VT(v) = VT_UI4;
1135         else if(!lstrcmpiW(type, szR4))
1136             V_VT(v) = VT_R4;
1137         else if(!lstrcmpiW(type, szR8) || !lstrcmpiW(type, szFloat))
1138             V_VT(v) = VT_R8;
1139         else
1140         {
1141             FIXME("Type handling not yet implemented\n");
1142             V_VT(v) = VT_BSTR;
1143         }
1144
1145         V_VT(&src) = VT_BSTR;
1146         V_BSTR(&src) = bstr_from_xmlChar(str);
1147
1148         if(!V_BSTR(&src))
1149             return E_OUTOFMEMORY;
1150
1151         hres = VariantChangeTypeEx(v, &src, MAKELCID(MAKELANGID(
1152                         LANG_ENGLISH,SUBLANG_ENGLISH_US),SORT_DEFAULT),0, V_VT(v));
1153         VariantClear(&src);
1154         return hres;
1155     }
1156
1157     return S_OK;
1158 }
1159
1160 static HRESULT WINAPI xmlnode_get_nodeTypedValue(
1161     IXMLDOMNode *iface,
1162     VARIANT* typedValue)
1163 {
1164     xmlnode *This = impl_from_IXMLDOMNode( iface );
1165     VARIANT type;
1166     xmlChar *content;
1167     HRESULT hres = S_FALSE;
1168
1169     TRACE("(%p)->(%p)\n", This, typedValue);
1170
1171     if(!typedValue)
1172         return E_INVALIDARG;
1173
1174     V_VT(typedValue) = VT_NULL;
1175
1176     if(This->node->type == XML_ELEMENT_NODE ||
1177             This->node->type == XML_TEXT_NODE ||
1178             This->node->type == XML_ENTITY_REF_NODE)
1179         hres = IXMLDOMNode_get_dataType(iface, &type);
1180
1181     if(hres != S_OK && This->node->type != XML_ELEMENT_NODE)
1182         return IXMLDOMNode_get_nodeValue(iface, typedValue);
1183
1184     content = xmlNodeGetContent(This->node);
1185     hres = VARIANT_from_xmlChar(content, typedValue,
1186             hres==S_OK ? V_BSTR(&type) : NULL);
1187     xmlFree(content);
1188     VariantClear(&type);
1189
1190     return hres;
1191 }
1192
1193 static HRESULT WINAPI xmlnode_put_nodeTypedValue(
1194     IXMLDOMNode *iface,
1195     VARIANT typedValue)
1196 {
1197     xmlnode *This = impl_from_IXMLDOMNode( iface );
1198     FIXME("%p\n", This);
1199     return E_NOTIMPL;
1200 }
1201
1202 static HRESULT WINAPI xmlnode_get_dataType(
1203     IXMLDOMNode *iface,
1204     VARIANT* dataTypeName)
1205 {
1206     xmlnode *This = impl_from_IXMLDOMNode( iface );
1207     xmlChar *pVal;
1208
1209     TRACE("(%p)->(%p)\n", This, dataTypeName);
1210
1211     if(!dataTypeName)
1212         return E_INVALIDARG;
1213
1214     /* Attribute, CDATA Section, Comment, Document, Document Fragment,
1215         Entity, Notation, PI, and Text Node are non-typed. */
1216     V_BSTR(dataTypeName) = NULL;
1217     V_VT(dataTypeName) = VT_NULL;
1218
1219     switch ( This->node->type )
1220     {
1221     case XML_ELEMENT_NODE:
1222         pVal = xmlGetNsProp(This->node, (const xmlChar*)"dt",
1223                             (const xmlChar*)"urn:schemas-microsoft-com:datatypes");
1224         if (pVal)
1225         {
1226             V_VT(dataTypeName) = VT_BSTR;
1227             V_BSTR(dataTypeName) = bstr_from_xmlChar( pVal );
1228             xmlFree(pVal);
1229         }
1230         break;
1231     case XML_ENTITY_REF_NODE:
1232         FIXME("XML_ENTITY_REF_NODE should return a valid value.\n");
1233         break;
1234     default:
1235         TRACE("Type %d returning NULL\n", This->node->type);
1236     }
1237
1238     /* non-typed nodes return S_FALSE */
1239     if(V_VT(dataTypeName) == VT_NULL)
1240     {
1241         return S_FALSE;
1242     }
1243
1244     return S_OK;
1245 }
1246
1247 static HRESULT WINAPI xmlnode_put_dataType(
1248     IXMLDOMNode *iface,
1249     BSTR dataTypeName)
1250 {
1251     xmlnode *This = impl_from_IXMLDOMNode( iface );
1252     HRESULT hr = E_FAIL;
1253
1254     TRACE("(%p)->(%s)\n", This, debugstr_w(dataTypeName));
1255
1256     if(dataTypeName == NULL)
1257         return E_INVALIDARG;
1258
1259     /* An example of this is. The Text in the node needs to be a 0 or 1 for a boolean type.
1260        This applies to changing types (string->bool) or setting a new one
1261      */
1262     FIXME("Need to Validate the data before allowing a type to be set.\n");
1263
1264     /* Check all supported types. */
1265     if(lstrcmpiW(dataTypeName,szString) == 0  ||
1266        lstrcmpiW(dataTypeName,szNumber) == 0  ||
1267        lstrcmpiW(dataTypeName,szUUID) == 0    ||
1268        lstrcmpiW(dataTypeName,szInt) == 0     ||
1269        lstrcmpiW(dataTypeName,szI4) == 0      ||
1270        lstrcmpiW(dataTypeName,szFixed) == 0   ||
1271        lstrcmpiW(dataTypeName,szBoolean) == 0 ||
1272        lstrcmpiW(dataTypeName,szDateTime) == 0 ||
1273        lstrcmpiW(dataTypeName,szDateTimeTZ) == 0 ||
1274        lstrcmpiW(dataTypeName,szDate) == 0    ||
1275        lstrcmpiW(dataTypeName,szTime) == 0    ||
1276        lstrcmpiW(dataTypeName,szTimeTZ) == 0  ||
1277        lstrcmpiW(dataTypeName,szI1) == 0      ||
1278        lstrcmpiW(dataTypeName,szI2) == 0      ||
1279        lstrcmpiW(dataTypeName,szIU1) == 0     ||
1280        lstrcmpiW(dataTypeName,szIU2) == 0     ||
1281        lstrcmpiW(dataTypeName,szIU4) == 0     ||
1282        lstrcmpiW(dataTypeName,szR4) == 0      ||
1283        lstrcmpiW(dataTypeName,szR8) == 0      ||
1284        lstrcmpiW(dataTypeName,szFloat) == 0   ||
1285        lstrcmpiW(dataTypeName,szBinHex) == 0  ||
1286        lstrcmpiW(dataTypeName,szBinBase64) == 0)
1287     {
1288         xmlNsPtr pNS = NULL;
1289         xmlAttrPtr pAttr = NULL;
1290         xmlChar* str = xmlChar_from_wchar(dataTypeName);
1291
1292         pAttr = xmlHasNsProp(This->node, (const xmlChar*)"dt",
1293                             (const xmlChar*)"urn:schemas-microsoft-com:datatypes");
1294         if (pAttr)
1295         {
1296             pAttr = xmlSetNsProp(This->node, pAttr->ns, (const xmlChar*)"dt", str);
1297
1298             hr = S_OK;
1299         }
1300         else
1301         {
1302             pNS = xmlNewNs(This->node, (const xmlChar*)"urn:schemas-microsoft-com:datatypes", (const xmlChar*)"dt");
1303             if(pNS)
1304             {
1305                 pAttr = xmlNewNsProp(This->node, pNS, (const xmlChar*)"dt", str);
1306                 if(pAttr)
1307                 {
1308                     xmlAddChild(This->node, (xmlNodePtr)pAttr);
1309
1310                     hr = S_OK;
1311                 }
1312                 else
1313                     ERR("Failed to create Attribute\n");
1314             }
1315             else
1316                 ERR("Failed to Create Namepsace\n");
1317         }
1318         heap_free( str );
1319     }
1320
1321     return hr;
1322 }
1323
1324 static BSTR EnsureCorrectEOL(BSTR sInput)
1325 {
1326     int nNum = 0;
1327     BSTR sNew;
1328     int nLen;
1329     int i;
1330
1331     nLen = lstrlenW(sInput);
1332     /* Count line endings */
1333     for(i=0; i < nLen; i++)
1334     {
1335         if(sInput[i] == '\n')
1336             nNum++;
1337     }
1338
1339     TRACE("len=%d, num=%d\n", nLen, nNum);
1340
1341     /* Add linefeed as needed */
1342     if(nNum > 0)
1343     {
1344         int nPlace = 0;
1345         sNew = SysAllocStringLen(NULL, nLen + nNum+1);
1346         for(i=0; i < nLen; i++)
1347         {
1348             if(sInput[i] == '\n')
1349             {
1350                 sNew[i+nPlace] = '\r';
1351                 nPlace++;
1352             }
1353             sNew[i+nPlace] = sInput[i];
1354         }
1355
1356         SysFreeString(sInput);
1357     }
1358     else
1359     {
1360         sNew = sInput;
1361     }
1362
1363     TRACE("len %d\n", lstrlenW(sNew));
1364
1365     return sNew;
1366 }
1367
1368 /* Removes encoding information and last character (nullbyte) */
1369 static BSTR EnsureNoEncoding(BSTR sInput)
1370 {
1371     static const WCHAR wszEncoding[] = {'e','n','c','o','d','i','n','g','='};
1372     BSTR sNew;
1373     WCHAR *pBeg, *pEnd;
1374
1375     pBeg = sInput;
1376     while(*pBeg != '\n' && memcmp(pBeg, wszEncoding, sizeof(wszEncoding)))
1377         pBeg++;
1378
1379     if(*pBeg == '\n')
1380     {
1381         SysReAllocStringLen(&sInput, sInput, SysStringLen(sInput)-1);
1382         return sInput;
1383     }
1384     pBeg--;
1385
1386     pEnd = pBeg + sizeof(wszEncoding)/sizeof(WCHAR) + 2;
1387     while(*pEnd != '\"') pEnd++;
1388     pEnd++;
1389
1390     sNew = SysAllocStringLen(NULL,
1391             pBeg-sInput + SysStringLen(sInput)-(pEnd-sInput)-1);
1392     memcpy(sNew, sInput, (pBeg-sInput)*sizeof(WCHAR));
1393     memcpy(&sNew[pBeg-sInput], pEnd, (SysStringLen(sInput)-(pEnd-sInput)-1)*sizeof(WCHAR));
1394
1395     SysFreeString(sInput);
1396     return sNew;
1397 }
1398
1399 /*
1400  * We are trying to replicate the same behaviour as msxml by converting
1401  * line endings to \r\n and using indents as \t. The problem is that msxml
1402  * only formats nodes that have a line ending. Using libxml we cannot
1403  * reproduce behaviour exactly.
1404  *
1405  */
1406 static HRESULT WINAPI xmlnode_get_xml(
1407     IXMLDOMNode *iface,
1408     BSTR* xmlString)
1409 {
1410     xmlnode *This = impl_from_IXMLDOMNode( iface );
1411     xmlBufferPtr pXmlBuf;
1412     xmlNodePtr xmldecl;
1413     int nSize;
1414
1415     TRACE("(%p %d)->(%p)\n", This, This->node->type, xmlString);
1416
1417     if(!xmlString)
1418         return E_INVALIDARG;
1419
1420     *xmlString = NULL;
1421
1422     xmldecl = xmldoc_unlink_xmldecl( This->node->doc );
1423
1424     pXmlBuf = xmlBufferCreate();
1425     if(pXmlBuf)
1426     {
1427         nSize = xmlNodeDump(pXmlBuf, This->node->doc, This->node, 0, 1);
1428         if(nSize > 0)
1429         {
1430             const xmlChar *pContent;
1431             BSTR bstrContent;
1432
1433             /* Attribute Nodes return a space in front of their name */
1434             pContent = xmlBufferContent(pXmlBuf);
1435             if( ((const char*)pContent)[0] == ' ')
1436                 bstrContent = bstr_from_xmlChar(pContent+1);
1437             else
1438                 bstrContent = bstr_from_xmlChar(pContent);
1439
1440             switch(This->node->type)
1441             {
1442                 case XML_ELEMENT_NODE:
1443                     *xmlString = EnsureCorrectEOL(bstrContent);
1444                     break;
1445                 case XML_DOCUMENT_NODE:
1446                     *xmlString = EnsureCorrectEOL(bstrContent);
1447                     *xmlString = EnsureNoEncoding(*xmlString);
1448                     break;
1449                 default:
1450                     *xmlString = bstrContent;
1451             }
1452         }
1453
1454         xmlBufferFree(pXmlBuf);
1455     }
1456
1457     xmldoc_link_xmldecl( This->node->doc, xmldecl );
1458
1459     /* Always returns a string. */
1460     if(*xmlString == NULL)  *xmlString = SysAllocStringLen( NULL, 0 );
1461
1462     return S_OK;
1463 }
1464
1465 static HRESULT WINAPI xmlnode_transformNode(
1466     IXMLDOMNode *iface,
1467     IXMLDOMNode* styleSheet,
1468     BSTR* xmlString)
1469 {
1470 #ifdef SONAME_LIBXSLT
1471     xmlnode *This = impl_from_IXMLDOMNode( iface );
1472     xmlnode *pStyleSheet = NULL;
1473     xsltStylesheetPtr xsltSS = NULL;
1474     xmlDocPtr result = NULL;
1475
1476     TRACE("(%p)->(%p %p)\n", This, styleSheet, xmlString);
1477
1478     if (!libxslt_handle)
1479         return E_NOTIMPL;
1480     if(!styleSheet || !xmlString)
1481         return E_INVALIDARG;
1482
1483     *xmlString = NULL;
1484
1485     pStyleSheet = get_node_obj(styleSheet);
1486     if(!pStyleSheet) {
1487         FIXME("styleSheet is not our xmlnode implementation\n");
1488         return E_FAIL;
1489     }
1490
1491     xsltSS = pxsltParseStylesheetDoc( pStyleSheet->node->doc);
1492     if(xsltSS)
1493     {
1494         result = pxsltApplyStylesheet(xsltSS, This->node->doc, NULL);
1495         if(result)
1496         {
1497             const xmlChar *pContent;
1498
1499             if(result->type == XML_HTML_DOCUMENT_NODE)
1500             {
1501                 xmlOutputBufferPtr      pOutput = xmlAllocOutputBuffer(NULL);
1502                 if(pOutput)
1503                 {
1504                     htmlDocContentDumpOutput(pOutput, result->doc, NULL);
1505                     pContent = xmlBufferContent(pOutput->buffer);
1506                     *xmlString = bstr_from_xmlChar(pContent);
1507                     xmlOutputBufferClose(pOutput);
1508                 }
1509             }
1510             else
1511             {
1512                 xmlBufferPtr pXmlBuf;
1513                 int nSize;
1514
1515                 pXmlBuf = xmlBufferCreate();
1516                 if(pXmlBuf)
1517                 {
1518                     nSize = xmlNodeDump(pXmlBuf, NULL, (xmlNodePtr)result, 0, 0);
1519                     if(nSize > 0)
1520                     {
1521                         pContent = xmlBufferContent(pXmlBuf);
1522                         *xmlString = bstr_from_xmlChar(pContent);
1523                     }
1524                     xmlBufferFree(pXmlBuf);
1525                 }
1526             }
1527             xmlFreeDoc(result);
1528         }
1529         /* libxslt "helpfully" frees the XML document the stylesheet was
1530            generated from, too */
1531         xsltSS->doc = NULL;
1532         pxsltFreeStylesheet(xsltSS);
1533     }
1534
1535     if(*xmlString == NULL)
1536         *xmlString = SysAllocStringLen(NULL, 0);
1537
1538     return S_OK;
1539 #else
1540     FIXME("libxslt headers were not found at compile time\n");
1541     return E_NOTIMPL;
1542 #endif
1543 }
1544
1545 static HRESULT WINAPI xmlnode_selectNodes(
1546     IXMLDOMNode *iface,
1547     BSTR queryString,
1548     IXMLDOMNodeList** resultList)
1549 {
1550     xmlnode *This = impl_from_IXMLDOMNode( iface );
1551
1552     TRACE("(%p)->(%s %p)\n", This, debugstr_w(queryString), resultList );
1553
1554     return queryresult_create( This->node, queryString, resultList );
1555 }
1556
1557 static HRESULT WINAPI xmlnode_selectSingleNode(
1558     IXMLDOMNode *iface,
1559     BSTR queryString,
1560     IXMLDOMNode** resultNode)
1561 {
1562     xmlnode *This = impl_from_IXMLDOMNode( iface );
1563     IXMLDOMNodeList *list;
1564     HRESULT r;
1565
1566     TRACE("(%p)->(%s %p)\n", This, debugstr_w(queryString), resultNode );
1567
1568     *resultNode = NULL;
1569     r = IXMLDOMNode_selectNodes(iface, queryString, &list);
1570     if(r == S_OK)
1571     {
1572         r = IXMLDOMNodeList_nextNode(list, resultNode);
1573         IXMLDOMNodeList_Release(list);
1574     }
1575     return r;
1576 }
1577
1578 static HRESULT WINAPI xmlnode_get_parsed(
1579     IXMLDOMNode *iface,
1580     VARIANT_BOOL* isParsed)
1581 {
1582     xmlnode *This = impl_from_IXMLDOMNode( iface );
1583     FIXME("(%p)->(%p) stub!\n", This, isParsed);
1584     *isParsed = VARIANT_TRUE;
1585     return S_OK;
1586 }
1587
1588 static HRESULT WINAPI xmlnode_get_namespaceURI(
1589     IXMLDOMNode *iface,
1590     BSTR* namespaceURI)
1591 {
1592     xmlnode *This = impl_from_IXMLDOMNode( iface );
1593     HRESULT hr = S_FALSE;
1594     xmlNsPtr *pNSList;
1595
1596     TRACE("(%p)->(%p)\n", This, namespaceURI );
1597
1598     if(!namespaceURI)
1599         return E_INVALIDARG;
1600
1601     *namespaceURI = NULL;
1602
1603     pNSList = xmlGetNsList(This->node->doc, This->node);
1604     if(pNSList)
1605     {
1606         *namespaceURI = bstr_from_xmlChar( pNSList[0]->href );
1607
1608         xmlFree( pNSList );
1609         hr = S_OK;
1610     }
1611
1612     return hr;
1613 }
1614
1615 static HRESULT WINAPI xmlnode_get_prefix(
1616     IXMLDOMNode *iface,
1617     BSTR* prefixString)
1618 {
1619     xmlnode *This = impl_from_IXMLDOMNode( iface );
1620     HRESULT hr = S_FALSE;
1621     xmlNsPtr *pNSList;
1622
1623     TRACE("(%p)->(%p)\n", This, prefixString );
1624
1625     if(!prefixString)
1626         return E_INVALIDARG;
1627
1628     *prefixString = NULL;
1629
1630     pNSList = xmlGetNsList(This->node->doc, This->node);
1631     if(pNSList)
1632     {
1633         *prefixString = bstr_from_xmlChar( pNSList[0]->prefix );
1634
1635         xmlFree(pNSList);
1636         hr = S_OK;
1637     }
1638
1639     return hr;
1640 }
1641
1642 static HRESULT WINAPI xmlnode_get_baseName(
1643     IXMLDOMNode *iface,
1644     BSTR* nameString)
1645 {
1646     xmlnode *This = impl_from_IXMLDOMNode( iface );
1647     BSTR str = NULL;
1648     HRESULT r = S_FALSE;
1649
1650     TRACE("(%p)->(%p)\n", This, nameString );
1651
1652     if ( !nameString )
1653         return E_INVALIDARG;
1654
1655     switch ( This->node->type )
1656     {
1657     case XML_ELEMENT_NODE:
1658     case XML_ATTRIBUTE_NODE:
1659     case XML_PI_NODE:
1660         str = bstr_from_xmlChar( This->node->name );
1661         r = S_OK;
1662         break;
1663     case XML_TEXT_NODE:
1664     case XML_COMMENT_NODE:
1665     case XML_DOCUMENT_NODE:
1666         break;
1667     default:
1668         ERR("Unhandled type %d\n", This->node->type );
1669         break;
1670     }
1671
1672     TRACE("returning %08x str = %s\n", r, debugstr_w( str ) );
1673
1674     *nameString = str;
1675     return r;
1676 }
1677
1678 static HRESULT WINAPI xmlnode_transformNodeToObject(
1679     IXMLDOMNode *iface,
1680     IXMLDOMNode* stylesheet,
1681     VARIANT outputObject)
1682 {
1683     xmlnode *This = impl_from_IXMLDOMNode( iface );
1684     FIXME("(%p)->(%p)\n", This, stylesheet);
1685     return E_NOTIMPL;
1686 }
1687
1688 static const struct IXMLDOMNodeVtbl xmlnode_vtbl =
1689 {
1690     xmlnode_QueryInterface,
1691     xmlnode_AddRef,
1692     xmlnode_Release,
1693     xmlnode_GetTypeInfoCount,
1694     xmlnode_GetTypeInfo,
1695     xmlnode_GetIDsOfNames,
1696     xmlnode_Invoke,
1697     xmlnode_get_nodeName,
1698     xmlnode_get_nodeValue,
1699     xmlnode_put_nodeValue,
1700     xmlnode_get_nodeType,
1701     xmlnode_get_parentNode,
1702     xmlnode_get_childNodes,
1703     xmlnode_get_firstChild,
1704     xmlnode_get_lastChild,
1705     xmlnode_get_previousSibling,
1706     xmlnode_get_nextSibling,
1707     xmlnode_get_attributes,
1708     xmlnode_insertBefore,
1709     xmlnode_replaceChild,
1710     xmlnode_removeChild,
1711     xmlnode_appendChild,
1712     xmlnode_hasChildNodes,
1713     xmlnode_get_ownerDocument,
1714     xmlnode_cloneNode,
1715     xmlnode_get_nodeTypeString,
1716     xmlnode_get_text,
1717     xmlnode_put_text,
1718     xmlnode_get_specified,
1719     xmlnode_get_definition,
1720     xmlnode_get_nodeTypedValue,
1721     xmlnode_put_nodeTypedValue,
1722     xmlnode_get_dataType,
1723     xmlnode_put_dataType,
1724     xmlnode_get_xml,
1725     xmlnode_transformNode,
1726     xmlnode_selectNodes,
1727     xmlnode_selectSingleNode,
1728     xmlnode_get_parsed,
1729     xmlnode_get_namespaceURI,
1730     xmlnode_get_prefix,
1731     xmlnode_get_baseName,
1732     xmlnode_transformNodeToObject,
1733 };
1734
1735 void destroy_xmlnode(xmlnode *This)
1736 {
1737     if(This->node)
1738         xmldoc_release(This->node->doc);
1739 }
1740
1741 void init_xmlnode(xmlnode *This, xmlNodePtr node, IXMLDOMNode *node_iface, dispex_static_data_t *dispex_data)
1742 {
1743     if(node)
1744         xmldoc_add_ref( node->doc );
1745
1746     This->lpVtbl = &xmlnode_vtbl;
1747     This->node = node;
1748     This->iface = node_iface;
1749
1750     if(dispex_data)
1751         init_dispex(&This->dispex, (IUnknown*)This->iface, dispex_data);
1752     else
1753         This->dispex.outer = NULL;
1754 }
1755
1756 typedef struct {
1757     xmlnode node;
1758     const IXMLDOMNodeVtbl *lpVtbl;
1759     LONG ref;
1760 } unknode;
1761
1762 static inline unknode *impl_from_unkIXMLDOMNode(IXMLDOMNode *iface)
1763 {
1764     return (unknode *)((char*)iface - FIELD_OFFSET(unknode, lpVtbl));
1765 }
1766
1767 static HRESULT WINAPI unknode_QueryInterface(
1768     IXMLDOMNode *iface,
1769     REFIID riid,
1770     void** ppvObject )
1771 {
1772     unknode *This = impl_from_unkIXMLDOMNode( iface );
1773
1774     TRACE("(%p)->(%s %p)\n", This, debugstr_guid(riid), ppvObject);
1775
1776     if (IsEqualGUID(riid, &IID_IUnknown)) {
1777         *ppvObject = iface;
1778     }else if (IsEqualGUID( riid, &IID_IDispatch) ||
1779               IsEqualGUID( riid, &IID_IXMLDOMNode)) {
1780         *ppvObject = &This->lpVtbl;
1781     }else if(node_query_interface(&This->node, riid, ppvObject)) {
1782         return *ppvObject ? S_OK : E_NOINTERFACE;
1783     }else  {
1784         FIXME("interface %s not implemented\n", debugstr_guid(riid));
1785         *ppvObject = NULL;
1786         return E_NOINTERFACE;
1787     }
1788
1789     IUnknown_AddRef((IUnknown*)*ppvObject);
1790     return S_OK;
1791 }
1792
1793 static ULONG WINAPI unknode_AddRef(
1794     IXMLDOMNode *iface )
1795 {
1796     unknode *This = impl_from_unkIXMLDOMNode( iface );
1797
1798     return InterlockedIncrement(&This->ref);
1799 }
1800
1801 static ULONG WINAPI unknode_Release(
1802     IXMLDOMNode *iface )
1803 {
1804     unknode *This = impl_from_unkIXMLDOMNode( iface );
1805     LONG ref;
1806
1807     ref = InterlockedDecrement( &This->ref );
1808     if(!ref) {
1809         destroy_xmlnode(&This->node);
1810         heap_free(This);
1811     }
1812
1813     return ref;
1814 }
1815
1816 static HRESULT WINAPI unknode_GetTypeInfoCount(
1817     IXMLDOMNode *iface,
1818     UINT* pctinfo )
1819 {
1820     unknode *This = impl_from_unkIXMLDOMNode( iface );
1821
1822     TRACE("(%p)->(%p)\n", This, pctinfo);
1823
1824     *pctinfo = 1;
1825
1826     return S_OK;
1827 }
1828
1829 static HRESULT WINAPI unknode_GetTypeInfo(
1830     IXMLDOMNode *iface,
1831     UINT iTInfo,
1832     LCID lcid,
1833     ITypeInfo** ppTInfo )
1834 {
1835     unknode *This = impl_from_unkIXMLDOMNode( iface );
1836     HRESULT hr;
1837
1838     TRACE("(%p)->(%u %u %p)\n", This, iTInfo, lcid, ppTInfo);
1839
1840     hr = get_typeinfo(IXMLDOMNode_tid, ppTInfo);
1841
1842     return hr;
1843 }
1844
1845 static HRESULT WINAPI unknode_GetIDsOfNames(
1846     IXMLDOMNode *iface,
1847     REFIID riid,
1848     LPOLESTR* rgszNames,
1849     UINT cNames,
1850     LCID lcid,
1851     DISPID* rgDispId )
1852 {
1853     unknode *This = impl_from_unkIXMLDOMNode( iface );
1854
1855     ITypeInfo *typeinfo;
1856     HRESULT hr;
1857
1858     TRACE("(%p)->(%s %p %u %u %p)\n", This, debugstr_guid(riid), rgszNames, cNames,
1859           lcid, rgDispId);
1860
1861     if(!rgszNames || cNames == 0 || !rgDispId)
1862         return E_INVALIDARG;
1863
1864     hr = get_typeinfo(IXMLDOMNode_tid, &typeinfo);
1865     if(SUCCEEDED(hr))
1866     {
1867         hr = ITypeInfo_GetIDsOfNames(typeinfo, rgszNames, cNames, rgDispId);
1868         ITypeInfo_Release(typeinfo);
1869     }
1870
1871     return hr;
1872 }
1873
1874 static HRESULT WINAPI unknode_Invoke(
1875     IXMLDOMNode *iface,
1876     DISPID dispIdMember,
1877     REFIID riid,
1878     LCID lcid,
1879     WORD wFlags,
1880     DISPPARAMS* pDispParams,
1881     VARIANT* pVarResult,
1882     EXCEPINFO* pExcepInfo,
1883     UINT* puArgErr )
1884 {
1885     unknode *This = impl_from_unkIXMLDOMNode( iface );
1886     ITypeInfo *typeinfo;
1887     HRESULT hr;
1888
1889     TRACE("(%p)->(%d %s %d %d %p %p %p %p)\n", This, dispIdMember, debugstr_guid(riid),
1890           lcid, wFlags, pDispParams, pVarResult, pExcepInfo, puArgErr);
1891
1892     hr = get_typeinfo(IXMLDOMNode_tid, &typeinfo);
1893     if(SUCCEEDED(hr))
1894     {
1895         hr = ITypeInfo_Invoke(typeinfo, &(This->lpVtbl), dispIdMember, wFlags, pDispParams,
1896                 pVarResult, pExcepInfo, puArgErr);
1897         ITypeInfo_Release(typeinfo);
1898     }
1899
1900     return hr;
1901 }
1902
1903 static HRESULT WINAPI unknode_get_nodeName(
1904     IXMLDOMNode *iface,
1905     BSTR* p )
1906 {
1907     unknode *This = impl_from_unkIXMLDOMNode( iface );
1908     return IXMLDOMNode_get_nodeName( IXMLDOMNode_from_impl(&This->node), p );
1909 }
1910
1911 static HRESULT WINAPI unknode_get_nodeValue(
1912     IXMLDOMNode *iface,
1913     VARIANT* var1 )
1914 {
1915     unknode *This = impl_from_unkIXMLDOMNode( iface );
1916     return IXMLDOMNode_get_nodeValue( IXMLDOMNode_from_impl(&This->node), var1 );
1917 }
1918
1919 static HRESULT WINAPI unknode_put_nodeValue(
1920     IXMLDOMNode *iface,
1921     VARIANT var1 )
1922 {
1923     unknode *This = impl_from_unkIXMLDOMNode( iface );
1924     return IXMLDOMNode_put_nodeValue( IXMLDOMNode_from_impl(&This->node), var1 );
1925 }
1926
1927 static HRESULT WINAPI unknode_get_nodeType(
1928     IXMLDOMNode *iface,
1929     DOMNodeType* domNodeType )
1930 {
1931     unknode *This = impl_from_unkIXMLDOMNode( iface );
1932     return IXMLDOMNode_get_nodeType( IXMLDOMNode_from_impl(&This->node), domNodeType );
1933 }
1934
1935 static HRESULT WINAPI unknode_get_parentNode(
1936     IXMLDOMNode *iface,
1937     IXMLDOMNode** parent )
1938 {
1939     unknode *This = impl_from_unkIXMLDOMNode( iface );
1940     TRACE("(%p)->(%p)\n", This, parent);
1941     if (!parent) return E_INVALIDARG;
1942     *parent = NULL;
1943     return S_FALSE;
1944 }
1945
1946 static HRESULT WINAPI unknode_get_childNodes(
1947     IXMLDOMNode *iface,
1948     IXMLDOMNodeList** outList)
1949 {
1950     unknode *This = impl_from_unkIXMLDOMNode( iface );
1951     return IXMLDOMNode_get_childNodes( IXMLDOMNode_from_impl(&This->node), outList );
1952 }
1953
1954 static HRESULT WINAPI unknode_get_firstChild(
1955     IXMLDOMNode *iface,
1956     IXMLDOMNode** domNode)
1957 {
1958     unknode *This = impl_from_unkIXMLDOMNode( iface );
1959     return IXMLDOMNode_get_firstChild( IXMLDOMNode_from_impl(&This->node), domNode );
1960 }
1961
1962 static HRESULT WINAPI unknode_get_lastChild(
1963     IXMLDOMNode *iface,
1964     IXMLDOMNode** domNode)
1965 {
1966     unknode *This = impl_from_unkIXMLDOMNode( iface );
1967     return IXMLDOMNode_get_lastChild( IXMLDOMNode_from_impl(&This->node), domNode );
1968 }
1969
1970 static HRESULT WINAPI unknode_get_previousSibling(
1971     IXMLDOMNode *iface,
1972     IXMLDOMNode** domNode)
1973 {
1974     unknode *This = impl_from_unkIXMLDOMNode( iface );
1975     return IXMLDOMNode_get_previousSibling( IXMLDOMNode_from_impl(&This->node), domNode );
1976 }
1977
1978 static HRESULT WINAPI unknode_get_nextSibling(
1979     IXMLDOMNode *iface,
1980     IXMLDOMNode** domNode)
1981 {
1982     unknode *This = impl_from_unkIXMLDOMNode( iface );
1983     return IXMLDOMNode_get_nextSibling( IXMLDOMNode_from_impl(&This->node), domNode );
1984 }
1985
1986 static HRESULT WINAPI unknode_get_attributes(
1987     IXMLDOMNode *iface,
1988     IXMLDOMNamedNodeMap** attributeMap)
1989 {
1990     unknode *This = impl_from_unkIXMLDOMNode( iface );
1991     return IXMLDOMNode_get_attributes( IXMLDOMNode_from_impl(&This->node), attributeMap );
1992 }
1993
1994 static HRESULT WINAPI unknode_insertBefore(
1995     IXMLDOMNode *iface,
1996     IXMLDOMNode* newNode, VARIANT var1,
1997     IXMLDOMNode** outOldNode)
1998 {
1999     unknode *This = impl_from_unkIXMLDOMNode( iface );
2000     return IXMLDOMNode_insertBefore( IXMLDOMNode_from_impl(&This->node), newNode, var1, outOldNode );
2001 }
2002
2003 static HRESULT WINAPI unknode_replaceChild(
2004     IXMLDOMNode *iface,
2005     IXMLDOMNode* newNode,
2006     IXMLDOMNode* oldNode,
2007     IXMLDOMNode** outOldNode)
2008 {
2009     unknode *This = impl_from_unkIXMLDOMNode( iface );
2010     return IXMLDOMNode_replaceChild( IXMLDOMNode_from_impl(&This->node), newNode, oldNode, outOldNode );
2011 }
2012
2013 static HRESULT WINAPI unknode_removeChild(
2014     IXMLDOMNode *iface,
2015     IXMLDOMNode* domNode, IXMLDOMNode** oldNode)
2016 {
2017     unknode *This = impl_from_unkIXMLDOMNode( iface );
2018     return IXMLDOMNode_removeChild( IXMLDOMNode_from_impl(&This->node), domNode, oldNode );
2019 }
2020
2021 static HRESULT WINAPI unknode_appendChild(
2022     IXMLDOMNode *iface,
2023     IXMLDOMNode* newNode, IXMLDOMNode** outNewNode)
2024 {
2025     unknode *This = impl_from_unkIXMLDOMNode( iface );
2026     return IXMLDOMNode_appendChild( IXMLDOMNode_from_impl(&This->node), newNode, outNewNode );
2027 }
2028
2029 static HRESULT WINAPI unknode_hasChildNodes(
2030     IXMLDOMNode *iface,
2031     VARIANT_BOOL* pbool)
2032 {
2033     unknode *This = impl_from_unkIXMLDOMNode( iface );
2034     return IXMLDOMNode_hasChildNodes( IXMLDOMNode_from_impl(&This->node), pbool );
2035 }
2036
2037 static HRESULT WINAPI unknode_get_ownerDocument(
2038     IXMLDOMNode *iface,
2039     IXMLDOMDocument** domDocument)
2040 {
2041     unknode *This = impl_from_unkIXMLDOMNode( iface );
2042     return IXMLDOMNode_get_ownerDocument( IXMLDOMNode_from_impl(&This->node), domDocument );
2043 }
2044
2045 static HRESULT WINAPI unknode_cloneNode(
2046     IXMLDOMNode *iface,
2047     VARIANT_BOOL pbool, IXMLDOMNode** outNode)
2048 {
2049     unknode *This = impl_from_unkIXMLDOMNode( iface );
2050     return IXMLDOMNode_cloneNode( IXMLDOMNode_from_impl(&This->node), pbool, outNode );
2051 }
2052
2053 static HRESULT WINAPI unknode_get_nodeTypeString(
2054     IXMLDOMNode *iface,
2055     BSTR* p)
2056 {
2057     unknode *This = impl_from_unkIXMLDOMNode( iface );
2058     return IXMLDOMNode_get_nodeTypeString( IXMLDOMNode_from_impl(&This->node), p );
2059 }
2060
2061 static HRESULT WINAPI unknode_get_text(
2062     IXMLDOMNode *iface,
2063     BSTR* p)
2064 {
2065     unknode *This = impl_from_unkIXMLDOMNode( iface );
2066     return IXMLDOMNode_get_text( IXMLDOMNode_from_impl(&This->node), p );
2067 }
2068
2069 static HRESULT WINAPI unknode_put_text(
2070     IXMLDOMNode *iface,
2071     BSTR p)
2072 {
2073     unknode *This = impl_from_unkIXMLDOMNode( iface );
2074     return IXMLDOMNode_put_text( IXMLDOMNode_from_impl(&This->node), p );
2075 }
2076
2077 static HRESULT WINAPI unknode_get_specified(
2078     IXMLDOMNode *iface,
2079     VARIANT_BOOL* pbool)
2080 {
2081     unknode *This = impl_from_unkIXMLDOMNode( iface );
2082     return IXMLDOMNode_get_specified( IXMLDOMNode_from_impl(&This->node), pbool );
2083 }
2084
2085 static HRESULT WINAPI unknode_get_definition(
2086     IXMLDOMNode *iface,
2087     IXMLDOMNode** domNode)
2088 {
2089     unknode *This = impl_from_unkIXMLDOMNode( iface );
2090     return IXMLDOMNode_get_definition( IXMLDOMNode_from_impl(&This->node), domNode );
2091 }
2092
2093 static HRESULT WINAPI unknode_get_nodeTypedValue(
2094     IXMLDOMNode *iface,
2095     VARIANT* var1)
2096 {
2097     unknode *This = impl_from_unkIXMLDOMNode( iface );
2098     return IXMLDOMNode_get_nodeTypedValue( IXMLDOMNode_from_impl(&This->node), var1 );
2099 }
2100
2101 static HRESULT WINAPI unknode_put_nodeTypedValue(
2102     IXMLDOMNode *iface,
2103     VARIANT var1)
2104 {
2105     unknode *This = impl_from_unkIXMLDOMNode( iface );
2106     return IXMLDOMNode_put_nodeTypedValue( IXMLDOMNode_from_impl(&This->node), var1 );
2107 }
2108
2109 static HRESULT WINAPI unknode_get_dataType(
2110     IXMLDOMNode *iface,
2111     VARIANT* var1)
2112 {
2113     unknode *This = impl_from_unkIXMLDOMNode( iface );
2114     return IXMLDOMNode_get_dataType( IXMLDOMNode_from_impl(&This->node), var1 );
2115 }
2116
2117 static HRESULT WINAPI unknode_put_dataType(
2118     IXMLDOMNode *iface,
2119     BSTR p)
2120 {
2121     unknode *This = impl_from_unkIXMLDOMNode( iface );
2122     return IXMLDOMNode_put_dataType( IXMLDOMNode_from_impl(&This->node), p );
2123 }
2124
2125 static HRESULT WINAPI unknode_get_xml(
2126     IXMLDOMNode *iface,
2127     BSTR* p)
2128 {
2129     unknode *This = impl_from_unkIXMLDOMNode( iface );
2130     return IXMLDOMNode_get_xml( IXMLDOMNode_from_impl(&This->node), p );
2131 }
2132
2133 static HRESULT WINAPI unknode_transformNode(
2134     IXMLDOMNode *iface,
2135     IXMLDOMNode* domNode, BSTR* p)
2136 {
2137     unknode *This = impl_from_unkIXMLDOMNode( iface );
2138     return IXMLDOMNode_transformNode( IXMLDOMNode_from_impl(&This->node), domNode, p );
2139 }
2140
2141 static HRESULT WINAPI unknode_selectNodes(
2142     IXMLDOMNode *iface,
2143     BSTR p, IXMLDOMNodeList** outList)
2144 {
2145     unknode *This = impl_from_unkIXMLDOMNode( iface );
2146     return IXMLDOMNode_selectNodes( IXMLDOMNode_from_impl(&This->node), p, outList );
2147 }
2148
2149 static HRESULT WINAPI unknode_selectSingleNode(
2150     IXMLDOMNode *iface,
2151     BSTR p, IXMLDOMNode** outNode)
2152 {
2153     unknode *This = impl_from_unkIXMLDOMNode( iface );
2154     return IXMLDOMNode_selectSingleNode( IXMLDOMNode_from_impl(&This->node), p, outNode );
2155 }
2156
2157 static HRESULT WINAPI unknode_get_parsed(
2158     IXMLDOMNode *iface,
2159     VARIANT_BOOL* pbool)
2160 {
2161     unknode *This = impl_from_unkIXMLDOMNode( iface );
2162     return IXMLDOMNode_get_parsed( IXMLDOMNode_from_impl(&This->node), pbool );
2163 }
2164
2165 static HRESULT WINAPI unknode_get_namespaceURI(
2166     IXMLDOMNode *iface,
2167     BSTR* p)
2168 {
2169     unknode *This = impl_from_unkIXMLDOMNode( iface );
2170     return IXMLDOMNode_get_namespaceURI( IXMLDOMNode_from_impl(&This->node), p );
2171 }
2172
2173 static HRESULT WINAPI unknode_get_prefix(
2174     IXMLDOMNode *iface,
2175     BSTR* p)
2176 {
2177     unknode *This = impl_from_unkIXMLDOMNode( iface );
2178     return IXMLDOMNode_get_prefix( IXMLDOMNode_from_impl(&This->node), p );
2179 }
2180
2181 static HRESULT WINAPI unknode_get_baseName(
2182     IXMLDOMNode *iface,
2183     BSTR* p)
2184 {
2185     unknode *This = impl_from_unkIXMLDOMNode( iface );
2186     return IXMLDOMNode_get_baseName( IXMLDOMNode_from_impl(&This->node), p );
2187 }
2188
2189 static HRESULT WINAPI unknode_transformNodeToObject(
2190     IXMLDOMNode *iface,
2191     IXMLDOMNode* domNode, VARIANT var1)
2192 {
2193     unknode *This = impl_from_unkIXMLDOMNode( iface );
2194     return IXMLDOMNode_transformNodeToObject( IXMLDOMNode_from_impl(&This->node), domNode, var1 );
2195 }
2196
2197 static const struct IXMLDOMNodeVtbl unknode_vtbl =
2198 {
2199     unknode_QueryInterface,
2200     unknode_AddRef,
2201     unknode_Release,
2202     unknode_GetTypeInfoCount,
2203     unknode_GetTypeInfo,
2204     unknode_GetIDsOfNames,
2205     unknode_Invoke,
2206     unknode_get_nodeName,
2207     unknode_get_nodeValue,
2208     unknode_put_nodeValue,
2209     unknode_get_nodeType,
2210     unknode_get_parentNode,
2211     unknode_get_childNodes,
2212     unknode_get_firstChild,
2213     unknode_get_lastChild,
2214     unknode_get_previousSibling,
2215     unknode_get_nextSibling,
2216     unknode_get_attributes,
2217     unknode_insertBefore,
2218     unknode_replaceChild,
2219     unknode_removeChild,
2220     unknode_appendChild,
2221     unknode_hasChildNodes,
2222     unknode_get_ownerDocument,
2223     unknode_cloneNode,
2224     unknode_get_nodeTypeString,
2225     unknode_get_text,
2226     unknode_put_text,
2227     unknode_get_specified,
2228     unknode_get_definition,
2229     unknode_get_nodeTypedValue,
2230     unknode_put_nodeTypedValue,
2231     unknode_get_dataType,
2232     unknode_put_dataType,
2233     unknode_get_xml,
2234     unknode_transformNode,
2235     unknode_selectNodes,
2236     unknode_selectSingleNode,
2237     unknode_get_parsed,
2238     unknode_get_namespaceURI,
2239     unknode_get_prefix,
2240     unknode_get_baseName,
2241     unknode_transformNodeToObject
2242 };
2243
2244 IXMLDOMNode *create_node( xmlNodePtr node )
2245 {
2246     IUnknown *pUnk;
2247     IXMLDOMNode *ret;
2248     HRESULT hr;
2249
2250     if ( !node )
2251         return NULL;
2252
2253     TRACE("type %d\n", node->type);
2254     switch(node->type)
2255     {
2256     case XML_ELEMENT_NODE:
2257         pUnk = create_element( node );
2258         break;
2259     case XML_ATTRIBUTE_NODE:
2260         pUnk = create_attribute( node );
2261         break;
2262     case XML_TEXT_NODE:
2263         pUnk = create_text( node );
2264         break;
2265     case XML_CDATA_SECTION_NODE:
2266         pUnk = create_cdata( node );
2267         break;
2268     case XML_ENTITY_REF_NODE:
2269         pUnk = create_doc_entity_ref( node );
2270         break;
2271     case XML_PI_NODE:
2272         pUnk = create_pi( node );
2273         break;
2274     case XML_COMMENT_NODE:
2275         pUnk = create_comment( node );
2276         break;
2277     case XML_DOCUMENT_NODE:
2278         pUnk = create_domdoc( node );
2279         break;
2280     case XML_DOCUMENT_FRAG_NODE:
2281         pUnk = create_doc_fragment( node );
2282         break;
2283     default: {
2284         unknode *new_node;
2285
2286         FIXME("only creating basic node for type %d\n", node->type);
2287
2288         new_node = heap_alloc(sizeof(unknode));
2289         if(!new_node)
2290             return NULL;
2291
2292         new_node->lpVtbl = &unknode_vtbl;
2293         new_node->ref = 1;
2294         init_xmlnode(&new_node->node, node, (IXMLDOMNode*)&new_node->lpVtbl, NULL);
2295         pUnk = (IUnknown*)&new_node->lpVtbl;
2296     }
2297     }
2298
2299     hr = IUnknown_QueryInterface(pUnk, &IID_IXMLDOMNode, (LPVOID*)&ret);
2300     IUnknown_Release(pUnk);
2301     if(FAILED(hr)) return NULL;
2302     return ret;
2303 }
2304 #endif