dlls/msxml3/text.c

   1 /*
   2  *    DOM text node implementation
   3  *
   4  * Copyright 2006 Huw Davies
   5  * Copyright 2007-2008 Alistair Leslie-Hughes
   6  *
   7  * This library is free software; you can redistribute it and/or
   8  * modify it under the terms of the GNU Lesser General Public
   9  * License as published by the Free Software Foundation; either
  10  * version 2.1 of the License, or (at your option) any later version.
  11  *
  12  * This library is distributed in the hope that it will be useful,
  13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  15  * Lesser General Public License for more details.
  16  *
  17  * You should have received a copy of the GNU Lesser General Public
  18  * License along with this library; if not, write to the Free Software
  19  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  20  */
  21
  22 #define COBJMACROS
  23
  24 #include "config.h"
  25
  26 #include <stdarg.h>
  27 #ifdef HAVE_LIBXML2
  28 # include <libxml/parser.h>
  29 # include <libxml/xmlerror.h>
  30 #endif
  31
  32 #include "windef.h"
  33 #include "winbase.h"
  34 #include "winuser.h"
  35 #include "ole2.h"
  36 #include "msxml6.h"
  37
  38 #include "msxml_private.h"
  39
  40 #include "wine/debug.h"
  41
  42 WINE_DEFAULT_DEBUG_CHANNEL(msxml);
  43
  44 #ifdef HAVE_LIBXML2
  45
  46 typedef struct _domtext
  47 {
  48     xmlnode node;
  49     IXMLDOMText IXMLDOMText_iface;
  50     LONG ref;
  51 } domtext;
  52
  53 static inline domtext *impl_from_IXMLDOMText( IXMLDOMText *iface )
  54 {
  55     return CONTAINING_RECORD(iface, domtext, IXMLDOMText_iface);
  56 }
  57
  58 static HRESULT WINAPI domtext_QueryInterface(
  59     IXMLDOMText *iface,
  60     REFIID riid,
  61     void** ppvObject )
  62 {
  63     domtext *This = impl_from_IXMLDOMText( iface );
  64     TRACE("(%p)->(%s %p)\n", This, debugstr_guid(riid), ppvObject);
  65
  66     if ( IsEqualGUID( riid, &IID_IXMLDOMText ) ||
  67          IsEqualGUID( riid, &IID_IXMLDOMCharacterData) ||
  68          IsEqualGUID( riid, &IID_IXMLDOMNode ) ||
  69          IsEqualGUID( riid, &IID_IDispatch ) ||
  70          IsEqualGUID( riid, &IID_IUnknown ) )
  71     {
  72         *ppvObject = iface;
  73     }
  74     else if(node_query_interface(&This->node, riid, ppvObject))
  75     {
  76         return *ppvObject ? S_OK : E_NOINTERFACE;
  77     }
  78     else
  79     {
  80         TRACE("Unsupported interface %s\n", debugstr_guid(riid));
  81         *ppvObject = NULL;
  82         return E_NOINTERFACE;
  83     }
  84
  85     IXMLDOMText_AddRef((IUnknown*)*ppvObject);
  86     return S_OK;
  87 }
  88
  89 static ULONG WINAPI domtext_AddRef(
  90     IXMLDOMText *iface )
  91 {
  92     domtext *This = impl_from_IXMLDOMText( iface );
  93     ULONG ref = InterlockedIncrement( &This->ref );
  94     TRACE("(%p)->(%d)\n", This, ref);
  95     return ref;
  96 }
  97
  98 static ULONG WINAPI domtext_Release(
  99     IXMLDOMText *iface )
 100 {
 101     domtext *This = impl_from_IXMLDOMText( iface );
 102     ULONG ref = InterlockedDecrement( &This->ref );
 103
 104     TRACE("(%p)->(%d)\n", This, ref);
 105     if ( ref == 0 )
 106     {
 107         destroy_xmlnode(&This->node);
 108         heap_free( This );
 109     }
 110
 111     return ref;
 112 }
 113
 114 static HRESULT WINAPI domtext_GetTypeInfoCount(
 115     IXMLDOMText *iface,
 116     UINT* pctinfo )
 117 {
 118     domtext *This = impl_from_IXMLDOMText( iface );
 119     return IDispatchEx_GetTypeInfoCount(&This->node.dispex.IDispatchEx_iface, pctinfo);
 120 }
 121
 122 static HRESULT WINAPI domtext_GetTypeInfo(
 123     IXMLDOMText *iface,
 124     UINT iTInfo, LCID lcid,
 125     ITypeInfo** ppTInfo )
 126 {
 127     domtext *This = impl_from_IXMLDOMText( iface );
 128     return IDispatchEx_GetTypeInfo(&This->node.dispex.IDispatchEx_iface,
 129         iTInfo, lcid, ppTInfo);
 130 }
 131
 132 static HRESULT WINAPI domtext_GetIDsOfNames(
 133     IXMLDOMText *iface,
 134     REFIID riid, LPOLESTR* rgszNames,
 135     UINT cNames, LCID lcid, DISPID* rgDispId )
 136 {
 137     domtext *This = impl_from_IXMLDOMText( iface );
 138     return IDispatchEx_GetIDsOfNames(&This->node.dispex.IDispatchEx_iface,
 139         riid, rgszNames, cNames, lcid, rgDispId);
 140 }
 141
 142 static HRESULT WINAPI domtext_Invoke(
 143     IXMLDOMText *iface,
 144     DISPID dispIdMember, REFIID riid, LCID lcid,
 145     WORD wFlags, DISPPARAMS* pDispParams, VARIANT* pVarResult,
 146     EXCEPINFO* pExcepInfo, UINT* puArgErr )
 147 {
 148     domtext *This = impl_from_IXMLDOMText( iface );
 149     return IDispatchEx_Invoke(&This->node.dispex.IDispatchEx_iface,
 150         dispIdMember, riid, lcid, wFlags, pDispParams, pVarResult, pExcepInfo, puArgErr);
 151 }
 152
 153 static HRESULT WINAPI domtext_get_nodeName(
 154     IXMLDOMText *iface,
 155     BSTR* p )
 156 {
 157     domtext *This = impl_from_IXMLDOMText( iface );
 158
 159     static const WCHAR textW[] = {'#','t','e','x','t',0};
 160
 161     TRACE("(%p)->(%p)\n", This, p);
 162
 163     return return_bstr(textW, p);
 164 }
 165
 166 static HRESULT WINAPI domtext_get_nodeValue(
 167     IXMLDOMText *iface,
 168     VARIANT* value )
 169 {
 170     domtext *This = impl_from_IXMLDOMText( iface );
 171
 172     TRACE("(%p)->(%p)\n", This, value);
 173
 174     return node_get_content(&This->node, value);
 175 }
 176
 177 static HRESULT WINAPI domtext_put_nodeValue(
 178     IXMLDOMText *iface,
 179     VARIANT value)
 180 {
 181     domtext *This = impl_from_IXMLDOMText( iface );
 182
 183     TRACE("(%p)->(%s)\n", This, debugstr_variant(&value));
 184
 185     return node_put_value(&This->node, &value);
 186 }
 187
 188 static HRESULT WINAPI domtext_get_nodeType(
 189     IXMLDOMText *iface,
 190     DOMNodeType* domNodeType )
 191 {
 192     domtext *This = impl_from_IXMLDOMText( iface );
 193
 194     TRACE("(%p)->(%p)\n", This, domNodeType);
 195
 196     *domNodeType = NODE_TEXT;
 197     return S_OK;
 198 }
 199
 200 static HRESULT WINAPI domtext_get_parentNode(
 201     IXMLDOMText *iface,
 202     IXMLDOMNode** parent )
 203 {
 204     domtext *This = impl_from_IXMLDOMText( iface );
 205
 206     TRACE("(%p)->(%p)\n", This, parent);
 207
 208     return node_get_parent(&This->node, parent);
 209 }
 210
 211 static HRESULT WINAPI domtext_get_childNodes(
 212     IXMLDOMText *iface,
 213     IXMLDOMNodeList** outList)
 214 {
 215     domtext *This = impl_from_IXMLDOMText( iface );
 216
 217     TRACE("(%p)->(%p)\n", This, outList);
 218
 219     return node_get_child_nodes(&This->node, outList);
 220 }
 221
 222 static HRESULT WINAPI domtext_get_firstChild(
 223     IXMLDOMText *iface,
 224     IXMLDOMNode** domNode)
 225 {
 226     domtext *This = impl_from_IXMLDOMText( iface );
 227
 228     TRACE("(%p)->(%p)\n", This, domNode);
 229
 230     return return_null_node(domNode);
 231 }
 232
 233 static HRESULT WINAPI domtext_get_lastChild(
 234     IXMLDOMText *iface,
 235     IXMLDOMNode** domNode)
 236 {
 237     domtext *This = impl_from_IXMLDOMText( iface );
 238
 239     TRACE("(%p)->(%p)\n", This, domNode);
 240
 241     return return_null_node(domNode);
 242 }
 243
 244 static HRESULT WINAPI domtext_get_previousSibling(
 245     IXMLDOMText *iface,
 246     IXMLDOMNode** domNode)
 247 {
 248     domtext *This = impl_from_IXMLDOMText( iface );
 249
 250     TRACE("(%p)->(%p)\n", This, domNode);
 251
 252     return node_get_previous_sibling(&This->node, domNode);
 253 }
 254
 255 static HRESULT WINAPI domtext_get_nextSibling(
 256     IXMLDOMText *iface,
 257     IXMLDOMNode** domNode)
 258 {
 259     domtext *This = impl_from_IXMLDOMText( iface );
 260
 261     TRACE("(%p)->(%p)\n", This, domNode);
 262
 263     return node_get_next_sibling(&This->node, domNode);
 264 }
 265
 266 static HRESULT WINAPI domtext_get_attributes(
 267     IXMLDOMText *iface,
 268     IXMLDOMNamedNodeMap** attributeMap)
 269 {
 270     domtext *This = impl_from_IXMLDOMText( iface );
 271
 272     TRACE("(%p)->(%p)\n", This, attributeMap);
 273
 274     return return_null_ptr((void**)attributeMap);
 275 }
 276
 277 static HRESULT WINAPI domtext_insertBefore(
 278     IXMLDOMText *iface,
 279     IXMLDOMNode* newNode, VARIANT refChild,
 280     IXMLDOMNode** outOldNode)
 281 {
 282     domtext *This = impl_from_IXMLDOMText( iface );
 283
 284     FIXME("(%p)->(%p %s %p) needs test\n", This, newNode, debugstr_variant(&refChild), outOldNode);
 285
 286     return node_insert_before(&This->node, newNode, &refChild, outOldNode);
 287 }
 288
 289 static HRESULT WINAPI domtext_replaceChild(
 290     IXMLDOMText *iface,
 291     IXMLDOMNode* newNode,
 292     IXMLDOMNode* oldNode,
 293     IXMLDOMNode** outOldNode)
 294 {
 295     domtext *This = impl_from_IXMLDOMText( iface );
 296
 297     FIXME("(%p)->(%p %p %p) needs test\n", This, newNode, oldNode, outOldNode);
 298
 299     return node_replace_child(&This->node, newNode, oldNode, outOldNode);
 300 }
 301
 302 static HRESULT WINAPI domtext_removeChild(
 303     IXMLDOMText *iface,
 304     IXMLDOMNode *child, IXMLDOMNode **oldChild)
 305 {
 306     domtext *This = impl_from_IXMLDOMText( iface );
 307     TRACE("(%p)->(%p %p)\n", This, child, oldChild);
 308     return node_remove_child(&This->node, child, oldChild);
 309 }
 310
 311 static HRESULT WINAPI domtext_appendChild(
 312     IXMLDOMText *iface,
 313     IXMLDOMNode *child, IXMLDOMNode **outChild)
 314 {
 315     domtext *This = impl_from_IXMLDOMText( iface );
 316     TRACE("(%p)->(%p %p)\n", This, child, outChild);
 317     return node_append_child(&This->node, child, outChild);
 318 }
 319
 320 static HRESULT WINAPI domtext_hasChildNodes(
 321     IXMLDOMText *iface,
 322     VARIANT_BOOL *ret)
 323 {
 324     domtext *This = impl_from_IXMLDOMText( iface );
 325     TRACE("(%p)->(%p)\n", This, ret);
 326     return node_has_childnodes(&This->node, ret);
 327 }
 328
 329 static HRESULT WINAPI domtext_get_ownerDocument(
 330     IXMLDOMText *iface,
 331     IXMLDOMDocument **doc)
 332 {
 333     domtext *This = impl_from_IXMLDOMText( iface );
 334     TRACE("(%p)->(%p)\n", This, doc);
 335     return node_get_owner_doc(&This->node, doc);
 336 }
 337
 338 static HRESULT WINAPI domtext_cloneNode(
 339     IXMLDOMText *iface,
 340     VARIANT_BOOL deep, IXMLDOMNode** outNode)
 341 {
 342     domtext *This = impl_from_IXMLDOMText( iface );
 343     TRACE("(%p)->(%d %p)\n", This, deep, outNode);
 344     return node_clone( &This->node, deep, outNode );
 345 }
 346
 347 static HRESULT WINAPI domtext_get_nodeTypeString(
 348     IXMLDOMText *iface,
 349     BSTR* p)
 350 {
 351     domtext *This = impl_from_IXMLDOMText( iface );
 352     static const WCHAR textW[] = {'t','e','x','t',0};
 353
 354     TRACE("(%p)->(%p)\n", This, p);
 355
 356     return return_bstr(textW, p);
 357 }
 358
 359 static HRESULT WINAPI domtext_get_text(
 360     IXMLDOMText *iface,
 361     BSTR* p)
 362 {
 363     domtext *This = impl_from_IXMLDOMText( iface );
 364     TRACE("(%p)->(%p)\n", This, p);
 365     return node_get_text(&This->node, p);
 366 }
 367
 368 static HRESULT WINAPI domtext_put_text(
 369     IXMLDOMText *iface,
 370     BSTR p)
 371 {
 372     domtext *This = impl_from_IXMLDOMText( iface );
 373     TRACE("(%p)->(%s)\n", This, debugstr_w(p));
 374     return node_put_text( &This->node, p );
 375 }
 376
 377 static HRESULT WINAPI domtext_get_specified(
 378     IXMLDOMText *iface,
 379     VARIANT_BOOL* isSpecified)
 380 {
 381     domtext *This = impl_from_IXMLDOMText( iface );
 382     FIXME("(%p)->(%p) stub!\n", This, isSpecified);
 383     *isSpecified = VARIANT_TRUE;
 384     return S_OK;
 385 }
 386
 387 static HRESULT WINAPI domtext_get_definition(
 388     IXMLDOMText *iface,
 389     IXMLDOMNode** definitionNode)
 390 {
 391     domtext *This = impl_from_IXMLDOMText( iface );
 392     FIXME("(%p)->(%p)\n", This, definitionNode);
 393     return E_NOTIMPL;
 394 }
 395
 396 static HRESULT WINAPI domtext_get_nodeTypedValue(
 397     IXMLDOMText *iface,
 398     VARIANT* var1)
 399 {
 400     domtext *This = impl_from_IXMLDOMText( iface );
 401     IXMLDOMNode* parent = NULL;
 402     HRESULT hr;
 403
 404     TRACE("(%p)->(%p)\n", This, var1);
 405
 406     if (!var1)
 407         return E_INVALIDARG;
 408
 409     hr = IXMLDOMText_get_parentNode(iface, &parent);
 410
 411     if (hr == S_OK)
 412     {
 413         hr = IXMLDOMNode_get_nodeTypedValue(parent, var1);
 414         IXMLDOMNode_Release(parent);
 415     }
 416     else
 417     {
 418         V_VT(var1) = VT_NULL;
 419         V_BSTR(var1) = NULL;
 420         hr = S_FALSE;
 421     }
 422
 423     return hr;
 424 }
 425
 426 static HRESULT WINAPI domtext_put_nodeTypedValue(
 427     IXMLDOMText *iface,
 428     VARIANT value)
 429 {
 430     domtext *This = impl_from_IXMLDOMText( iface );
 431     IXMLDOMNode* parent = NULL;
 432     HRESULT hr;
 433
 434     TRACE("(%p)->(%s)\n", This, debugstr_variant(&value));
 435
 436     hr = IXMLDOMText_get_parentNode(iface, &parent);
 437
 438     if (hr == S_OK)
 439     {
 440         hr = IXMLDOMNode_put_nodeTypedValue(parent, value);
 441         IXMLDOMNode_Release(parent);
 442     }
 443     else
 444     {
 445         hr = S_FALSE;
 446     }
 447
 448     return hr;
 449 }
 450
 451 static HRESULT WINAPI domtext_get_dataType(
 452     IXMLDOMText *iface,
 453     VARIANT* dtName)
 454 {
 455     domtext *This = impl_from_IXMLDOMText( iface );
 456     IXMLDOMNode* parent = NULL;
 457     HRESULT hr;
 458
 459     TRACE("(%p)->(%p)\n", This, dtName);
 460
 461     if (!dtName)
 462         return E_INVALIDARG;
 463
 464     hr = IXMLDOMText_get_parentNode(iface, &parent);
 465
 466     if (hr == S_OK)
 467     {
 468         hr = IXMLDOMNode_get_dataType(parent, dtName);
 469         IXMLDOMNode_Release(parent);
 470     }
 471     else
 472     {
 473         V_VT(dtName) = VT_NULL;
 474         V_BSTR(dtName) = NULL;
 475         hr = S_FALSE;
 476     }
 477
 478     return hr;
 479 }
 480
 481 static HRESULT WINAPI domtext_put_dataType(
 482     IXMLDOMText *iface,
 483     BSTR dtName)
 484 {
 485     domtext *This = impl_from_IXMLDOMText( iface );
 486     IXMLDOMNode* parent = NULL;
 487     HRESULT hr;
 488
 489     TRACE("(%p)->(%p)\n", This, dtName);
 490
 491     if (!dtName)
 492         return E_INVALIDARG;
 493
 494     hr = IXMLDOMText_get_parentNode(iface, &parent);
 495
 496     if (hr == S_OK)
 497     {
 498         hr = IXMLDOMNode_put_dataType(parent, dtName);
 499         IXMLDOMNode_Release(parent);
 500     }
 501     else
 502     {
 503         hr = S_FALSE;
 504     }
 505
 506     return hr;
 507 }
 508
 509 static HRESULT WINAPI domtext_get_xml(
 510     IXMLDOMText *iface,
 511     BSTR* p)
 512 {
 513     domtext *This = impl_from_IXMLDOMText( iface );
 514
 515     TRACE("(%p)->(%p)\n", This, p);
 516
 517     return node_get_xml(&This->node, FALSE, FALSE, p);
 518 }
 519
 520 static HRESULT WINAPI domtext_transformNode(
 521     IXMLDOMText *iface,
 522     IXMLDOMNode *node, BSTR *p)
 523 {
 524     domtext *This = impl_from_IXMLDOMText( iface );
 525     TRACE("(%p)->(%p %p)\n", This, node, p);
 526     return node_transform_node(&This->node, node, p);
 527 }
 528
 529 static HRESULT WINAPI domtext_selectNodes(
 530     IXMLDOMText *iface,
 531     BSTR p, IXMLDOMNodeList** outList)
 532 {
 533     domtext *This = impl_from_IXMLDOMText( iface );
 534     TRACE("(%p)->(%s %p)\n", This, debugstr_w(p), outList);
 535     return node_select_nodes(&This->node, p, outList);
 536 }
 537
 538 static HRESULT WINAPI domtext_selectSingleNode(
 539     IXMLDOMText *iface,
 540     BSTR p, IXMLDOMNode** outNode)
 541 {
 542     domtext *This = impl_from_IXMLDOMText( iface );
 543     TRACE("(%p)->(%s %p)\n", This, debugstr_w(p), outNode);
 544     return node_select_singlenode(&This->node, p, outNode);
 545 }
 546
 547 static HRESULT WINAPI domtext_get_parsed(
 548     IXMLDOMText *iface,
 549     VARIANT_BOOL* isParsed)
 550 {
 551     domtext *This = impl_from_IXMLDOMText( iface );
 552     FIXME("(%p)->(%p) stub!\n", This, isParsed);
 553     *isParsed = VARIANT_TRUE;
 554     return S_OK;
 555 }
 556
 557 static HRESULT WINAPI domtext_get_namespaceURI(
 558     IXMLDOMText *iface,
 559     BSTR* p)
 560 {
 561     domtext *This = impl_from_IXMLDOMText( iface );
 562     TRACE("(%p)->(%p)\n", This, p);
 563     return node_get_namespaceURI(&This->node, p);
 564 }
 565
 566 static HRESULT WINAPI domtext_get_prefix(
 567     IXMLDOMText *iface,
 568     BSTR* prefix)
 569 {
 570     domtext *This = impl_from_IXMLDOMText( iface );
 571     TRACE("(%p)->(%p)\n", This, prefix);
 572     return return_null_bstr( prefix );
 573 }
 574
 575 static HRESULT WINAPI domtext_get_baseName(
 576     IXMLDOMText *iface,
 577     BSTR* name)
 578 {
 579     domtext *This = impl_from_IXMLDOMText( iface );
 580     TRACE("(%p)->(%p)\n", This, name);
 581     return return_null_bstr( name );
 582 }
 583
 584 static HRESULT WINAPI domtext_transformNodeToObject(
 585     IXMLDOMText *iface,
 586     IXMLDOMNode* domNode, VARIANT var1)
 587 {
 588     domtext *This = impl_from_IXMLDOMText( iface );
 589     FIXME("(%p)->(%p %s)\n", This, domNode, debugstr_variant(&var1));
 590     return E_NOTIMPL;
 591 }
 592
 593 static HRESULT WINAPI domtext_get_data(
 594     IXMLDOMText *iface,
 595     BSTR *p)
 596 {
 597     domtext *This = impl_from_IXMLDOMText( iface );
 598
 599     if(!p)
 600         return E_INVALIDARG;
 601
 602     *p = bstr_from_xmlChar(This->node.node->content);
 603     return S_OK;
 604 }
 605
 606 static HRESULT WINAPI domtext_put_data(
 607     IXMLDOMText *iface,
 608     BSTR data)
 609 {
 610     domtext *This = impl_from_IXMLDOMText( iface );
 611     VARIANT val;
 612
 613     TRACE("(%p)->(%s)\n", This, debugstr_w(data) );
 614
 615     V_VT(&val) = VT_BSTR;
 616     V_BSTR(&val) = data;
 617     return node_put_value(&This->node, &val);
 618 }
 619
 620 static HRESULT WINAPI domtext_get_length(
 621     IXMLDOMText *iface,
 622     LONG *len)
 623 {
 624     domtext *This = impl_from_IXMLDOMText( iface );
 625     HRESULT hr;
 626     BSTR data;
 627
 628     TRACE("(%p)->(%p)\n", This, len);
 629
 630     if(!len)
 631         return E_INVALIDARG;
 632
 633     hr = IXMLDOMText_get_data(iface, &data);
 634     if(hr == S_OK)
 635     {
 636         *len = SysStringLen(data);
 637         SysFreeString(data);
 638     }
 639
 640     return hr;
 641 }
 642
 643 static HRESULT WINAPI domtext_substringData(
 644     IXMLDOMText *iface,
 645     LONG offset, LONG count, BSTR *p)
 646 {
 647     domtext *This = impl_from_IXMLDOMText( iface );
 648     HRESULT hr;
 649     BSTR data;
 650
 651     TRACE("(%p)->(%d %d %p)\n", This, offset, count, p);
 652
 653     if(!p)
 654         return E_INVALIDARG;
 655
 656     *p = NULL;
 657     if(offset < 0 || count < 0)
 658         return E_INVALIDARG;
 659
 660     if(count == 0)
 661         return S_FALSE;
 662
 663     hr = IXMLDOMText_get_data(iface, &data);
 664     if(hr == S_OK)
 665     {
 666         LONG len = SysStringLen(data);
 667
 668         if(offset < len)
 669         {
 670             if(offset + count > len)
 671                 *p = SysAllocString(&data[offset]);
 672             else
 673                 *p = SysAllocStringLen(&data[offset], count);
 674         }
 675         else
 676             hr = S_FALSE;
 677
 678         SysFreeString(data);
 679     }
 680
 681     return hr;
 682 }
 683
 684 static HRESULT WINAPI domtext_appendData(
 685     IXMLDOMText *iface,
 686     BSTR p)
 687 {
 688     domtext *This = impl_from_IXMLDOMText( iface );
 689     HRESULT hr;
 690     BSTR data;
 691     LONG p_len;
 692
 693     TRACE("(%p)->(%s)\n", This, debugstr_w(p));
 694
 695     /* Nothing to do if NULL or an Empty string passed in. */
 696     if((p_len = SysStringLen(p)) == 0) return S_OK;
 697
 698     hr = IXMLDOMText_get_data(iface, &data);
 699     if(hr == S_OK)
 700     {
 701         LONG len = SysStringLen(data);
 702         BSTR str = SysAllocStringLen(NULL, p_len + len);
 703
 704         memcpy(str, data, len*sizeof(WCHAR));
 705         memcpy(&str[len], p, p_len*sizeof(WCHAR));
 706         str[len+p_len] = 0;
 707
 708         hr = IXMLDOMText_put_data(iface, str);
 709
 710         SysFreeString(str);
 711         SysFreeString(data);
 712     }
 713
 714     return hr;
 715 }
 716
 717 static HRESULT WINAPI domtext_insertData(
 718     IXMLDOMText *iface,
 719     LONG offset, BSTR p)
 720 {
 721     domtext *This = impl_from_IXMLDOMText( iface );
 722     HRESULT hr;
 723     BSTR data;
 724     LONG p_len;
 725
 726     TRACE("(%p)->(%d %s)\n", This, offset, debugstr_w(p));
 727
 728     /* If have a NULL or empty string, don't do anything. */
 729     if((p_len = SysStringLen(p)) == 0)
 730         return S_OK;
 731
 732     if(offset < 0)
 733     {
 734         return E_INVALIDARG;
 735     }
 736
 737     hr = IXMLDOMText_get_data(iface, &data);
 738     if(hr == S_OK)
 739     {
 740         LONG len = SysStringLen(data);
 741         BSTR str;
 742
 743         if(len < offset)
 744         {
 745             SysFreeString(data);
 746             return E_INVALIDARG;
 747         }
 748
 749         str = SysAllocStringLen(NULL, len + p_len);
 750         /* start part, supplied string and end part */
 751         memcpy(str, data, offset*sizeof(WCHAR));
 752         memcpy(&str[offset], p, p_len*sizeof(WCHAR));
 753         memcpy(&str[offset+p_len], &data[offset], (len-offset)*sizeof(WCHAR));
 754         str[len+p_len] = 0;
 755
 756         hr = IXMLDOMText_put_data(iface, str);
 757
 758         SysFreeString(str);
 759         SysFreeString(data);
 760     }
 761
 762     return hr;
 763 }
 764
 765 static HRESULT WINAPI domtext_deleteData(
 766     IXMLDOMText *iface,
 767     LONG offset, LONG count)
 768 {
 769     HRESULT hr;
 770     LONG len = -1;
 771     BSTR str;
 772
 773     TRACE("(%p)->(%d %d)\n", iface, offset, count);
 774
 775     hr = IXMLDOMText_get_length(iface, &len);
 776     if(hr != S_OK) return hr;
 777
 778     if((offset < 0) || (offset > len) || (count < 0))
 779         return E_INVALIDARG;
 780
 781     if(len == 0) return S_OK;
 782
 783     /* cutting start or end */
 784     if((offset == 0) || ((count + offset) >= len))
 785     {
 786         if(offset == 0)
 787             IXMLDOMText_substringData(iface, count, len - count, &str);
 788         else
 789             IXMLDOMText_substringData(iface, 0, offset, &str);
 790         hr = IXMLDOMText_put_data(iface, str);
 791     }
 792     else
 793     /* cutting from the inside */
 794     {
 795         BSTR str_end;
 796
 797         IXMLDOMText_substringData(iface, 0, offset, &str);
 798         IXMLDOMText_substringData(iface, offset + count, len - count, &str_end);
 799
 800         hr = IXMLDOMText_put_data(iface, str);
 801         if(hr == S_OK)
 802             hr = IXMLDOMText_appendData(iface, str_end);
 803
 804         SysFreeString(str_end);
 805     }
 806
 807     SysFreeString(str);
 808
 809     return hr;
 810 }
 811
 812 static HRESULT WINAPI domtext_replaceData(
 813     IXMLDOMText *iface,
 814     LONG offset, LONG count, BSTR p)
 815 {
 816     domtext *This = impl_from_IXMLDOMText( iface );
 817     HRESULT hr;
 818
 819     TRACE("(%p)->(%d %d %s)\n", This, offset, count, debugstr_w(p));
 820
 821     hr = IXMLDOMText_deleteData(iface, offset, count);
 822
 823     if (hr == S_OK)
 824        hr = IXMLDOMText_insertData(iface, offset, p);
 825
 826     return hr;
 827 }
 828
 829 static HRESULT WINAPI domtext_splitText(
 830     IXMLDOMText *iface,
 831     LONG offset, IXMLDOMText **txtNode)
 832 {
 833     domtext *This = impl_from_IXMLDOMText( iface );
 834     LONG length = 0;
 835
 836     TRACE("(%p)->(%d %p)\n", This, offset, txtNode);
 837
 838     if (!txtNode || offset < 0) return E_INVALIDARG;
 839
 840     *txtNode = NULL;
 841
 842     IXMLDOMText_get_length(iface, &length);
 843
 844     if (offset > length) return E_INVALIDARG;
 845     if (offset == length) return S_FALSE;
 846
 847     FIXME("adjacent text nodes are not supported\n");
 848
 849     return E_NOTIMPL;
 850 }
 851
 852 static const struct IXMLDOMTextVtbl domtext_vtbl =
 853 {
 854     domtext_QueryInterface,
 855     domtext_AddRef,
 856     domtext_Release,
 857     domtext_GetTypeInfoCount,
 858     domtext_GetTypeInfo,
 859     domtext_GetIDsOfNames,
 860     domtext_Invoke,
 861     domtext_get_nodeName,
 862     domtext_get_nodeValue,
 863     domtext_put_nodeValue,
 864     domtext_get_nodeType,
 865     domtext_get_parentNode,
 866     domtext_get_childNodes,
 867     domtext_get_firstChild,
 868     domtext_get_lastChild,
 869     domtext_get_previousSibling,
 870     domtext_get_nextSibling,
 871     domtext_get_attributes,
 872     domtext_insertBefore,
 873     domtext_replaceChild,
 874     domtext_removeChild,
 875     domtext_appendChild,
 876     domtext_hasChildNodes,
 877     domtext_get_ownerDocument,
 878     domtext_cloneNode,
 879     domtext_get_nodeTypeString,
 880     domtext_get_text,
 881     domtext_put_text,
 882     domtext_get_specified,
 883     domtext_get_definition,
 884     domtext_get_nodeTypedValue,
 885     domtext_put_nodeTypedValue,
 886     domtext_get_dataType,
 887     domtext_put_dataType,
 888     domtext_get_xml,
 889     domtext_transformNode,
 890     domtext_selectNodes,
 891     domtext_selectSingleNode,
 892     domtext_get_parsed,
 893     domtext_get_namespaceURI,
 894     domtext_get_prefix,
 895     domtext_get_baseName,
 896     domtext_transformNodeToObject,
 897     domtext_get_data,
 898     domtext_put_data,
 899     domtext_get_length,
 900     domtext_substringData,
 901     domtext_appendData,
 902     domtext_insertData,
 903     domtext_deleteData,
 904     domtext_replaceData,
 905     domtext_splitText
 906 };
 907
 908 static const tid_t domtext_iface_tids[] = {
 909     IXMLDOMText_tid,
 910     0
 911 };
 912
 913 static dispex_static_data_t domtext_dispex = {
 914     NULL,
 915     IXMLDOMText_tid,
 916     NULL,
 917     domtext_iface_tids
 918 };
 919
 920 IUnknown* create_text( xmlNodePtr text )
 921 {
 922     domtext *This;
 923
 924     This = heap_alloc( sizeof *This );
 925     if ( !This )
 926         return NULL;
 927
 928     This->IXMLDOMText_iface.lpVtbl = &domtext_vtbl;
 929     This->ref = 1;
 930
 931     init_xmlnode(&This->node, text, (IXMLDOMNode*)&This->IXMLDOMText_iface, &domtext_dispex);
 932
 933     return (IUnknown*)&This->IXMLDOMText_iface;
 934 }
 935
 936 #endif