push b5232b2081a0e20e4bf07d6ded424d0101e4a589
[wine/hacks.git] / dlls / mshtml / txtrange.c
blob4e67af9fb2e37b59e3045b636524a8d653e67ce2
1 /*
2 * Copyright 2006-2007 Jacek Caban for CodeWeavers
4 * This library is free software; you can redistribute it and/or
5 * modify it under the terms of the GNU Lesser General Public
6 * License as published by the Free Software Foundation; either
7 * version 2.1 of the License, or (at your option) any later version.
9 * This library is distributed in the hope that it will be useful,
10 * but WITHOUT ANY WARRANTY; without even the implied warranty of
11 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
12 * Lesser General Public License for more details.
14 * You should have received a copy of the GNU Lesser General Public
15 * License along with this library; if not, write to the Free Software
16 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
19 #include "config.h"
21 #include <stdarg.h>
22 #include <stdio.h>
24 #define COBJMACROS
26 #include "windef.h"
27 #include "winbase.h"
28 #include "winuser.h"
29 #include "winnls.h"
30 #include "ole2.h"
32 #include "wine/debug.h"
33 #include "wine/unicode.h"
35 #include "mshtml_private.h"
37 WINE_DEFAULT_DEBUG_CHANNEL(mshtml);
39 static const WCHAR brW[] = {'b','r',0};
41 typedef struct {
42 const IHTMLTxtRangeVtbl *lpHTMLTxtRangeVtbl;
44 LONG ref;
46 nsIDOMRange *nsrange;
47 HTMLDocument *doc;
49 struct list entry;
50 } HTMLTxtRange;
52 #define HTMLTXTRANGE(x) ((IHTMLTxtRange*) &(x)->lpHTMLTxtRangeVtbl)
54 typedef struct {
55 WCHAR *buf;
56 DWORD len;
57 DWORD size;
58 } wstrbuf_t;
60 typedef struct {
61 PRUint16 type;
62 nsIDOMNode *node;
63 PRUint32 off;
64 nsAString str;
65 const PRUnichar *p;
66 } dompos_t;
68 typedef enum {
69 RU_UNKNOWN,
70 RU_CHAR,
71 RU_WORD,
72 RU_SENTENCE,
73 RU_TEXTEDIT
74 } range_unit_t;
76 static HTMLTxtRange *get_range_object(HTMLDocument *doc, IHTMLTxtRange *iface)
78 HTMLTxtRange *iter;
80 LIST_FOR_EACH_ENTRY(iter, &doc->range_list, HTMLTxtRange, entry) {
81 if(HTMLTXTRANGE(iter) == iface)
82 return iter;
85 ERR("Could not find range in document\n");
86 return NULL;
89 static range_unit_t string_to_unit(LPCWSTR str)
91 static const WCHAR characterW[] =
92 {'c','h','a','r','a','c','t','e','r',0};
93 static const WCHAR wordW[] =
94 {'w','o','r','d',0};
95 static const WCHAR sentenceW[] =
96 {'s','e','n','t','e','n','c','e',0};
97 static const WCHAR texteditW[] =
98 {'t','e','x','t','e','d','i','t',0};
100 if(!strcmpiW(str, characterW)) return RU_CHAR;
101 if(!strcmpiW(str, wordW)) return RU_WORD;
102 if(!strcmpiW(str, sentenceW)) return RU_SENTENCE;
103 if(!strcmpiW(str, texteditW)) return RU_TEXTEDIT;
105 return RU_UNKNOWN;
108 static int string_to_nscmptype(LPCWSTR str)
110 static const WCHAR seW[] = {'S','t','a','r','t','T','o','E','n','d',0};
111 static const WCHAR ssW[] = {'S','t','a','r','t','T','o','S','t','a','r','t',0};
112 static const WCHAR esW[] = {'E','n','d','T','o','S','t','a','r','t',0};
113 static const WCHAR eeW[] = {'E','n','d','T','o','E','n','d',0};
115 if(!strcmpiW(str, seW)) return NS_START_TO_END;
116 if(!strcmpiW(str, ssW)) return NS_START_TO_START;
117 if(!strcmpiW(str, esW)) return NS_END_TO_START;
118 if(!strcmpiW(str, eeW)) return NS_END_TO_END;
120 return -1;
123 static PRUint16 get_node_type(nsIDOMNode *node)
125 PRUint16 type = 0xfff;
127 if(node)
128 nsIDOMNode_GetNodeType(node, &type);
130 return type;
133 static BOOL is_br_node(nsIDOMNode *node)
135 nsIDOMElement *elem;
136 nsAString tag_str;
137 const PRUnichar *tag;
138 BOOL ret = FALSE;
139 nsresult nsres;
141 nsres = nsIDOMNode_QueryInterface(node, &IID_nsIDOMElement, (void**)&elem);
142 if(NS_FAILED(nsres))
143 return FALSE;
145 nsAString_Init(&tag_str, NULL);
146 nsIDOMElement_GetTagName(elem, &tag_str);
147 nsIDOMElement_Release(elem);
148 nsAString_GetData(&tag_str, &tag, 0);
150 if(!strcmpiW(tag, brW))
151 ret = TRUE;
153 nsAString_Finish(&tag_str);
155 return ret;
158 static inline void wstrbuf_init(wstrbuf_t *buf)
160 buf->len = 0;
161 buf->size = 16;
162 buf->buf = mshtml_alloc(buf->size * sizeof(WCHAR));
163 *buf->buf = 0;
166 static inline void wstrbuf_finish(wstrbuf_t *buf)
168 mshtml_free(buf->buf);
171 static void wstrbuf_append_len(wstrbuf_t *buf, LPCWSTR str, int len)
173 if(buf->len+len >= buf->size) {
174 buf->size = 2*buf->len+len;
175 buf->buf = mshtml_realloc(buf->buf, buf->size * sizeof(WCHAR));
178 memcpy(buf->buf+buf->len, str, len*sizeof(WCHAR));
179 buf->len += len;
180 buf->buf[buf->len] = 0;
183 static inline void wstrbuf_append(wstrbuf_t *buf, LPCWSTR str)
185 wstrbuf_append_len(buf, str, strlenW(str));
188 static void wstrbuf_append_node(wstrbuf_t *buf, nsIDOMNode *node)
191 switch(get_node_type(node)) {
192 case TEXT_NODE: {
193 nsIDOMText *nstext;
194 nsAString data_str;
195 const PRUnichar *data;
197 nsIDOMNode_QueryInterface(node, &IID_nsIDOMText, (void**)&nstext);
199 nsAString_Init(&data_str, NULL);
200 nsIDOMText_GetData(nstext, &data_str);
201 nsAString_GetData(&data_str, &data, NULL);
202 wstrbuf_append(buf, data);
203 nsAString_Finish(&data_str);
205 nsIDOMText_Release(nstext);
207 break;
209 case ELEMENT_NODE:
210 if(is_br_node(node)) {
211 static const WCHAR endlW[] = {'\r','\n'};
212 wstrbuf_append_len(buf, endlW, 2);
217 static BOOL fill_nodestr(dompos_t *pos)
219 nsIDOMText *text;
220 nsresult nsres;
222 if(pos->type != TEXT_NODE)
223 return FALSE;
225 nsres = nsIDOMNode_QueryInterface(pos->node, &IID_nsIDOMText, (void**)&text);
226 if(NS_FAILED(nsres))
227 return FALSE;
229 nsAString_Init(&pos->str, NULL);
230 nsIDOMText_GetData(text, &pos->str);
231 nsIDOMText_Release(text);
232 nsAString_GetData(&pos->str, &pos->p, NULL);
234 return TRUE;
237 static nsIDOMNode *next_node(nsIDOMNode *iter)
239 nsIDOMNode *ret, *tmp;
240 nsresult nsres;
242 if(!iter)
243 return NULL;
245 nsres = nsIDOMNode_GetFirstChild(iter, &ret);
246 if(NS_SUCCEEDED(nsres) && ret)
247 return ret;
249 nsIDOMNode_AddRef(iter);
251 do {
252 nsres = nsIDOMNode_GetNextSibling(iter, &ret);
253 if(NS_SUCCEEDED(nsres) && ret) {
254 nsIDOMNode_Release(iter);
255 return ret;
258 nsres = nsIDOMNode_GetParentNode(iter, &tmp);
259 nsIDOMNode_Release(iter);
260 iter = tmp;
261 }while(NS_SUCCEEDED(nsres) && iter);
263 return NULL;
266 static nsIDOMNode *prev_node(HTMLTxtRange *This, nsIDOMNode *iter)
268 nsIDOMNode *ret, *tmp;
269 nsresult nsres;
271 if(!iter) {
272 nsIDOMHTMLDocument *nshtmldoc;
273 nsIDOMHTMLElement *nselem;
274 nsIDOMDocument *nsdoc;
276 nsIWebNavigation_GetDocument(This->doc->nscontainer->navigation, &nsdoc);
277 nsIDOMDocument_QueryInterface(nsdoc, &IID_nsIDOMHTMLDocument, (void**)&nshtmldoc);
278 nsIDOMDocument_Release(nsdoc);
279 nsIDOMHTMLDocument_GetBody(nshtmldoc, &nselem);
280 nsIDOMHTMLDocument_Release(nshtmldoc);
282 nsIDOMElement_GetLastChild(nselem, &tmp);
283 if(!tmp)
284 return (nsIDOMNode*)nselem;
286 while(tmp) {
287 ret = tmp;
288 nsIDOMNode_GetLastChild(ret, &tmp);
291 nsIDOMElement_Release(nselem);
293 return ret;
296 nsres = nsIDOMNode_GetLastChild(iter, &ret);
297 if(NS_SUCCEEDED(nsres) && ret)
298 return ret;
300 nsIDOMNode_AddRef(iter);
302 do {
303 nsres = nsIDOMNode_GetPreviousSibling(iter, &ret);
304 if(NS_SUCCEEDED(nsres) && ret) {
305 nsIDOMNode_Release(iter);
306 return ret;
309 nsres = nsIDOMNode_GetParentNode(iter, &tmp);
310 nsIDOMNode_Release(iter);
311 iter = tmp;
312 }while(NS_SUCCEEDED(nsres) && iter);
314 return NULL;
317 static nsIDOMNode *get_child_node(nsIDOMNode *node, PRUint32 off)
319 nsIDOMNodeList *node_list;
320 nsIDOMNode *ret = NULL;
322 nsIDOMNode_GetChildNodes(node, &node_list);
323 nsIDOMNodeList_Item(node_list, off, &ret);
324 nsIDOMNodeList_Release(node_list);
326 return ret;
329 static void get_cur_pos(HTMLTxtRange *This, BOOL start, dompos_t *pos)
331 nsIDOMNode *node;
332 PRInt32 off;
334 pos->p = NULL;
336 if(!start) {
337 PRBool collapsed;
338 nsIDOMRange_GetCollapsed(This->nsrange, &collapsed);
339 start = collapsed;
342 if(start) {
343 nsIDOMRange_GetStartContainer(This->nsrange, &node);
344 nsIDOMRange_GetStartOffset(This->nsrange, &off);
345 }else {
346 nsIDOMRange_GetEndContainer(This->nsrange, &node);
347 nsIDOMRange_GetEndOffset(This->nsrange, &off);
350 pos->type = get_node_type(node);
351 if(pos->type == ELEMENT_NODE) {
352 if(start) {
353 pos->node = get_child_node(node, off);
354 pos->off = 0;
355 }else {
356 pos->node = off ? get_child_node(node, off-1) : prev_node(This, node);
357 pos->off = -1;
360 pos->type = get_node_type(pos->node);
361 nsIDOMNode_Release(node);
362 }else if(start) {
363 pos->node = node;
364 pos->off = off;
365 }else if(off) {
366 pos->node = node;
367 pos->off = off-1;
368 }else {
369 pos->node = prev_node(This, node);
370 pos->off = -1;
371 nsIDOMNode_Release(node);
374 if(pos->type == TEXT_NODE)
375 fill_nodestr(pos);
378 static void set_range_pos(HTMLTxtRange *This, BOOL start, dompos_t *pos)
380 nsresult nsres;
382 if(start) {
383 if(pos->type == TEXT_NODE)
384 nsres = nsIDOMRange_SetStart(This->nsrange, pos->node, pos->off);
385 else
386 nsres = nsIDOMRange_SetStartBefore(This->nsrange, pos->node);
387 }else {
388 if(pos->type == TEXT_NODE)
389 nsres = nsIDOMRange_SetEnd(This->nsrange, pos->node, pos->off+1);
390 else
391 nsres = nsIDOMRange_SetEndAfter(This->nsrange, pos->node);
394 if(NS_FAILED(nsres))
395 ERR("failed: %p %08x\n", pos->node, nsres);
398 static inline void dompos_release(dompos_t *pos)
400 if(pos->node)
401 nsIDOMNode_Release(pos->node);
403 if(pos->p)
404 nsAString_Finish(&pos->str);
407 static inline void dompos_addref(dompos_t *pos)
409 if(pos->node)
410 nsIDOMNode_AddRef(pos->node);
412 if(pos->type == TEXT_NODE)
413 fill_nodestr(pos);
416 static void range_to_string(HTMLTxtRange *This, wstrbuf_t *buf)
418 nsIDOMNode *iter, *tmp;
419 dompos_t start_pos, end_pos;
420 PRBool collapsed;
422 nsIDOMRange_GetCollapsed(This->nsrange, &collapsed);
423 if(collapsed) {
424 wstrbuf_finish(buf);
425 buf->buf = NULL;
426 buf->size = 0;
427 return;
430 get_cur_pos(This, FALSE, &end_pos);
431 get_cur_pos(This, TRUE, &start_pos);
433 if(start_pos.type == TEXT_NODE) {
434 if(start_pos.node == end_pos.node) {
435 wstrbuf_append_len(buf, start_pos.p+start_pos.off, end_pos.off-start_pos.off+1);
436 iter = start_pos.node;
437 nsIDOMNode_AddRef(iter);
438 }else {
439 wstrbuf_append(buf, start_pos.p+start_pos.off);
440 iter = next_node(start_pos.node);
442 }else {
443 iter = start_pos.node;
444 nsIDOMNode_AddRef(iter);
447 while(iter != end_pos.node) {
448 wstrbuf_append_node(buf, iter);
449 tmp = next_node(iter);
450 nsIDOMNode_Release(iter);
451 iter = tmp;
454 nsIDOMNode_AddRef(end_pos.node);
456 if(start_pos.node != end_pos.node && !is_br_node(end_pos.node))
457 wstrbuf_append_len(buf, end_pos.p, end_pos.off+1);
459 nsIDOMNode_Release(iter);
460 dompos_release(&start_pos);
461 dompos_release(&end_pos);
464 static WCHAR get_pos_char(const dompos_t *pos)
466 switch(pos->type) {
467 case TEXT_NODE:
468 return pos->p[pos->off];
469 case ELEMENT_NODE:
470 if(is_br_node(pos->node))
471 return '\n';
474 return 0;
477 static WCHAR next_char(const dompos_t *pos, dompos_t *new_pos)
479 nsIDOMNode *iter, *tmp;
481 if(pos->type == TEXT_NODE && pos->off != -1 && pos->p[pos->off+1]) {
482 *new_pos = *pos;
483 new_pos->off++;
484 dompos_addref(new_pos);
485 return new_pos->p[new_pos->off];
488 iter = next_node(pos->node);
489 if(!iter)
490 return 0;
492 while(1) {
493 switch(get_node_type(iter)) {
494 case TEXT_NODE:
495 new_pos->node = iter;
496 new_pos->type = TEXT_NODE;
497 new_pos->off = 0;
498 fill_nodestr(new_pos);
499 return *new_pos->p;
501 case ELEMENT_NODE:
502 if(!is_br_node(iter))
503 break;
505 new_pos->node = iter;
506 new_pos->type = ELEMENT_NODE;
507 new_pos->off = 0;
508 new_pos->p = NULL;
509 return '\n';
512 tmp = iter;
513 iter = next_node(iter);
514 nsIDOMNode_Release(tmp);
516 if(!iter)
517 break;
520 return 0;
523 static WCHAR prev_char(HTMLTxtRange *This, const dompos_t *pos, dompos_t *new_pos)
525 nsIDOMNode *iter, *tmp;
527 if(pos->type == TEXT_NODE && pos->off > 0) {
528 *new_pos = *pos;
529 new_pos->off--;
530 dompos_addref(new_pos);
531 return new_pos->p[new_pos->off];
534 iter = prev_node(This, pos->node);
535 if(!iter)
536 return 0;
538 while(1) {
539 switch(get_node_type(iter)) {
540 case TEXT_NODE:
541 new_pos->node = iter;
542 new_pos->type = TEXT_NODE;
543 fill_nodestr(new_pos);
544 new_pos->off = strlenW(new_pos->p)-1;
545 return new_pos->p[new_pos->off];
547 case ELEMENT_NODE:
548 if(!is_br_node(iter))
549 break;
551 new_pos->node = iter;
552 new_pos->type = ELEMENT_NODE;
553 new_pos->off = 0;
554 new_pos->p = NULL;
555 return '\n';
558 tmp = iter;
559 iter = prev_node(This, iter);
560 nsIDOMNode_Release(tmp);
562 if(!iter)
563 break;
566 *new_pos = *pos;
567 dompos_addref(new_pos);
568 return 0;
571 static long move_next_chars(long cnt, const dompos_t *pos, BOOL col, dompos_t *new_pos)
573 dompos_t iter, tmp;
574 long ret = 0;
575 WCHAR c;
577 if(col)
578 ret++;
580 if(ret >= cnt) {
581 *new_pos = *pos;
582 dompos_addref(new_pos);
583 return ret;
586 c = next_char(pos, &iter);
587 ret++;
589 while(ret < cnt) {
590 tmp = iter;
591 c = next_char(&tmp, &iter);
592 if(!c) {
593 iter = tmp;
594 break;
596 ret++;
597 dompos_release(&tmp);
600 *new_pos = iter;
601 return ret;
604 static long move_prev_chars(HTMLTxtRange *This, long cnt, const dompos_t *pos, BOOL end, dompos_t *new_pos)
606 dompos_t iter, tmp;
607 long ret = 0;
608 WCHAR c;
610 c = prev_char(This, pos, &iter);
611 if(c)
612 ret++;
614 while(c && ret < cnt) {
615 tmp = iter;
616 c = prev_char(This, &tmp, &iter);
617 if(!c) {
618 iter = tmp;
619 if(end)
620 ret++;
621 break;
623 ret++;
624 dompos_release(&tmp);
627 *new_pos = iter;
628 return ret;
631 static BOOL find_next_space(const dompos_t *pos, BOOL first_space, dompos_t *ret)
633 dompos_t iter, tmp;
634 WCHAR c;
636 if(first_space) {
637 c = get_pos_char(pos);
638 if(c && isspaceW(c)) {
639 *ret = *pos;
640 dompos_addref(ret);
641 return FALSE;
645 c = next_char(pos, &iter);
646 if(!c) {
647 *ret = *pos;
648 dompos_addref(ret);
649 return FALSE;
652 while(!isspaceW(c)) {
653 tmp = iter;
654 c = next_char(&tmp, &iter);
655 if(!c) {
656 iter = tmp;
657 break;
659 dompos_release(&tmp);
662 *ret = iter;
663 return TRUE;
666 static long find_prev_space(HTMLTxtRange *This, const dompos_t *pos, BOOL first_space, dompos_t *ret)
668 dompos_t iter, tmp;
669 WCHAR c;
671 c = prev_char(This, pos, &iter);
672 if(!c || (first_space && isspaceW(c))) {
673 *ret = *pos;
674 dompos_addref(ret);
675 return FALSE;
678 while(1) {
679 tmp = iter;
680 c = prev_char(This, &tmp, &iter);
681 if(!c || isspaceW(c)) {
682 dompos_release(&iter);
683 break;
685 dompos_release(&tmp);
688 *ret = tmp;
689 return TRUE;
692 static long move_next_words(long cnt, const dompos_t *pos, dompos_t *new_pos)
694 dompos_t iter, tmp;
695 long ret = 0;
697 iter = *pos;
698 dompos_addref(&iter);
700 while(ret < cnt) {
701 if(!find_next_space(&iter, FALSE, &tmp))
702 break;
704 ret++;
705 dompos_release(&iter);
706 iter = tmp;
709 *new_pos = iter;
710 return ret;
713 static long move_prev_words(HTMLTxtRange *This, long cnt, const dompos_t *pos, dompos_t *new_pos)
715 dompos_t iter, tmp;
716 long ret = 0;
718 iter = *pos;
719 dompos_addref(&iter);
721 while(ret < cnt) {
722 if(!find_prev_space(This, &iter, FALSE, &tmp))
723 break;
725 dompos_release(&iter);
726 iter = tmp;
727 ret++;
730 *new_pos = iter;
731 return ret;
734 #define HTMLTXTRANGE_THIS(iface) DEFINE_THIS(HTMLTxtRange, HTMLTxtRange, iface)
736 static HRESULT WINAPI HTMLTxtRange_QueryInterface(IHTMLTxtRange *iface, REFIID riid, void **ppv)
738 HTMLTxtRange *This = HTMLTXTRANGE_THIS(iface);
740 *ppv = NULL;
742 if(IsEqualGUID(&IID_IUnknown, riid)) {
743 TRACE("(%p)->(IID_IUnknown %p)\n", This, ppv);
744 *ppv = HTMLTXTRANGE(This);
745 }else if(IsEqualGUID(&IID_IDispatch, riid)) {
746 TRACE("(%p)->(IID_IDispatch %p)\n", This, ppv);
747 *ppv = HTMLTXTRANGE(This);
748 }else if(IsEqualGUID(&IID_IHTMLTxtRange, riid)) {
749 TRACE("(%p)->(IID_IHTMLTxtRange %p)\n", This, ppv);
750 *ppv = HTMLTXTRANGE(This);
753 if(*ppv) {
754 IUnknown_AddRef((IUnknown*)*ppv);
755 return S_OK;
758 WARN("(%p)->(%s %p)\n", This, debugstr_guid(riid), ppv);
759 return E_NOINTERFACE;
762 static ULONG WINAPI HTMLTxtRange_AddRef(IHTMLTxtRange *iface)
764 HTMLTxtRange *This = HTMLTXTRANGE_THIS(iface);
765 LONG ref = InterlockedIncrement(&This->ref);
767 TRACE("(%p) ref=%d\n", This, ref);
769 return ref;
772 static ULONG WINAPI HTMLTxtRange_Release(IHTMLTxtRange *iface)
774 HTMLTxtRange *This = HTMLTXTRANGE_THIS(iface);
775 LONG ref = InterlockedDecrement(&This->ref);
777 TRACE("(%p) ref=%d\n", This, ref);
779 if(!ref) {
780 if(This->nsrange)
781 nsISelection_Release(This->nsrange);
782 if(This->doc)
783 list_remove(&This->entry);
784 mshtml_free(This);
787 return ref;
790 static HRESULT WINAPI HTMLTxtRange_GetTypeInfoCount(IHTMLTxtRange *iface, UINT *pctinfo)
792 HTMLTxtRange *This = HTMLTXTRANGE_THIS(iface);
793 FIXME("(%p)->(%p)\n", This, pctinfo);
794 return E_NOTIMPL;
797 static HRESULT WINAPI HTMLTxtRange_GetTypeInfo(IHTMLTxtRange *iface, UINT iTInfo,
798 LCID lcid, ITypeInfo **ppTInfo)
800 HTMLTxtRange *This = HTMLTXTRANGE_THIS(iface);
801 FIXME("(%p)->(%u %u %p)\n", This, iTInfo, lcid, ppTInfo);
802 return E_NOTIMPL;
805 static HRESULT WINAPI HTMLTxtRange_GetIDsOfNames(IHTMLTxtRange *iface, REFIID riid,
806 LPOLESTR *rgszNames, UINT cNames,
807 LCID lcid, DISPID *rgDispId)
809 HTMLTxtRange *This = HTMLTXTRANGE_THIS(iface);
810 FIXME("(%p)->(%s %p %u %u %p)\n", This, debugstr_guid(riid), rgszNames, cNames,
811 lcid, rgDispId);
812 return E_NOTIMPL;
815 static HRESULT WINAPI HTMLTxtRange_Invoke(IHTMLTxtRange *iface, DISPID dispIdMember,
816 REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams,
817 VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
819 HTMLTxtRange *This = HTMLTXTRANGE_THIS(iface);
820 FIXME("(%p)->(%d %s %d %d %p %p %p %p)\n", This, dispIdMember, debugstr_guid(riid),
821 lcid, wFlags, pDispParams, pVarResult, pExcepInfo, puArgErr);
822 return E_NOTIMPL;
825 static HRESULT WINAPI HTMLTxtRange_get_htmlText(IHTMLTxtRange *iface, BSTR *p)
827 HTMLTxtRange *This = HTMLTXTRANGE_THIS(iface);
829 TRACE("(%p)->(%p)\n", This, p);
831 *p = NULL;
833 if(This->nsrange) {
834 nsIDOMDocumentFragment *fragment;
835 nsresult nsres;
837 nsres = nsIDOMRange_CloneContents(This->nsrange, &fragment);
838 if(NS_SUCCEEDED(nsres)) {
839 const PRUnichar *nstext;
840 nsAString nsstr;
842 nsAString_Init(&nsstr, NULL);
843 nsnode_to_nsstring((nsIDOMNode*)fragment, &nsstr);
844 nsIDOMDocumentFragment_Release(fragment);
846 nsAString_GetData(&nsstr, &nstext, NULL);
847 *p = SysAllocString(nstext);
849 nsAString_Finish(&nsstr);
853 if(!*p) {
854 const WCHAR emptyW[] = {0};
855 *p = SysAllocString(emptyW);
858 TRACE("return %s\n", debugstr_w(*p));
859 return S_OK;
862 static HRESULT WINAPI HTMLTxtRange_put_text(IHTMLTxtRange *iface, BSTR v)
864 HTMLTxtRange *This = HTMLTXTRANGE_THIS(iface);
865 nsIDOMDocument *nsdoc;
866 nsIDOMText *text_node;
867 nsAString text_str;
868 nsresult nsres;
870 TRACE("(%p)->(%s)\n", This, debugstr_w(v));
872 if(!This->doc)
873 return MSHTML_E_NODOC;
875 nsres = nsIWebNavigation_GetDocument(This->doc->nscontainer->navigation, &nsdoc);
876 if(NS_FAILED(nsres)) {
877 ERR("GetDocument failed: %08x\n", nsres);
878 return S_OK;
881 nsAString_Init(&text_str, v);
882 nsres = nsIDOMDocument_CreateTextNode(nsdoc, &text_str, &text_node);
883 nsAString_Finish(&text_str);
884 if(NS_FAILED(nsres)) {
885 ERR("CreateTextNode failed: %08x\n", nsres);
886 return S_OK;
888 nsres = nsIDOMRange_DeleteContents(This->nsrange);
889 if(NS_FAILED(nsres))
890 ERR("DeleteContents failed: %08x\n", nsres);
892 nsres = nsIDOMRange_InsertNode(This->nsrange, (nsIDOMNode*)text_node);
893 if(NS_FAILED(nsres))
894 ERR("InsertNode failed: %08x\n", nsres);
896 return S_OK;
899 static HRESULT WINAPI HTMLTxtRange_get_text(IHTMLTxtRange *iface, BSTR *p)
901 HTMLTxtRange *This = HTMLTXTRANGE_THIS(iface);
902 wstrbuf_t buf;
904 TRACE("(%p)->(%p)\n", This, p);
906 *p = NULL;
907 if(!This->nsrange)
908 return S_OK;
910 wstrbuf_init(&buf);
911 range_to_string(This, &buf);
912 if(buf.buf)
913 *p = SysAllocString(buf.buf);
914 wstrbuf_finish(&buf);
916 TRACE("ret %s\n", debugstr_w(*p));
917 return S_OK;
920 static HRESULT WINAPI HTMLTxtRange_parentElement(IHTMLTxtRange *iface, IHTMLElement **parent)
922 HTMLTxtRange *This = HTMLTXTRANGE_THIS(iface);
923 nsIDOMNode *nsnode, *tmp;
924 HTMLDOMNode *node;
926 TRACE("(%p)->(%p)\n", This, parent);
928 nsIDOMRange_GetCommonAncestorContainer(This->nsrange, &nsnode);
929 while(nsnode && get_node_type(nsnode) != ELEMENT_NODE) {
930 nsIDOMNode_GetParentNode(nsnode, &tmp);
931 nsIDOMNode_Release(nsnode);
932 nsnode = tmp;
935 if(!nsnode) {
936 *parent = NULL;
937 return S_OK;
940 node = get_node(This->doc, nsnode);
941 nsIDOMNode_Release(nsnode);
943 return IHTMLDOMNode_QueryInterface(HTMLDOMNODE(node), &IID_IHTMLElement, (void**)parent);
946 static HRESULT WINAPI HTMLTxtRange_duplicate(IHTMLTxtRange *iface, IHTMLTxtRange **Duplicate)
948 HTMLTxtRange *This = HTMLTXTRANGE_THIS(iface);
949 nsIDOMRange *nsrange = NULL;
951 TRACE("(%p)->(%p)\n", This, Duplicate);
953 nsIDOMRange_CloneRange(This->nsrange, &nsrange);
954 *Duplicate = HTMLTxtRange_Create(This->doc, nsrange);
955 nsIDOMRange_Release(nsrange);
957 return S_OK;
960 static HRESULT WINAPI HTMLTxtRange_inRange(IHTMLTxtRange *iface, IHTMLTxtRange *Range,
961 VARIANT_BOOL *InRange)
963 HTMLTxtRange *This = HTMLTXTRANGE_THIS(iface);
964 HTMLTxtRange *src_range;
965 PRInt16 nsret = 0;
966 nsresult nsres;
968 TRACE("(%p)->(%p %p)\n", This, Range, InRange);
970 *InRange = VARIANT_FALSE;
972 src_range = get_range_object(This->doc, Range);
973 if(!src_range)
974 return E_FAIL;
976 nsres = nsIDOMRange_CompareBoundaryPoints(This->nsrange, NS_START_TO_START,
977 src_range->nsrange, &nsret);
978 if(NS_SUCCEEDED(nsres) && nsret <= 0) {
979 nsres = nsIDOMRange_CompareBoundaryPoints(This->nsrange, NS_END_TO_END,
980 src_range->nsrange, &nsret);
981 if(NS_SUCCEEDED(nsres) && nsret >= 0)
982 *InRange = VARIANT_TRUE;
985 if(NS_FAILED(nsres))
986 ERR("CompareBoundaryPoints failed: %08x\n", nsres);
988 return S_OK;
991 static HRESULT WINAPI HTMLTxtRange_isEqual(IHTMLTxtRange *iface, IHTMLTxtRange *Range,
992 VARIANT_BOOL *IsEqual)
994 HTMLTxtRange *This = HTMLTXTRANGE_THIS(iface);
995 HTMLTxtRange *src_range;
996 PRInt16 nsret = 0;
997 nsresult nsres;
999 TRACE("(%p)->(%p %p)\n", This, Range, IsEqual);
1001 *IsEqual = VARIANT_FALSE;
1003 src_range = get_range_object(This->doc, Range);
1004 if(!src_range)
1005 return E_FAIL;
1007 nsres = nsIDOMRange_CompareBoundaryPoints(This->nsrange, NS_START_TO_START,
1008 src_range->nsrange, &nsret);
1009 if(NS_SUCCEEDED(nsres) && !nsret) {
1010 nsres = nsIDOMRange_CompareBoundaryPoints(This->nsrange, NS_END_TO_END,
1011 src_range->nsrange, &nsret);
1012 if(NS_SUCCEEDED(nsres) && !nsret)
1013 *IsEqual = VARIANT_TRUE;
1016 if(NS_FAILED(nsres))
1017 ERR("CompareBoundaryPoints failed: %08x\n", nsres);
1019 return S_OK;
1022 static HRESULT WINAPI HTMLTxtRange_scrollIntoView(IHTMLTxtRange *iface, VARIANT_BOOL fStart)
1024 HTMLTxtRange *This = HTMLTXTRANGE_THIS(iface);
1025 FIXME("(%p)->(%x)\n", This, fStart);
1026 return E_NOTIMPL;
1029 static HRESULT WINAPI HTMLTxtRange_collapse(IHTMLTxtRange *iface, VARIANT_BOOL Start)
1031 HTMLTxtRange *This = HTMLTXTRANGE_THIS(iface);
1033 TRACE("(%p)->(%x)\n", This, Start);
1035 nsIDOMRange_Collapse(This->nsrange, Start != VARIANT_FALSE);
1036 return S_OK;
1039 static HRESULT WINAPI HTMLTxtRange_expand(IHTMLTxtRange *iface, BSTR Unit, VARIANT_BOOL *Success)
1041 HTMLTxtRange *This = HTMLTXTRANGE_THIS(iface);
1042 range_unit_t unit;
1044 TRACE("(%p)->(%s %p)\n", This, debugstr_w(Unit), Success);
1046 unit = string_to_unit(Unit);
1047 if(unit == RU_UNKNOWN)
1048 return E_INVALIDARG;
1050 switch(unit) {
1051 case RU_WORD: {
1052 dompos_t end_pos, start_pos, new_pos;
1054 *Success = VARIANT_FALSE;
1056 get_cur_pos(This, TRUE, &start_pos);
1057 get_cur_pos(This, FALSE, &end_pos);
1058 if(find_next_space(&end_pos, TRUE, &new_pos)) {
1059 set_range_pos(This, FALSE, &new_pos);
1060 *Success = VARIANT_TRUE;
1062 dompos_release(&new_pos);
1064 if(find_prev_space(This, &start_pos, TRUE, &new_pos)) {
1065 set_range_pos(This, TRUE, &new_pos);
1066 *Success = VARIANT_TRUE;
1069 dompos_release(&new_pos);
1070 dompos_release(&end_pos);
1072 break;
1074 default:
1075 FIXME("Unimplemented unit %s\n", debugstr_w(Unit));
1078 return S_OK;
1081 static HRESULT WINAPI HTMLTxtRange_move(IHTMLTxtRange *iface, BSTR Unit,
1082 long Count, long *ActualCount)
1084 HTMLTxtRange *This = HTMLTXTRANGE_THIS(iface);
1085 range_unit_t unit;
1087 TRACE("(%p)->(%s %ld %p)\n", This, debugstr_w(Unit), Count, ActualCount);
1089 unit = string_to_unit(Unit);
1090 if(unit == RU_UNKNOWN)
1091 return E_INVALIDARG;
1093 IHTMLTxtRange_collapse(HTMLTXTRANGE(This), TRUE);
1095 if(!Count) {
1096 *ActualCount = 0;
1097 return S_OK;
1100 switch(unit) {
1101 case RU_CHAR: {
1102 dompos_t cur_pos, new_pos;
1104 get_cur_pos(This, TRUE, &cur_pos);
1106 if(Count > 0) {
1107 *ActualCount = move_next_chars(Count, &cur_pos, TRUE, &new_pos);
1108 set_range_pos(This, FALSE, &new_pos);
1109 IHTMLTxtRange_collapse(HTMLTXTRANGE(This), FALSE);
1110 dompos_release(&new_pos);
1111 }else {
1112 *ActualCount = -move_prev_chars(This, -Count, &cur_pos, FALSE, &new_pos);
1113 set_range_pos(This, TRUE, &new_pos);
1114 IHTMLTxtRange_collapse(HTMLTXTRANGE(This), TRUE);
1115 dompos_release(&new_pos);
1118 dompos_release(&cur_pos);
1119 break;
1122 case RU_WORD: {
1123 dompos_t cur_pos, new_pos;
1125 get_cur_pos(This, TRUE, &cur_pos);
1127 if(Count > 0) {
1128 *ActualCount = move_next_words(Count, &cur_pos, &new_pos);
1129 set_range_pos(This, FALSE, &new_pos);
1130 IHTMLTxtRange_collapse(HTMLTXTRANGE(This), FALSE);
1131 dompos_release(&new_pos);
1132 }else {
1133 *ActualCount = -move_prev_words(This, -Count, &cur_pos, &new_pos);
1134 set_range_pos(This, TRUE, &new_pos);
1135 IHTMLTxtRange_collapse(HTMLTXTRANGE(This), TRUE);
1136 dompos_release(&new_pos);
1139 dompos_release(&cur_pos);
1140 break;
1143 default:
1144 FIXME("unimplemented unit %s\n", debugstr_w(Unit));
1147 TRACE("ret %ld\n", *ActualCount);
1148 return S_OK;
1151 static HRESULT WINAPI HTMLTxtRange_moveStart(IHTMLTxtRange *iface, BSTR Unit,
1152 long Count, long *ActualCount)
1154 HTMLTxtRange *This = HTMLTXTRANGE_THIS(iface);
1155 FIXME("(%p)->(%s %ld %p)\n", This, debugstr_w(Unit), Count, ActualCount);
1156 return E_NOTIMPL;
1159 static HRESULT WINAPI HTMLTxtRange_moveEnd(IHTMLTxtRange *iface, BSTR Unit,
1160 long Count, long *ActualCount)
1162 HTMLTxtRange *This = HTMLTXTRANGE_THIS(iface);
1163 range_unit_t unit;
1165 TRACE("(%p)->(%s %ld %p)\n", This, debugstr_w(Unit), Count, ActualCount);
1167 unit = string_to_unit(Unit);
1168 if(unit == RU_UNKNOWN)
1169 return E_INVALIDARG;
1171 if(!Count) {
1172 *ActualCount = 0;
1173 return S_OK;
1176 switch(unit) {
1177 case RU_CHAR: {
1178 dompos_t cur_pos, new_pos;
1179 PRBool collapsed;
1181 get_cur_pos(This, FALSE, &cur_pos);
1182 nsIDOMRange_GetCollapsed(This->nsrange, &collapsed);
1184 if(Count > 0) {
1185 *ActualCount = move_next_chars(Count, &cur_pos, collapsed, &new_pos);
1186 set_range_pos(This, FALSE, &new_pos);
1187 }else {
1188 *ActualCount = -move_prev_chars(This, -Count, &cur_pos, TRUE, &new_pos);
1189 if(*ActualCount == Count)
1190 set_range_pos(This, FALSE, &new_pos);
1191 else
1192 IHTMLTxtRange_collapse(HTMLTXTRANGE(This), TRUE);
1195 dompos_release(&cur_pos);
1196 dompos_release(&new_pos);
1197 break;
1200 default:
1201 FIXME("unimplemented unit %s\n", debugstr_w(Unit));
1204 return S_OK;
1207 static HRESULT WINAPI HTMLTxtRange_select(IHTMLTxtRange *iface)
1209 HTMLTxtRange *This = HTMLTXTRANGE_THIS(iface);
1211 TRACE("(%p)\n", This);
1213 if(This->doc->nscontainer) {
1214 nsIDOMWindow *dom_window = NULL;
1215 nsISelection *nsselection;
1217 nsIWebBrowser_GetContentDOMWindow(This->doc->nscontainer->webbrowser, &dom_window);
1218 nsIDOMWindow_GetSelection(dom_window, &nsselection);
1219 nsIDOMWindow_Release(dom_window);
1221 nsISelection_RemoveAllRanges(nsselection);
1222 nsISelection_AddRange(nsselection, This->nsrange);
1224 nsISelection_Release(nsselection);
1227 return S_OK;
1230 static HRESULT WINAPI HTMLTxtRange_pasteHTML(IHTMLTxtRange *iface, BSTR html)
1232 HTMLTxtRange *This = HTMLTXTRANGE_THIS(iface);
1233 FIXME("(%p)->(%s)\n", This, debugstr_w(html));
1234 return E_NOTIMPL;
1237 static HRESULT WINAPI HTMLTxtRange_moveToElementText(IHTMLTxtRange *iface, IHTMLElement *element)
1239 HTMLTxtRange *This = HTMLTXTRANGE_THIS(iface);
1240 FIXME("(%p)->(%p)\n", This, element);
1241 return E_NOTIMPL;
1244 static HRESULT WINAPI HTMLTxtRange_setEndPoint(IHTMLTxtRange *iface, BSTR how,
1245 IHTMLTxtRange *SourceRange)
1247 HTMLTxtRange *This = HTMLTXTRANGE_THIS(iface);
1248 FIXME("(%p)->(%s %p)\n", This, debugstr_w(how), SourceRange);
1249 return E_NOTIMPL;
1252 static HRESULT WINAPI HTMLTxtRange_compareEndPoints(IHTMLTxtRange *iface, BSTR how,
1253 IHTMLTxtRange *SourceRange, long *ret)
1255 HTMLTxtRange *This = HTMLTXTRANGE_THIS(iface);
1256 HTMLTxtRange *src_range;
1257 PRInt16 nsret = 0;
1258 int nscmpt;
1259 nsresult nsres;
1261 TRACE("(%p)->(%s %p %p)\n", This, debugstr_w(how), SourceRange, ret);
1263 nscmpt = string_to_nscmptype(how);
1264 if(nscmpt == -1)
1265 return E_INVALIDARG;
1267 src_range = get_range_object(This->doc, SourceRange);
1268 if(!src_range)
1269 return E_FAIL;
1271 nsres = nsIDOMRange_CompareBoundaryPoints(This->nsrange, nscmpt, src_range->nsrange, &nsret);
1272 if(NS_FAILED(nsres))
1273 ERR("CompareBoundaryPoints failed: %08x\n", nsres);
1275 *ret = nsret;
1276 return S_OK;
1279 static HRESULT WINAPI HTMLTxtRange_findText(IHTMLTxtRange *iface, BSTR String,
1280 long count, long Flags, VARIANT_BOOL *Success)
1282 HTMLTxtRange *This = HTMLTXTRANGE_THIS(iface);
1283 FIXME("(%p)->(%s %ld %08lx %p)\n", This, debugstr_w(String), count, Flags, Success);
1284 return E_NOTIMPL;
1287 static HRESULT WINAPI HTMLTxtRange_moveToPoint(IHTMLTxtRange *iface, long x, long y)
1289 HTMLTxtRange *This = HTMLTXTRANGE_THIS(iface);
1290 FIXME("(%p)->(%ld %ld)\n", This, x, y);
1291 return E_NOTIMPL;
1294 static HRESULT WINAPI HTMLTxtRange_getBookmark(IHTMLTxtRange *iface, BSTR *Bookmark)
1296 HTMLTxtRange *This = HTMLTXTRANGE_THIS(iface);
1297 FIXME("(%p)->(%p)\n", This, Bookmark);
1298 return E_NOTIMPL;
1301 static HRESULT WINAPI HTMLTxtRange_moveToBookmark(IHTMLTxtRange *iface, BSTR Bookmark,
1302 VARIANT_BOOL *Success)
1304 HTMLTxtRange *This = HTMLTXTRANGE_THIS(iface);
1305 FIXME("(%p)->(%s %p)\n", This, debugstr_w(Bookmark), Success);
1306 return E_NOTIMPL;
1309 static HRESULT WINAPI HTMLTxtRange_queryCommandSupported(IHTMLTxtRange *iface, BSTR cmdID,
1310 VARIANT_BOOL *pfRet)
1312 HTMLTxtRange *This = HTMLTXTRANGE_THIS(iface);
1313 FIXME("(%p)->(%s %p)\n", This, debugstr_w(cmdID), pfRet);
1314 return E_NOTIMPL;
1317 static HRESULT WINAPI HTMLTxtRange_queryCommandEnabled(IHTMLTxtRange *iface, BSTR cmdID,
1318 VARIANT_BOOL *pfRet)
1320 HTMLTxtRange *This = HTMLTXTRANGE_THIS(iface);
1321 FIXME("(%p)->(%s %p)\n", This, debugstr_w(cmdID), pfRet);
1322 return E_NOTIMPL;
1325 static HRESULT WINAPI HTMLTxtRange_queryCommandState(IHTMLTxtRange *iface, BSTR cmdID,
1326 VARIANT_BOOL *pfRet)
1328 HTMLTxtRange *This = HTMLTXTRANGE_THIS(iface);
1329 FIXME("(%p)->(%s %p)\n", This, debugstr_w(cmdID), pfRet);
1330 return E_NOTIMPL;
1333 static HRESULT WINAPI HTMLTxtRange_queryCommandIndeterm(IHTMLTxtRange *iface, BSTR cmdID,
1334 VARIANT_BOOL *pfRet)
1336 HTMLTxtRange *This = HTMLTXTRANGE_THIS(iface);
1337 FIXME("(%p)->(%s %p)\n", This, debugstr_w(cmdID), pfRet);
1338 return E_NOTIMPL;
1341 static HRESULT WINAPI HTMLTxtRange_queryCommandText(IHTMLTxtRange *iface, BSTR cmdID,
1342 BSTR *pcmdText)
1344 HTMLTxtRange *This = HTMLTXTRANGE_THIS(iface);
1345 FIXME("(%p)->(%s %p)\n", This, debugstr_w(cmdID), pcmdText);
1346 return E_NOTIMPL;
1349 static HRESULT WINAPI HTMLTxtRange_queryCommandValue(IHTMLTxtRange *iface, BSTR cmdID,
1350 VARIANT *pcmdValue)
1352 HTMLTxtRange *This = HTMLTXTRANGE_THIS(iface);
1353 FIXME("(%p)->(%s %p)\n", This, debugstr_w(cmdID), pcmdValue);
1354 return E_NOTIMPL;
1357 static HRESULT WINAPI HTMLTxtRange_execCommand(IHTMLTxtRange *iface, BSTR cmdID,
1358 VARIANT_BOOL showUI, VARIANT value, VARIANT_BOOL *pfRet)
1360 HTMLTxtRange *This = HTMLTXTRANGE_THIS(iface);
1361 FIXME("(%p)->(%s %x v %p)\n", This, debugstr_w(cmdID), showUI, pfRet);
1362 return E_NOTIMPL;
1365 static HRESULT WINAPI HTMLTxtRange_execCommandShowHelp(IHTMLTxtRange *iface, BSTR cmdID,
1366 VARIANT_BOOL *pfRet)
1368 HTMLTxtRange *This = HTMLTXTRANGE_THIS(iface);
1369 FIXME("(%p)->(%s %p)\n", This, debugstr_w(cmdID), pfRet);
1370 return E_NOTIMPL;
1373 #undef HTMLTXTRANGE_THIS
1375 static const IHTMLTxtRangeVtbl HTMLTxtRangeVtbl = {
1376 HTMLTxtRange_QueryInterface,
1377 HTMLTxtRange_AddRef,
1378 HTMLTxtRange_Release,
1379 HTMLTxtRange_GetTypeInfoCount,
1380 HTMLTxtRange_GetTypeInfo,
1381 HTMLTxtRange_GetIDsOfNames,
1382 HTMLTxtRange_Invoke,
1383 HTMLTxtRange_get_htmlText,
1384 HTMLTxtRange_put_text,
1385 HTMLTxtRange_get_text,
1386 HTMLTxtRange_parentElement,
1387 HTMLTxtRange_duplicate,
1388 HTMLTxtRange_inRange,
1389 HTMLTxtRange_isEqual,
1390 HTMLTxtRange_scrollIntoView,
1391 HTMLTxtRange_collapse,
1392 HTMLTxtRange_expand,
1393 HTMLTxtRange_move,
1394 HTMLTxtRange_moveStart,
1395 HTMLTxtRange_moveEnd,
1396 HTMLTxtRange_select,
1397 HTMLTxtRange_pasteHTML,
1398 HTMLTxtRange_moveToElementText,
1399 HTMLTxtRange_setEndPoint,
1400 HTMLTxtRange_compareEndPoints,
1401 HTMLTxtRange_findText,
1402 HTMLTxtRange_moveToPoint,
1403 HTMLTxtRange_getBookmark,
1404 HTMLTxtRange_moveToBookmark,
1405 HTMLTxtRange_queryCommandSupported,
1406 HTMLTxtRange_queryCommandEnabled,
1407 HTMLTxtRange_queryCommandState,
1408 HTMLTxtRange_queryCommandIndeterm,
1409 HTMLTxtRange_queryCommandText,
1410 HTMLTxtRange_queryCommandValue,
1411 HTMLTxtRange_execCommand,
1412 HTMLTxtRange_execCommandShowHelp
1415 IHTMLTxtRange *HTMLTxtRange_Create(HTMLDocument *doc, nsIDOMRange *nsrange)
1417 HTMLTxtRange *ret = mshtml_alloc(sizeof(HTMLTxtRange));
1419 ret->lpHTMLTxtRangeVtbl = &HTMLTxtRangeVtbl;
1420 ret->ref = 1;
1422 if(nsrange)
1423 nsIDOMRange_AddRef(nsrange);
1424 ret->nsrange = nsrange;
1426 ret->doc = doc;
1427 list_add_head(&doc->range_list, &ret->entry);
1429 return HTMLTXTRANGE(ret);
1432 void detach_ranges(HTMLDocument *This)
1434 HTMLTxtRange *iter;
1436 LIST_FOR_EACH_ENTRY(iter, &This->range_list, HTMLTxtRange, entry) {
1437 iter->doc = NULL;