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