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