dlls/msxml3/element.c

   1 /*
   2  *    DOM Document implementation
   3  *
   4  * Copyright 2005 Mike McCormack
   5  *
   6  * This library is free software; you can redistribute it and/or
   7  * modify it under the terms of the GNU Lesser General Public
   8  * License as published by the Free Software Foundation; either
   9  * version 2.1 of the License, or (at your option) any later version.
  10  *
  11  * This library is distributed in the hope that it will be useful,
  12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  14  * Lesser General Public License for more details.
  15  *
  16  * You should have received a copy of the GNU Lesser General Public
  17  * License along with this library; if not, write to the Free Software
  18  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  19  */
  20
  21 #define COBJMACROS
  22
  23 #include "config.h"
  24
  25 #include <stdarg.h>
  26 #include "windef.h"
  27 #include "winbase.h"
  28 #include "winuser.h"
  29 #include "winnls.h"
  30 #include "ole2.h"
  31 #include "msxml2.h"
  32
  33 #include "msxml_private.h"
  34
  35 #include "wine/debug.h"
  36
  37 WINE_DEFAULT_DEBUG_CHANNEL(msxml);
  38
  39 #ifdef HAVE_LIBXML2
  40
  41 typedef struct _domelem
  42 {
  43     const struct IXMLDOMElementVtbl *lpVtbl;
  44     const struct IUnknownVtbl *lpInternalUnkVtbl;
  45     IUnknown *pUnkOuter;
  46     LONG ref;
  47     IUnknown *node_unk;
  48     IXMLDOMNode *node;
  49 } domelem;
  50
  51 static inline domelem *impl_from_IXMLDOMElement( IXMLDOMElement *iface )
  52 {
  53     return (domelem *)((char*)iface - FIELD_OFFSET(domelem, lpVtbl));
  54 }
  55
  56 static inline domelem *impl_from_InternalUnknown( IUnknown *iface )
  57 {
  58     return (domelem *)((char*)iface - FIELD_OFFSET(domelem, lpInternalUnkVtbl));
  59 }
  60
  61 static inline xmlNodePtr get_element( domelem *This )
  62 {
  63     return xmlNodePtr_from_domnode( This->node, XML_ELEMENT_NODE );
  64 }
  65
  66 static HRESULT WINAPI domelem_QueryInterface(
  67     IXMLDOMElement *iface,
  68     REFIID riid,
  69     void** ppvObject )
  70 {
  71     domelem *This = impl_from_IXMLDOMElement( iface );
  72     TRACE("%p %s %p\n", This, debugstr_guid(riid), ppvObject);
  73
  74     return IUnknown_QueryInterface(This->pUnkOuter, riid, ppvObject);
  75 }
  76
  77 static ULONG WINAPI domelem_AddRef(
  78     IXMLDOMElement *iface )
  79 {
  80     domelem *This = impl_from_IXMLDOMElement( iface );
  81     return IUnknown_AddRef(This->pUnkOuter);
  82 }
  83
  84 static ULONG WINAPI domelem_Release(
  85     IXMLDOMElement *iface )
  86 {
  87     domelem *This = impl_from_IXMLDOMElement( iface );
  88     return IUnknown_Release(This->pUnkOuter);
  89 }
  90
  91 static HRESULT WINAPI domelem_GetTypeInfoCount(
  92     IXMLDOMElement *iface,
  93     UINT* pctinfo )
  94 {
  95     FIXME("\n");
  96     return E_NOTIMPL;
  97 }
  98
  99 static HRESULT WINAPI domelem_GetTypeInfo(
 100     IXMLDOMElement *iface,
 101     UINT iTInfo, LCID lcid,
 102     ITypeInfo** ppTInfo )
 103 {
 104     FIXME("\n");
 105     return E_NOTIMPL;
 106 }
 107
 108 static HRESULT WINAPI domelem_GetIDsOfNames(
 109     IXMLDOMElement *iface,
 110     REFIID riid, LPOLESTR* rgszNames,
 111     UINT cNames, LCID lcid, DISPID* rgDispId )
 112 {
 113     FIXME("\n");
 114     return E_NOTIMPL;
 115 }
 116
 117 static HRESULT WINAPI domelem_Invoke(
 118     IXMLDOMElement *iface,
 119     DISPID dispIdMember, REFIID riid, LCID lcid,
 120     WORD wFlags, DISPPARAMS* pDispParams, VARIANT* pVarResult,
 121     EXCEPINFO* pExcepInfo, UINT* puArgErr )
 122 {
 123     FIXME("\n");
 124     return E_NOTIMPL;
 125 }
 126
 127 static HRESULT WINAPI domelem_get_nodeName(
 128     IXMLDOMElement *iface,
 129     BSTR* p )
 130 {
 131     domelem *This = impl_from_IXMLDOMElement( iface );
 132     return IXMLDOMNode_get_nodeName( This->node, p );
 133 }
 134
 135 static HRESULT WINAPI domelem_get_nodeValue(
 136     IXMLDOMElement *iface,
 137     VARIANT* var1 )
 138 {
 139     domelem *This = impl_from_IXMLDOMElement( iface );
 140     return IXMLDOMNode_get_nodeValue( This->node, var1 );
 141 }
 142
 143 static HRESULT WINAPI domelem_put_nodeValue(
 144     IXMLDOMElement *iface,
 145     VARIANT var1 )
 146 {
 147     domelem *This = impl_from_IXMLDOMElement( iface );
 148     return IXMLDOMNode_put_nodeValue( This->node, var1 );
 149 }
 150
 151 static HRESULT WINAPI domelem_get_nodeType(
 152     IXMLDOMElement *iface,
 153     DOMNodeType* domNodeType )
 154 {
 155     domelem *This = impl_from_IXMLDOMElement( iface );
 156     return IXMLDOMNode_get_nodeType( This->node, domNodeType );
 157 }
 158
 159 static HRESULT WINAPI domelem_get_parentNode(
 160     IXMLDOMElement *iface,
 161     IXMLDOMNode** parent )
 162 {
 163     domelem *This = impl_from_IXMLDOMElement( iface );
 164     return IXMLDOMNode_get_parentNode( This->node, parent );
 165 }
 166
 167 static HRESULT WINAPI domelem_get_childNodes(
 168     IXMLDOMElement *iface,
 169     IXMLDOMNodeList** outList)
 170 {
 171     domelem *This = impl_from_IXMLDOMElement( iface );
 172     return IXMLDOMNode_get_childNodes( This->node, outList );
 173 }
 174
 175 static HRESULT WINAPI domelem_get_firstChild(
 176     IXMLDOMElement *iface,
 177     IXMLDOMNode** domNode)
 178 {
 179     domelem *This = impl_from_IXMLDOMElement( iface );
 180     return IXMLDOMNode_get_firstChild( This->node, domNode );
 181 }
 182
 183 static HRESULT WINAPI domelem_get_lastChild(
 184     IXMLDOMElement *iface,
 185     IXMLDOMNode** domNode)
 186 {
 187     domelem *This = impl_from_IXMLDOMElement( iface );
 188     return IXMLDOMNode_get_lastChild( This->node, domNode );
 189 }
 190
 191 static HRESULT WINAPI domelem_get_previousSibling(
 192     IXMLDOMElement *iface,
 193     IXMLDOMNode** domNode)
 194 {
 195     domelem *This = impl_from_IXMLDOMElement( iface );
 196     return IXMLDOMNode_get_previousSibling( This->node, domNode );
 197 }
 198
 199 static HRESULT WINAPI domelem_get_nextSibling(
 200     IXMLDOMElement *iface,
 201     IXMLDOMNode** domNode)
 202 {
 203     domelem *This = impl_from_IXMLDOMElement( iface );
 204     return IXMLDOMNode_get_nextSibling( This->node, domNode );
 205 }
 206
 207 static HRESULT WINAPI domelem_get_attributes(
 208     IXMLDOMElement *iface,
 209     IXMLDOMNamedNodeMap** attributeMap)
 210 {
 211     domelem *This = impl_from_IXMLDOMElement( iface );
 212     return IXMLDOMNode_get_attributes( This->node, attributeMap );
 213 }
 214
 215 static HRESULT WINAPI domelem_insertBefore(
 216     IXMLDOMElement *iface,
 217     IXMLDOMNode* newNode, VARIANT var1,
 218     IXMLDOMNode** outOldNode)
 219 {
 220     domelem *This = impl_from_IXMLDOMElement( iface );
 221     return IXMLDOMNode_insertBefore( This->node, newNode, var1, outOldNode );
 222 }
 223
 224 static HRESULT WINAPI domelem_replaceChild(
 225     IXMLDOMElement *iface,
 226     IXMLDOMNode* newNode,
 227     IXMLDOMNode* oldNode,
 228     IXMLDOMNode** outOldNode)
 229 {
 230     domelem *This = impl_from_IXMLDOMElement( iface );
 231     return IXMLDOMNode_replaceChild( This->node, newNode, oldNode, outOldNode );
 232 }
 233
 234 static HRESULT WINAPI domelem_removeChild(
 235     IXMLDOMElement *iface,
 236     IXMLDOMNode* domNode, IXMLDOMNode** oldNode)
 237 {
 238     domelem *This = impl_from_IXMLDOMElement( iface );
 239     return IXMLDOMNode_removeChild( This->node, domNode, oldNode );
 240 }
 241
 242 static HRESULT WINAPI domelem_appendChild(
 243     IXMLDOMElement *iface,
 244     IXMLDOMNode* newNode, IXMLDOMNode** outNewNode)
 245 {
 246     domelem *This = impl_from_IXMLDOMElement( iface );
 247     return IXMLDOMNode_appendChild( This->node, newNode, outNewNode );
 248 }
 249
 250 static HRESULT WINAPI domelem_hasChildNodes(
 251     IXMLDOMElement *iface,
 252     VARIANT_BOOL* pbool)
 253 {
 254     domelem *This = impl_from_IXMLDOMElement( iface );
 255     return IXMLDOMNode_hasChildNodes( This->node, pbool );
 256 }
 257
 258 static HRESULT WINAPI domelem_get_ownerDocument(
 259     IXMLDOMElement *iface,
 260     IXMLDOMDocument** domDocument)
 261 {
 262     domelem *This = impl_from_IXMLDOMElement( iface );
 263     return IXMLDOMNode_get_ownerDocument( This->node, domDocument );
 264 }
 265
 266 static HRESULT WINAPI domelem_cloneNode(
 267     IXMLDOMElement *iface,
 268     VARIANT_BOOL pbool, IXMLDOMNode** outNode)
 269 {
 270     domelem *This = impl_from_IXMLDOMElement( iface );
 271     return IXMLDOMNode_cloneNode( This->node, pbool, outNode );
 272 }
 273
 274 static HRESULT WINAPI domelem_get_nodeTypeString(
 275     IXMLDOMElement *iface,
 276     BSTR* p)
 277 {
 278     domelem *This = impl_from_IXMLDOMElement( iface );
 279     return IXMLDOMNode_get_nodeTypeString( This->node, p );
 280 }
 281
 282 static HRESULT WINAPI domelem_get_text(
 283     IXMLDOMElement *iface,
 284     BSTR* p)
 285 {
 286     domelem *This = impl_from_IXMLDOMElement( iface );
 287     return IXMLDOMNode_get_text( This->node, p );
 288 }
 289
 290 static HRESULT WINAPI domelem_put_text(
 291     IXMLDOMElement *iface,
 292     BSTR p)
 293 {
 294     domelem *This = impl_from_IXMLDOMElement( iface );
 295     return IXMLDOMNode_put_text( This->node, p );
 296 }
 297
 298 static HRESULT WINAPI domelem_get_specified(
 299     IXMLDOMElement *iface,
 300     VARIANT_BOOL* pbool)
 301 {
 302     domelem *This = impl_from_IXMLDOMElement( iface );
 303     return IXMLDOMNode_get_specified( This->node, pbool );
 304 }
 305
 306 static HRESULT WINAPI domelem_get_definition(
 307     IXMLDOMElement *iface,
 308     IXMLDOMNode** domNode)
 309 {
 310     domelem *This = impl_from_IXMLDOMElement( iface );
 311     return IXMLDOMNode_get_definition( This->node, domNode );
 312 }
 313
 314 static HRESULT WINAPI domelem_get_nodeTypedValue(
 315     IXMLDOMElement *iface,
 316     VARIANT* var1)
 317 {
 318     domelem *This = impl_from_IXMLDOMElement( iface );
 319     return IXMLDOMNode_get_nodeTypedValue( This->node, var1 );
 320 }
 321
 322 static HRESULT WINAPI domelem_put_nodeTypedValue(
 323     IXMLDOMElement *iface,
 324     VARIANT var1)
 325 {
 326     domelem *This = impl_from_IXMLDOMElement( iface );
 327     return IXMLDOMNode_put_nodeTypedValue( This->node, var1 );
 328 }
 329
 330 static HRESULT WINAPI domelem_get_dataType(
 331     IXMLDOMElement *iface,
 332     VARIANT* var1)
 333 {
 334     domelem *This = impl_from_IXMLDOMElement( iface );
 335     return IXMLDOMNode_get_dataType( This->node, var1 );
 336 }
 337
 338 static HRESULT WINAPI domelem_put_dataType(
 339     IXMLDOMElement *iface,
 340     BSTR p)
 341 {
 342     domelem *This = impl_from_IXMLDOMElement( iface );
 343     return IXMLDOMNode_put_dataType( This->node, p );
 344 }
 345
 346 static HRESULT WINAPI domelem_get_xml(
 347     IXMLDOMElement *iface,
 348     BSTR* p)
 349 {
 350     domelem *This = impl_from_IXMLDOMElement( iface );
 351     return IXMLDOMNode_get_xml( This->node, p );
 352 }
 353
 354 static HRESULT WINAPI domelem_transformNode(
 355     IXMLDOMElement *iface,
 356     IXMLDOMNode* domNode, BSTR* p)
 357 {
 358     domelem *This = impl_from_IXMLDOMElement( iface );
 359     return IXMLDOMNode_transformNode( This->node, domNode, p );
 360 }
 361
 362 static HRESULT WINAPI domelem_selectNodes(
 363     IXMLDOMElement *iface,
 364     BSTR p, IXMLDOMNodeList** outList)
 365 {
 366     domelem *This = impl_from_IXMLDOMElement( iface );
 367     return IXMLDOMNode_selectNodes( This->node, p, outList );
 368 }
 369
 370 static HRESULT WINAPI domelem_selectSingleNode(
 371     IXMLDOMElement *iface,
 372     BSTR p, IXMLDOMNode** outNode)
 373 {
 374     domelem *This = impl_from_IXMLDOMElement( iface );
 375     return IXMLDOMNode_selectSingleNode( This->node, p, outNode );
 376 }
 377
 378 static HRESULT WINAPI domelem_get_parsed(
 379     IXMLDOMElement *iface,
 380     VARIANT_BOOL* pbool)
 381 {
 382     domelem *This = impl_from_IXMLDOMElement( iface );
 383     return IXMLDOMNode_get_parsed( This->node, pbool );
 384 }
 385
 386 static HRESULT WINAPI domelem_get_namespaceURI(
 387     IXMLDOMElement *iface,
 388     BSTR* p)
 389 {
 390     domelem *This = impl_from_IXMLDOMElement( iface );
 391     return IXMLDOMNode_get_namespaceURI( This->node, p );
 392 }
 393
 394 static HRESULT WINAPI domelem_get_prefix(
 395     IXMLDOMElement *iface,
 396     BSTR* p)
 397 {
 398     domelem *This = impl_from_IXMLDOMElement( iface );
 399     return IXMLDOMNode_get_prefix( This->node, p );
 400 }
 401
 402 static HRESULT WINAPI domelem_get_baseName(
 403     IXMLDOMElement *iface,
 404     BSTR* p)
 405 {
 406     domelem *This = impl_from_IXMLDOMElement( iface );
 407     return IXMLDOMNode_get_baseName( This->node, p );
 408 }
 409
 410 static HRESULT WINAPI domelem_transformNodeToObject(
 411     IXMLDOMElement *iface,
 412     IXMLDOMNode* domNode, VARIANT var1)
 413 {
 414     domelem *This = impl_from_IXMLDOMElement( iface );
 415     return IXMLDOMNode_transformNodeToObject( This->node, domNode, var1 );
 416 }
 417
 418 static HRESULT WINAPI domelem_get_tagName(
 419     IXMLDOMElement *iface,
 420     BSTR* p)
 421 {
 422     domelem *This = impl_from_IXMLDOMElement( iface );
 423     xmlNodePtr element;
 424     DWORD len;
 425     DWORD offset = 0;
 426     LPWSTR str;
 427
 428     TRACE("%p\n", This );
 429
 430     if ( !This->node )
 431         return E_FAIL;
 432
 433     element = get_element( This );
 434     if ( !element )
 435         return E_FAIL;
 436
 437     len = MultiByteToWideChar( CP_UTF8, 0, (LPCSTR) element->name, -1, NULL, 0 );
 438     if (element->ns)
 439         len += MultiByteToWideChar( CP_UTF8, 0, (LPCSTR) element->ns->prefix, -1, NULL, 0 );
 440     str = (LPWSTR) HeapAlloc( GetProcessHeap(), 0, len * sizeof (WCHAR) );
 441     if ( !str )
 442         return E_OUTOFMEMORY;
 443     if (element->ns)
 444     {
 445         offset = MultiByteToWideChar( CP_UTF8, 0, (LPCSTR) element->ns->prefix, -1, str, len );
 446         str[offset - 1] = ':';
 447     }
 448     MultiByteToWideChar( CP_UTF8, 0, (LPCSTR) element->name, -1, str + offset, len - offset );
 449     *p = SysAllocString( str );
 450     HeapFree( GetProcessHeap(), 0, str );
 451
 452     return S_OK;
 453 }
 454
 455 static HRESULT WINAPI domelem_getAttribute(
 456     IXMLDOMElement *iface,
 457     BSTR name, VARIANT* value)
 458 {
 459     domelem *This = impl_from_IXMLDOMElement( iface );
 460     xmlNodePtr element;
 461     xmlChar *xml_name, *xml_value = NULL;
 462     HRESULT hr = S_FALSE;
 463
 464     TRACE("(%p)->(%s,%p)\n", This, debugstr_w(name), value);
 465
 466     if(!value || !name)
 467         return E_INVALIDARG;
 468
 469     element = get_element( This );
 470     if ( !element )
 471         return E_FAIL;
 472
 473     V_BSTR(value) = NULL;
 474     V_VT(value) = VT_NULL;
 475
 476     xml_name = xmlChar_from_wchar( name );
 477
 478     if(!xmlValidateNameValue(xml_name))
 479         hr = E_FAIL;
 480     else
 481         xml_value = xmlGetNsProp(element, xml_name, NULL);
 482
 483     HeapFree(GetProcessHeap(), 0, xml_name);
 484     if(xml_value)
 485     {
 486         V_VT(value) = VT_BSTR;
 487         V_BSTR(value) = bstr_from_xmlChar( xml_value );
 488         xmlFree(xml_value);
 489         hr = S_OK;
 490     }
 491
 492     return hr;
 493 }
 494
 495 static HRESULT WINAPI domelem_setAttribute(
 496     IXMLDOMElement *iface,
 497     BSTR name, VARIANT value)
 498 {
 499     domelem *This = impl_from_IXMLDOMElement( iface );
 500     xmlNodePtr element;
 501     xmlChar *xml_name, *xml_value;
 502     HRESULT hr;
 503     VARIANT var;
 504
 505     TRACE("(%p)->(%s, var)\n", This, debugstr_w(name));
 506
 507     element = get_element( This );
 508     if ( !element )
 509         return E_FAIL;
 510
 511     VariantInit(&var);
 512     hr = VariantChangeType(&var, &value, 0, VT_BSTR);
 513     if(hr != S_OK)
 514     {
 515         FIXME("VariantChangeType failed\n");
 516         return hr;
 517     }
 518
 519     xml_name = xmlChar_from_wchar( name );
 520     xml_value = xmlChar_from_wchar( V_BSTR(&var) );
 521
 522     if(!xmlSetNsProp(element, NULL,  xml_name, xml_value))
 523         hr = E_FAIL;
 524
 525     HeapFree(GetProcessHeap(), 0, xml_value);
 526     HeapFree(GetProcessHeap(), 0, xml_name);
 527     VariantClear(&var);
 528
 529     return hr;
 530 }
 531
 532 static HRESULT WINAPI domelem_removeAttribute(
 533     IXMLDOMElement *iface,
 534     BSTR p)
 535 {
 536     FIXME("\n");
 537     return E_NOTIMPL;
 538 }
 539
 540 static HRESULT WINAPI domelem_getAttributeNode(
 541     IXMLDOMElement *iface,
 542     BSTR p, IXMLDOMAttribute** attributeNode )
 543 {
 544     FIXME("\n");
 545     return E_NOTIMPL;
 546 }
 547
 548 static HRESULT WINAPI domelem_setAttributeNode(
 549     IXMLDOMElement *iface,
 550     IXMLDOMAttribute* domAttribute,
 551     IXMLDOMAttribute** attributeNode)
 552 {
 553     FIXME("\n");
 554     return E_NOTIMPL;
 555 }
 556
 557 static HRESULT WINAPI domelem_removeAttributeNode(
 558     IXMLDOMElement *iface,
 559     IXMLDOMAttribute* domAttribute,
 560     IXMLDOMAttribute** attributeNode)
 561 {
 562     FIXME("\n");
 563     return E_NOTIMPL;
 564 }
 565
 566 static HRESULT WINAPI domelem_getElementsByTagName(
 567     IXMLDOMElement *iface,
 568     BSTR bstrName, IXMLDOMNodeList** resultList)
 569 {
 570     domelem *This = impl_from_IXMLDOMElement( iface );
 571     LPWSTR szPattern;
 572     HRESULT hr;
 573
 574     TRACE("(%p)->(%s,%p)\n", This, debugstr_w(bstrName), resultList);
 575
 576     szPattern = HeapAlloc(GetProcessHeap(), 0, sizeof(WCHAR)*(3+lstrlenW(bstrName)+1));
 577     szPattern[0] = '.';
 578     szPattern[1] = szPattern[2] = '/';
 579     lstrcpyW(szPattern+3, bstrName);
 580     TRACE("%s\n", debugstr_w(szPattern));
 581
 582     hr = queryresult_create(get_element(This), szPattern, resultList);
 583     HeapFree(GetProcessHeap(), 0, szPattern);
 584
 585     return hr;
 586 }
 587
 588 static HRESULT WINAPI domelem_normalize(
 589     IXMLDOMElement *iface )
 590 {
 591     FIXME("\n");
 592     return E_NOTIMPL;
 593 }
 594
 595 static const struct IXMLDOMElementVtbl domelem_vtbl =
 596 {
 597     domelem_QueryInterface,
 598     domelem_AddRef,
 599     domelem_Release,
 600     domelem_GetTypeInfoCount,
 601     domelem_GetTypeInfo,
 602     domelem_GetIDsOfNames,
 603     domelem_Invoke,
 604     domelem_get_nodeName,
 605     domelem_get_nodeValue,
 606     domelem_put_nodeValue,
 607     domelem_get_nodeType,
 608     domelem_get_parentNode,
 609     domelem_get_childNodes,
 610     domelem_get_firstChild,
 611     domelem_get_lastChild,
 612     domelem_get_previousSibling,
 613     domelem_get_nextSibling,
 614     domelem_get_attributes,
 615     domelem_insertBefore,
 616     domelem_replaceChild,
 617     domelem_removeChild,
 618     domelem_appendChild,
 619     domelem_hasChildNodes,
 620     domelem_get_ownerDocument,
 621     domelem_cloneNode,
 622     domelem_get_nodeTypeString,
 623     domelem_get_text,
 624     domelem_put_text,
 625     domelem_get_specified,
 626     domelem_get_definition,
 627     domelem_get_nodeTypedValue,
 628     domelem_put_nodeTypedValue,
 629     domelem_get_dataType,
 630     domelem_put_dataType,
 631     domelem_get_xml,
 632     domelem_transformNode,
 633     domelem_selectNodes,
 634     domelem_selectSingleNode,
 635     domelem_get_parsed,
 636     domelem_get_namespaceURI,
 637     domelem_get_prefix,
 638     domelem_get_baseName,
 639     domelem_transformNodeToObject,
 640     domelem_get_tagName,
 641     domelem_getAttribute,
 642     domelem_setAttribute,
 643     domelem_removeAttribute,
 644     domelem_getAttributeNode,
 645     domelem_setAttributeNode,
 646     domelem_removeAttributeNode,
 647     domelem_getElementsByTagName,
 648     domelem_normalize,
 649 };
 650
 651 static HRESULT WINAPI Internal_QueryInterface(
 652     IUnknown *iface,
 653     REFIID riid,
 654     void** ppvObject )
 655 {
 656     domelem *This = impl_from_InternalUnknown( iface );
 657     TRACE("%p %s %p\n", This, debugstr_guid(riid), ppvObject);
 658
 659     if ( IsEqualGUID( riid, &IID_IXMLDOMElement ) ||
 660          IsEqualGUID( riid, &IID_IDispatch ) ||
 661          IsEqualGUID( riid, &IID_IUnknown ) )
 662     {
 663         *ppvObject = &This->lpVtbl;
 664     }
 665     else if ( IsEqualGUID( riid, &IID_IXMLDOMNode ) )
 666     {
 667         return IUnknown_QueryInterface(This->node_unk, riid, ppvObject);
 668     }
 669     else
 670     {
 671         FIXME("interface %s not implemented\n", debugstr_guid(riid));
 672         return E_NOINTERFACE;
 673     }
 674
 675     IUnknown_AddRef( (IUnknown*)*ppvObject );
 676
 677     return S_OK;
 678 }
 679
 680 static ULONG WINAPI Internal_AddRef(
 681     IUnknown *iface )
 682 {
 683     domelem *This = impl_from_InternalUnknown( iface );
 684     return InterlockedIncrement( &This->ref );
 685 }
 686
 687 static ULONG WINAPI Internal_Release(
 688     IUnknown *iface )
 689 {
 690     domelem *This = impl_from_InternalUnknown( iface );
 691     ULONG ref;
 692
 693     ref = InterlockedDecrement( &This->ref );
 694     if ( ref == 0 )
 695     {
 696         IUnknown_Release( This->node_unk );
 697         HeapFree( GetProcessHeap(), 0, This );
 698     }
 699
 700     return ref;
 701 }
 702
 703 static const struct IUnknownVtbl internal_unk_vtbl =
 704 {
 705     Internal_QueryInterface,
 706     Internal_AddRef,
 707     Internal_Release
 708 };
 709
 710 IUnknown* create_element( xmlNodePtr element, IUnknown *pUnkOuter )
 711 {
 712     domelem *This;
 713     HRESULT hr;
 714
 715     This = HeapAlloc( GetProcessHeap(), 0, sizeof *This );
 716     if ( !This )
 717         return NULL;
 718
 719     This->lpVtbl = &domelem_vtbl;
 720     This->ref = 1;
 721     This->lpInternalUnkVtbl = &internal_unk_vtbl;
 722
 723     if(pUnkOuter)
 724         This->pUnkOuter = pUnkOuter; /* Don't take a ref on outer Unknown */
 725     else
 726         This->pUnkOuter = (IUnknown *)&This->lpInternalUnkVtbl;
 727
 728     This->node_unk = create_basic_node( element, (IUnknown*)&This->lpVtbl );
 729     if(!This->node_unk)
 730     {
 731         HeapFree(GetProcessHeap(), 0, This);
 732         return NULL;
 733     }
 734
 735     hr = IUnknown_QueryInterface(This->node_unk, &IID_IXMLDOMNode, (LPVOID*)&This->node);
 736     if(FAILED(hr))
 737     {
 738         IUnknown_Release(This->node_unk);
 739         HeapFree( GetProcessHeap(), 0, This );
 740         return NULL;
 741     }
 742     /* The ref on This->node is actually looped back into this object, so release it */
 743     IXMLDOMNode_Release(This->node);
 744
 745     return (IUnknown*) &This->lpInternalUnkVtbl;
 746 }
 747
 748 #endif