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( const 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     TRACE("(%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
 257     TRACE("(%p)->(%p)\n", This, outList);
 258
 259     return node_get_child_nodes(&This->node, outList);
 260 }
 261
 262 static HRESULT WINAPI domelem_get_firstChild(
 263     IXMLDOMElement *iface,
 264     IXMLDOMNode** domNode)
 265 {
 266     domelem *This = impl_from_IXMLDOMElement( iface );
 267
 268     TRACE("(%p)->(%p)\n", This, domNode);
 269
 270     return node_get_first_child(&This->node, domNode);
 271 }
 272
 273 static HRESULT WINAPI domelem_get_lastChild(
 274     IXMLDOMElement *iface,
 275     IXMLDOMNode** domNode)
 276 {
 277     domelem *This = impl_from_IXMLDOMElement( iface );
 278
 279     TRACE("(%p)->(%p)\n", This, domNode);
 280
 281     return node_get_last_child(&This->node, domNode);
 282 }
 283
 284 static HRESULT WINAPI domelem_get_previousSibling(
 285     IXMLDOMElement *iface,
 286     IXMLDOMNode** domNode)
 287 {
 288     domelem *This = impl_from_IXMLDOMElement( iface );
 289
 290     TRACE("(%p)->(%p)\n", This, domNode);
 291
 292     return node_get_previous_sibling(&This->node, domNode);
 293 }
 294
 295 static HRESULT WINAPI domelem_get_nextSibling(
 296     IXMLDOMElement *iface,
 297     IXMLDOMNode** domNode)
 298 {
 299     domelem *This = impl_from_IXMLDOMElement( iface );
 300
 301     TRACE("(%p)->(%p)\n", This, domNode);
 302
 303     return node_get_next_sibling(&This->node, domNode);
 304 }
 305
 306 static HRESULT WINAPI domelem_get_attributes(
 307     IXMLDOMElement *iface,
 308     IXMLDOMNamedNodeMap** attributeMap)
 309 {
 310     domelem *This = impl_from_IXMLDOMElement( iface );
 311
 312     TRACE("(%p)->(%p)\n", This, attributeMap);
 313
 314     *attributeMap = create_nodemap((IXMLDOMNode*)&This->lpVtbl);
 315     return S_OK;
 316 }
 317
 318 static HRESULT WINAPI domelem_insertBefore(
 319     IXMLDOMElement *iface,
 320     IXMLDOMNode* newNode, VARIANT refChild,
 321     IXMLDOMNode** outOldNode)
 322 {
 323     domelem *This = impl_from_IXMLDOMElement( iface );
 324
 325     TRACE("(%p)->(%p x%d %p)\n", This, newNode, V_VT(&refChild), outOldNode);
 326
 327     return node_insert_before(&This->node, newNode, &refChild, outOldNode);
 328 }
 329
 330 static HRESULT WINAPI domelem_replaceChild(
 331     IXMLDOMElement *iface,
 332     IXMLDOMNode* newNode,
 333     IXMLDOMNode* oldNode,
 334     IXMLDOMNode** outOldNode)
 335 {
 336     domelem *This = impl_from_IXMLDOMElement( iface );
 337
 338     TRACE("(%p)->(%p %p %p)\n", This, newNode, oldNode, outOldNode);
 339
 340     return node_replace_child(&This->node, newNode, oldNode, outOldNode);
 341 }
 342
 343 static HRESULT WINAPI domelem_removeChild(
 344     IXMLDOMElement *iface,
 345     IXMLDOMNode* domNode, IXMLDOMNode** oldNode)
 346 {
 347     domelem *This = impl_from_IXMLDOMElement( iface );
 348     return IXMLDOMNode_removeChild( IXMLDOMNode_from_impl(&This->node), domNode, oldNode );
 349 }
 350
 351 static HRESULT WINAPI domelem_appendChild(
 352     IXMLDOMElement *iface,
 353     IXMLDOMNode* newNode, IXMLDOMNode** outNewNode)
 354 {
 355     domelem *This = impl_from_IXMLDOMElement( iface );
 356     return IXMLDOMNode_appendChild( IXMLDOMNode_from_impl(&This->node), newNode, outNewNode );
 357 }
 358
 359 static HRESULT WINAPI domelem_hasChildNodes(
 360     IXMLDOMElement *iface,
 361     VARIANT_BOOL* pbool)
 362 {
 363     domelem *This = impl_from_IXMLDOMElement( iface );
 364     return IXMLDOMNode_hasChildNodes( IXMLDOMNode_from_impl(&This->node), pbool );
 365 }
 366
 367 static HRESULT WINAPI domelem_get_ownerDocument(
 368     IXMLDOMElement *iface,
 369     IXMLDOMDocument** domDocument)
 370 {
 371     domelem *This = impl_from_IXMLDOMElement( iface );
 372     return IXMLDOMNode_get_ownerDocument( IXMLDOMNode_from_impl(&This->node), domDocument );
 373 }
 374
 375 static HRESULT WINAPI domelem_cloneNode(
 376     IXMLDOMElement *iface,
 377     VARIANT_BOOL deep, IXMLDOMNode** outNode)
 378 {
 379     domelem *This = impl_from_IXMLDOMElement( iface );
 380     TRACE("(%p)->(%d %p)\n", This, deep, outNode);
 381     return node_clone( &This->node, deep, outNode );
 382 }
 383
 384 static HRESULT WINAPI domelem_get_nodeTypeString(
 385     IXMLDOMElement *iface,
 386     BSTR* p)
 387 {
 388     domelem *This = impl_from_IXMLDOMElement( iface );
 389     static const WCHAR elementW[] = {'e','l','e','m','e','n','t',0};
 390
 391     TRACE("(%p)->(%p)\n", This, p);
 392
 393     return return_bstr(elementW, p);
 394 }
 395
 396 static HRESULT WINAPI domelem_get_text(
 397     IXMLDOMElement *iface,
 398     BSTR* p)
 399 {
 400     domelem *This = impl_from_IXMLDOMElement( iface );
 401     return IXMLDOMNode_get_text( IXMLDOMNode_from_impl(&This->node), p );
 402 }
 403
 404 static HRESULT WINAPI domelem_put_text(
 405     IXMLDOMElement *iface,
 406     BSTR p)
 407 {
 408     domelem *This = impl_from_IXMLDOMElement( iface );
 409     TRACE("(%p)->(%s)\n", This, debugstr_w(p));
 410     return node_put_text( &This->node, p );
 411 }
 412
 413 static HRESULT WINAPI domelem_get_specified(
 414     IXMLDOMElement *iface,
 415     VARIANT_BOOL* isSpecified)
 416 {
 417     domelem *This = impl_from_IXMLDOMElement( iface );
 418     FIXME("(%p)->(%p) stub!\n", This, isSpecified);
 419     *isSpecified = VARIANT_TRUE;
 420     return S_OK;
 421 }
 422
 423 static HRESULT WINAPI domelem_get_definition(
 424     IXMLDOMElement *iface,
 425     IXMLDOMNode** definitionNode)
 426 {
 427     domelem *This = impl_from_IXMLDOMElement( iface );
 428     FIXME("(%p)->(%p)\n", This, definitionNode);
 429     return E_NOTIMPL;
 430 }
 431
 432 static HRESULT WINAPI domelem_get_nodeTypedValue(
 433     IXMLDOMElement *iface,
 434     VARIANT* var1)
 435 {
 436     domelem *This = impl_from_IXMLDOMElement( iface );
 437     return IXMLDOMNode_get_nodeTypedValue( IXMLDOMNode_from_impl(&This->node), var1 );
 438 }
 439
 440 static HRESULT WINAPI domelem_put_nodeTypedValue(
 441     IXMLDOMElement *iface,
 442     VARIANT value)
 443 {
 444     domelem *This = impl_from_IXMLDOMElement( iface );
 445     VARIANT type;
 446     HRESULT hr;
 447
 448     TRACE("(%p)\n", This);
 449
 450     /* for untyped node coerce to BSTR and set */
 451     if (IXMLDOMElement_get_dataType(iface, &type) == S_FALSE)
 452     {
 453         if (V_VT(&value) != VT_BSTR)
 454         {
 455             hr = VariantChangeType(&value, &value, 0, VT_BSTR);
 456             if (hr == S_OK)
 457             {
 458                 hr = node_set_content(&This->node, V_BSTR(&value));
 459                 VariantClear(&value);
 460             }
 461         }
 462         else
 463             hr = node_set_content(&This->node, V_BSTR(&value));
 464     }
 465     else
 466     {
 467         FIXME("not implemented for typed nodes. type %s\n", debugstr_w(V_BSTR(&value)));
 468         VariantClear(&type);
 469         return E_NOTIMPL;
 470     }
 471
 472     return hr;
 473 }
 474
 475 static HRESULT WINAPI domelem_get_dataType(
 476     IXMLDOMElement *iface,
 477     VARIANT* typename)
 478 {
 479     domelem *This = impl_from_IXMLDOMElement( iface );
 480     xmlChar *pVal = xmlGetNsProp(get_element(This), (const xmlChar*)"dt",
 481                                  (const xmlChar*)"urn:schemas-microsoft-com:datatypes");
 482
 483     TRACE("(%p)->(%p)\n", This, typename);
 484
 485     V_VT(typename) = VT_NULL;
 486
 487     if (pVal)
 488     {
 489         V_VT(typename) = VT_BSTR;
 490         V_BSTR(typename) = bstr_from_xmlChar( pVal );
 491         xmlFree(pVal);
 492     }
 493
 494     return (V_VT(typename) != VT_NULL) ? S_OK : S_FALSE;
 495 }
 496
 497 static HRESULT WINAPI domelem_put_dataType(
 498     IXMLDOMElement *iface,
 499     BSTR p)
 500 {
 501     domelem *This = impl_from_IXMLDOMElement( iface );
 502     return IXMLDOMNode_put_dataType( IXMLDOMNode_from_impl(&This->node), p );
 503 }
 504
 505 static HRESULT WINAPI domelem_get_xml(
 506     IXMLDOMElement *iface,
 507     BSTR* p)
 508 {
 509     domelem *This = impl_from_IXMLDOMElement( iface );
 510
 511     TRACE("(%p)->(%p)\n", This, p);
 512
 513     return node_get_xml(&This->node, TRUE, FALSE, p);
 514 }
 515
 516 static HRESULT WINAPI domelem_transformNode(
 517     IXMLDOMElement *iface,
 518     IXMLDOMNode* domNode, BSTR* p)
 519 {
 520     domelem *This = impl_from_IXMLDOMElement( iface );
 521     return IXMLDOMNode_transformNode( IXMLDOMNode_from_impl(&This->node), domNode, p );
 522 }
 523
 524 static HRESULT WINAPI domelem_selectNodes(
 525     IXMLDOMElement *iface,
 526     BSTR p, IXMLDOMNodeList** outList)
 527 {
 528     domelem *This = impl_from_IXMLDOMElement( iface );
 529     return IXMLDOMNode_selectNodes( IXMLDOMNode_from_impl(&This->node), p, outList );
 530 }
 531
 532 static HRESULT WINAPI domelem_selectSingleNode(
 533     IXMLDOMElement *iface,
 534     BSTR p, IXMLDOMNode** outNode)
 535 {
 536     domelem *This = impl_from_IXMLDOMElement( iface );
 537     return IXMLDOMNode_selectSingleNode( IXMLDOMNode_from_impl(&This->node), p, outNode );
 538 }
 539
 540 static HRESULT WINAPI domelem_get_parsed(
 541     IXMLDOMElement *iface,
 542     VARIANT_BOOL* isParsed)
 543 {
 544     domelem *This = impl_from_IXMLDOMElement( iface );
 545     FIXME("(%p)->(%p) stub!\n", This, isParsed);
 546     *isParsed = VARIANT_TRUE;
 547     return S_OK;
 548 }
 549
 550 static HRESULT WINAPI domelem_get_namespaceURI(
 551     IXMLDOMElement *iface,
 552     BSTR* p)
 553 {
 554     domelem *This = impl_from_IXMLDOMElement( iface );
 555     return IXMLDOMNode_get_namespaceURI( IXMLDOMNode_from_impl(&This->node), p );
 556 }
 557
 558 static HRESULT WINAPI domelem_get_prefix(
 559     IXMLDOMElement *iface,
 560     BSTR* prefix)
 561 {
 562     domelem *This = impl_from_IXMLDOMElement( iface );
 563     TRACE("(%p)->(%p)\n", This, prefix);
 564     return node_get_prefix( &This->node, prefix );
 565 }
 566
 567 static HRESULT WINAPI domelem_get_baseName(
 568     IXMLDOMElement *iface,
 569     BSTR* name)
 570 {
 571     domelem *This = impl_from_IXMLDOMElement( iface );
 572     TRACE("(%p)->(%p)\n", This, name);
 573     return node_get_base_name( &This->node, name );
 574 }
 575
 576 static HRESULT WINAPI domelem_transformNodeToObject(
 577     IXMLDOMElement *iface,
 578     IXMLDOMNode* domNode, VARIANT var1)
 579 {
 580     domelem *This = impl_from_IXMLDOMElement( iface );
 581     return IXMLDOMNode_transformNodeToObject( IXMLDOMNode_from_impl(&This->node), domNode, var1 );
 582 }
 583
 584 static HRESULT WINAPI domelem_get_tagName(
 585     IXMLDOMElement *iface,
 586     BSTR* p)
 587 {
 588     domelem *This = impl_from_IXMLDOMElement( iface );
 589     xmlNodePtr element;
 590     const xmlChar *prefix;
 591     xmlChar *qname;
 592
 593     TRACE("(%p)->(%p)\n", This, p );
 594
 595     if (!p) return E_INVALIDARG;
 596
 597     element = get_element( This );
 598     if ( !element )
 599         return E_FAIL;
 600
 601     prefix = element->ns ? element->ns->prefix : NULL;
 602     qname = xmlBuildQName(element->name, prefix, NULL, 0);
 603
 604     *p = bstr_from_xmlChar(qname);
 605     if (qname != element->name) xmlFree(qname);
 606
 607     return *p ? S_OK : E_OUTOFMEMORY;
 608 }
 609
 610 static HRESULT WINAPI domelem_getAttribute(
 611     IXMLDOMElement *iface,
 612     BSTR name, VARIANT* value)
 613 {
 614     domelem *This = impl_from_IXMLDOMElement( iface );
 615     xmlNodePtr element;
 616     xmlChar *xml_name, *xml_value = NULL;
 617     HRESULT hr = S_FALSE;
 618
 619     TRACE("(%p)->(%s %p)\n", This, debugstr_w(name), value);
 620
 621     if(!value || !name)
 622         return E_INVALIDARG;
 623
 624     element = get_element( This );
 625     if ( !element )
 626         return E_FAIL;
 627
 628     V_BSTR(value) = NULL;
 629     V_VT(value) = VT_NULL;
 630
 631     xml_name = xmlChar_from_wchar( name );
 632
 633     if(!xmlValidateNameValue(xml_name))
 634         hr = E_FAIL;
 635     else
 636         xml_value = xmlGetNsProp(element, xml_name, NULL);
 637
 638     heap_free(xml_name);
 639     if(xml_value)
 640     {
 641         V_VT(value) = VT_BSTR;
 642         V_BSTR(value) = bstr_from_xmlChar( xml_value );
 643         xmlFree(xml_value);
 644         hr = S_OK;
 645     }
 646
 647     return hr;
 648 }
 649
 650 static HRESULT WINAPI domelem_setAttribute(
 651     IXMLDOMElement *iface,
 652     BSTR name, VARIANT value)
 653 {
 654     domelem *This = impl_from_IXMLDOMElement( iface );
 655     xmlNodePtr element;
 656     xmlChar *xml_name, *xml_value;
 657     HRESULT hr;
 658     VARIANT var;
 659
 660     TRACE("(%p)->(%s var)\n", This, debugstr_w(name));
 661
 662     element = get_element( This );
 663     if ( !element )
 664         return E_FAIL;
 665
 666     VariantInit(&var);
 667     hr = VariantChangeType(&var, &value, 0, VT_BSTR);
 668     if(hr != S_OK)
 669     {
 670         FIXME("VariantChangeType failed\n");
 671         return hr;
 672     }
 673
 674     xml_name = xmlChar_from_wchar( name );
 675     xml_value = xmlChar_from_wchar( V_BSTR(&var) );
 676
 677     if(!xmlSetNsProp(element, NULL,  xml_name, xml_value))
 678         hr = E_FAIL;
 679
 680     heap_free(xml_value);
 681     heap_free(xml_name);
 682     VariantClear(&var);
 683
 684     return hr;
 685 }
 686
 687 static HRESULT WINAPI domelem_removeAttribute(
 688     IXMLDOMElement *iface,
 689     BSTR p)
 690 {
 691     domelem *This = impl_from_IXMLDOMElement( iface );
 692     IXMLDOMNamedNodeMap *attr;
 693     HRESULT hr;
 694
 695     TRACE("(%p)->(%s)\n", This, debugstr_w(p));
 696
 697     hr = IXMLDOMElement_get_attributes(iface, &attr);
 698     if (hr != S_OK) return hr;
 699
 700     hr = IXMLDOMNamedNodeMap_removeNamedItem(attr, p, NULL);
 701     IXMLDOMNamedNodeMap_Release(attr);
 702
 703     return hr;
 704 }
 705
 706 static HRESULT WINAPI domelem_getAttributeNode(
 707     IXMLDOMElement *iface,
 708     BSTR p, IXMLDOMAttribute** attributeNode )
 709 {
 710     domelem *This = impl_from_IXMLDOMElement( iface );
 711     xmlChar *xml_name;
 712     xmlNodePtr element;
 713     xmlAttrPtr attr;
 714     IUnknown *unk;
 715     HRESULT hr = S_FALSE;
 716
 717     TRACE("(%p)->(%s %p)\n", This, debugstr_w(p), attributeNode);
 718
 719     if(!attributeNode)
 720         return E_FAIL;
 721
 722     *attributeNode = NULL;
 723
 724     element = get_element( This );
 725     if ( !element )
 726         return E_FAIL;
 727
 728     xml_name = xmlChar_from_wchar(p);
 729
 730     if(!xmlValidateNameValue(xml_name))
 731     {
 732         heap_free(xml_name);
 733         return E_FAIL;
 734     }
 735
 736     attr = xmlHasProp(element, xml_name);
 737     if(attr) {
 738         unk = create_attribute((xmlNodePtr)attr);
 739         hr = IUnknown_QueryInterface(unk, &IID_IXMLDOMAttribute, (void**)attributeNode);
 740         IUnknown_Release(unk);
 741     }
 742
 743     heap_free(xml_name);
 744
 745     return hr;
 746 }
 747
 748 static HRESULT WINAPI domelem_setAttributeNode(
 749     IXMLDOMElement *iface,
 750     IXMLDOMAttribute* attribute,
 751     IXMLDOMAttribute** old)
 752 {
 753     domelem *This = impl_from_IXMLDOMElement( iface );
 754     xmlChar *name, *value;
 755     BSTR nameW, prefix;
 756     xmlAttrPtr attr;
 757     VARIANT valueW;
 758     HRESULT hr;
 759
 760     FIXME("(%p)->(%p %p): semi-stub\n", This, attribute, old);
 761
 762     if (!attribute) return E_INVALIDARG;
 763
 764     if (old) *old = NULL;
 765
 766     hr = IXMLDOMAttribute_get_nodeName(attribute, &nameW);
 767     if (hr != S_OK) return hr;
 768
 769     hr = IXMLDOMAttribute_get_nodeValue(attribute, &valueW);
 770     if (hr != S_OK)
 771     {
 772         SysFreeString(nameW);
 773         return hr;
 774     }
 775
 776     TRACE("attribute: %s=%s\n", debugstr_w(nameW), debugstr_w(V_BSTR(&valueW)));
 777
 778     hr = IXMLDOMAttribute_get_prefix(attribute, &prefix);
 779     if (hr == S_OK)
 780     {
 781         FIXME("namespaces not supported: %s\n", debugstr_w(prefix));
 782         SysFreeString(prefix);
 783     }
 784
 785     name = xmlChar_from_wchar(nameW);
 786     value = xmlChar_from_wchar(V_BSTR(&valueW));
 787
 788     if (!name || !value)
 789     {
 790         SysFreeString(nameW);
 791         VariantClear(&valueW);
 792         heap_free(name);
 793         heap_free(value);
 794         return E_OUTOFMEMORY;
 795     }
 796
 797     attr = xmlSetNsProp(get_element(This), NULL, name, value);
 798
 799     SysFreeString(nameW);
 800     VariantClear(&valueW);
 801     heap_free(name);
 802     heap_free(value);
 803
 804     return attr ? S_OK : E_FAIL;
 805 }
 806
 807 static HRESULT WINAPI domelem_removeAttributeNode(
 808     IXMLDOMElement *iface,
 809     IXMLDOMAttribute* domAttribute,
 810     IXMLDOMAttribute** attributeNode)
 811 {
 812     domelem *This = impl_from_IXMLDOMElement( iface );
 813     FIXME("(%p)->(%p %p)\n", This, domAttribute, attributeNode);
 814     return E_NOTIMPL;
 815 }
 816
 817 static HRESULT WINAPI domelem_getElementsByTagName(
 818     IXMLDOMElement *iface,
 819     BSTR tagName, IXMLDOMNodeList** resultList)
 820 {
 821     domelem *This = impl_from_IXMLDOMElement( iface );
 822     xmlNodePtr element;
 823     HRESULT hr;
 824
 825     TRACE("(%p)->(%s %p)\n", This, debugstr_w(tagName), resultList);
 826
 827     if (!tagName || !resultList) return E_INVALIDARG;
 828     if (!(element = get_element(This))) return E_FAIL;
 829
 830     if (tagName[0] == '*' && tagName[1] == 0)
 831     {
 832         static const WCHAR formatallW[] = {'/','/','*',0};
 833         hr = queryresult_create(element, formatallW, resultList);
 834     }
 835     else
 836     {
 837         static const WCHAR xpathformat[] =
 838             { '/','/','*','[','l','o','c','a','l','-','n','a','m','e','(',')','=','\'' };
 839         static const WCHAR closeW[] = { '\'',']',0 };
 840
 841         LPWSTR pattern;
 842         WCHAR *ptr;
 843         INT length;
 844
 845         length = lstrlenW(tagName);
 846
 847         /* without two WCHARs from format specifier */
 848         ptr = pattern = heap_alloc(sizeof(xpathformat) + length*sizeof(WCHAR) + sizeof(closeW));
 849
 850         memcpy(ptr, xpathformat, sizeof(xpathformat));
 851         ptr += sizeof(xpathformat)/sizeof(WCHAR);
 852         memcpy(ptr, tagName, length*sizeof(WCHAR));
 853         ptr += length;
 854         memcpy(ptr, closeW, sizeof(closeW));
 855
 856         TRACE("%s\n", debugstr_w(pattern));
 857         hr = queryresult_create(element, pattern, resultList);
 858         heap_free(pattern);
 859     }
 860
 861     return hr;
 862 }
 863
 864 static HRESULT WINAPI domelem_normalize(
 865     IXMLDOMElement *iface )
 866 {
 867     domelem *This = impl_from_IXMLDOMElement( iface );
 868     FIXME("%p\n", This);
 869     return E_NOTIMPL;
 870 }
 871
 872 static const struct IXMLDOMElementVtbl domelem_vtbl =
 873 {
 874     domelem_QueryInterface,
 875     domelem_AddRef,
 876     domelem_Release,
 877     domelem_GetTypeInfoCount,
 878     domelem_GetTypeInfo,
 879     domelem_GetIDsOfNames,
 880     domelem_Invoke,
 881     domelem_get_nodeName,
 882     domelem_get_nodeValue,
 883     domelem_put_nodeValue,
 884     domelem_get_nodeType,
 885     domelem_get_parentNode,
 886     domelem_get_childNodes,
 887     domelem_get_firstChild,
 888     domelem_get_lastChild,
 889     domelem_get_previousSibling,
 890     domelem_get_nextSibling,
 891     domelem_get_attributes,
 892     domelem_insertBefore,
 893     domelem_replaceChild,
 894     domelem_removeChild,
 895     domelem_appendChild,
 896     domelem_hasChildNodes,
 897     domelem_get_ownerDocument,
 898     domelem_cloneNode,
 899     domelem_get_nodeTypeString,
 900     domelem_get_text,
 901     domelem_put_text,
 902     domelem_get_specified,
 903     domelem_get_definition,
 904     domelem_get_nodeTypedValue,
 905     domelem_put_nodeTypedValue,
 906     domelem_get_dataType,
 907     domelem_put_dataType,
 908     domelem_get_xml,
 909     domelem_transformNode,
 910     domelem_selectNodes,
 911     domelem_selectSingleNode,
 912     domelem_get_parsed,
 913     domelem_get_namespaceURI,
 914     domelem_get_prefix,
 915     domelem_get_baseName,
 916     domelem_transformNodeToObject,
 917     domelem_get_tagName,
 918     domelem_getAttribute,
 919     domelem_setAttribute,
 920     domelem_removeAttribute,
 921     domelem_getAttributeNode,
 922     domelem_setAttributeNode,
 923     domelem_removeAttributeNode,
 924     domelem_getElementsByTagName,
 925     domelem_normalize,
 926 };
 927
 928 static const tid_t domelem_iface_tids[] = {
 929     IXMLDOMElement_tid,
 930     0
 931 };
 932
 933 static dispex_static_data_t domelem_dispex = {
 934     NULL,
 935     IXMLDOMElement_tid,
 936     NULL,
 937     domelem_iface_tids
 938 };
 939
 940 IUnknown* create_element( xmlNodePtr element )
 941 {
 942     domelem *This;
 943
 944     This = heap_alloc( sizeof *This );
 945     if ( !This )
 946         return NULL;
 947
 948     This->lpVtbl = &domelem_vtbl;
 949     This->ref = 1;
 950
 951     init_xmlnode(&This->node, element, (IXMLDOMNode*)&This->lpVtbl, &domelem_dispex);
 952
 953     return (IUnknown*) &This->lpVtbl;
 954 }
 955
 956 #endif