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 "msxml6.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     xmlnode node;
  44     const struct IXMLDOMElementVtbl *lpVtbl;
  45     LONG ref;
  46 } domelem;
  47
  48 static inline domelem *impl_from_IXMLDOMElement( IXMLDOMElement *iface )
  49 {
  50     return (domelem *)((char*)iface - FIELD_OFFSET(domelem, lpVtbl));
  51 }
  52
  53 static inline xmlNodePtr get_element( domelem *This )
  54 {
  55     return This->node.node;
  56 }
  57
  58 static HRESULT WINAPI domelem_QueryInterface(
  59     IXMLDOMElement *iface,
  60     REFIID riid,
  61     void** ppvObject )
  62 {
  63     domelem *This = impl_from_IXMLDOMElement( iface );
  64
  65     TRACE("(%p)->(%s %p)\n", This, debugstr_guid(riid), ppvObject);
  66
  67     if ( IsEqualGUID( riid, &IID_IXMLDOMElement ) ||
  68          IsEqualGUID( riid, &IID_IXMLDOMNode ) ||
  69          IsEqualGUID( riid, &IID_IDispatch ) ||
  70          IsEqualGUID( riid, &IID_IUnknown ) )
  71     {
  72         *ppvObject = &This->lpVtbl;
  73     }
  74     else if(node_query_interface(&This->node, riid, ppvObject))
  75     {
  76         return *ppvObject ? S_OK : E_NOINTERFACE;
  77     }
  78     else
  79     {
  80         FIXME("interface %s not implemented\n", debugstr_guid(riid));
  81         return E_NOINTERFACE;
  82     }
  83
  84     IUnknown_AddRef( (IUnknown*)*ppvObject );
  85     return S_OK;
  86 }
  87
  88 static ULONG WINAPI domelem_AddRef(
  89     IXMLDOMElement *iface )
  90 {
  91     domelem *This = impl_from_IXMLDOMElement( iface );
  92     LONG ref = InterlockedIncrement(&This->ref);
  93
  94     TRACE("(%p) ref=%d\n", This, ref);
  95
  96     return ref;
  97 }
  98
  99 static ULONG WINAPI domelem_Release(
 100     IXMLDOMElement *iface )
 101 {
 102     domelem *This = impl_from_IXMLDOMElement( iface );
 103     ULONG ref = InterlockedDecrement(&This->ref);
 104
 105     TRACE("(%p) ref=%d\n", This, ref);
 106
 107     if(!ref) {
 108         destroy_xmlnode(&This->node);
 109         heap_free(This);
 110     }
 111
 112     return ref;
 113 }
 114
 115 static HRESULT WINAPI domelem_GetTypeInfoCount(
 116     IXMLDOMElement *iface,
 117     UINT* pctinfo )
 118 {
 119     domelem *This = impl_from_IXMLDOMElement( iface );
 120
 121     TRACE("(%p)->(%p)\n", This, pctinfo);
 122
 123     *pctinfo = 1;
 124
 125     return S_OK;
 126 }
 127
 128 static HRESULT WINAPI domelem_GetTypeInfo(
 129     IXMLDOMElement *iface,
 130     UINT iTInfo, LCID lcid,
 131     ITypeInfo** ppTInfo )
 132 {
 133     domelem *This = impl_from_IXMLDOMElement( iface );
 134     HRESULT hr;
 135
 136     TRACE("(%p)->(%u %u %p)\n", This, iTInfo, lcid, ppTInfo);
 137
 138     hr = get_typeinfo(IXMLDOMElement_tid, ppTInfo);
 139
 140     return hr;
 141 }
 142
 143 static HRESULT WINAPI domelem_GetIDsOfNames(
 144     IXMLDOMElement *iface,
 145     REFIID riid, LPOLESTR* rgszNames,
 146     UINT cNames, LCID lcid, DISPID* rgDispId )
 147 {
 148     domelem *This = impl_from_IXMLDOMElement( iface );
 149     ITypeInfo *typeinfo;
 150     HRESULT hr;
 151
 152     TRACE("(%p)->(%s %p %u %u %p)\n", This, debugstr_guid(riid), rgszNames, cNames,
 153           lcid, rgDispId);
 154
 155     if(!rgszNames || cNames == 0 || !rgDispId)
 156         return E_INVALIDARG;
 157
 158     hr = get_typeinfo(IXMLDOMElement_tid, &typeinfo);
 159     if(SUCCEEDED(hr))
 160     {
 161         hr = ITypeInfo_GetIDsOfNames(typeinfo, rgszNames, cNames, rgDispId);
 162         ITypeInfo_Release(typeinfo);
 163     }
 164
 165     return hr;
 166 }
 167
 168 static HRESULT WINAPI domelem_Invoke(
 169     IXMLDOMElement *iface,
 170     DISPID dispIdMember, REFIID riid, LCID lcid,
 171     WORD wFlags, DISPPARAMS* pDispParams, VARIANT* pVarResult,
 172     EXCEPINFO* pExcepInfo, UINT* puArgErr )
 173 {
 174     domelem *This = impl_from_IXMLDOMElement( iface );
 175     ITypeInfo *typeinfo;
 176     HRESULT hr;
 177
 178     TRACE("(%p)->(%d %s %d %d %p %p %p %p)\n", This, dispIdMember, debugstr_guid(riid),
 179           lcid, wFlags, pDispParams, pVarResult, pExcepInfo, puArgErr);
 180
 181     hr = get_typeinfo(IXMLDOMElement_tid, &typeinfo);
 182     if(SUCCEEDED(hr))
 183     {
 184         hr = ITypeInfo_Invoke(typeinfo, &(This->lpVtbl), dispIdMember, wFlags, pDispParams,
 185                 pVarResult, pExcepInfo, puArgErr);
 186         ITypeInfo_Release(typeinfo);
 187     }
 188
 189     return hr;
 190 }
 191
 192 static HRESULT WINAPI domelem_get_nodeName(
 193     IXMLDOMElement *iface,
 194     BSTR* p )
 195 {
 196     domelem *This = impl_from_IXMLDOMElement( iface );
 197
 198     TRACE("(%p)->(%p)\n", This, p);
 199
 200     return node_get_nodeName(&This->node, p);
 201 }
 202
 203 static HRESULT WINAPI domelem_get_nodeValue(
 204     IXMLDOMElement *iface,
 205     VARIANT* value)
 206 {
 207     domelem *This = impl_from_IXMLDOMElement( iface );
 208
 209     TRACE("(%p)->(%p)\n", This, value);
 210
 211     if(!value)
 212         return E_INVALIDARG;
 213
 214     V_VT(value) = VT_NULL;
 215     V_BSTR(value) = NULL; /* tests show that we should do this */
 216     return S_FALSE;
 217 }
 218
 219 static HRESULT WINAPI domelem_put_nodeValue(
 220     IXMLDOMElement *iface,
 221     VARIANT value)
 222 {
 223     domelem *This = impl_from_IXMLDOMElement( iface );
 224     FIXME("(%p)->(v%d)\n", This, V_VT(&value));
 225     return E_FAIL;
 226 }
 227
 228 static HRESULT WINAPI domelem_get_nodeType(
 229     IXMLDOMElement *iface,
 230     DOMNodeType* domNodeType )
 231 {
 232     domelem *This = impl_from_IXMLDOMElement( iface );
 233     return IXMLDOMNode_get_nodeType( IXMLDOMNode_from_impl(&This->node), domNodeType );
 234 }
 235
 236 static HRESULT WINAPI domelem_get_parentNode(
 237     IXMLDOMElement *iface,
 238     IXMLDOMNode** parent )
 239 {
 240     domelem *This = impl_from_IXMLDOMElement( iface );
 241     return IXMLDOMNode_get_parentNode( IXMLDOMNode_from_impl(&This->node), parent );
 242 }
 243
 244 static HRESULT WINAPI domelem_get_childNodes(
 245     IXMLDOMElement *iface,
 246     IXMLDOMNodeList** outList)
 247 {
 248     domelem *This = impl_from_IXMLDOMElement( iface );
 249     return IXMLDOMNode_get_childNodes( IXMLDOMNode_from_impl(&This->node), outList );
 250 }
 251
 252 static HRESULT WINAPI domelem_get_firstChild(
 253     IXMLDOMElement *iface,
 254     IXMLDOMNode** domNode)
 255 {
 256     domelem *This = impl_from_IXMLDOMElement( iface );
 257     return IXMLDOMNode_get_firstChild( IXMLDOMNode_from_impl(&This->node), domNode );
 258 }
 259
 260 static HRESULT WINAPI domelem_get_lastChild(
 261     IXMLDOMElement *iface,
 262     IXMLDOMNode** domNode)
 263 {
 264     domelem *This = impl_from_IXMLDOMElement( iface );
 265     return IXMLDOMNode_get_lastChild( IXMLDOMNode_from_impl(&This->node), domNode );
 266 }
 267
 268 static HRESULT WINAPI domelem_get_previousSibling(
 269     IXMLDOMElement *iface,
 270     IXMLDOMNode** domNode)
 271 {
 272     domelem *This = impl_from_IXMLDOMElement( iface );
 273     return IXMLDOMNode_get_previousSibling( IXMLDOMNode_from_impl(&This->node), domNode );
 274 }
 275
 276 static HRESULT WINAPI domelem_get_nextSibling(
 277     IXMLDOMElement *iface,
 278     IXMLDOMNode** domNode)
 279 {
 280     domelem *This = impl_from_IXMLDOMElement( iface );
 281     return IXMLDOMNode_get_nextSibling( IXMLDOMNode_from_impl(&This->node), domNode );
 282 }
 283
 284 static HRESULT WINAPI domelem_get_attributes(
 285     IXMLDOMElement *iface,
 286     IXMLDOMNamedNodeMap** attributeMap)
 287 {
 288     domelem *This = impl_from_IXMLDOMElement( iface );
 289     return IXMLDOMNode_get_attributes( IXMLDOMNode_from_impl(&This->node), attributeMap );
 290 }
 291
 292 static HRESULT WINAPI domelem_insertBefore(
 293     IXMLDOMElement *iface,
 294     IXMLDOMNode* newNode, VARIANT var1,
 295     IXMLDOMNode** outOldNode)
 296 {
 297     domelem *This = impl_from_IXMLDOMElement( iface );
 298     return IXMLDOMNode_insertBefore( IXMLDOMNode_from_impl(&This->node), newNode, var1, outOldNode );
 299 }
 300
 301 static HRESULT WINAPI domelem_replaceChild(
 302     IXMLDOMElement *iface,
 303     IXMLDOMNode* newNode,
 304     IXMLDOMNode* oldNode,
 305     IXMLDOMNode** outOldNode)
 306 {
 307     domelem *This = impl_from_IXMLDOMElement( iface );
 308     return IXMLDOMNode_replaceChild( IXMLDOMNode_from_impl(&This->node), newNode, oldNode, outOldNode );
 309 }
 310
 311 static HRESULT WINAPI domelem_removeChild(
 312     IXMLDOMElement *iface,
 313     IXMLDOMNode* domNode, IXMLDOMNode** oldNode)
 314 {
 315     domelem *This = impl_from_IXMLDOMElement( iface );
 316     return IXMLDOMNode_removeChild( IXMLDOMNode_from_impl(&This->node), domNode, oldNode );
 317 }
 318
 319 static HRESULT WINAPI domelem_appendChild(
 320     IXMLDOMElement *iface,
 321     IXMLDOMNode* newNode, IXMLDOMNode** outNewNode)
 322 {
 323     domelem *This = impl_from_IXMLDOMElement( iface );
 324     return IXMLDOMNode_appendChild( IXMLDOMNode_from_impl(&This->node), newNode, outNewNode );
 325 }
 326
 327 static HRESULT WINAPI domelem_hasChildNodes(
 328     IXMLDOMElement *iface,
 329     VARIANT_BOOL* pbool)
 330 {
 331     domelem *This = impl_from_IXMLDOMElement( iface );
 332     return IXMLDOMNode_hasChildNodes( IXMLDOMNode_from_impl(&This->node), pbool );
 333 }
 334
 335 static HRESULT WINAPI domelem_get_ownerDocument(
 336     IXMLDOMElement *iface,
 337     IXMLDOMDocument** domDocument)
 338 {
 339     domelem *This = impl_from_IXMLDOMElement( iface );
 340     return IXMLDOMNode_get_ownerDocument( IXMLDOMNode_from_impl(&This->node), domDocument );
 341 }
 342
 343 static HRESULT WINAPI domelem_cloneNode(
 344     IXMLDOMElement *iface,
 345     VARIANT_BOOL pbool, IXMLDOMNode** outNode)
 346 {
 347     domelem *This = impl_from_IXMLDOMElement( iface );
 348     return IXMLDOMNode_cloneNode( IXMLDOMNode_from_impl(&This->node), pbool, outNode );
 349 }
 350
 351 static HRESULT WINAPI domelem_get_nodeTypeString(
 352     IXMLDOMElement *iface,
 353     BSTR* p)
 354 {
 355     domelem *This = impl_from_IXMLDOMElement( iface );
 356     return IXMLDOMNode_get_nodeTypeString( IXMLDOMNode_from_impl(&This->node), p );
 357 }
 358
 359 static HRESULT WINAPI domelem_get_text(
 360     IXMLDOMElement *iface,
 361     BSTR* p)
 362 {
 363     domelem *This = impl_from_IXMLDOMElement( iface );
 364     return IXMLDOMNode_get_text( IXMLDOMNode_from_impl(&This->node), p );
 365 }
 366
 367 static HRESULT WINAPI domelem_put_text(
 368     IXMLDOMElement *iface,
 369     BSTR p)
 370 {
 371     domelem *This = impl_from_IXMLDOMElement( iface );
 372     return IXMLDOMNode_put_text( IXMLDOMNode_from_impl(&This->node), p );
 373 }
 374
 375 static HRESULT WINAPI domelem_get_specified(
 376     IXMLDOMElement *iface,
 377     VARIANT_BOOL* pbool)
 378 {
 379     domelem *This = impl_from_IXMLDOMElement( iface );
 380     return IXMLDOMNode_get_specified( IXMLDOMNode_from_impl(&This->node), pbool );
 381 }
 382
 383 static HRESULT WINAPI domelem_get_definition(
 384     IXMLDOMElement *iface,
 385     IXMLDOMNode** domNode)
 386 {
 387     domelem *This = impl_from_IXMLDOMElement( iface );
 388     return IXMLDOMNode_get_definition( IXMLDOMNode_from_impl(&This->node), domNode );
 389 }
 390
 391 static HRESULT WINAPI domelem_get_nodeTypedValue(
 392     IXMLDOMElement *iface,
 393     VARIANT* var1)
 394 {
 395     domelem *This = impl_from_IXMLDOMElement( iface );
 396     return IXMLDOMNode_get_nodeTypedValue( IXMLDOMNode_from_impl(&This->node), var1 );
 397 }
 398
 399 static HRESULT WINAPI domelem_put_nodeTypedValue(
 400     IXMLDOMElement *iface,
 401     VARIANT var1)
 402 {
 403     domelem *This = impl_from_IXMLDOMElement( iface );
 404     return IXMLDOMNode_put_nodeTypedValue( IXMLDOMNode_from_impl(&This->node), var1 );
 405 }
 406
 407 static HRESULT WINAPI domelem_get_dataType(
 408     IXMLDOMElement *iface,
 409     VARIANT* var1)
 410 {
 411     domelem *This = impl_from_IXMLDOMElement( iface );
 412     return IXMLDOMNode_get_dataType( IXMLDOMNode_from_impl(&This->node), var1 );
 413 }
 414
 415 static HRESULT WINAPI domelem_put_dataType(
 416     IXMLDOMElement *iface,
 417     BSTR p)
 418 {
 419     domelem *This = impl_from_IXMLDOMElement( iface );
 420     return IXMLDOMNode_put_dataType( IXMLDOMNode_from_impl(&This->node), p );
 421 }
 422
 423 static HRESULT WINAPI domelem_get_xml(
 424     IXMLDOMElement *iface,
 425     BSTR* p)
 426 {
 427     domelem *This = impl_from_IXMLDOMElement( iface );
 428     return IXMLDOMNode_get_xml( IXMLDOMNode_from_impl(&This->node), p );
 429 }
 430
 431 static HRESULT WINAPI domelem_transformNode(
 432     IXMLDOMElement *iface,
 433     IXMLDOMNode* domNode, BSTR* p)
 434 {
 435     domelem *This = impl_from_IXMLDOMElement( iface );
 436     return IXMLDOMNode_transformNode( IXMLDOMNode_from_impl(&This->node), domNode, p );
 437 }
 438
 439 static HRESULT WINAPI domelem_selectNodes(
 440     IXMLDOMElement *iface,
 441     BSTR p, IXMLDOMNodeList** outList)
 442 {
 443     domelem *This = impl_from_IXMLDOMElement( iface );
 444     return IXMLDOMNode_selectNodes( IXMLDOMNode_from_impl(&This->node), p, outList );
 445 }
 446
 447 static HRESULT WINAPI domelem_selectSingleNode(
 448     IXMLDOMElement *iface,
 449     BSTR p, IXMLDOMNode** outNode)
 450 {
 451     domelem *This = impl_from_IXMLDOMElement( iface );
 452     return IXMLDOMNode_selectSingleNode( IXMLDOMNode_from_impl(&This->node), p, outNode );
 453 }
 454
 455 static HRESULT WINAPI domelem_get_parsed(
 456     IXMLDOMElement *iface,
 457     VARIANT_BOOL* pbool)
 458 {
 459     domelem *This = impl_from_IXMLDOMElement( iface );
 460     return IXMLDOMNode_get_parsed( IXMLDOMNode_from_impl(&This->node), pbool );
 461 }
 462
 463 static HRESULT WINAPI domelem_get_namespaceURI(
 464     IXMLDOMElement *iface,
 465     BSTR* p)
 466 {
 467     domelem *This = impl_from_IXMLDOMElement( iface );
 468     return IXMLDOMNode_get_namespaceURI( IXMLDOMNode_from_impl(&This->node), p );
 469 }
 470
 471 static HRESULT WINAPI domelem_get_prefix(
 472     IXMLDOMElement *iface,
 473     BSTR* p)
 474 {
 475     domelem *This = impl_from_IXMLDOMElement( iface );
 476     return IXMLDOMNode_get_prefix( IXMLDOMNode_from_impl(&This->node), p );
 477 }
 478
 479 static HRESULT WINAPI domelem_get_baseName(
 480     IXMLDOMElement *iface,
 481     BSTR* p)
 482 {
 483     domelem *This = impl_from_IXMLDOMElement( iface );
 484     return IXMLDOMNode_get_baseName( IXMLDOMNode_from_impl(&This->node), p );
 485 }
 486
 487 static HRESULT WINAPI domelem_transformNodeToObject(
 488     IXMLDOMElement *iface,
 489     IXMLDOMNode* domNode, VARIANT var1)
 490 {
 491     domelem *This = impl_from_IXMLDOMElement( iface );
 492     return IXMLDOMNode_transformNodeToObject( IXMLDOMNode_from_impl(&This->node), domNode, var1 );
 493 }
 494
 495 static HRESULT WINAPI domelem_get_tagName(
 496     IXMLDOMElement *iface,
 497     BSTR* p)
 498 {
 499     domelem *This = impl_from_IXMLDOMElement( iface );
 500     xmlNodePtr element;
 501     const xmlChar *prefix;
 502     xmlChar *qname;
 503
 504     TRACE("(%p)->(%p)\n", This, p );
 505
 506     if (!p) return E_INVALIDARG;
 507
 508     element = get_element( This );
 509     if ( !element )
 510         return E_FAIL;
 511
 512     prefix = element->ns ? element->ns->prefix : NULL;
 513     qname = xmlBuildQName(element->name, prefix, NULL, 0);
 514
 515     *p = bstr_from_xmlChar(qname);
 516     if (qname != element->name) xmlFree(qname);
 517
 518     return *p ? S_OK : E_OUTOFMEMORY;
 519 }
 520
 521 static HRESULT WINAPI domelem_getAttribute(
 522     IXMLDOMElement *iface,
 523     BSTR name, VARIANT* value)
 524 {
 525     domelem *This = impl_from_IXMLDOMElement( iface );
 526     xmlNodePtr element;
 527     xmlChar *xml_name, *xml_value = NULL;
 528     HRESULT hr = S_FALSE;
 529
 530     TRACE("(%p)->(%s %p)\n", This, debugstr_w(name), value);
 531
 532     if(!value || !name)
 533         return E_INVALIDARG;
 534
 535     element = get_element( This );
 536     if ( !element )
 537         return E_FAIL;
 538
 539     V_BSTR(value) = NULL;
 540     V_VT(value) = VT_NULL;
 541
 542     xml_name = xmlChar_from_wchar( name );
 543
 544     if(!xmlValidateNameValue(xml_name))
 545         hr = E_FAIL;
 546     else
 547         xml_value = xmlGetNsProp(element, xml_name, NULL);
 548
 549     heap_free(xml_name);
 550     if(xml_value)
 551     {
 552         V_VT(value) = VT_BSTR;
 553         V_BSTR(value) = bstr_from_xmlChar( xml_value );
 554         xmlFree(xml_value);
 555         hr = S_OK;
 556     }
 557
 558     return hr;
 559 }
 560
 561 static HRESULT WINAPI domelem_setAttribute(
 562     IXMLDOMElement *iface,
 563     BSTR name, VARIANT value)
 564 {
 565     domelem *This = impl_from_IXMLDOMElement( iface );
 566     xmlNodePtr element;
 567     xmlChar *xml_name, *xml_value;
 568     HRESULT hr;
 569     VARIANT var;
 570
 571     TRACE("(%p)->(%s var)\n", This, debugstr_w(name));
 572
 573     element = get_element( This );
 574     if ( !element )
 575         return E_FAIL;
 576
 577     VariantInit(&var);
 578     hr = VariantChangeType(&var, &value, 0, VT_BSTR);
 579     if(hr != S_OK)
 580     {
 581         FIXME("VariantChangeType failed\n");
 582         return hr;
 583     }
 584
 585     xml_name = xmlChar_from_wchar( name );
 586     xml_value = xmlChar_from_wchar( V_BSTR(&var) );
 587
 588     if(!xmlSetNsProp(element, NULL,  xml_name, xml_value))
 589         hr = E_FAIL;
 590
 591     heap_free(xml_value);
 592     heap_free(xml_name);
 593     VariantClear(&var);
 594
 595     return hr;
 596 }
 597
 598 static HRESULT WINAPI domelem_removeAttribute(
 599     IXMLDOMElement *iface,
 600     BSTR p)
 601 {
 602     domelem *This = impl_from_IXMLDOMElement( iface );
 603     IXMLDOMNamedNodeMap *attr;
 604     HRESULT hr;
 605
 606     TRACE("(%p)->(%s)\n", This, debugstr_w(p));
 607
 608     hr = IXMLDOMElement_get_attributes(iface, &attr);
 609     if (hr != S_OK) return hr;
 610
 611     hr = IXMLDOMNamedNodeMap_removeNamedItem(attr, p, NULL);
 612     IXMLDOMNamedNodeMap_Release(attr);
 613
 614     return hr;
 615 }
 616
 617 static HRESULT WINAPI domelem_getAttributeNode(
 618     IXMLDOMElement *iface,
 619     BSTR p, IXMLDOMAttribute** attributeNode )
 620 {
 621     domelem *This = impl_from_IXMLDOMElement( iface );
 622     xmlChar *xml_name;
 623     xmlNodePtr element;
 624     xmlAttrPtr attr;
 625     IUnknown *unk;
 626     HRESULT hr = S_FALSE;
 627
 628     TRACE("(%p)->(%s %p)\n", This, debugstr_w(p), attributeNode);
 629
 630     if(!attributeNode)
 631         return E_FAIL;
 632
 633     *attributeNode = NULL;
 634
 635     element = get_element( This );
 636     if ( !element )
 637         return E_FAIL;
 638
 639     xml_name = xmlChar_from_wchar(p);
 640
 641     if(!xmlValidateNameValue(xml_name))
 642     {
 643         heap_free(xml_name);
 644         return E_FAIL;
 645     }
 646
 647     attr = xmlHasProp(element, xml_name);
 648     if(attr) {
 649         unk = create_attribute((xmlNodePtr)attr);
 650         hr = IUnknown_QueryInterface(unk, &IID_IXMLDOMAttribute, (void**)attributeNode);
 651         IUnknown_Release(unk);
 652     }
 653
 654     heap_free(xml_name);
 655
 656     return hr;
 657 }
 658
 659 static HRESULT WINAPI domelem_setAttributeNode(
 660     IXMLDOMElement *iface,
 661     IXMLDOMAttribute* domAttribute,
 662     IXMLDOMAttribute** attributeNode)
 663 {
 664     domelem *This = impl_from_IXMLDOMElement( iface );
 665
 666     FIXME("(%p)->(%p %p)\n", This, domAttribute, attributeNode);
 667
 668     if(!domAttribute) return E_INVALIDARG;
 669
 670     return E_NOTIMPL;
 671 }
 672
 673 static HRESULT WINAPI domelem_removeAttributeNode(
 674     IXMLDOMElement *iface,
 675     IXMLDOMAttribute* domAttribute,
 676     IXMLDOMAttribute** attributeNode)
 677 {
 678     domelem *This = impl_from_IXMLDOMElement( iface );
 679     FIXME("(%p)->(%p %p)\n", This, domAttribute, attributeNode);
 680     return E_NOTIMPL;
 681 }
 682
 683 static HRESULT WINAPI domelem_getElementsByTagName(
 684     IXMLDOMElement *iface,
 685     BSTR tagName, IXMLDOMNodeList** resultList)
 686 {
 687     domelem *This = impl_from_IXMLDOMElement( iface );
 688     xmlNodePtr element;
 689     HRESULT hr;
 690
 691     TRACE("(%p)->(%s %p)\n", This, debugstr_w(tagName), resultList);
 692
 693     if (!tagName || !resultList) return E_INVALIDARG;
 694     if (!(element = get_element(This))) return E_FAIL;
 695
 696     if (tagName[0] == '*' && tagName[1] == 0)
 697     {
 698         static const WCHAR formatallW[] = {'/','/','*',0};
 699         hr = queryresult_create(element, formatallW, resultList);
 700     }
 701     else
 702     {
 703         static const WCHAR xpathformat[] =
 704             { '/','/','*','[','l','o','c','a','l','-','n','a','m','e','(',')','=','\'' };
 705         static const WCHAR closeW[] = { '\'',']',0 };
 706
 707         LPWSTR pattern;
 708         WCHAR *ptr;
 709         INT length;
 710
 711         length = lstrlenW(tagName);
 712
 713         /* without two WCHARs from format specifier */
 714         ptr = pattern = heap_alloc(sizeof(xpathformat) + length*sizeof(WCHAR) + sizeof(closeW));
 715
 716         memcpy(ptr, xpathformat, sizeof(xpathformat));
 717         ptr += sizeof(xpathformat)/sizeof(WCHAR);
 718         memcpy(ptr, tagName, length*sizeof(WCHAR));
 719         ptr += length;
 720         memcpy(ptr, closeW, sizeof(closeW));
 721
 722         TRACE("%s\n", debugstr_w(pattern));
 723         hr = queryresult_create(element, pattern, resultList);
 724         heap_free(pattern);
 725     }
 726
 727     return hr;
 728 }
 729
 730 static HRESULT WINAPI domelem_normalize(
 731     IXMLDOMElement *iface )
 732 {
 733     domelem *This = impl_from_IXMLDOMElement( iface );
 734     FIXME("%p\n", This);
 735     return E_NOTIMPL;
 736 }
 737
 738 static const struct IXMLDOMElementVtbl domelem_vtbl =
 739 {
 740     domelem_QueryInterface,
 741     domelem_AddRef,
 742     domelem_Release,
 743     domelem_GetTypeInfoCount,
 744     domelem_GetTypeInfo,
 745     domelem_GetIDsOfNames,
 746     domelem_Invoke,
 747     domelem_get_nodeName,
 748     domelem_get_nodeValue,
 749     domelem_put_nodeValue,
 750     domelem_get_nodeType,
 751     domelem_get_parentNode,
 752     domelem_get_childNodes,
 753     domelem_get_firstChild,
 754     domelem_get_lastChild,
 755     domelem_get_previousSibling,
 756     domelem_get_nextSibling,
 757     domelem_get_attributes,
 758     domelem_insertBefore,
 759     domelem_replaceChild,
 760     domelem_removeChild,
 761     domelem_appendChild,
 762     domelem_hasChildNodes,
 763     domelem_get_ownerDocument,
 764     domelem_cloneNode,
 765     domelem_get_nodeTypeString,
 766     domelem_get_text,
 767     domelem_put_text,
 768     domelem_get_specified,
 769     domelem_get_definition,
 770     domelem_get_nodeTypedValue,
 771     domelem_put_nodeTypedValue,
 772     domelem_get_dataType,
 773     domelem_put_dataType,
 774     domelem_get_xml,
 775     domelem_transformNode,
 776     domelem_selectNodes,
 777     domelem_selectSingleNode,
 778     domelem_get_parsed,
 779     domelem_get_namespaceURI,
 780     domelem_get_prefix,
 781     domelem_get_baseName,
 782     domelem_transformNodeToObject,
 783     domelem_get_tagName,
 784     domelem_getAttribute,
 785     domelem_setAttribute,
 786     domelem_removeAttribute,
 787     domelem_getAttributeNode,
 788     domelem_setAttributeNode,
 789     domelem_removeAttributeNode,
 790     domelem_getElementsByTagName,
 791     domelem_normalize,
 792 };
 793
 794 static const tid_t domelem_iface_tids[] = {
 795     IXMLDOMElement_tid,
 796     0
 797 };
 798
 799 static dispex_static_data_t domelem_dispex = {
 800     NULL,
 801     IXMLDOMElement_tid,
 802     NULL,
 803     domelem_iface_tids
 804 };
 805
 806 IUnknown* create_element( xmlNodePtr element )
 807 {
 808     domelem *This;
 809
 810     This = heap_alloc( sizeof *This );
 811     if ( !This )
 812         return NULL;
 813
 814     This->lpVtbl = &domelem_vtbl;
 815     This->ref = 1;
 816
 817     init_xmlnode(&This->node, element, (IXMLDOMNode*)&This->lpVtbl, &domelem_dispex);
 818
 819     return (IUnknown*) &This->lpVtbl;
 820 }
 821
 822 #endif