comctl32/ipaddress: Fix incorrect use of the ScreenToClient function.
[wine] / 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 #include "windef.h"
28 #include "winbase.h"
29 #include "winuser.h"
30 #include "ole2.h"
31 #include "msxml6.h"
32
33 #include "msxml_private.h"
34
35 #include "wine/debug.h"
36
37 WINE_DEFAULT_DEBUG_CHANNEL(msxml);
38
39 #ifdef HAVE_LIBXML2
40
41 typedef struct _domtext
42 {
43     xmlnode node;
44     const struct IXMLDOMTextVtbl *lpVtbl;
45     LONG ref;
46 } domtext;
47
48 static inline domtext *impl_from_IXMLDOMText( IXMLDOMText *iface )
49 {
50     return (domtext *)((char*)iface - FIELD_OFFSET(domtext, lpVtbl));
51 }
52
53 static HRESULT WINAPI domtext_QueryInterface(
54     IXMLDOMText *iface,
55     REFIID riid,
56     void** ppvObject )
57 {
58     domtext *This = impl_from_IXMLDOMText( iface );
59     TRACE("(%p)->(%s %p)\n", This, debugstr_guid(riid), ppvObject);
60
61     if ( IsEqualGUID( riid, &IID_IXMLDOMText ) ||
62          IsEqualGUID( riid, &IID_IXMLDOMCharacterData) ||
63          IsEqualGUID( riid, &IID_IXMLDOMNode ) ||
64          IsEqualGUID( riid, &IID_IDispatch ) ||
65          IsEqualGUID( riid, &IID_IUnknown ) )
66     {
67         *ppvObject = iface;
68     }
69     else if(node_query_interface(&This->node, riid, ppvObject))
70     {
71         return *ppvObject ? S_OK : E_NOINTERFACE;
72     }
73     else if ( IsEqualGUID( riid, &IID_IXMLDOMElement ) ||
74               IsEqualGUID( riid, &IID_IXMLDOMCDATASection ) )
75     {
76         /* IXMLDOMText is known to be correct in not implementing these */
77         TRACE("Unsupported interface\n");
78         return E_NOINTERFACE;
79     }
80     else
81     {
82         FIXME("Unsupported interface %s\n", debugstr_guid(riid));
83         return E_NOINTERFACE;
84     }
85
86     IXMLDOMText_AddRef((IUnknown*)*ppvObject);
87     return S_OK;
88 }
89
90 static ULONG WINAPI domtext_AddRef(
91     IXMLDOMText *iface )
92 {
93     domtext *This = impl_from_IXMLDOMText( iface );
94     return InterlockedIncrement( &This->ref );
95 }
96
97 static ULONG WINAPI domtext_Release(
98     IXMLDOMText *iface )
99 {
100     domtext *This = impl_from_IXMLDOMText( iface );
101     ULONG ref;
102
103     ref = InterlockedDecrement( &This->ref );
104     if ( ref == 0 )
105     {
106         destroy_xmlnode(&This->node);
107         heap_free( This );
108     }
109
110     return ref;
111 }
112
113 static HRESULT WINAPI domtext_GetTypeInfoCount(
114     IXMLDOMText *iface,
115     UINT* pctinfo )
116 {
117     domtext *This = impl_from_IXMLDOMText( iface );
118
119     TRACE("(%p)->(%p)\n", This, pctinfo);
120
121     *pctinfo = 1;
122
123     return S_OK;
124 }
125
126 static HRESULT WINAPI domtext_GetTypeInfo(
127     IXMLDOMText *iface,
128     UINT iTInfo, LCID lcid,
129     ITypeInfo** ppTInfo )
130 {
131     domtext *This = impl_from_IXMLDOMText( iface );
132     HRESULT hr;
133
134     TRACE("(%p)->(%u %u %p)\n", This, iTInfo, lcid, ppTInfo);
135
136     hr = get_typeinfo(IXMLDOMText_tid, ppTInfo);
137
138     return hr;
139 }
140
141 static HRESULT WINAPI domtext_GetIDsOfNames(
142     IXMLDOMText *iface,
143     REFIID riid, LPOLESTR* rgszNames,
144     UINT cNames, LCID lcid, DISPID* rgDispId )
145 {
146     domtext *This = impl_from_IXMLDOMText( iface );
147     ITypeInfo *typeinfo;
148     HRESULT hr;
149
150     TRACE("(%p)->(%s %p %u %u %p)\n", This, debugstr_guid(riid), rgszNames, cNames,
151           lcid, rgDispId);
152
153     if(!rgszNames || cNames == 0 || !rgDispId)
154         return E_INVALIDARG;
155
156     hr = get_typeinfo(IXMLDOMText_tid, &typeinfo);
157     if(SUCCEEDED(hr))
158     {
159         hr = ITypeInfo_GetIDsOfNames(typeinfo, rgszNames, cNames, rgDispId);
160         ITypeInfo_Release(typeinfo);
161     }
162
163     return hr;
164 }
165
166 static HRESULT WINAPI domtext_Invoke(
167     IXMLDOMText *iface,
168     DISPID dispIdMember, REFIID riid, LCID lcid,
169     WORD wFlags, DISPPARAMS* pDispParams, VARIANT* pVarResult,
170     EXCEPINFO* pExcepInfo, UINT* puArgErr )
171 {
172     domtext *This = impl_from_IXMLDOMText( iface );
173     ITypeInfo *typeinfo;
174     HRESULT hr;
175
176     TRACE("(%p)->(%d %s %d %d %p %p %p %p)\n", This, dispIdMember, debugstr_guid(riid),
177           lcid, wFlags, pDispParams, pVarResult, pExcepInfo, puArgErr);
178
179     hr = get_typeinfo(IXMLDOMText_tid, &typeinfo);
180     if(SUCCEEDED(hr))
181     {
182         hr = ITypeInfo_Invoke(typeinfo, &(This->lpVtbl), dispIdMember, wFlags, pDispParams,
183                 pVarResult, pExcepInfo, puArgErr);
184         ITypeInfo_Release(typeinfo);
185     }
186
187     return hr;
188 }
189
190 static HRESULT WINAPI domtext_get_nodeName(
191     IXMLDOMText *iface,
192     BSTR* p )
193 {
194     domtext *This = impl_from_IXMLDOMText( iface );
195
196     static const WCHAR textW[] = {'#','t','e','x','t',0};
197
198     TRACE("(%p)->(%p)\n", This, p);
199
200     return return_bstr(textW, p);
201 }
202
203 static HRESULT WINAPI domtext_get_nodeValue(
204     IXMLDOMText *iface,
205     VARIANT* value )
206 {
207     domtext *This = impl_from_IXMLDOMText( iface );
208
209     TRACE("(%p)->(%p)\n", This, value);
210
211     if(!value)
212         return E_INVALIDARG;
213
214     V_VT(value) = VT_BSTR;
215     V_BSTR(value) = bstr_from_xmlChar(This->node.node->content);
216     return S_OK;
217 }
218
219 static HRESULT WINAPI domtext_put_nodeValue(
220     IXMLDOMText *iface,
221     VARIANT value)
222 {
223     domtext *This = impl_from_IXMLDOMText( iface );
224
225     TRACE("(%p)->(v%d)\n", This, V_VT(&value));
226
227     return node_put_value(&This->node, &value);
228 }
229
230 static HRESULT WINAPI domtext_get_nodeType(
231     IXMLDOMText *iface,
232     DOMNodeType* domNodeType )
233 {
234     domtext *This = impl_from_IXMLDOMText( iface );
235
236     TRACE("(%p)->(%p)\n", This, domNodeType);
237
238     *domNodeType = NODE_TEXT;
239     return S_OK;
240 }
241
242 static HRESULT WINAPI domtext_get_parentNode(
243     IXMLDOMText *iface,
244     IXMLDOMNode** parent )
245 {
246     domtext *This = impl_from_IXMLDOMText( iface );
247
248     TRACE("(%p)->(%p)\n", This, parent);
249
250     return node_get_parent(&This->node, parent);
251 }
252
253 static HRESULT WINAPI domtext_get_childNodes(
254     IXMLDOMText *iface,
255     IXMLDOMNodeList** outList)
256 {
257     domtext *This = impl_from_IXMLDOMText( iface );
258
259     TRACE("(%p)->(%p)\n", This, outList);
260
261     return node_get_child_nodes(&This->node, outList);
262 }
263
264 static HRESULT WINAPI domtext_get_firstChild(
265     IXMLDOMText *iface,
266     IXMLDOMNode** domNode)
267 {
268     domtext *This = impl_from_IXMLDOMText( iface );
269
270     TRACE("(%p)->(%p)\n", This, domNode);
271
272     return return_null_node(domNode);
273 }
274
275 static HRESULT WINAPI domtext_get_lastChild(
276     IXMLDOMText *iface,
277     IXMLDOMNode** domNode)
278 {
279     domtext *This = impl_from_IXMLDOMText( iface );
280
281     TRACE("(%p)->(%p)\n", This, domNode);
282
283     return return_null_node(domNode);
284 }
285
286 static HRESULT WINAPI domtext_get_previousSibling(
287     IXMLDOMText *iface,
288     IXMLDOMNode** domNode)
289 {
290     domtext *This = impl_from_IXMLDOMText( iface );
291
292     TRACE("(%p)->(%p)\n", This, domNode);
293
294     return node_get_previous_sibling(&This->node, domNode);
295 }
296
297 static HRESULT WINAPI domtext_get_nextSibling(
298     IXMLDOMText *iface,
299     IXMLDOMNode** domNode)
300 {
301     domtext *This = impl_from_IXMLDOMText( iface );
302
303     TRACE("(%p)->(%p)\n", This, domNode);
304
305     return node_get_next_sibling(&This->node, domNode);
306 }
307
308 static HRESULT WINAPI domtext_get_attributes(
309     IXMLDOMText *iface,
310     IXMLDOMNamedNodeMap** attributeMap)
311 {
312     domtext *This = impl_from_IXMLDOMText( iface );
313
314     TRACE("(%p)->(%p)\n", This, attributeMap);
315
316     return return_null_ptr((void**)attributeMap);
317 }
318
319 static HRESULT WINAPI domtext_insertBefore(
320     IXMLDOMText *iface,
321     IXMLDOMNode* newNode, VARIANT refChild,
322     IXMLDOMNode** outOldNode)
323 {
324     domtext *This = impl_from_IXMLDOMText( iface );
325
326     FIXME("(%p)->(%p x%d %p) needs test\n", This, newNode, V_VT(&refChild), outOldNode);
327
328     return node_insert_before(&This->node, newNode, &refChild, outOldNode);
329 }
330
331 static HRESULT WINAPI domtext_replaceChild(
332     IXMLDOMText *iface,
333     IXMLDOMNode* newNode,
334     IXMLDOMNode* oldNode,
335     IXMLDOMNode** outOldNode)
336 {
337     domtext *This = impl_from_IXMLDOMText( iface );
338     return IXMLDOMNode_replaceChild( IXMLDOMNode_from_impl(&This->node), newNode, oldNode, outOldNode );
339 }
340
341 static HRESULT WINAPI domtext_removeChild(
342     IXMLDOMText *iface,
343     IXMLDOMNode* domNode, IXMLDOMNode** oldNode)
344 {
345     domtext *This = impl_from_IXMLDOMText( iface );
346     return IXMLDOMNode_removeChild( IXMLDOMNode_from_impl(&This->node), domNode, oldNode );
347 }
348
349 static HRESULT WINAPI domtext_appendChild(
350     IXMLDOMText *iface,
351     IXMLDOMNode* newNode, IXMLDOMNode** outNewNode)
352 {
353     domtext *This = impl_from_IXMLDOMText( iface );
354     return IXMLDOMNode_appendChild( IXMLDOMNode_from_impl(&This->node), newNode, outNewNode );
355 }
356
357 static HRESULT WINAPI domtext_hasChildNodes(
358     IXMLDOMText *iface,
359     VARIANT_BOOL* pbool)
360 {
361     domtext *This = impl_from_IXMLDOMText( iface );
362     return IXMLDOMNode_hasChildNodes( IXMLDOMNode_from_impl(&This->node), pbool );
363 }
364
365 static HRESULT WINAPI domtext_get_ownerDocument(
366     IXMLDOMText *iface,
367     IXMLDOMDocument** domDocument)
368 {
369     domtext *This = impl_from_IXMLDOMText( iface );
370     return IXMLDOMNode_get_ownerDocument( IXMLDOMNode_from_impl(&This->node), domDocument );
371 }
372
373 static HRESULT WINAPI domtext_cloneNode(
374     IXMLDOMText *iface,
375     VARIANT_BOOL pbool, IXMLDOMNode** outNode)
376 {
377     domtext *This = impl_from_IXMLDOMText( iface );
378     return IXMLDOMNode_cloneNode( IXMLDOMNode_from_impl(&This->node), pbool, outNode );
379 }
380
381 static HRESULT WINAPI domtext_get_nodeTypeString(
382     IXMLDOMText *iface,
383     BSTR* p)
384 {
385     domtext *This = impl_from_IXMLDOMText( iface );
386     return IXMLDOMNode_get_nodeTypeString( IXMLDOMNode_from_impl(&This->node), p );
387 }
388
389 static HRESULT WINAPI domtext_get_text(
390     IXMLDOMText *iface,
391     BSTR* p)
392 {
393     domtext *This = impl_from_IXMLDOMText( iface );
394     return IXMLDOMNode_get_text( IXMLDOMNode_from_impl(&This->node), p );
395 }
396
397 static HRESULT WINAPI domtext_put_text(
398     IXMLDOMText *iface,
399     BSTR p)
400 {
401     domtext *This = impl_from_IXMLDOMText( iface );
402     return IXMLDOMNode_put_text( IXMLDOMNode_from_impl(&This->node), p );
403 }
404
405 static HRESULT WINAPI domtext_get_specified(
406     IXMLDOMText *iface,
407     VARIANT_BOOL* pbool)
408 {
409     domtext *This = impl_from_IXMLDOMText( iface );
410     return IXMLDOMNode_get_specified( IXMLDOMNode_from_impl(&This->node), pbool );
411 }
412
413 static HRESULT WINAPI domtext_get_definition(
414     IXMLDOMText *iface,
415     IXMLDOMNode** domNode)
416 {
417     domtext *This = impl_from_IXMLDOMText( iface );
418     return IXMLDOMNode_get_definition( IXMLDOMNode_from_impl(&This->node), domNode );
419 }
420
421 static HRESULT WINAPI domtext_get_nodeTypedValue(
422     IXMLDOMText *iface,
423     VARIANT* var1)
424 {
425     domtext *This = impl_from_IXMLDOMText( iface );
426     return IXMLDOMNode_get_nodeTypedValue( IXMLDOMNode_from_impl(&This->node), var1 );
427 }
428
429 static HRESULT WINAPI domtext_put_nodeTypedValue(
430     IXMLDOMText *iface,
431     VARIANT var1)
432 {
433     domtext *This = impl_from_IXMLDOMText( iface );
434     return IXMLDOMNode_put_nodeTypedValue( IXMLDOMNode_from_impl(&This->node), var1 );
435 }
436
437 static HRESULT WINAPI domtext_get_dataType(
438     IXMLDOMText *iface,
439     VARIANT* var1)
440 {
441     domtext *This = impl_from_IXMLDOMText( iface );
442     return IXMLDOMNode_get_dataType( IXMLDOMNode_from_impl(&This->node), var1 );
443 }
444
445 static HRESULT WINAPI domtext_put_dataType(
446     IXMLDOMText *iface,
447     BSTR p)
448 {
449     domtext *This = impl_from_IXMLDOMText( iface );
450     return IXMLDOMNode_put_dataType( IXMLDOMNode_from_impl(&This->node), p );
451 }
452
453 static HRESULT WINAPI domtext_get_xml(
454     IXMLDOMText *iface,
455     BSTR* p)
456 {
457     domtext *This = impl_from_IXMLDOMText( iface );
458     return IXMLDOMNode_get_xml( IXMLDOMNode_from_impl(&This->node), p );
459 }
460
461 static HRESULT WINAPI domtext_transformNode(
462     IXMLDOMText *iface,
463     IXMLDOMNode* domNode, BSTR* p)
464 {
465     domtext *This = impl_from_IXMLDOMText( iface );
466     return IXMLDOMNode_transformNode( IXMLDOMNode_from_impl(&This->node), domNode, p );
467 }
468
469 static HRESULT WINAPI domtext_selectNodes(
470     IXMLDOMText *iface,
471     BSTR p, IXMLDOMNodeList** outList)
472 {
473     domtext *This = impl_from_IXMLDOMText( iface );
474     return IXMLDOMNode_selectNodes( IXMLDOMNode_from_impl(&This->node), p, outList );
475 }
476
477 static HRESULT WINAPI domtext_selectSingleNode(
478     IXMLDOMText *iface,
479     BSTR p, IXMLDOMNode** outNode)
480 {
481     domtext *This = impl_from_IXMLDOMText( iface );
482     return IXMLDOMNode_selectSingleNode( IXMLDOMNode_from_impl(&This->node), p, outNode );
483 }
484
485 static HRESULT WINAPI domtext_get_parsed(
486     IXMLDOMText *iface,
487     VARIANT_BOOL* pbool)
488 {
489     domtext *This = impl_from_IXMLDOMText( iface );
490     return IXMLDOMNode_get_parsed( IXMLDOMNode_from_impl(&This->node), pbool );
491 }
492
493 static HRESULT WINAPI domtext_get_namespaceURI(
494     IXMLDOMText *iface,
495     BSTR* p)
496 {
497     domtext *This = impl_from_IXMLDOMText( iface );
498     return IXMLDOMNode_get_namespaceURI( IXMLDOMNode_from_impl(&This->node), p );
499 }
500
501 static HRESULT WINAPI domtext_get_prefix(
502     IXMLDOMText *iface,
503     BSTR* p)
504 {
505     domtext *This = impl_from_IXMLDOMText( iface );
506     return IXMLDOMNode_get_prefix( IXMLDOMNode_from_impl(&This->node), p );
507 }
508
509 static HRESULT WINAPI domtext_get_baseName(
510     IXMLDOMText *iface,
511     BSTR* p)
512 {
513     domtext *This = impl_from_IXMLDOMText( iface );
514     return IXMLDOMNode_get_baseName( IXMLDOMNode_from_impl(&This->node), p );
515 }
516
517 static HRESULT WINAPI domtext_transformNodeToObject(
518     IXMLDOMText *iface,
519     IXMLDOMNode* domNode, VARIANT var1)
520 {
521     domtext *This = impl_from_IXMLDOMText( iface );
522     return IXMLDOMNode_transformNodeToObject( IXMLDOMNode_from_impl(&This->node), domNode, var1 );
523 }
524
525 static HRESULT WINAPI domtext_get_data(
526     IXMLDOMText *iface,
527     BSTR *p)
528 {
529     domtext *This = impl_from_IXMLDOMText( iface );
530
531     if(!p)
532         return E_INVALIDARG;
533
534     *p = bstr_from_xmlChar(This->node.node->content);
535     return S_OK;
536 }
537
538 static HRESULT WINAPI domtext_put_data(
539     IXMLDOMText *iface,
540     BSTR data)
541 {
542     domtext *This = impl_from_IXMLDOMText( iface );
543     VARIANT val;
544
545     TRACE("(%p)->(%s)\n", This, debugstr_w(data) );
546
547     V_VT(&val) = VT_BSTR;
548     V_BSTR(&val) = data;
549     return node_put_value(&This->node, &val);
550 }
551
552 static HRESULT WINAPI domtext_get_length(
553     IXMLDOMText *iface,
554     LONG *len)
555 {
556     domtext *This = impl_from_IXMLDOMText( iface );
557     HRESULT hr;
558     BSTR data;
559
560     TRACE("(%p)->(%p)\n", This, len);
561
562     if(!len)
563         return E_INVALIDARG;
564
565     hr = IXMLDOMText_get_data(iface, &data);
566     if(hr == S_OK)
567     {
568         *len = SysStringLen(data);
569         SysFreeString(data);
570     }
571
572     return hr;
573 }
574
575 static HRESULT WINAPI domtext_substringData(
576     IXMLDOMText *iface,
577     LONG offset, LONG count, BSTR *p)
578 {
579     domtext *This = impl_from_IXMLDOMText( iface );
580     HRESULT hr;
581     BSTR data;
582
583     TRACE("(%p)->(%d %d %p)\n", This, offset, count, p);
584
585     if(!p)
586         return E_INVALIDARG;
587
588     *p = NULL;
589     if(offset < 0 || count < 0)
590         return E_INVALIDARG;
591
592     if(count == 0)
593         return S_FALSE;
594
595     hr = IXMLDOMText_get_data(iface, &data);
596     if(hr == S_OK)
597     {
598         LONG len = SysStringLen(data);
599
600         if(offset < len)
601         {
602             if(offset + count > len)
603                 *p = SysAllocString(&data[offset]);
604             else
605                 *p = SysAllocStringLen(&data[offset], count);
606         }
607         else
608             hr = S_FALSE;
609
610         SysFreeString(data);
611     }
612
613     return hr;
614 }
615
616 static HRESULT WINAPI domtext_appendData(
617     IXMLDOMText *iface,
618     BSTR p)
619 {
620     domtext *This = impl_from_IXMLDOMText( iface );
621     HRESULT hr;
622     BSTR data;
623     LONG p_len;
624
625     TRACE("(%p)->(%s)\n", This, debugstr_w(p));
626
627     /* Nothing to do if NULL or an Empty string passed in. */
628     if((p_len = SysStringLen(p)) == 0) return S_OK;
629
630     hr = IXMLDOMText_get_data(iface, &data);
631     if(hr == S_OK)
632     {
633         LONG len = SysStringLen(data);
634         BSTR str = SysAllocStringLen(NULL, p_len + len);
635
636         memcpy(str, data, len*sizeof(WCHAR));
637         memcpy(&str[len], p, p_len*sizeof(WCHAR));
638         str[len+p_len] = 0;
639
640         hr = IXMLDOMText_put_data(iface, str);
641
642         SysFreeString(str);
643         SysFreeString(data);
644     }
645
646     return hr;
647 }
648
649 static HRESULT WINAPI domtext_insertData(
650     IXMLDOMText *iface,
651     LONG offset, BSTR p)
652 {
653     domtext *This = impl_from_IXMLDOMText( iface );
654     HRESULT hr;
655     BSTR data;
656     LONG p_len;
657
658     TRACE("(%p)->(%d %s)\n", This, offset, debugstr_w(p));
659
660     /* If have a NULL or empty string, don't do anything. */
661     if((p_len = SysStringLen(p)) == 0)
662         return S_OK;
663
664     if(offset < 0)
665     {
666         return E_INVALIDARG;
667     }
668
669     hr = IXMLDOMText_get_data(iface, &data);
670     if(hr == S_OK)
671     {
672         LONG len = SysStringLen(data);
673         BSTR str;
674
675         if(len < offset)
676         {
677             SysFreeString(data);
678             return E_INVALIDARG;
679         }
680
681         str = SysAllocStringLen(NULL, len + p_len);
682         /* start part, supplied string and end part */
683         memcpy(str, data, offset*sizeof(WCHAR));
684         memcpy(&str[offset], p, p_len*sizeof(WCHAR));
685         memcpy(&str[offset+p_len], &data[offset], (len-offset)*sizeof(WCHAR));
686         str[len+p_len] = 0;
687
688         hr = IXMLDOMText_put_data(iface, str);
689
690         SysFreeString(str);
691         SysFreeString(data);
692     }
693
694     return hr;
695 }
696
697 static HRESULT WINAPI domtext_deleteData(
698     IXMLDOMText *iface,
699     LONG offset, LONG count)
700 {
701     HRESULT hr;
702     LONG len = -1;
703     BSTR str;
704
705     TRACE("(%p)->(%d %d)\n", iface, offset, count);
706
707     hr = IXMLDOMText_get_length(iface, &len);
708     if(hr != S_OK) return hr;
709
710     if((offset < 0) || (offset > len) || (count < 0))
711         return E_INVALIDARG;
712
713     if(len == 0) return S_OK;
714
715     /* cutting start or end */
716     if((offset == 0) || ((count + offset) >= len))
717     {
718         if(offset == 0)
719             IXMLDOMText_substringData(iface, count, len - count, &str);
720         else
721             IXMLDOMText_substringData(iface, 0, offset, &str);
722         hr = IXMLDOMText_put_data(iface, str);
723     }
724     else
725     /* cutting from the inside */
726     {
727         BSTR str_end;
728
729         IXMLDOMText_substringData(iface, 0, offset, &str);
730         IXMLDOMText_substringData(iface, offset + count, len - count, &str_end);
731
732         hr = IXMLDOMText_put_data(iface, str);
733         if(hr == S_OK)
734             hr = IXMLDOMText_appendData(iface, str_end);
735
736         SysFreeString(str_end);
737     }
738
739     SysFreeString(str);
740
741     return hr;
742 }
743
744 static HRESULT WINAPI domtext_replaceData(
745     IXMLDOMText *iface,
746     LONG offset, LONG count, BSTR p)
747 {
748     domtext *This = impl_from_IXMLDOMText( iface );
749     HRESULT hr;
750
751     TRACE("(%p)->(%d %d %s)\n", This, offset, count, debugstr_w(p));
752
753     hr = IXMLDOMText_deleteData(iface, offset, count);
754
755     if (hr == S_OK)
756        hr = IXMLDOMText_insertData(iface, offset, p);
757
758     return hr;
759 }
760
761 static HRESULT WINAPI domtext_splitText(
762     IXMLDOMText *iface,
763     LONG offset, IXMLDOMText **txtNode)
764 {
765     domtext *This = impl_from_IXMLDOMText( iface );
766     LONG length = 0;
767
768     TRACE("(%p)->(%d %p)\n", This, offset, txtNode);
769
770     if (!txtNode || offset < 0) return E_INVALIDARG;
771
772     *txtNode = NULL;
773
774     IXMLDOMText_get_length(iface, &length);
775
776     if (offset > length) return E_INVALIDARG;
777     if (offset == length) return S_FALSE;
778
779     FIXME("adjacent text nodes are not supported\n");
780
781     return E_NOTIMPL;
782 }
783
784 static const struct IXMLDOMTextVtbl domtext_vtbl =
785 {
786     domtext_QueryInterface,
787     domtext_AddRef,
788     domtext_Release,
789     domtext_GetTypeInfoCount,
790     domtext_GetTypeInfo,
791     domtext_GetIDsOfNames,
792     domtext_Invoke,
793     domtext_get_nodeName,
794     domtext_get_nodeValue,
795     domtext_put_nodeValue,
796     domtext_get_nodeType,
797     domtext_get_parentNode,
798     domtext_get_childNodes,
799     domtext_get_firstChild,
800     domtext_get_lastChild,
801     domtext_get_previousSibling,
802     domtext_get_nextSibling,
803     domtext_get_attributes,
804     domtext_insertBefore,
805     domtext_replaceChild,
806     domtext_removeChild,
807     domtext_appendChild,
808     domtext_hasChildNodes,
809     domtext_get_ownerDocument,
810     domtext_cloneNode,
811     domtext_get_nodeTypeString,
812     domtext_get_text,
813     domtext_put_text,
814     domtext_get_specified,
815     domtext_get_definition,
816     domtext_get_nodeTypedValue,
817     domtext_put_nodeTypedValue,
818     domtext_get_dataType,
819     domtext_put_dataType,
820     domtext_get_xml,
821     domtext_transformNode,
822     domtext_selectNodes,
823     domtext_selectSingleNode,
824     domtext_get_parsed,
825     domtext_get_namespaceURI,
826     domtext_get_prefix,
827     domtext_get_baseName,
828     domtext_transformNodeToObject,
829     domtext_get_data,
830     domtext_put_data,
831     domtext_get_length,
832     domtext_substringData,
833     domtext_appendData,
834     domtext_insertData,
835     domtext_deleteData,
836     domtext_replaceData,
837     domtext_splitText
838 };
839
840 IUnknown* create_text( xmlNodePtr text )
841 {
842     domtext *This;
843
844     This = heap_alloc( sizeof *This );
845     if ( !This )
846         return NULL;
847
848     This->lpVtbl = &domtext_vtbl;
849     This->ref = 1;
850
851     init_xmlnode(&This->node, text, (IXMLDOMNode*)&This->lpVtbl, NULL);
852
853     return (IUnknown*) &This->lpVtbl;
854 }
855
856 #endif