git.oblomov.eu Git - wine/blob - 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     TRACE("(%p)->(%s)\n", This, debugstr_w(data));
 612     return node_set_content(&This->node, data);
 613 }
 614
 615 static HRESULT WINAPI domtext_get_length(
 616     IXMLDOMText *iface,
 617     LONG *len)
 618 {
 619     domtext *This = impl_from_IXMLDOMText( iface );
 620     HRESULT hr;
 621     BSTR data;
 622
 623     TRACE("(%p)->(%p)\n", This, len);
 624
 625     if(!len)
 626         return E_INVALIDARG;
 627
 628     hr = IXMLDOMText_get_data(iface, &data);
 629     if(hr == S_OK)
 630     {
 631         *len = SysStringLen(data);
 632         SysFreeString(data);
 633     }
 634
 635     return hr;
 636 }
 637
 638 static HRESULT WINAPI domtext_substringData(
 639     IXMLDOMText *iface,
 640     LONG offset, LONG count, BSTR *p)
 641 {
 642     domtext *This = impl_from_IXMLDOMText( iface );
 643     HRESULT hr;
 644     BSTR data;
 645
 646     TRACE("(%p)->(%d %d %p)\n", This, offset, count, p);
 647
 648     if(!p)
 649         return E_INVALIDARG;
 650
 651     *p = NULL;
 652     if(offset < 0 || count < 0)
 653         return E_INVALIDARG;
 654
 655     if(count == 0)
 656         return S_FALSE;
 657
 658     hr = IXMLDOMText_get_data(iface, &data);
 659     if(hr == S_OK)
 660     {
 661         LONG len = SysStringLen(data);
 662
 663         if(offset < len)
 664         {
 665             if(offset + count > len)
 666                 *p = SysAllocString(&data[offset]);
 667             else
 668                 *p = SysAllocStringLen(&data[offset], count);
 669         }
 670         else
 671             hr = S_FALSE;
 672
 673         SysFreeString(data);
 674     }
 675
 676     return hr;
 677 }
 678
 679 static HRESULT WINAPI domtext_appendData(
 680     IXMLDOMText *iface,
 681     BSTR p)
 682 {
 683     domtext *This = impl_from_IXMLDOMText( iface );
 684     HRESULT hr;
 685     BSTR data;
 686     LONG p_len;
 687
 688     TRACE("(%p)->(%s)\n", This, debugstr_w(p));
 689
 690     /* Nothing to do if NULL or an Empty string passed in. */
 691     if((p_len = SysStringLen(p)) == 0) return S_OK;
 692
 693     hr = IXMLDOMText_get_data(iface, &data);
 694     if(hr == S_OK)
 695     {
 696         LONG len = SysStringLen(data);
 697         BSTR str = SysAllocStringLen(NULL, p_len + len);
 698
 699         memcpy(str, data, len*sizeof(WCHAR));
 700         memcpy(&str[len], p, p_len*sizeof(WCHAR));
 701         str[len+p_len] = 0;
 702
 703         hr = IXMLDOMText_put_data(iface, str);
 704
 705         SysFreeString(str);
 706         SysFreeString(data);
 707     }
 708
 709     return hr;
 710 }
 711
 712 static HRESULT WINAPI domtext_insertData(
 713     IXMLDOMText *iface,
 714     LONG offset, BSTR p)
 715 {
 716     domtext *This = impl_from_IXMLDOMText( iface );
 717     HRESULT hr;
 718     BSTR data;
 719     LONG p_len;
 720
 721     TRACE("(%p)->(%d %s)\n", This, offset, debugstr_w(p));
 722
 723     /* If have a NULL or empty string, don't do anything. */
 724     if((p_len = SysStringLen(p)) == 0)
 725         return S_OK;
 726
 727     if(offset < 0)
 728     {
 729         return E_INVALIDARG;
 730     }
 731
 732     hr = IXMLDOMText_get_data(iface, &data);
 733     if(hr == S_OK)
 734     {
 735         LONG len = SysStringLen(data);
 736         BSTR str;
 737
 738         if(len < offset)
 739         {
 740             SysFreeString(data);
 741             return E_INVALIDARG;
 742         }
 743
 744         str = SysAllocStringLen(NULL, len + p_len);
 745         /* start part, supplied string and end part */
 746         memcpy(str, data, offset*sizeof(WCHAR));
 747         memcpy(&str[offset], p, p_len*sizeof(WCHAR));
 748         memcpy(&str[offset+p_len], &data[offset], (len-offset)*sizeof(WCHAR));
 749         str[len+p_len] = 0;
 750
 751         hr = IXMLDOMText_put_data(iface, str);
 752
 753         SysFreeString(str);
 754         SysFreeString(data);
 755     }
 756
 757     return hr;
 758 }
 759
 760 static HRESULT WINAPI domtext_deleteData(
 761     IXMLDOMText *iface,
 762     LONG offset, LONG count)
 763 {
 764     HRESULT hr;
 765     LONG len = -1;
 766     BSTR str;
 767
 768     TRACE("(%p)->(%d %d)\n", iface, offset, count);
 769
 770     hr = IXMLDOMText_get_length(iface, &len);
 771     if(hr != S_OK) return hr;
 772
 773     if((offset < 0) || (offset > len) || (count < 0))
 774         return E_INVALIDARG;
 775
 776     if(len == 0) return S_OK;
 777
 778     /* cutting start or end */
 779     if((offset == 0) || ((count + offset) >= len))
 780     {
 781         if(offset == 0)
 782             IXMLDOMText_substringData(iface, count, len - count, &str);
 783         else
 784             IXMLDOMText_substringData(iface, 0, offset, &str);
 785         hr = IXMLDOMText_put_data(iface, str);
 786     }
 787     else
 788     /* cutting from the inside */
 789     {
 790         BSTR str_end;
 791
 792         IXMLDOMText_substringData(iface, 0, offset, &str);
 793         IXMLDOMText_substringData(iface, offset + count, len - count, &str_end);
 794
 795         hr = IXMLDOMText_put_data(iface, str);
 796         if(hr == S_OK)
 797             hr = IXMLDOMText_appendData(iface, str_end);
 798
 799         SysFreeString(str_end);
 800     }
 801
 802     SysFreeString(str);
 803
 804     return hr;
 805 }
 806
 807 static HRESULT WINAPI domtext_replaceData(
 808     IXMLDOMText *iface,
 809     LONG offset, LONG count, BSTR p)
 810 {
 811     domtext *This = impl_from_IXMLDOMText( iface );
 812     HRESULT hr;
 813
 814     TRACE("(%p)->(%d %d %s)\n", This, offset, count, debugstr_w(p));
 815
 816     hr = IXMLDOMText_deleteData(iface, offset, count);
 817
 818     if (hr == S_OK)
 819        hr = IXMLDOMText_insertData(iface, offset, p);
 820
 821     return hr;
 822 }
 823
 824 static HRESULT WINAPI domtext_splitText(
 825     IXMLDOMText *iface,
 826     LONG offset, IXMLDOMText **txtNode)
 827 {
 828     domtext *This = impl_from_IXMLDOMText( iface );
 829     LONG length = 0;
 830
 831     TRACE("(%p)->(%d %p)\n", This, offset, txtNode);
 832
 833     if (!txtNode || offset < 0) return E_INVALIDARG;
 834
 835     *txtNode = NULL;
 836
 837     IXMLDOMText_get_length(iface, &length);
 838
 839     if (offset > length) return E_INVALIDARG;
 840     if (offset == length) return S_FALSE;
 841
 842     FIXME("adjacent text nodes are not supported\n");
 843
 844     return E_NOTIMPL;
 845 }
 846
 847 static const struct IXMLDOMTextVtbl domtext_vtbl =
 848 {
 849     domtext_QueryInterface,
 850     domtext_AddRef,
 851     domtext_Release,
 852     domtext_GetTypeInfoCount,
 853     domtext_GetTypeInfo,
 854     domtext_GetIDsOfNames,
 855     domtext_Invoke,
 856     domtext_get_nodeName,
 857     domtext_get_nodeValue,
 858     domtext_put_nodeValue,
 859     domtext_get_nodeType,
 860     domtext_get_parentNode,
 861     domtext_get_childNodes,
 862     domtext_get_firstChild,
 863     domtext_get_lastChild,
 864     domtext_get_previousSibling,
 865     domtext_get_nextSibling,
 866     domtext_get_attributes,
 867     domtext_insertBefore,
 868     domtext_replaceChild,
 869     domtext_removeChild,
 870     domtext_appendChild,
 871     domtext_hasChildNodes,
 872     domtext_get_ownerDocument,
 873     domtext_cloneNode,
 874     domtext_get_nodeTypeString,
 875     domtext_get_text,
 876     domtext_put_text,
 877     domtext_get_specified,
 878     domtext_get_definition,
 879     domtext_get_nodeTypedValue,
 880     domtext_put_nodeTypedValue,
 881     domtext_get_dataType,
 882     domtext_put_dataType,
 883     domtext_get_xml,
 884     domtext_transformNode,
 885     domtext_selectNodes,
 886     domtext_selectSingleNode,
 887     domtext_get_parsed,
 888     domtext_get_namespaceURI,
 889     domtext_get_prefix,
 890     domtext_get_baseName,
 891     domtext_transformNodeToObject,
 892     domtext_get_data,
 893     domtext_put_data,
 894     domtext_get_length,
 895     domtext_substringData,
 896     domtext_appendData,
 897     domtext_insertData,
 898     domtext_deleteData,
 899     domtext_replaceData,
 900     domtext_splitText
 901 };
 902
 903 static const tid_t domtext_iface_tids[] = {
 904     IXMLDOMText_tid,
 905     0
 906 };
 907
 908 static dispex_static_data_t domtext_dispex = {
 909     NULL,
 910     IXMLDOMText_tid,
 911     NULL,
 912     domtext_iface_tids
 913 };
 914
 915 IUnknown* create_text( xmlNodePtr text )
 916 {
 917     domtext *This;
 918
 919     This = heap_alloc( sizeof *This );
 920     if ( !This )
 921         return NULL;
 922
 923     This->IXMLDOMText_iface.lpVtbl = &domtext_vtbl;
 924     This->ref = 1;
 925
 926     init_xmlnode(&This->node, text, (IXMLDOMNode*)&This->IXMLDOMText_iface, &domtext_dispex);
 927
 928     return (IUnknown*)&This->IXMLDOMText_iface;
 929 }
 930
 931 #endif