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
 234     TRACE("(%p)->(%p)\n", This, domNodeType);
 235
 236     *domNodeType = NODE_ELEMENT;
 237     return S_OK;
 238 }
 239
 240 static HRESULT WINAPI domelem_get_parentNode(
 241     IXMLDOMElement *iface,
 242     IXMLDOMNode** parent )
 243 {
 244     domelem *This = impl_from_IXMLDOMElement( iface );
 245
 246     TRACE("(%p)->(%p)\n", This, parent);
 247
 248     return node_get_parent(&This->node, parent);
 249 }
 250
 251 static HRESULT WINAPI domelem_get_childNodes(
 252     IXMLDOMElement *iface,
 253     IXMLDOMNodeList** outList)
 254 {
 255     domelem *This = impl_from_IXMLDOMElement( iface );
 256     return IXMLDOMNode_get_childNodes( IXMLDOMNode_from_impl(&This->node), outList );
 257 }
 258
 259 static HRESULT WINAPI domelem_get_firstChild(
 260     IXMLDOMElement *iface,
 261     IXMLDOMNode** domNode)
 262 {
 263     domelem *This = impl_from_IXMLDOMElement( iface );
 264     return IXMLDOMNode_get_firstChild( IXMLDOMNode_from_impl(&This->node), domNode );
 265 }
 266
 267 static HRESULT WINAPI domelem_get_lastChild(
 268     IXMLDOMElement *iface,
 269     IXMLDOMNode** domNode)
 270 {
 271     domelem *This = impl_from_IXMLDOMElement( iface );
 272     return IXMLDOMNode_get_lastChild( IXMLDOMNode_from_impl(&This->node), domNode );
 273 }
 274
 275 static HRESULT WINAPI domelem_get_previousSibling(
 276     IXMLDOMElement *iface,
 277     IXMLDOMNode** domNode)
 278 {
 279     domelem *This = impl_from_IXMLDOMElement( iface );
 280     return IXMLDOMNode_get_previousSibling( IXMLDOMNode_from_impl(&This->node), domNode );
 281 }
 282
 283 static HRESULT WINAPI domelem_get_nextSibling(
 284     IXMLDOMElement *iface,
 285     IXMLDOMNode** domNode)
 286 {
 287     domelem *This = impl_from_IXMLDOMElement( iface );
 288     return IXMLDOMNode_get_nextSibling( IXMLDOMNode_from_impl(&This->node), domNode );
 289 }
 290
 291 static HRESULT WINAPI domelem_get_attributes(
 292     IXMLDOMElement *iface,
 293     IXMLDOMNamedNodeMap** attributeMap)
 294 {
 295     domelem *This = impl_from_IXMLDOMElement( iface );
 296     return IXMLDOMNode_get_attributes( IXMLDOMNode_from_impl(&This->node), attributeMap );
 297 }
 298
 299 static HRESULT WINAPI domelem_insertBefore(
 300     IXMLDOMElement *iface,
 301     IXMLDOMNode* newNode, VARIANT var1,
 302     IXMLDOMNode** outOldNode)
 303 {
 304     domelem *This = impl_from_IXMLDOMElement( iface );
 305     return IXMLDOMNode_insertBefore( IXMLDOMNode_from_impl(&This->node), newNode, var1, outOldNode );
 306 }
 307
 308 static HRESULT WINAPI domelem_replaceChild(
 309     IXMLDOMElement *iface,
 310     IXMLDOMNode* newNode,
 311     IXMLDOMNode* oldNode,
 312     IXMLDOMNode** outOldNode)
 313 {
 314     domelem *This = impl_from_IXMLDOMElement( iface );
 315     return IXMLDOMNode_replaceChild( IXMLDOMNode_from_impl(&This->node), newNode, oldNode, outOldNode );
 316 }
 317
 318 static HRESULT WINAPI domelem_removeChild(
 319     IXMLDOMElement *iface,
 320     IXMLDOMNode* domNode, IXMLDOMNode** oldNode)
 321 {
 322     domelem *This = impl_from_IXMLDOMElement( iface );
 323     return IXMLDOMNode_removeChild( IXMLDOMNode_from_impl(&This->node), domNode, oldNode );
 324 }
 325
 326 static HRESULT WINAPI domelem_appendChild(
 327     IXMLDOMElement *iface,
 328     IXMLDOMNode* newNode, IXMLDOMNode** outNewNode)
 329 {
 330     domelem *This = impl_from_IXMLDOMElement( iface );
 331     return IXMLDOMNode_appendChild( IXMLDOMNode_from_impl(&This->node), newNode, outNewNode );
 332 }
 333
 334 static HRESULT WINAPI domelem_hasChildNodes(
 335     IXMLDOMElement *iface,
 336     VARIANT_BOOL* pbool)
 337 {
 338     domelem *This = impl_from_IXMLDOMElement( iface );
 339     return IXMLDOMNode_hasChildNodes( IXMLDOMNode_from_impl(&This->node), pbool );
 340 }
 341
 342 static HRESULT WINAPI domelem_get_ownerDocument(
 343     IXMLDOMElement *iface,
 344     IXMLDOMDocument** domDocument)
 345 {
 346     domelem *This = impl_from_IXMLDOMElement( iface );
 347     return IXMLDOMNode_get_ownerDocument( IXMLDOMNode_from_impl(&This->node), domDocument );
 348 }
 349
 350 static HRESULT WINAPI domelem_cloneNode(
 351     IXMLDOMElement *iface,
 352     VARIANT_BOOL pbool, IXMLDOMNode** outNode)
 353 {
 354     domelem *This = impl_from_IXMLDOMElement( iface );
 355     return IXMLDOMNode_cloneNode( IXMLDOMNode_from_impl(&This->node), pbool, outNode );
 356 }
 357
 358 static HRESULT WINAPI domelem_get_nodeTypeString(
 359     IXMLDOMElement *iface,
 360     BSTR* p)
 361 {
 362     domelem *This = impl_from_IXMLDOMElement( iface );
 363     return IXMLDOMNode_get_nodeTypeString( IXMLDOMNode_from_impl(&This->node), p );
 364 }
 365
 366 static HRESULT WINAPI domelem_get_text(
 367     IXMLDOMElement *iface,
 368     BSTR* p)
 369 {
 370     domelem *This = impl_from_IXMLDOMElement( iface );
 371     return IXMLDOMNode_get_text( IXMLDOMNode_from_impl(&This->node), p );
 372 }
 373
 374 static HRESULT WINAPI domelem_put_text(
 375     IXMLDOMElement *iface,
 376     BSTR p)
 377 {
 378     domelem *This = impl_from_IXMLDOMElement( iface );
 379     return IXMLDOMNode_put_text( IXMLDOMNode_from_impl(&This->node), p );
 380 }
 381
 382 static HRESULT WINAPI domelem_get_specified(
 383     IXMLDOMElement *iface,
 384     VARIANT_BOOL* pbool)
 385 {
 386     domelem *This = impl_from_IXMLDOMElement( iface );
 387     return IXMLDOMNode_get_specified( IXMLDOMNode_from_impl(&This->node), pbool );
 388 }
 389
 390 static HRESULT WINAPI domelem_get_definition(
 391     IXMLDOMElement *iface,
 392     IXMLDOMNode** domNode)
 393 {
 394     domelem *This = impl_from_IXMLDOMElement( iface );
 395     return IXMLDOMNode_get_definition( IXMLDOMNode_from_impl(&This->node), domNode );
 396 }
 397
 398 static HRESULT WINAPI domelem_get_nodeTypedValue(
 399     IXMLDOMElement *iface,
 400     VARIANT* var1)
 401 {
 402     domelem *This = impl_from_IXMLDOMElement( iface );
 403     return IXMLDOMNode_get_nodeTypedValue( IXMLDOMNode_from_impl(&This->node), var1 );
 404 }
 405
 406 static HRESULT WINAPI domelem_put_nodeTypedValue(
 407     IXMLDOMElement *iface,
 408     VARIANT var1)
 409 {
 410     domelem *This = impl_from_IXMLDOMElement( iface );
 411     return IXMLDOMNode_put_nodeTypedValue( IXMLDOMNode_from_impl(&This->node), var1 );
 412 }
 413
 414 static HRESULT WINAPI domelem_get_dataType(
 415     IXMLDOMElement *iface,
 416     VARIANT* var1)
 417 {
 418     domelem *This = impl_from_IXMLDOMElement( iface );
 419     return IXMLDOMNode_get_dataType( IXMLDOMNode_from_impl(&This->node), var1 );
 420 }
 421
 422 static HRESULT WINAPI domelem_put_dataType(
 423     IXMLDOMElement *iface,
 424     BSTR p)
 425 {
 426     domelem *This = impl_from_IXMLDOMElement( iface );
 427     return IXMLDOMNode_put_dataType( IXMLDOMNode_from_impl(&This->node), p );
 428 }
 429
 430 static HRESULT WINAPI domelem_get_xml(
 431     IXMLDOMElement *iface,
 432     BSTR* p)
 433 {
 434     domelem *This = impl_from_IXMLDOMElement( iface );
 435     return IXMLDOMNode_get_xml( IXMLDOMNode_from_impl(&This->node), p );
 436 }
 437
 438 static HRESULT WINAPI domelem_transformNode(
 439     IXMLDOMElement *iface,
 440     IXMLDOMNode* domNode, BSTR* p)
 441 {
 442     domelem *This = impl_from_IXMLDOMElement( iface );
 443     return IXMLDOMNode_transformNode( IXMLDOMNode_from_impl(&This->node), domNode, p );
 444 }
 445
 446 static HRESULT WINAPI domelem_selectNodes(
 447     IXMLDOMElement *iface,
 448     BSTR p, IXMLDOMNodeList** outList)
 449 {
 450     domelem *This = impl_from_IXMLDOMElement( iface );
 451     return IXMLDOMNode_selectNodes( IXMLDOMNode_from_impl(&This->node), p, outList );
 452 }
 453
 454 static HRESULT WINAPI domelem_selectSingleNode(
 455     IXMLDOMElement *iface,
 456     BSTR p, IXMLDOMNode** outNode)
 457 {
 458     domelem *This = impl_from_IXMLDOMElement( iface );
 459     return IXMLDOMNode_selectSingleNode( IXMLDOMNode_from_impl(&This->node), p, outNode );
 460 }
 461
 462 static HRESULT WINAPI domelem_get_parsed(
 463     IXMLDOMElement *iface,
 464     VARIANT_BOOL* pbool)
 465 {
 466     domelem *This = impl_from_IXMLDOMElement( iface );
 467     return IXMLDOMNode_get_parsed( IXMLDOMNode_from_impl(&This->node), pbool );
 468 }
 469
 470 static HRESULT WINAPI domelem_get_namespaceURI(
 471     IXMLDOMElement *iface,
 472     BSTR* p)
 473 {
 474     domelem *This = impl_from_IXMLDOMElement( iface );
 475     return IXMLDOMNode_get_namespaceURI( IXMLDOMNode_from_impl(&This->node), p );
 476 }
 477
 478 static HRESULT WINAPI domelem_get_prefix(
 479     IXMLDOMElement *iface,
 480     BSTR* p)
 481 {
 482     domelem *This = impl_from_IXMLDOMElement( iface );
 483     return IXMLDOMNode_get_prefix( IXMLDOMNode_from_impl(&This->node), p );
 484 }
 485
 486 static HRESULT WINAPI domelem_get_baseName(
 487     IXMLDOMElement *iface,
 488     BSTR* p)
 489 {
 490     domelem *This = impl_from_IXMLDOMElement( iface );
 491     return IXMLDOMNode_get_baseName( IXMLDOMNode_from_impl(&This->node), p );
 492 }
 493
 494 static HRESULT WINAPI domelem_transformNodeToObject(
 495     IXMLDOMElement *iface,
 496     IXMLDOMNode* domNode, VARIANT var1)
 497 {
 498     domelem *This = impl_from_IXMLDOMElement( iface );
 499     return IXMLDOMNode_transformNodeToObject( IXMLDOMNode_from_impl(&This->node), domNode, var1 );
 500 }
 501
 502 static HRESULT WINAPI domelem_get_tagName(
 503     IXMLDOMElement *iface,
 504     BSTR* p)
 505 {
 506     domelem *This = impl_from_IXMLDOMElement( iface );
 507     xmlNodePtr element;
 508     const xmlChar *prefix;
 509     xmlChar *qname;
 510
 511     TRACE("(%p)->(%p)\n", This, p );
 512
 513     if (!p) return E_INVALIDARG;
 514
 515     element = get_element( This );
 516     if ( !element )
 517         return E_FAIL;
 518
 519     prefix = element->ns ? element->ns->prefix : NULL;
 520     qname = xmlBuildQName(element->name, prefix, NULL, 0);
 521
 522     *p = bstr_from_xmlChar(qname);
 523     if (qname != element->name) xmlFree(qname);
 524
 525     return *p ? S_OK : E_OUTOFMEMORY;
 526 }
 527
 528 static HRESULT WINAPI domelem_getAttribute(
 529     IXMLDOMElement *iface,
 530     BSTR name, VARIANT* value)
 531 {
 532     domelem *This = impl_from_IXMLDOMElement( iface );
 533     xmlNodePtr element;
 534     xmlChar *xml_name, *xml_value = NULL;
 535     HRESULT hr = S_FALSE;
 536
 537     TRACE("(%p)->(%s %p)\n", This, debugstr_w(name), value);
 538
 539     if(!value || !name)
 540         return E_INVALIDARG;
 541
 542     element = get_element( This );
 543     if ( !element )
 544         return E_FAIL;
 545
 546     V_BSTR(value) = NULL;
 547     V_VT(value) = VT_NULL;
 548
 549     xml_name = xmlChar_from_wchar( name );
 550
 551     if(!xmlValidateNameValue(xml_name))
 552         hr = E_FAIL;
 553     else
 554         xml_value = xmlGetNsProp(element, xml_name, NULL);
 555
 556     heap_free(xml_name);
 557     if(xml_value)
 558     {
 559         V_VT(value) = VT_BSTR;
 560         V_BSTR(value) = bstr_from_xmlChar( xml_value );
 561         xmlFree(xml_value);
 562         hr = S_OK;
 563     }
 564
 565     return hr;
 566 }
 567
 568 static HRESULT WINAPI domelem_setAttribute(
 569     IXMLDOMElement *iface,
 570     BSTR name, VARIANT value)
 571 {
 572     domelem *This = impl_from_IXMLDOMElement( iface );
 573     xmlNodePtr element;
 574     xmlChar *xml_name, *xml_value;
 575     HRESULT hr;
 576     VARIANT var;
 577
 578     TRACE("(%p)->(%s var)\n", This, debugstr_w(name));
 579
 580     element = get_element( This );
 581     if ( !element )
 582         return E_FAIL;
 583
 584     VariantInit(&var);
 585     hr = VariantChangeType(&var, &value, 0, VT_BSTR);
 586     if(hr != S_OK)
 587     {
 588         FIXME("VariantChangeType failed\n");
 589         return hr;
 590     }
 591
 592     xml_name = xmlChar_from_wchar( name );
 593     xml_value = xmlChar_from_wchar( V_BSTR(&var) );
 594
 595     if(!xmlSetNsProp(element, NULL,  xml_name, xml_value))
 596         hr = E_FAIL;
 597
 598     heap_free(xml_value);
 599     heap_free(xml_name);
 600     VariantClear(&var);
 601
 602     return hr;
 603 }
 604
 605 static HRESULT WINAPI domelem_removeAttribute(
 606     IXMLDOMElement *iface,
 607     BSTR p)
 608 {
 609     domelem *This = impl_from_IXMLDOMElement( iface );
 610     IXMLDOMNamedNodeMap *attr;
 611     HRESULT hr;
 612
 613     TRACE("(%p)->(%s)\n", This, debugstr_w(p));
 614
 615     hr = IXMLDOMElement_get_attributes(iface, &attr);
 616     if (hr != S_OK) return hr;
 617
 618     hr = IXMLDOMNamedNodeMap_removeNamedItem(attr, p, NULL);
 619     IXMLDOMNamedNodeMap_Release(attr);
 620
 621     return hr;
 622 }
 623
 624 static HRESULT WINAPI domelem_getAttributeNode(
 625     IXMLDOMElement *iface,
 626     BSTR p, IXMLDOMAttribute** attributeNode )
 627 {
 628     domelem *This = impl_from_IXMLDOMElement( iface );
 629     xmlChar *xml_name;
 630     xmlNodePtr element;
 631     xmlAttrPtr attr;
 632     IUnknown *unk;
 633     HRESULT hr = S_FALSE;
 634
 635     TRACE("(%p)->(%s %p)\n", This, debugstr_w(p), attributeNode);
 636
 637     if(!attributeNode)
 638         return E_FAIL;
 639
 640     *attributeNode = NULL;
 641
 642     element = get_element( This );
 643     if ( !element )
 644         return E_FAIL;
 645
 646     xml_name = xmlChar_from_wchar(p);
 647
 648     if(!xmlValidateNameValue(xml_name))
 649     {
 650         heap_free(xml_name);
 651         return E_FAIL;
 652     }
 653
 654     attr = xmlHasProp(element, xml_name);
 655     if(attr) {
 656         unk = create_attribute((xmlNodePtr)attr);
 657         hr = IUnknown_QueryInterface(unk, &IID_IXMLDOMAttribute, (void**)attributeNode);
 658         IUnknown_Release(unk);
 659     }
 660
 661     heap_free(xml_name);
 662
 663     return hr;
 664 }
 665
 666 static HRESULT WINAPI domelem_setAttributeNode(
 667     IXMLDOMElement *iface,
 668     IXMLDOMAttribute* domAttribute,
 669     IXMLDOMAttribute** attributeNode)
 670 {
 671     domelem *This = impl_from_IXMLDOMElement( iface );
 672
 673     FIXME("(%p)->(%p %p)\n", This, domAttribute, attributeNode);
 674
 675     if(!domAttribute) return E_INVALIDARG;
 676
 677     return E_NOTIMPL;
 678 }
 679
 680 static HRESULT WINAPI domelem_removeAttributeNode(
 681     IXMLDOMElement *iface,
 682     IXMLDOMAttribute* domAttribute,
 683     IXMLDOMAttribute** attributeNode)
 684 {
 685     domelem *This = impl_from_IXMLDOMElement( iface );
 686     FIXME("(%p)->(%p %p)\n", This, domAttribute, attributeNode);
 687     return E_NOTIMPL;
 688 }
 689
 690 static HRESULT WINAPI domelem_getElementsByTagName(
 691     IXMLDOMElement *iface,
 692     BSTR tagName, IXMLDOMNodeList** resultList)
 693 {
 694     domelem *This = impl_from_IXMLDOMElement( iface );
 695     xmlNodePtr element;
 696     HRESULT hr;
 697
 698     TRACE("(%p)->(%s %p)\n", This, debugstr_w(tagName), resultList);
 699
 700     if (!tagName || !resultList) return E_INVALIDARG;
 701     if (!(element = get_element(This))) return E_FAIL;
 702
 703     if (tagName[0] == '*' && tagName[1] == 0)
 704     {
 705         static const WCHAR formatallW[] = {'/','/','*',0};
 706         hr = queryresult_create(element, formatallW, resultList);
 707     }
 708     else
 709     {
 710         static const WCHAR xpathformat[] =
 711             { '/','/','*','[','l','o','c','a','l','-','n','a','m','e','(',')','=','\'' };
 712         static const WCHAR closeW[] = { '\'',']',0 };
 713
 714         LPWSTR pattern;
 715         WCHAR *ptr;
 716         INT length;
 717
 718         length = lstrlenW(tagName);
 719
 720         /* without two WCHARs from format specifier */
 721         ptr = pattern = heap_alloc(sizeof(xpathformat) + length*sizeof(WCHAR) + sizeof(closeW));
 722
 723         memcpy(ptr, xpathformat, sizeof(xpathformat));
 724         ptr += sizeof(xpathformat)/sizeof(WCHAR);
 725         memcpy(ptr, tagName, length*sizeof(WCHAR));
 726         ptr += length;
 727         memcpy(ptr, closeW, sizeof(closeW));
 728
 729         TRACE("%s\n", debugstr_w(pattern));
 730         hr = queryresult_create(element, pattern, resultList);
 731         heap_free(pattern);
 732     }
 733
 734     return hr;
 735 }
 736
 737 static HRESULT WINAPI domelem_normalize(
 738     IXMLDOMElement *iface )
 739 {
 740     domelem *This = impl_from_IXMLDOMElement( iface );
 741     FIXME("%p\n", This);
 742     return E_NOTIMPL;
 743 }
 744
 745 static const struct IXMLDOMElementVtbl domelem_vtbl =
 746 {
 747     domelem_QueryInterface,
 748     domelem_AddRef,
 749     domelem_Release,
 750     domelem_GetTypeInfoCount,
 751     domelem_GetTypeInfo,
 752     domelem_GetIDsOfNames,
 753     domelem_Invoke,
 754     domelem_get_nodeName,
 755     domelem_get_nodeValue,
 756     domelem_put_nodeValue,
 757     domelem_get_nodeType,
 758     domelem_get_parentNode,
 759     domelem_get_childNodes,
 760     domelem_get_firstChild,
 761     domelem_get_lastChild,
 762     domelem_get_previousSibling,
 763     domelem_get_nextSibling,
 764     domelem_get_attributes,
 765     domelem_insertBefore,
 766     domelem_replaceChild,
 767     domelem_removeChild,
 768     domelem_appendChild,
 769     domelem_hasChildNodes,
 770     domelem_get_ownerDocument,
 771     domelem_cloneNode,
 772     domelem_get_nodeTypeString,
 773     domelem_get_text,
 774     domelem_put_text,
 775     domelem_get_specified,
 776     domelem_get_definition,
 777     domelem_get_nodeTypedValue,
 778     domelem_put_nodeTypedValue,
 779     domelem_get_dataType,
 780     domelem_put_dataType,
 781     domelem_get_xml,
 782     domelem_transformNode,
 783     domelem_selectNodes,
 784     domelem_selectSingleNode,
 785     domelem_get_parsed,
 786     domelem_get_namespaceURI,
 787     domelem_get_prefix,
 788     domelem_get_baseName,
 789     domelem_transformNodeToObject,
 790     domelem_get_tagName,
 791     domelem_getAttribute,
 792     domelem_setAttribute,
 793     domelem_removeAttribute,
 794     domelem_getAttributeNode,
 795     domelem_setAttributeNode,
 796     domelem_removeAttributeNode,
 797     domelem_getElementsByTagName,
 798     domelem_normalize,
 799 };
 800
 801 static const tid_t domelem_iface_tids[] = {
 802     IXMLDOMElement_tid,
 803     0
 804 };
 805
 806 static dispex_static_data_t domelem_dispex = {
 807     NULL,
 808     IXMLDOMElement_tid,
 809     NULL,
 810     domelem_iface_tids
 811 };
 812
 813 IUnknown* create_element( xmlNodePtr element )
 814 {
 815     domelem *This;
 816
 817     This = heap_alloc( sizeof *This );
 818     if ( !This )
 819         return NULL;
 820
 821     This->lpVtbl = &domelem_vtbl;
 822     This->ref = 1;
 823
 824     init_xmlnode(&This->node, element, (IXMLDOMNode*)&This->lpVtbl, &domelem_dispex);
 825
 826     return (IUnknown*) &This->lpVtbl;
 827 }
 828
 829 #endif