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., 59 Temple Place, Suite 330, Boston, MA  02111-1307  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 "ole2.h"
  30 #include "msxml2.h"
  31
  32 #include "msxml_private.h"
  33
  34 #include "wine/debug.h"
  35
  36 WINE_DEFAULT_DEBUG_CHANNEL(msxml);
  37
  38 #ifdef HAVE_LIBXML2
  39
  40 typedef struct _domelem
  41 {
  42     const struct IXMLDOMElementVtbl *lpVtbl;
  43     LONG ref;
  44     IUnknown *node_unk;
  45     IXMLDOMNode *node;
  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 xmlNodePtr_from_domnode( This->node, XML_ELEMENT_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     TRACE("%p %s %p\n", This, debugstr_guid(riid), ppvObject);
  65
  66     if ( IsEqualGUID( riid, &IID_IXMLDOMElement ) ||
  67          IsEqualGUID( riid, &IID_IUnknown ) )
  68     {
  69         *ppvObject = iface;
  70     }
  71     else if ( IsEqualGUID( riid, &IID_IDispatch ) ||
  72               IsEqualGUID( riid, &IID_IXMLDOMNode ) )
  73     {
  74         return IUnknown_QueryInterface(This->node_unk, riid, ppvObject);
  75     }
  76     else
  77         return E_NOINTERFACE;
  78
  79     IXMLDOMElement_AddRef( iface );
  80
  81     return S_OK;
  82 }
  83
  84 static ULONG WINAPI domelem_AddRef(
  85     IXMLDOMElement *iface )
  86 {
  87     domelem *This = impl_from_IXMLDOMElement( iface );
  88     return InterlockedIncrement( &This->ref );
  89 }
  90
  91 static ULONG WINAPI domelem_Release(
  92     IXMLDOMElement *iface )
  93 {
  94     domelem *This = impl_from_IXMLDOMElement( iface );
  95     ULONG ref;
  96
  97     ref = InterlockedDecrement( &This->ref );
  98     if ( ref == 0 )
  99     {
 100         IUnknown_Release( This->node_unk );
 101         HeapFree( GetProcessHeap(), 0, This );
 102     }
 103
 104     return ref;
 105 }
 106
 107 static HRESULT WINAPI domelem_GetTypeInfoCount(
 108     IXMLDOMElement *iface,
 109     UINT* pctinfo )
 110 {
 111     FIXME("\n");
 112     return E_NOTIMPL;
 113 }
 114
 115 static HRESULT WINAPI domelem_GetTypeInfo(
 116     IXMLDOMElement *iface,
 117     UINT iTInfo, LCID lcid,
 118     ITypeInfo** ppTInfo )
 119 {
 120     FIXME("\n");
 121     return E_NOTIMPL;
 122 }
 123
 124 static HRESULT WINAPI domelem_GetIDsOfNames(
 125     IXMLDOMElement *iface,
 126     REFIID riid, LPOLESTR* rgszNames,
 127     UINT cNames, LCID lcid, DISPID* rgDispId )
 128 {
 129     FIXME("\n");
 130     return E_NOTIMPL;
 131 }
 132
 133 static HRESULT WINAPI domelem_Invoke(
 134     IXMLDOMElement *iface,
 135     DISPID dispIdMember, REFIID riid, LCID lcid,
 136     WORD wFlags, DISPPARAMS* pDispParams, VARIANT* pVarResult,
 137     EXCEPINFO* pExcepInfo, UINT* puArgErr )
 138 {
 139     FIXME("\n");
 140     return E_NOTIMPL;
 141 }
 142
 143 static HRESULT WINAPI domelem_get_nodeName(
 144     IXMLDOMElement *iface,
 145     BSTR* p )
 146 {
 147     domelem *This = impl_from_IXMLDOMElement( iface );
 148     return IXMLDOMNode_get_nodeName( This->node, p );
 149 }
 150
 151 static HRESULT WINAPI domelem_get_nodeValue(
 152     IXMLDOMElement *iface,
 153     VARIANT* var1 )
 154 {
 155     domelem *This = impl_from_IXMLDOMElement( iface );
 156     return IXMLDOMNode_get_nodeValue( This->node, var1 );
 157 }
 158
 159 static HRESULT WINAPI domelem_put_nodeValue(
 160     IXMLDOMElement *iface,
 161     VARIANT var1 )
 162 {
 163     domelem *This = impl_from_IXMLDOMElement( iface );
 164     return IXMLDOMNode_put_nodeValue( This->node, var1 );
 165 }
 166
 167 static HRESULT WINAPI domelem_get_nodeType(
 168     IXMLDOMElement *iface,
 169     DOMNodeType* domNodeType )
 170 {
 171     domelem *This = impl_from_IXMLDOMElement( iface );
 172     return IXMLDOMNode_get_nodeType( This->node, domNodeType );
 173 }
 174
 175 static HRESULT WINAPI domelem_get_parentNode(
 176     IXMLDOMElement *iface,
 177     IXMLDOMNode** parent )
 178 {
 179     domelem *This = impl_from_IXMLDOMElement( iface );
 180     return IXMLDOMNode_get_parentNode( This->node, parent );
 181 }
 182
 183 static HRESULT WINAPI domelem_get_childNodes(
 184     IXMLDOMElement *iface,
 185     IXMLDOMNodeList** outList)
 186 {
 187     domelem *This = impl_from_IXMLDOMElement( iface );
 188     return IXMLDOMNode_get_childNodes( This->node, outList );
 189 }
 190
 191 static HRESULT WINAPI domelem_get_firstChild(
 192     IXMLDOMElement *iface,
 193     IXMLDOMNode** domNode)
 194 {
 195     domelem *This = impl_from_IXMLDOMElement( iface );
 196     return IXMLDOMNode_get_firstChild( This->node, domNode );
 197 }
 198
 199 static HRESULT WINAPI domelem_get_lastChild(
 200     IXMLDOMElement *iface,
 201     IXMLDOMNode** domNode)
 202 {
 203     domelem *This = impl_from_IXMLDOMElement( iface );
 204     return IXMLDOMNode_get_lastChild( This->node, domNode );
 205 }
 206
 207 static HRESULT WINAPI domelem_get_previousSibling(
 208     IXMLDOMElement *iface,
 209     IXMLDOMNode** domNode)
 210 {
 211     domelem *This = impl_from_IXMLDOMElement( iface );
 212     return IXMLDOMNode_get_previousSibling( This->node, domNode );
 213 }
 214
 215 static HRESULT WINAPI domelem_get_nextSibling(
 216     IXMLDOMElement *iface,
 217     IXMLDOMNode** domNode)
 218 {
 219     domelem *This = impl_from_IXMLDOMElement( iface );
 220     return IXMLDOMNode_get_nextSibling( This->node, domNode );
 221 }
 222
 223 static HRESULT WINAPI domelem_get_attributes(
 224     IXMLDOMElement *iface,
 225     IXMLDOMNamedNodeMap** attributeMap)
 226 {
 227     domelem *This = impl_from_IXMLDOMElement( iface );
 228     return IXMLDOMNode_get_attributes( This->node, attributeMap );
 229 }
 230
 231 static HRESULT WINAPI domelem_insertBefore(
 232     IXMLDOMElement *iface,
 233     IXMLDOMNode* newNode, VARIANT var1,
 234     IXMLDOMNode** outOldNode)
 235 {
 236     domelem *This = impl_from_IXMLDOMElement( iface );
 237     return IXMLDOMNode_insertBefore( This->node, newNode, var1, outOldNode );
 238 }
 239
 240 static HRESULT WINAPI domelem_replaceChild(
 241     IXMLDOMElement *iface,
 242     IXMLDOMNode* newNode,
 243     IXMLDOMNode* oldNode,
 244     IXMLDOMNode** outOldNode)
 245 {
 246     domelem *This = impl_from_IXMLDOMElement( iface );
 247     return IXMLDOMNode_replaceChild( This->node, newNode, oldNode, outOldNode );
 248 }
 249
 250 static HRESULT WINAPI domelem_removeChild(
 251     IXMLDOMElement *iface,
 252     IXMLDOMNode* domNode, IXMLDOMNode** oldNode)
 253 {
 254     domelem *This = impl_from_IXMLDOMElement( iface );
 255     return IXMLDOMNode_removeChild( This->node, domNode, oldNode );
 256 }
 257
 258 static HRESULT WINAPI domelem_appendChild(
 259     IXMLDOMElement *iface,
 260     IXMLDOMNode* newNode, IXMLDOMNode** outNewNode)
 261 {
 262     domelem *This = impl_from_IXMLDOMElement( iface );
 263     return IXMLDOMNode_appendChild( This->node, newNode, outNewNode );
 264 }
 265
 266 static HRESULT WINAPI domelem_hasChildNodes(
 267     IXMLDOMElement *iface,
 268     VARIANT_BOOL* pbool)
 269 {
 270     domelem *This = impl_from_IXMLDOMElement( iface );
 271     return IXMLDOMNode_hasChildNodes( This->node, pbool );
 272 }
 273
 274 static HRESULT WINAPI domelem_get_ownerDocument(
 275     IXMLDOMElement *iface,
 276     IXMLDOMDocument** domDocument)
 277 {
 278     domelem *This = impl_from_IXMLDOMElement( iface );
 279     return IXMLDOMNode_get_ownerDocument( This->node, domDocument );
 280 }
 281
 282 static HRESULT WINAPI domelem_cloneNode(
 283     IXMLDOMElement *iface,
 284     VARIANT_BOOL pbool, IXMLDOMNode** outNode)
 285 {
 286     domelem *This = impl_from_IXMLDOMElement( iface );
 287     return IXMLDOMNode_cloneNode( This->node, pbool, outNode );
 288 }
 289
 290 static HRESULT WINAPI domelem_get_nodeTypeString(
 291     IXMLDOMElement *iface,
 292     BSTR* p)
 293 {
 294     domelem *This = impl_from_IXMLDOMElement( iface );
 295     return IXMLDOMNode_get_nodeTypeString( This->node, p );
 296 }
 297
 298 static HRESULT WINAPI domelem_get_text(
 299     IXMLDOMElement *iface,
 300     BSTR* p)
 301 {
 302     domelem *This = impl_from_IXMLDOMElement( iface );
 303     return IXMLDOMNode_get_text( This->node, p );
 304 }
 305
 306 static HRESULT WINAPI domelem_put_text(
 307     IXMLDOMElement *iface,
 308     BSTR p)
 309 {
 310     domelem *This = impl_from_IXMLDOMElement( iface );
 311     return IXMLDOMNode_put_text( This->node, p );
 312 }
 313
 314 static HRESULT WINAPI domelem_get_specified(
 315     IXMLDOMElement *iface,
 316     VARIANT_BOOL* pbool)
 317 {
 318     domelem *This = impl_from_IXMLDOMElement( iface );
 319     return IXMLDOMNode_get_specified( This->node, pbool );
 320 }
 321
 322 static HRESULT WINAPI domelem_get_definition(
 323     IXMLDOMElement *iface,
 324     IXMLDOMNode** domNode)
 325 {
 326     domelem *This = impl_from_IXMLDOMElement( iface );
 327     return IXMLDOMNode_get_definition( This->node, domNode );
 328 }
 329
 330 static HRESULT WINAPI domelem_get_nodeTypedValue(
 331     IXMLDOMElement *iface,
 332     VARIANT* var1)
 333 {
 334     domelem *This = impl_from_IXMLDOMElement( iface );
 335     return IXMLDOMNode_get_nodeTypedValue( This->node, var1 );
 336 }
 337
 338 static HRESULT WINAPI domelem_put_nodeTypedValue(
 339     IXMLDOMElement *iface,
 340     VARIANT var1)
 341 {
 342     domelem *This = impl_from_IXMLDOMElement( iface );
 343     return IXMLDOMNode_put_nodeTypedValue( This->node, var1 );
 344 }
 345
 346 static HRESULT WINAPI domelem_get_dataType(
 347     IXMLDOMElement *iface,
 348     VARIANT* var1)
 349 {
 350     domelem *This = impl_from_IXMLDOMElement( iface );
 351     return IXMLDOMNode_get_dataType( This->node, var1 );
 352 }
 353
 354 static HRESULT WINAPI domelem_put_dataType(
 355     IXMLDOMElement *iface,
 356     BSTR p)
 357 {
 358     domelem *This = impl_from_IXMLDOMElement( iface );
 359     return IXMLDOMNode_put_dataType( This->node, p );
 360 }
 361
 362 static HRESULT WINAPI domelem_get_xml(
 363     IXMLDOMElement *iface,
 364     BSTR* p)
 365 {
 366     domelem *This = impl_from_IXMLDOMElement( iface );
 367     return IXMLDOMNode_get_xml( This->node, p );
 368 }
 369
 370 static HRESULT WINAPI domelem_transformNode(
 371     IXMLDOMElement *iface,
 372     IXMLDOMNode* domNode, BSTR* p)
 373 {
 374     domelem *This = impl_from_IXMLDOMElement( iface );
 375     return IXMLDOMNode_transformNode( This->node, domNode, p );
 376 }
 377
 378 static HRESULT WINAPI domelem_selectNodes(
 379     IXMLDOMElement *iface,
 380     BSTR p, IXMLDOMNodeList** outList)
 381 {
 382     domelem *This = impl_from_IXMLDOMElement( iface );
 383     return IXMLDOMNode_selectNodes( This->node, p, outList );
 384 }
 385
 386 static HRESULT WINAPI domelem_selectSingleNode(
 387     IXMLDOMElement *iface,
 388     BSTR p, IXMLDOMNode** outNode)
 389 {
 390     domelem *This = impl_from_IXMLDOMElement( iface );
 391     return IXMLDOMNode_selectSingleNode( This->node, p, outNode );
 392 }
 393
 394 static HRESULT WINAPI domelem_get_parsed(
 395     IXMLDOMElement *iface,
 396     VARIANT_BOOL* pbool)
 397 {
 398     domelem *This = impl_from_IXMLDOMElement( iface );
 399     return IXMLDOMNode_get_parsed( This->node, pbool );
 400 }
 401
 402 static HRESULT WINAPI domelem_get_namespaceURI(
 403     IXMLDOMElement *iface,
 404     BSTR* p)
 405 {
 406     domelem *This = impl_from_IXMLDOMElement( iface );
 407     return IXMLDOMNode_get_namespaceURI( This->node, p );
 408 }
 409
 410 static HRESULT WINAPI domelem_get_prefix(
 411     IXMLDOMElement *iface,
 412     BSTR* p)
 413 {
 414     domelem *This = impl_from_IXMLDOMElement( iface );
 415     return IXMLDOMNode_get_prefix( This->node, p );
 416 }
 417
 418 static HRESULT WINAPI domelem_get_baseName(
 419     IXMLDOMElement *iface,
 420     BSTR* p)
 421 {
 422     domelem *This = impl_from_IXMLDOMElement( iface );
 423     return IXMLDOMNode_get_baseName( This->node, p );
 424 }
 425
 426 static HRESULT WINAPI domelem_transformNodeToObject(
 427     IXMLDOMElement *iface,
 428     IXMLDOMNode* domNode, VARIANT var1)
 429 {
 430     domelem *This = impl_from_IXMLDOMElement( iface );
 431     return IXMLDOMNode_transformNodeToObject( This->node, domNode, var1 );
 432 }
 433
 434 static HRESULT WINAPI domelem_get_tagName(
 435     IXMLDOMElement *iface,
 436     BSTR* p)
 437 {
 438     domelem *This = impl_from_IXMLDOMElement( iface );
 439     xmlNodePtr element;
 440
 441     TRACE("%p\n", This );
 442
 443     if ( !This->node )
 444         return E_FAIL;
 445
 446     element = get_element( This );
 447     if ( !element )
 448         return E_FAIL;
 449
 450     *p = bstr_from_xmlChar( element->name );
 451
 452     return S_OK;
 453 }
 454
 455 static HRESULT WINAPI domelem_getAttribute(
 456     IXMLDOMElement *iface,
 457     BSTR name, VARIANT* value)
 458 {
 459     domelem *This = impl_from_IXMLDOMElement( iface );
 460     xmlNodePtr element;
 461     xmlChar *xml_name, *xml_value;
 462     HRESULT hr = E_FAIL;
 463
 464     TRACE("(%p)->(%s,%p)\n", This, debugstr_w(name), value);
 465
 466     element = get_element( This );
 467     if ( !element )
 468         return E_FAIL;
 469
 470     VariantInit(value);
 471     xml_name = xmlChar_from_wchar( name );
 472     xml_value = xmlGetNsProp(element, xml_name, NULL);
 473     HeapFree(GetProcessHeap(), 0, xml_name);
 474     if(xml_value)
 475     {
 476         V_VT(value) = VT_BSTR;
 477         V_BSTR(value) = bstr_from_xmlChar( xml_value );
 478         xmlFree(xml_value);
 479         hr = S_OK;
 480     }
 481
 482     return hr;
 483 }
 484
 485 static HRESULT WINAPI domelem_setAttribute(
 486     IXMLDOMElement *iface,
 487     BSTR name, VARIANT value)
 488 {
 489     domelem *This = impl_from_IXMLDOMElement( iface );
 490     xmlNodePtr element;
 491     xmlChar *xml_name, *xml_value;
 492     HRESULT hr;
 493     VARIANT var;
 494
 495     TRACE("(%p)->(%s, var)\n", This, debugstr_w(name));
 496
 497     element = get_element( This );
 498     if ( !element )
 499         return E_FAIL;
 500
 501     VariantInit(&var);
 502     hr = VariantChangeType(&var, &value, 0, VT_BSTR);
 503     if(hr != S_OK)
 504     {
 505         FIXME("VariantChangeType failed\n");
 506         return hr;
 507     }
 508
 509     xml_name = xmlChar_from_wchar( name );
 510     xml_value = xmlChar_from_wchar( V_BSTR(&var) );
 511
 512     if(!xmlSetNsProp(element, NULL,  xml_name, xml_value))
 513         hr = E_FAIL;
 514
 515     HeapFree(GetProcessHeap(), 0, xml_value);
 516     HeapFree(GetProcessHeap(), 0, xml_name);
 517     VariantClear(&var);
 518
 519     return hr;
 520 }
 521
 522 static HRESULT WINAPI domelem_removeAttribute(
 523     IXMLDOMElement *iface,
 524     BSTR p)
 525 {
 526     FIXME("\n");
 527     return E_NOTIMPL;
 528 }
 529
 530 static HRESULT WINAPI domelem_getAttributeNode(
 531     IXMLDOMElement *iface,
 532     BSTR p, IXMLDOMAttribute** attributeNode )
 533 {
 534     FIXME("\n");
 535     return E_NOTIMPL;
 536 }
 537
 538 static HRESULT WINAPI domelem_setAttributeNode(
 539     IXMLDOMElement *iface,
 540     IXMLDOMAttribute* domAttribute,
 541     IXMLDOMAttribute** attributeNode)
 542 {
 543     FIXME("\n");
 544     return E_NOTIMPL;
 545 }
 546
 547 static HRESULT WINAPI domelem_removeAttributeNode(
 548     IXMLDOMElement *iface,
 549     IXMLDOMAttribute* domAttribute,
 550     IXMLDOMAttribute** attributeNode)
 551 {
 552     FIXME("\n");
 553     return E_NOTIMPL;
 554 }
 555
 556 static HRESULT WINAPI domelem_getElementsByTagName(
 557     IXMLDOMElement *iface,
 558     BSTR p, IXMLDOMNodeList** resultList)
 559 {
 560     FIXME("\n");
 561     return E_NOTIMPL;
 562 }
 563
 564 static HRESULT WINAPI domelem_normalize(
 565     IXMLDOMElement *iface )
 566 {
 567     FIXME("\n");
 568     return E_NOTIMPL;
 569 }
 570
 571 static const struct IXMLDOMElementVtbl domelem_vtbl =
 572 {
 573     domelem_QueryInterface,
 574     domelem_AddRef,
 575     domelem_Release,
 576     domelem_GetTypeInfoCount,
 577     domelem_GetTypeInfo,
 578     domelem_GetIDsOfNames,
 579     domelem_Invoke,
 580     domelem_get_nodeName,
 581     domelem_get_nodeValue,
 582     domelem_put_nodeValue,
 583     domelem_get_nodeType,
 584     domelem_get_parentNode,
 585     domelem_get_childNodes,
 586     domelem_get_firstChild,
 587     domelem_get_lastChild,
 588     domelem_get_previousSibling,
 589     domelem_get_nextSibling,
 590     domelem_get_attributes,
 591     domelem_insertBefore,
 592     domelem_replaceChild,
 593     domelem_removeChild,
 594     domelem_appendChild,
 595     domelem_hasChildNodes,
 596     domelem_get_ownerDocument,
 597     domelem_cloneNode,
 598     domelem_get_nodeTypeString,
 599     domelem_get_text,
 600     domelem_put_text,
 601     domelem_get_specified,
 602     domelem_get_definition,
 603     domelem_get_nodeTypedValue,
 604     domelem_put_nodeTypedValue,
 605     domelem_get_dataType,
 606     domelem_put_dataType,
 607     domelem_get_xml,
 608     domelem_transformNode,
 609     domelem_selectNodes,
 610     domelem_selectSingleNode,
 611     domelem_get_parsed,
 612     domelem_get_namespaceURI,
 613     domelem_get_prefix,
 614     domelem_get_baseName,
 615     domelem_transformNodeToObject,
 616     domelem_get_tagName,
 617     domelem_getAttribute,
 618     domelem_setAttribute,
 619     domelem_removeAttribute,
 620     domelem_getAttributeNode,
 621     domelem_setAttributeNode,
 622     domelem_removeAttributeNode,
 623     domelem_getElementsByTagName,
 624     domelem_normalize,
 625 };
 626
 627 IUnknown* create_element( xmlNodePtr element )
 628 {
 629     domelem *This;
 630     HRESULT hr;
 631
 632     This = HeapAlloc( GetProcessHeap(), 0, sizeof *This );
 633     if ( !This )
 634         return NULL;
 635
 636     This->lpVtbl = &domelem_vtbl;
 637     This->ref = 1;
 638
 639     This->node_unk = create_basic_node( element, (IUnknown*)&This->lpVtbl );
 640     if(!This->node_unk)
 641     {
 642         HeapFree(GetProcessHeap(), 0, This);
 643         return NULL;
 644     }
 645
 646     hr = IUnknown_QueryInterface(This->node_unk, &IID_IXMLDOMNode, (LPVOID*)&This->node);
 647     if(FAILED(hr))
 648     {
 649         IUnknown_Release(This->node_unk);
 650         HeapFree( GetProcessHeap(), 0, This );
 651         return NULL;
 652     }
 653     /* The ref on This->node is actually looped back into this object, so release it */
 654     IXMLDOMNode_Release(This->node);
 655
 656     return (IUnknown*) &This->lpVtbl;
 657 }
 658
 659 #endif