git.oblomov.eu Git - wine/blob - 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;
 462     HRESULT hr = E_FAIL;
 463
 464     TRACE("(%p)->(%s,%p)\n", This, debugstr_w(name), value);
 465
 466     element = get_element( This );
 467     if ( !element )
 468         return E_FAIL;
 469
 470     VariantInit(value);
 471     xml_name = xmlChar_from_wchar( name );
 472     xml_value = xmlGetNsProp(element, xml_name, NULL);
 473     HeapFree(GetProcessHeap(), 0, xml_name);
 474     if(xml_value)
 475     {
 476         V_VT(value) = VT_BSTR;
 477         V_BSTR(value) = bstr_from_xmlChar( xml_value );
 478         xmlFree(xml_value);
 479         hr = S_OK;
 480     }
 481
 482     return hr;
 483 }
 484
 485 static HRESULT WINAPI domelem_setAttribute(
 486     IXMLDOMElement *iface,
 487     BSTR name, VARIANT value)
 488 {
 489     domelem *This = impl_from_IXMLDOMElement( iface );
 490     xmlNodePtr element;
 491     xmlChar *xml_name, *xml_value;
 492     HRESULT hr;
 493     VARIANT var;
 494
 495     TRACE("(%p)->(%s, var)\n", This, debugstr_w(name));
 496
 497     element = get_element( This );
 498     if ( !element )
 499         return E_FAIL;
 500
 501     VariantInit(&var);
 502     hr = VariantChangeType(&var, &value, 0, VT_BSTR);
 503     if(hr != S_OK)
 504     {
 505         FIXME("VariantChangeType failed\n");
 506         return hr;
 507     }
 508
 509     xml_name = xmlChar_from_wchar( name );
 510     xml_value = xmlChar_from_wchar( V_BSTR(&var) );
 511
 512     if(!xmlSetNsProp(element, NULL,  xml_name, xml_value))
 513         hr = E_FAIL;
 514
 515     HeapFree(GetProcessHeap(), 0, xml_value);
 516     HeapFree(GetProcessHeap(), 0, xml_name);
 517     VariantClear(&var);
 518
 519     return hr;
 520 }
 521
 522 static HRESULT WINAPI domelem_removeAttribute(
 523     IXMLDOMElement *iface,
 524     BSTR p)
 525 {
 526     FIXME("\n");
 527     return E_NOTIMPL;
 528 }
 529
 530 static HRESULT WINAPI domelem_getAttributeNode(
 531     IXMLDOMElement *iface,
 532     BSTR p, IXMLDOMAttribute** attributeNode )
 533 {
 534     FIXME("\n");
 535     return E_NOTIMPL;
 536 }
 537
 538 static HRESULT WINAPI domelem_setAttributeNode(
 539     IXMLDOMElement *iface,
 540     IXMLDOMAttribute* domAttribute,
 541     IXMLDOMAttribute** attributeNode)
 542 {
 543     FIXME("\n");
 544     return E_NOTIMPL;
 545 }
 546
 547 static HRESULT WINAPI domelem_removeAttributeNode(
 548     IXMLDOMElement *iface,
 549     IXMLDOMAttribute* domAttribute,
 550     IXMLDOMAttribute** attributeNode)
 551 {
 552     FIXME("\n");
 553     return E_NOTIMPL;
 554 }
 555
 556 static HRESULT WINAPI domelem_getElementsByTagName(
 557     IXMLDOMElement *iface,
 558     BSTR bstrName, IXMLDOMNodeList** resultList)
 559 {
 560     domelem *This = impl_from_IXMLDOMElement( iface );
 561     LPWSTR szPattern;
 562     HRESULT hr;
 563
 564     TRACE("(%p)->(%s,%p)\n", This, debugstr_w(bstrName), resultList);
 565
 566     szPattern = HeapAlloc(GetProcessHeap(), 0, sizeof(WCHAR)*(3+lstrlenW(bstrName)+1));
 567     szPattern[0] = '.';
 568     szPattern[1] = szPattern[2] = '/';
 569     lstrcpyW(szPattern+3, bstrName);
 570     TRACE("%s\n", debugstr_w(szPattern));
 571
 572     hr = queryresult_create(get_element(This), szPattern, resultList);
 573     HeapFree(GetProcessHeap(), 0, szPattern);
 574
 575     return hr;
 576 }
 577
 578 static HRESULT WINAPI domelem_normalize(
 579     IXMLDOMElement *iface )
 580 {
 581     FIXME("\n");
 582     return E_NOTIMPL;
 583 }
 584
 585 static const struct IXMLDOMElementVtbl domelem_vtbl =
 586 {
 587     domelem_QueryInterface,
 588     domelem_AddRef,
 589     domelem_Release,
 590     domelem_GetTypeInfoCount,
 591     domelem_GetTypeInfo,
 592     domelem_GetIDsOfNames,
 593     domelem_Invoke,
 594     domelem_get_nodeName,
 595     domelem_get_nodeValue,
 596     domelem_put_nodeValue,
 597     domelem_get_nodeType,
 598     domelem_get_parentNode,
 599     domelem_get_childNodes,
 600     domelem_get_firstChild,
 601     domelem_get_lastChild,
 602     domelem_get_previousSibling,
 603     domelem_get_nextSibling,
 604     domelem_get_attributes,
 605     domelem_insertBefore,
 606     domelem_replaceChild,
 607     domelem_removeChild,
 608     domelem_appendChild,
 609     domelem_hasChildNodes,
 610     domelem_get_ownerDocument,
 611     domelem_cloneNode,
 612     domelem_get_nodeTypeString,
 613     domelem_get_text,
 614     domelem_put_text,
 615     domelem_get_specified,
 616     domelem_get_definition,
 617     domelem_get_nodeTypedValue,
 618     domelem_put_nodeTypedValue,
 619     domelem_get_dataType,
 620     domelem_put_dataType,
 621     domelem_get_xml,
 622     domelem_transformNode,
 623     domelem_selectNodes,
 624     domelem_selectSingleNode,
 625     domelem_get_parsed,
 626     domelem_get_namespaceURI,
 627     domelem_get_prefix,
 628     domelem_get_baseName,
 629     domelem_transformNodeToObject,
 630     domelem_get_tagName,
 631     domelem_getAttribute,
 632     domelem_setAttribute,
 633     domelem_removeAttribute,
 634     domelem_getAttributeNode,
 635     domelem_setAttributeNode,
 636     domelem_removeAttributeNode,
 637     domelem_getElementsByTagName,
 638     domelem_normalize,
 639 };
 640
 641 static HRESULT WINAPI Internal_QueryInterface(
 642     IUnknown *iface,
 643     REFIID riid,
 644     void** ppvObject )
 645 {
 646     domelem *This = impl_from_InternalUnknown( iface );
 647     TRACE("%p %s %p\n", This, debugstr_guid(riid), ppvObject);
 648
 649     if ( IsEqualGUID( riid, &IID_IXMLDOMElement ) ||
 650          IsEqualGUID( riid, &IID_IUnknown ) )
 651     {
 652         *ppvObject = &This->lpVtbl;
 653     }
 654     else if ( IsEqualGUID( riid, &IID_IDispatch ) ||
 655               IsEqualGUID( riid, &IID_IXMLDOMNode ) )
 656     {
 657         return IUnknown_QueryInterface(This->node_unk, riid, ppvObject);
 658     }
 659     else
 660     {
 661         FIXME("interface %s not implemented\n", debugstr_guid(riid));
 662         return E_NOINTERFACE;
 663     }
 664
 665     IUnknown_AddRef( (IUnknown*)*ppvObject );
 666
 667     return S_OK;
 668 }
 669
 670 static ULONG WINAPI Internal_AddRef(
 671     IUnknown *iface )
 672 {
 673     domelem *This = impl_from_InternalUnknown( iface );
 674     return InterlockedIncrement( &This->ref );
 675 }
 676
 677 static ULONG WINAPI Internal_Release(
 678     IUnknown *iface )
 679 {
 680     domelem *This = impl_from_InternalUnknown( iface );
 681     ULONG ref;
 682
 683     ref = InterlockedDecrement( &This->ref );
 684     if ( ref == 0 )
 685     {
 686         IUnknown_Release( This->node_unk );
 687         HeapFree( GetProcessHeap(), 0, This );
 688     }
 689
 690     return ref;
 691 }
 692
 693 static const struct IUnknownVtbl internal_unk_vtbl =
 694 {
 695     Internal_QueryInterface,
 696     Internal_AddRef,
 697     Internal_Release
 698 };
 699
 700 IUnknown* create_element( xmlNodePtr element, IUnknown *pUnkOuter )
 701 {
 702     domelem *This;
 703     HRESULT hr;
 704
 705     This = HeapAlloc( GetProcessHeap(), 0, sizeof *This );
 706     if ( !This )
 707         return NULL;
 708
 709     This->lpVtbl = &domelem_vtbl;
 710     This->ref = 1;
 711     This->lpInternalUnkVtbl = &internal_unk_vtbl;
 712
 713     if(pUnkOuter)
 714         This->pUnkOuter = pUnkOuter; /* Don't take a ref on outer Unknown */
 715     else
 716         This->pUnkOuter = (IUnknown *)&This->lpInternalUnkVtbl;
 717
 718     This->node_unk = create_basic_node( element, (IUnknown*)&This->lpVtbl );
 719     if(!This->node_unk)
 720     {
 721         HeapFree(GetProcessHeap(), 0, This);
 722         return NULL;
 723     }
 724
 725     hr = IUnknown_QueryInterface(This->node_unk, &IID_IXMLDOMNode, (LPVOID*)&This->node);
 726     if(FAILED(hr))
 727     {
 728         IUnknown_Release(This->node_unk);
 729         HeapFree( GetProcessHeap(), 0, This );
 730         return NULL;
 731     }
 732     /* The ref on This->node is actually looped back into this object, so release it */
 733     IXMLDOMNode_Release(This->node);
 734
 735     return (IUnknown*) &This->lpInternalUnkVtbl;
 736 }
 737
 738 #endif