dlls/mshtml/range.c

   1 /*
   2  * Copyright 2006-2007 Jacek Caban for CodeWeavers
   3  *
   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.
   8  *
   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.
  13  *
  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
  17  */
  18
  19 #include <stdarg.h>
  20
  21 #define COBJMACROS
  22
  23 #include "windef.h"
  24 #include "winbase.h"
  25 #include "winuser.h"
  26 #include "ole2.h"
  27 #include "mshtmcid.h"
  28
  29 #include "wine/debug.h"
  30
  31 #include "mshtml_private.h"
  32
  33 WINE_DEFAULT_DEBUG_CHANNEL(mshtml);
  34
  35 typedef struct {
  36     DispatchEx dispex;
  37     IHTMLTxtRange     IHTMLTxtRange_iface;
  38     IOleCommandTarget IOleCommandTarget_iface;
  39
  40     LONG ref;
  41
  42     nsIDOMRange *nsrange;
  43     HTMLDocumentNode *doc;
  44
  45     struct list entry;
  46 } HTMLTxtRange;
  47
  48 typedef struct {
  49     DispatchEx dispex;
  50     IHTMLDOMRange IHTMLDOMRange_iface;
  51
  52     LONG ref;
  53
  54     nsIDOMRange *nsrange;
  55 } HTMLDOMRange;
  56
  57 typedef struct {
  58     WCHAR *buf;
  59     DWORD len;
  60     DWORD size;
  61 } wstrbuf_t;
  62
  63 typedef struct {
  64     UINT16 type;
  65     nsIDOMNode *node;
  66     UINT32 off;
  67 } rangepoint_t;
  68
  69 typedef enum {
  70     RU_UNKNOWN,
  71     RU_CHAR,
  72     RU_WORD,
  73     RU_SENTENCE,
  74     RU_TEXTEDIT
  75 } range_unit_t;
  76
  77 static HTMLTxtRange *get_range_object(HTMLDocumentNode *doc, IHTMLTxtRange *iface)
  78 {
  79     HTMLTxtRange *iter;
  80
  81     LIST_FOR_EACH_ENTRY(iter, &doc->range_list, HTMLTxtRange, entry) {
  82         if(&iter->IHTMLTxtRange_iface == iface)
  83             return iter;
  84     }
  85
  86     ERR("Could not find range in document\n");
  87     return NULL;
  88 }
  89
  90 static range_unit_t string_to_unit(LPCWSTR str)
  91 {
  92     if(!wcsicmp(str, L"character"))  return RU_CHAR;
  93     if(!wcsicmp(str, L"word"))       return RU_WORD;
  94     if(!wcsicmp(str, L"sentence"))   return RU_SENTENCE;
  95     if(!wcsicmp(str, L"textedit"))   return RU_TEXTEDIT;
  96
  97     return RU_UNKNOWN;
  98 }
  99
 100 static int string_to_nscmptype(LPCWSTR str)
 101 {
 102     if(!wcsicmp(str, L"StartToEnd"))  return NS_START_TO_END;
 103     if(!wcsicmp(str, L"StartToStart"))  return NS_START_TO_START;
 104     if(!wcsicmp(str, L"EndToStart"))  return NS_END_TO_START;
 105     if(!wcsicmp(str, L"EndToEnd"))  return NS_END_TO_END;
 106
 107     return -1;
 108 }
 109
 110 static UINT16 get_node_type(nsIDOMNode *node)
 111 {
 112     UINT16 type = 0;
 113
 114     if(node)
 115         nsIDOMNode_GetNodeType(node, &type);
 116
 117     return type;
 118 }
 119
 120 static void get_text_node_data(nsIDOMNode *node, nsAString *nsstr, const PRUnichar **str)
 121 {
 122     nsIDOMText *nstext;
 123     nsresult nsres;
 124
 125     nsres = nsIDOMNode_QueryInterface(node, &IID_nsIDOMText, (void**)&nstext);
 126     assert(nsres == NS_OK);
 127
 128     nsAString_Init(nsstr, NULL);
 129     nsres = nsIDOMText_GetData(nstext, nsstr);
 130     nsIDOMText_Release(nstext);
 131     if(NS_FAILED(nsres))
 132         ERR("GetData failed: %08x\n", nsres);
 133
 134     nsAString_GetData(nsstr, str);
 135 }
 136
 137 static nsIDOMNode *get_child_node(nsIDOMNode *node, UINT32 off)
 138 {
 139     nsIDOMNodeList *node_list;
 140     nsIDOMNode *ret = NULL;
 141
 142     nsIDOMNode_GetChildNodes(node, &node_list);
 143     nsIDOMNodeList_Item(node_list, off, &ret);
 144     nsIDOMNodeList_Release(node_list);
 145
 146     return ret;
 147 }
 148
 149 /* This is very inefficient, but there is no faster way to compute index in
 150  * child node list using public API. Gecko has internal nsINode::IndexOf
 151  * function that we could consider exporting and use instead. */
 152 static int get_child_index(nsIDOMNode *parent, nsIDOMNode *child)
 153 {
 154     nsIDOMNodeList *node_list;
 155     nsIDOMNode *node;
 156     int ret = 0;
 157     nsresult nsres;
 158
 159     nsres = nsIDOMNode_GetChildNodes(parent, &node_list);
 160     assert(nsres == NS_OK);
 161
 162     while(1) {
 163         nsres = nsIDOMNodeList_Item(node_list, ret, &node);
 164         assert(nsres == NS_OK && node);
 165         if(node == child) {
 166             nsIDOMNode_Release(node);
 167             break;
 168         }
 169         nsIDOMNode_Release(node);
 170         ret++;
 171     }
 172
 173     nsIDOMNodeList_Release(node_list);
 174     return ret;
 175 }
 176
 177 static void init_rangepoint(rangepoint_t *rangepoint, nsIDOMNode *node, UINT32 off)
 178 {
 179     nsIDOMNode_AddRef(node);
 180
 181     rangepoint->type = get_node_type(node);
 182     rangepoint->node = node;
 183     rangepoint->off = off;
 184 }
 185
 186 static inline void free_rangepoint(rangepoint_t *rangepoint)
 187 {
 188     nsIDOMNode_Release(rangepoint->node);
 189 }
 190
 191 static inline BOOL rangepoint_cmp(const rangepoint_t *point1, const rangepoint_t *point2)
 192 {
 193     return point1->node == point2->node && point1->off == point2->off;
 194 }
 195
 196 static BOOL rangepoint_next_node(rangepoint_t *iter)
 197 {
 198     nsIDOMNode *node;
 199     UINT32 off;
 200     nsresult nsres;
 201
 202     /* Try to move to the child node. */
 203     node = get_child_node(iter->node, iter->off);
 204     if(node) {
 205         free_rangepoint(iter);
 206         init_rangepoint(iter, node, 0);
 207         nsIDOMNode_Release(node);
 208         return TRUE;
 209     }
 210
 211     /* There are no more children in the node. Move to parent. */
 212     nsres = nsIDOMNode_GetParentNode(iter->node, &node);
 213     assert(nsres == NS_OK);
 214     if(!node)
 215         return FALSE;
 216
 217     off = get_child_index(node, iter->node)+1;
 218     free_rangepoint(iter);
 219     init_rangepoint(iter, node, off);
 220     nsIDOMNode_Release(node);
 221     return TRUE;
 222 }
 223
 224 static UINT32 get_child_count(nsIDOMNode *node)
 225 {
 226     nsIDOMNodeList *node_list;
 227     UINT32 ret;
 228     nsresult nsres;
 229
 230     nsres = nsIDOMNode_GetChildNodes(node, &node_list);
 231     assert(nsres == NS_OK);
 232
 233     nsres = nsIDOMNodeList_GetLength(node_list, &ret);
 234     nsIDOMNodeList_Release(node_list);
 235     assert(nsres == NS_OK);
 236
 237     return ret;
 238 }
 239
 240 static UINT32 get_text_length(nsIDOMNode *node)
 241 {
 242     nsIDOMText *nstext;
 243     UINT32 ret;
 244     nsresult nsres;
 245
 246     nsres = nsIDOMNode_QueryInterface(node, &IID_nsIDOMText, (void**)&nstext);
 247     assert(nsres == NS_OK);
 248
 249     nsres = nsIDOMText_GetLength(nstext, &ret);
 250     nsIDOMText_Release(nstext);
 251     assert(nsres == NS_OK);
 252
 253     return ret;
 254 }
 255
 256 static BOOL rangepoint_prev_node(rangepoint_t *iter)
 257 {
 258     nsIDOMNode *node;
 259     UINT32 off;
 260     nsresult nsres;
 261
 262     /* Try to move to the child node. */
 263     if(iter->off) {
 264         node = get_child_node(iter->node, iter->off-1);
 265         assert(node != NULL);
 266
 267         off = get_node_type(node) == TEXT_NODE ? get_text_length(node) : get_child_count(node);
 268         free_rangepoint(iter);
 269         init_rangepoint(iter, node, off);
 270         nsIDOMNode_Release(node);
 271         return TRUE;
 272     }
 273
 274     /* There are no more children in the node. Move to parent. */
 275     nsres = nsIDOMNode_GetParentNode(iter->node, &node);
 276     assert(nsres == NS_OK);
 277     if(!node)
 278         return FALSE;
 279
 280     off = get_child_index(node, iter->node);
 281     free_rangepoint(iter);
 282     init_rangepoint(iter, node, off);
 283     return TRUE;
 284 }
 285
 286 static void get_start_point(HTMLTxtRange *This, rangepoint_t *ret)
 287 {
 288     nsIDOMNode *node;
 289     LONG off;
 290
 291     nsIDOMRange_GetStartContainer(This->nsrange, &node);
 292     nsIDOMRange_GetStartOffset(This->nsrange, &off);
 293
 294     init_rangepoint(ret, node, off);
 295
 296     nsIDOMNode_Release(node);
 297 }
 298
 299 static void get_end_point(HTMLTxtRange *This, rangepoint_t *ret)
 300 {
 301     nsIDOMNode *node;
 302     LONG off;
 303
 304     nsIDOMRange_GetEndContainer(This->nsrange, &node);
 305     nsIDOMRange_GetEndOffset(This->nsrange, &off);
 306
 307     init_rangepoint(ret, node, off);
 308
 309     nsIDOMNode_Release(node);
 310 }
 311
 312 static void set_start_point(HTMLTxtRange *This, const rangepoint_t *start)
 313 {
 314     nsresult nsres = nsIDOMRange_SetStart(This->nsrange, start->node, start->off);
 315     if(NS_FAILED(nsres))
 316         ERR("failed: %08x\n", nsres);
 317 }
 318
 319 static void set_end_point(HTMLTxtRange *This, const rangepoint_t *end)
 320 {
 321     nsresult nsres = nsIDOMRange_SetEnd(This->nsrange, end->node, end->off);
 322     if(NS_FAILED(nsres))
 323         ERR("failed: %08x\n", nsres);
 324 }
 325
 326 static BOOL is_elem_tag(nsIDOMNode *node, LPCWSTR istag)
 327 {
 328     nsIDOMElement *elem;
 329     nsAString tag_str;
 330     const PRUnichar *tag;
 331     BOOL ret = FALSE;
 332     nsresult nsres;
 333
 334     nsres = nsIDOMNode_QueryInterface(node, &IID_nsIDOMElement, (void**)&elem);
 335     if(NS_FAILED(nsres))
 336         return FALSE;
 337
 338     nsAString_Init(&tag_str, NULL);
 339     nsIDOMElement_GetTagName(elem, &tag_str);
 340     nsIDOMElement_Release(elem);
 341     nsAString_GetData(&tag_str, &tag);
 342
 343     ret = !wcsicmp(tag, istag);
 344
 345     nsAString_Finish(&tag_str);
 346
 347     return ret;
 348 }
 349
 350 static inline BOOL wstrbuf_init(wstrbuf_t *buf)
 351 {
 352     buf->len = 0;
 353     buf->size = 16;
 354     buf->buf = heap_alloc(buf->size * sizeof(WCHAR));
 355     if (!buf->buf) return FALSE;
 356     *buf->buf = 0;
 357     return TRUE;
 358 }
 359
 360 static inline void wstrbuf_finish(wstrbuf_t *buf)
 361 {
 362     heap_free(buf->buf);
 363 }
 364
 365 static void wstrbuf_append_len(wstrbuf_t *buf, LPCWSTR str, int len)
 366 {
 367     if(buf->len+len >= buf->size) {
 368         buf->size = 2*buf->size+len;
 369         buf->buf = heap_realloc(buf->buf, buf->size * sizeof(WCHAR));
 370     }
 371
 372     memcpy(buf->buf+buf->len, str, len*sizeof(WCHAR));
 373     buf->len += len;
 374     buf->buf[buf->len] = 0;
 375 }
 376
 377 static void wstrbuf_append_nodetxt(wstrbuf_t *buf, LPCWSTR str, int len)
 378 {
 379     const WCHAR *s = str;
 380     WCHAR *d;
 381
 382     TRACE("%s\n", debugstr_wn(str, len));
 383
 384     if(buf->len+len >= buf->size) {
 385         buf->size = 2*buf->size+len;
 386         buf->buf = heap_realloc(buf->buf, buf->size * sizeof(WCHAR));
 387     }
 388
 389     if(buf->len && iswspace(buf->buf[buf->len-1])) {
 390         while(s < str+len && iswspace(*s))
 391             s++;
 392     }
 393
 394     d = buf->buf+buf->len;
 395     while(s < str+len) {
 396         if(iswspace(*s)) {
 397             *d++ = ' ';
 398             s++;
 399             while(s < str+len && iswspace(*s))
 400                 s++;
 401         }else {
 402             *d++ = *s++;
 403         }
 404     }
 405
 406     buf->len = d - buf->buf;
 407     *d = 0;
 408 }
 409
 410 static void wstrbuf_append_node(wstrbuf_t *buf, nsIDOMNode *node, BOOL ignore_text)
 411 {
 412
 413     switch(get_node_type(node)) {
 414     case TEXT_NODE: {
 415         nsIDOMText *nstext;
 416         nsAString data_str;
 417         const PRUnichar *data;
 418
 419         if(ignore_text)
 420             break;
 421
 422         nsIDOMNode_QueryInterface(node, &IID_nsIDOMText, (void**)&nstext);
 423
 424         nsAString_Init(&data_str, NULL);
 425         nsIDOMText_GetData(nstext, &data_str);
 426         nsAString_GetData(&data_str, &data);
 427         wstrbuf_append_nodetxt(buf, data, lstrlenW(data));
 428         nsAString_Finish(&data_str);
 429
 430         nsIDOMText_Release(nstext);
 431
 432         break;
 433     }
 434     case ELEMENT_NODE:
 435         if(is_elem_tag(node, L"br")) {
 436             static const WCHAR endlW[] = {'\r','\n'};
 437             wstrbuf_append_len(buf, endlW, 2);
 438         }else if(is_elem_tag(node, L"hr")) {
 439             static const WCHAR endl2W[] = {'\r','\n','\r','\n'};
 440             wstrbuf_append_len(buf, endl2W, 4);
 441         }
 442     }
 443 }
 444
 445 static void wstrbuf_append_node_rec(wstrbuf_t *buf, nsIDOMNode *node)
 446 {
 447     nsIDOMNode *iter, *tmp;
 448
 449     wstrbuf_append_node(buf, node, FALSE);
 450
 451     nsIDOMNode_GetFirstChild(node, &iter);
 452     while(iter) {
 453         wstrbuf_append_node_rec(buf, iter);
 454         nsIDOMNode_GetNextSibling(iter, &tmp);
 455         nsIDOMNode_Release(iter);
 456         iter = tmp;
 457     }
 458 }
 459
 460 static void range_to_string(HTMLTxtRange *This, wstrbuf_t *buf)
 461 {
 462     rangepoint_t end_pos, iter;
 463     cpp_bool collapsed;
 464
 465     nsIDOMRange_GetCollapsed(This->nsrange, &collapsed);
 466     if(collapsed) {
 467         wstrbuf_finish(buf);
 468         buf->buf = NULL;
 469         buf->size = 0;
 470         return;
 471     }
 472
 473     get_end_point(This, &end_pos);
 474     get_start_point(This, &iter);
 475
 476     do {
 477         if(iter.type == TEXT_NODE) {
 478             const PRUnichar *str;
 479             nsAString nsstr;
 480
 481             get_text_node_data(iter.node, &nsstr, &str);
 482
 483             if(iter.node == end_pos.node) {
 484                 wstrbuf_append_nodetxt(buf, str+iter.off, end_pos.off-iter.off);
 485                 nsAString_Finish(&nsstr);
 486                 break;
 487             }
 488
 489             wstrbuf_append_nodetxt(buf, str+iter.off, lstrlenW(str+iter.off));
 490             nsAString_Finish(&nsstr);
 491         }else {
 492             nsIDOMNode *node;
 493
 494             node = get_child_node(iter.node, iter.off);
 495             if(node) {
 496                 wstrbuf_append_node(buf, node, TRUE);
 497                 nsIDOMNode_Release(node);
 498             }
 499         }
 500
 501         if(!rangepoint_next_node(&iter)) {
 502             ERR("End of document?\n");
 503             break;
 504         }
 505     }while(!rangepoint_cmp(&iter, &end_pos));
 506
 507     free_rangepoint(&iter);
 508     free_rangepoint(&end_pos);
 509
 510     if(buf->len) {
 511         WCHAR *p;
 512
 513         for(p = buf->buf+buf->len-1; p >= buf->buf && iswspace(*p); p--);
 514
 515         p = wcschr(p, '\r');
 516         if(p)
 517             *p = 0;
 518     }
 519 }
 520
 521 HRESULT get_node_text(HTMLDOMNode *node, BSTR *ret)
 522 {
 523     wstrbuf_t buf;
 524     HRESULT hres = S_OK;
 525
 526     if (!wstrbuf_init(&buf))
 527         return E_OUTOFMEMORY;
 528     wstrbuf_append_node_rec(&buf, node->nsnode);
 529     if(buf.buf && *buf.buf) {
 530         *ret = SysAllocString(buf.buf);
 531         if(!*ret)
 532             hres = E_OUTOFMEMORY;
 533     } else {
 534         *ret = NULL;
 535     }
 536     wstrbuf_finish(&buf);
 537
 538     if(SUCCEEDED(hres))
 539         TRACE("ret %s\n", debugstr_w(*ret));
 540     return hres;
 541 }
 542
 543 static WCHAR move_next_char(rangepoint_t *iter)
 544 {
 545     rangepoint_t last_space;
 546     nsIDOMNode *node;
 547     WCHAR cspace = 0;
 548     const WCHAR *p;
 549
 550     do {
 551         switch(iter->type) {
 552         case TEXT_NODE: {
 553             const PRUnichar *str;
 554             nsAString nsstr;
 555             WCHAR c;
 556
 557             get_text_node_data(iter->node, &nsstr, &str);
 558             p = str+iter->off;
 559             if(!*p) {
 560                 nsAString_Finish(&nsstr);
 561                 break;
 562             }
 563
 564             c = *p;
 565             if(iswspace(c)) {
 566                 while(iswspace(*p))
 567                     p++;
 568
 569                 if(cspace)
 570                     free_rangepoint(&last_space);
 571                 else
 572                     cspace = ' ';
 573
 574                 iter->off = p-str;
 575                 c = *p;
 576                 nsAString_Finish(&nsstr);
 577                 if(!c) { /* continue to skip spaces */
 578                     init_rangepoint(&last_space, iter->node, iter->off);
 579                     break;
 580                 }
 581
 582                 return cspace;
 583             }else {
 584                 nsAString_Finish(&nsstr);
 585             }
 586
 587             /* If we have a non-space char and we're skipping spaces, stop and return the last found space. */
 588             if(cspace) {
 589                 free_rangepoint(iter);
 590                 *iter = last_space;
 591                 return cspace;
 592             }
 593
 594             iter->off++;
 595             return c;
 596         }
 597         case ELEMENT_NODE:
 598             node = get_child_node(iter->node, iter->off);
 599             if(!node)
 600                 break;
 601
 602             if(is_elem_tag(node, L"br")) {
 603                 if(cspace) {
 604                     nsIDOMNode_Release(node);
 605                     free_rangepoint(iter);
 606                     *iter = last_space;
 607                     return cspace;
 608                 }
 609
 610                 cspace = '\n';
 611                 init_rangepoint(&last_space, iter->node, iter->off+1);
 612             }else if(is_elem_tag(node, L"hr")) {
 613                 nsIDOMNode_Release(node);
 614                 if(cspace) {
 615                     free_rangepoint(iter);
 616                     *iter = last_space;
 617                     return cspace;
 618                 }
 619
 620                 iter->off++;
 621                 return '\n';
 622             }
 623
 624             nsIDOMNode_Release(node);
 625         }
 626     }while(rangepoint_next_node(iter));
 627
 628     return cspace;
 629 }
 630
 631 static WCHAR move_prev_char(rangepoint_t *iter)
 632 {
 633     rangepoint_t last_space;
 634     nsIDOMNode *node;
 635     WCHAR cspace = 0;
 636     const WCHAR *p;
 637
 638     do {
 639         switch(iter->type) {
 640         case TEXT_NODE: {
 641             const PRUnichar *str;
 642             nsAString nsstr;
 643             WCHAR c;
 644
 645             if(!iter->off)
 646                 break;
 647
 648             get_text_node_data(iter->node, &nsstr, &str);
 649
 650             p = str+iter->off-1;
 651             c = *p;
 652
 653             if(iswspace(c)) {
 654                 while(p > str && iswspace(*(p-1)))
 655                     p--;
 656
 657                 if(cspace)
 658                     free_rangepoint(&last_space);
 659                 else
 660                     cspace = ' ';
 661
 662                 iter->off = p-str;
 663                 nsAString_Finish(&nsstr);
 664                 if(p == str) { /* continue to skip spaces */
 665                     init_rangepoint(&last_space, iter->node, iter->off);
 666                     break;
 667                 }
 668
 669                 return cspace;
 670             }else {
 671                 nsAString_Finish(&nsstr);
 672             }
 673
 674             /* If we have a non-space char and we're skipping spaces, stop and return the last found space. */
 675             if(cspace) {
 676                 free_rangepoint(iter);
 677                 *iter = last_space;
 678                 return cspace;
 679             }
 680
 681             iter->off--;
 682             return c;
 683         }
 684         case ELEMENT_NODE:
 685             if(!iter->off)
 686                 break;
 687
 688             node = get_child_node(iter->node, iter->off-1);
 689             if(!node)
 690                 break;
 691
 692             if(is_elem_tag(node, L"br")) {
 693                 if(cspace)
 694                     free_rangepoint(&last_space);
 695                 cspace = '\n';
 696                 init_rangepoint(&last_space, iter->node, iter->off-1);
 697             }else if(is_elem_tag(node, L"hr")) {
 698                 nsIDOMNode_Release(node);
 699                 if(cspace) {
 700                     free_rangepoint(iter);
 701                     *iter = last_space;
 702                     return cspace;
 703                 }
 704
 705                 iter->off--;
 706                 return '\n';
 707             }
 708
 709             nsIDOMNode_Release(node);
 710         }
 711     }while(rangepoint_prev_node(iter));
 712
 713     if(cspace) {
 714         free_rangepoint(iter);
 715         *iter = last_space;
 716         return cspace;
 717     }
 718
 719     return 0;
 720 }
 721
 722 static LONG move_by_chars(rangepoint_t *iter, LONG cnt)
 723 {
 724     LONG ret = 0;
 725
 726     if(cnt >= 0) {
 727         while(ret < cnt && move_next_char(iter))
 728             ret++;
 729     }else {
 730         while(ret > cnt && move_prev_char(iter))
 731             ret--;
 732     }
 733
 734     return ret;
 735 }
 736
 737 static LONG find_prev_space(rangepoint_t *iter, BOOL first_space)
 738 {
 739     rangepoint_t prev;
 740     WCHAR c;
 741
 742     init_rangepoint(&prev, iter->node, iter->off);
 743     c = move_prev_char(&prev);
 744     if(!c || (first_space && iswspace(c)))
 745         return FALSE;
 746
 747     do {
 748         free_rangepoint(iter);
 749         init_rangepoint(iter, prev.node, prev.off);
 750         c = move_prev_char(&prev);
 751     }while(c && !iswspace(c));
 752
 753     free_rangepoint(&prev);
 754     return TRUE;
 755 }
 756
 757 static BOOL find_word_end(rangepoint_t *iter, BOOL is_collapsed)
 758 {
 759     rangepoint_t prev_iter;
 760     WCHAR c;
 761     BOOL ret = FALSE;
 762
 763     if(!is_collapsed) {
 764         init_rangepoint(&prev_iter, iter->node, iter->off);
 765         c = move_prev_char(&prev_iter);
 766         free_rangepoint(&prev_iter);
 767         if(iswspace(c))
 768             return FALSE;
 769     }
 770
 771     do {
 772         init_rangepoint(&prev_iter, iter->node, iter->off);
 773         c = move_next_char(iter);
 774         if(c == '\n') {
 775             free_rangepoint(iter);
 776             *iter = prev_iter;
 777             return ret;
 778         }
 779         if(!c) {
 780             if(!ret)
 781                 ret = !rangepoint_cmp(iter, &prev_iter);
 782         }else {
 783             ret = TRUE;
 784         }
 785         free_rangepoint(&prev_iter);
 786     }while(c && !iswspace(c));
 787
 788     return ret;
 789 }
 790
 791 static LONG move_by_words(rangepoint_t *iter, LONG cnt)
 792 {
 793     LONG ret = 0;
 794
 795     if(cnt >= 0) {
 796         WCHAR c;
 797
 798         while(ret < cnt && (c = move_next_char(iter))) {
 799             if(iswspace(c))
 800                 ret++;
 801         }
 802     }else {
 803         while(ret > cnt && find_prev_space(iter, FALSE))
 804             ret--;
 805     }
 806
 807     return ret;
 808 }
 809
 810 static inline HTMLTxtRange *impl_from_IHTMLTxtRange(IHTMLTxtRange *iface)
 811 {
 812     return CONTAINING_RECORD(iface, HTMLTxtRange, IHTMLTxtRange_iface);
 813 }
 814
 815 static HRESULT WINAPI HTMLTxtRange_QueryInterface(IHTMLTxtRange *iface, REFIID riid, void **ppv)
 816 {
 817     HTMLTxtRange *This = impl_from_IHTMLTxtRange(iface);
 818
 819     TRACE("(%p)->(%s %p)\n", This, debugstr_mshtml_guid(riid), ppv);
 820
 821     if(IsEqualGUID(&IID_IUnknown, riid)) {
 822         *ppv = &This->IHTMLTxtRange_iface;
 823     }else if(IsEqualGUID(&IID_IHTMLTxtRange, riid)) {
 824         *ppv = &This->IHTMLTxtRange_iface;
 825     }else if(IsEqualGUID(&IID_IOleCommandTarget, riid)) {
 826         *ppv = &This->IOleCommandTarget_iface;
 827     }else if(dispex_query_interface(&This->dispex, riid, ppv)) {
 828         return *ppv ? S_OK : E_NOINTERFACE;
 829     }else {
 830         *ppv = NULL;
 831         WARN("(%p)->(%s %p)\n", This, debugstr_guid(riid), ppv);
 832         return E_NOINTERFACE;
 833     }
 834
 835     IUnknown_AddRef((IUnknown*)*ppv);
 836     return S_OK;
 837 }
 838
 839 static ULONG WINAPI HTMLTxtRange_AddRef(IHTMLTxtRange *iface)
 840 {
 841     HTMLTxtRange *This = impl_from_IHTMLTxtRange(iface);
 842     LONG ref = InterlockedIncrement(&This->ref);
 843
 844     TRACE("(%p) ref=%d\n", This, ref);
 845
 846     return ref;
 847 }
 848
 849 static ULONG WINAPI HTMLTxtRange_Release(IHTMLTxtRange *iface)
 850 {
 851     HTMLTxtRange *This = impl_from_IHTMLTxtRange(iface);
 852     LONG ref = InterlockedDecrement(&This->ref);
 853
 854     TRACE("(%p) ref=%d\n", This, ref);
 855
 856     if(!ref) {
 857         if(This->nsrange)
 858             nsIDOMRange_Release(This->nsrange);
 859         if(This->doc)
 860             list_remove(&This->entry);
 861         release_dispex(&This->dispex);
 862         heap_free(This);
 863     }
 864
 865     return ref;
 866 }
 867
 868 static HRESULT WINAPI HTMLTxtRange_GetTypeInfoCount(IHTMLTxtRange *iface, UINT *pctinfo)
 869 {
 870     HTMLTxtRange *This = impl_from_IHTMLTxtRange(iface);
 871
 872     return IDispatchEx_GetTypeInfoCount(&This->dispex.IDispatchEx_iface, pctinfo);
 873 }
 874
 875 static HRESULT WINAPI HTMLTxtRange_GetTypeInfo(IHTMLTxtRange *iface, UINT iTInfo,
 876                                                LCID lcid, ITypeInfo **ppTInfo)
 877 {
 878     HTMLTxtRange *This = impl_from_IHTMLTxtRange(iface);
 879
 880     return IDispatchEx_GetTypeInfo(&This->dispex.IDispatchEx_iface, iTInfo, lcid, ppTInfo);
 881 }
 882
 883 static HRESULT WINAPI HTMLTxtRange_GetIDsOfNames(IHTMLTxtRange *iface, REFIID riid,
 884                                                  LPOLESTR *rgszNames, UINT cNames,
 885                                                  LCID lcid, DISPID *rgDispId)
 886 {
 887     HTMLTxtRange *This = impl_from_IHTMLTxtRange(iface);
 888
 889     return IDispatchEx_GetIDsOfNames(&This->dispex.IDispatchEx_iface, riid, rgszNames,
 890             cNames, lcid, rgDispId);
 891 }
 892
 893 static HRESULT WINAPI HTMLTxtRange_Invoke(IHTMLTxtRange *iface, DISPID dispIdMember,
 894                             REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams,
 895                             VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
 896 {
 897     HTMLTxtRange *This = impl_from_IHTMLTxtRange(iface);
 898
 899     return IDispatchEx_Invoke(&This->dispex.IDispatchEx_iface, dispIdMember, riid,
 900             lcid, wFlags, pDispParams, pVarResult, pExcepInfo, puArgErr);
 901 }
 902
 903 static HRESULT WINAPI HTMLTxtRange_get_htmlText(IHTMLTxtRange *iface, BSTR *p)
 904 {
 905     HTMLTxtRange *This = impl_from_IHTMLTxtRange(iface);
 906
 907     TRACE("(%p)->(%p)\n", This, p);
 908
 909     *p = NULL;
 910
 911     if(This->nsrange) {
 912         nsIDOMDocumentFragment *fragment;
 913         nsresult nsres;
 914
 915         nsres = nsIDOMRange_CloneContents(This->nsrange, &fragment);
 916         if(NS_SUCCEEDED(nsres)) {
 917             const PRUnichar *nstext;
 918             nsAString nsstr;
 919
 920             nsAString_Init(&nsstr, NULL);
 921             nsnode_to_nsstring((nsIDOMNode*)fragment, &nsstr);
 922             nsIDOMDocumentFragment_Release(fragment);
 923
 924             nsAString_GetData(&nsstr, &nstext);
 925             *p = SysAllocString(nstext);
 926
 927             nsAString_Finish(&nsstr);
 928         }
 929     }
 930
 931     if(!*p) {
 932         *p = SysAllocString(L"");
 933     }
 934
 935     TRACE("return %s\n", debugstr_w(*p));
 936     return S_OK;
 937 }
 938
 939 static HRESULT WINAPI HTMLTxtRange_put_text(IHTMLTxtRange *iface, BSTR v)
 940 {
 941     HTMLTxtRange *This = impl_from_IHTMLTxtRange(iface);
 942     nsIDOMText *text_node;
 943     nsAString text_str;
 944     nsresult nsres;
 945
 946     TRACE("(%p)->(%s)\n", This, debugstr_w(v));
 947
 948     if(!This->doc)
 949         return MSHTML_E_NODOC;
 950
 951     nsAString_InitDepend(&text_str, v);
 952     nsres = nsIDOMHTMLDocument_CreateTextNode(This->doc->nsdoc, &text_str, &text_node);
 953     nsAString_Finish(&text_str);
 954     if(NS_FAILED(nsres)) {
 955         ERR("CreateTextNode failed: %08x\n", nsres);
 956         return S_OK;
 957     }
 958     nsres = nsIDOMRange_DeleteContents(This->nsrange);
 959     if(NS_FAILED(nsres))
 960         ERR("DeleteContents failed: %08x\n", nsres);
 961
 962     nsres = nsIDOMRange_InsertNode(This->nsrange, (nsIDOMNode*)text_node);
 963     if(NS_FAILED(nsres))
 964         ERR("InsertNode failed: %08x\n", nsres);
 965
 966     nsres = nsIDOMRange_SetEndAfter(This->nsrange, (nsIDOMNode*)text_node);
 967     if(NS_FAILED(nsres))
 968         ERR("SetEndAfter failed: %08x\n", nsres);
 969
 970     return IHTMLTxtRange_collapse(&This->IHTMLTxtRange_iface, VARIANT_FALSE);
 971 }
 972
 973 static HRESULT WINAPI HTMLTxtRange_get_text(IHTMLTxtRange *iface, BSTR *p)
 974 {
 975     HTMLTxtRange *This = impl_from_IHTMLTxtRange(iface);
 976     wstrbuf_t buf;
 977
 978     TRACE("(%p)->(%p)\n", This, p);
 979
 980     *p = NULL;
 981     if(!This->nsrange)
 982         return S_OK;
 983
 984     if (!wstrbuf_init(&buf))
 985         return E_OUTOFMEMORY;
 986     range_to_string(This, &buf);
 987     if (buf.buf)
 988         *p = SysAllocString(buf.buf);
 989     wstrbuf_finish(&buf);
 990
 991     TRACE("ret %s\n", debugstr_w(*p));
 992     return S_OK;
 993 }
 994
 995 static HRESULT WINAPI HTMLTxtRange_parentElement(IHTMLTxtRange *iface, IHTMLElement **parent)
 996 {
 997     HTMLTxtRange *This = impl_from_IHTMLTxtRange(iface);
 998     nsIDOMNode *nsnode, *tmp;
 999     HTMLDOMNode *node;
1000     HRESULT hres;
1001
1002     TRACE("(%p)->(%p)\n", This, parent);
1003
1004     nsIDOMRange_GetCommonAncestorContainer(This->nsrange, &nsnode);
1005     while(nsnode && get_node_type(nsnode) != ELEMENT_NODE) {
1006         nsIDOMNode_GetParentNode(nsnode, &tmp);
1007         nsIDOMNode_Release(nsnode);
1008         nsnode = tmp;
1009     }
1010
1011     if(!nsnode) {
1012         *parent = NULL;
1013         return S_OK;
1014     }
1015
1016     hres = get_node(nsnode, TRUE, &node);
1017     nsIDOMNode_Release(nsnode);
1018     if(FAILED(hres))
1019         return hres;
1020
1021     hres = IHTMLDOMNode_QueryInterface(&node->IHTMLDOMNode_iface, &IID_IHTMLElement, (void**)parent);
1022     node_release(node);
1023     return hres;
1024 }
1025
1026 static HRESULT WINAPI HTMLTxtRange_duplicate(IHTMLTxtRange *iface, IHTMLTxtRange **Duplicate)
1027 {
1028     HTMLTxtRange *This = impl_from_IHTMLTxtRange(iface);
1029     nsIDOMRange *nsrange = NULL;
1030     HRESULT hres;
1031
1032     TRACE("(%p)->(%p)\n", This, Duplicate);
1033
1034     nsIDOMRange_CloneRange(This->nsrange, &nsrange);
1035     hres = HTMLTxtRange_Create(This->doc, nsrange, Duplicate);
1036     nsIDOMRange_Release(nsrange);
1037
1038     return hres;
1039 }
1040
1041 static HRESULT WINAPI HTMLTxtRange_inRange(IHTMLTxtRange *iface, IHTMLTxtRange *Range,
1042         VARIANT_BOOL *InRange)
1043 {
1044     HTMLTxtRange *This = impl_from_IHTMLTxtRange(iface);
1045     HTMLTxtRange *src_range;
1046     short nsret = 0;
1047     nsresult nsres;
1048
1049     TRACE("(%p)->(%p %p)\n", This, Range, InRange);
1050
1051     *InRange = VARIANT_FALSE;
1052
1053     src_range = get_range_object(This->doc, Range);
1054     if(!src_range)
1055         return E_FAIL;
1056
1057     nsres = nsIDOMRange_CompareBoundaryPoints(This->nsrange, NS_START_TO_START,
1058             src_range->nsrange, &nsret);
1059     if(NS_SUCCEEDED(nsres) && nsret <= 0) {
1060         nsres = nsIDOMRange_CompareBoundaryPoints(This->nsrange, NS_END_TO_END,
1061                 src_range->nsrange, &nsret);
1062         if(NS_SUCCEEDED(nsres) && nsret >= 0)
1063             *InRange = VARIANT_TRUE;
1064     }
1065
1066     if(NS_FAILED(nsres))
1067         ERR("CompareBoundaryPoints failed: %08x\n", nsres);
1068
1069     return S_OK;
1070 }
1071
1072 static HRESULT WINAPI HTMLTxtRange_isEqual(IHTMLTxtRange *iface, IHTMLTxtRange *Range,
1073         VARIANT_BOOL *IsEqual)
1074 {
1075     HTMLTxtRange *This = impl_from_IHTMLTxtRange(iface);
1076     HTMLTxtRange *src_range;
1077     short nsret = 0;
1078     nsresult nsres;
1079
1080     TRACE("(%p)->(%p %p)\n", This, Range, IsEqual);
1081
1082     *IsEqual = VARIANT_FALSE;
1083
1084     src_range = get_range_object(This->doc, Range);
1085     if(!src_range)
1086         return E_FAIL;
1087
1088     nsres = nsIDOMRange_CompareBoundaryPoints(This->nsrange, NS_START_TO_START,
1089             src_range->nsrange, &nsret);
1090     if(NS_SUCCEEDED(nsres) && !nsret) {
1091         nsres = nsIDOMRange_CompareBoundaryPoints(This->nsrange, NS_END_TO_END,
1092                 src_range->nsrange, &nsret);
1093         if(NS_SUCCEEDED(nsres) && !nsret)
1094             *IsEqual = VARIANT_TRUE;
1095     }
1096
1097     if(NS_FAILED(nsres))
1098         ERR("CompareBoundaryPoints failed: %08x\n", nsres);
1099
1100     return S_OK;
1101 }
1102
1103 static HRESULT WINAPI HTMLTxtRange_scrollIntoView(IHTMLTxtRange *iface, VARIANT_BOOL fStart)
1104 {
1105     HTMLTxtRange *This = impl_from_IHTMLTxtRange(iface);
1106     FIXME("(%p)->(%x)\n", This, fStart);
1107     return E_NOTIMPL;
1108 }
1109
1110 static HRESULT WINAPI HTMLTxtRange_collapse(IHTMLTxtRange *iface, VARIANT_BOOL Start)
1111 {
1112     HTMLTxtRange *This = impl_from_IHTMLTxtRange(iface);
1113
1114     TRACE("(%p)->(%x)\n", This, Start);
1115
1116     nsIDOMRange_Collapse(This->nsrange, Start != VARIANT_FALSE);
1117     return S_OK;
1118 }
1119
1120 static HRESULT WINAPI HTMLTxtRange_expand(IHTMLTxtRange *iface, BSTR Unit, VARIANT_BOOL *Success)
1121 {
1122     HTMLTxtRange *This = impl_from_IHTMLTxtRange(iface);
1123     range_unit_t unit;
1124
1125     TRACE("(%p)->(%s %p)\n", This, debugstr_w(Unit), Success);
1126
1127     unit = string_to_unit(Unit);
1128     if(unit == RU_UNKNOWN)
1129         return E_INVALIDARG;
1130
1131     *Success = VARIANT_FALSE;
1132
1133     switch(unit) {
1134     case RU_WORD: {
1135         rangepoint_t end, start;
1136         cpp_bool is_collapsed;
1137
1138         get_start_point(This, &start);
1139         get_end_point(This, &end);
1140
1141         nsIDOMRange_GetCollapsed(This->nsrange, &is_collapsed);
1142
1143         if(find_word_end(&end, is_collapsed)) {
1144             set_end_point(This, &end);
1145             *Success = VARIANT_TRUE;
1146         }
1147
1148         if(find_prev_space(&start, TRUE)) {
1149             set_start_point(This, &start);
1150             *Success = VARIANT_TRUE;
1151         }
1152
1153         free_rangepoint(&end);
1154         free_rangepoint(&start);
1155         break;
1156     }
1157
1158     case RU_TEXTEDIT: {
1159         nsIDOMHTMLElement *nsbody = NULL;
1160         nsresult nsres;
1161
1162         nsres = nsIDOMHTMLDocument_GetBody(This->doc->nsdoc, &nsbody);
1163         if(NS_FAILED(nsres) || !nsbody) {
1164             ERR("Could not get body: %08x\n", nsres);
1165             break;
1166         }
1167
1168         nsres = nsIDOMRange_SelectNodeContents(This->nsrange, (nsIDOMNode*)nsbody);
1169         nsIDOMHTMLElement_Release(nsbody);
1170         if(NS_FAILED(nsres)) {
1171             ERR("Collapse failed: %08x\n", nsres);
1172             break;
1173         }
1174
1175         *Success = VARIANT_TRUE;
1176         break;
1177     }
1178
1179     default:
1180         FIXME("Unimplemented unit %s\n", debugstr_w(Unit));
1181     }
1182
1183     return S_OK;
1184 }
1185
1186 static HRESULT WINAPI HTMLTxtRange_move(IHTMLTxtRange *iface, BSTR Unit,
1187         LONG Count, LONG *ActualCount)
1188 {
1189     HTMLTxtRange *This = impl_from_IHTMLTxtRange(iface);
1190     range_unit_t unit;
1191
1192     TRACE("(%p)->(%s %d %p)\n", This, debugstr_w(Unit), Count, ActualCount);
1193
1194     unit = string_to_unit(Unit);
1195     if(unit == RU_UNKNOWN)
1196         return E_INVALIDARG;
1197
1198     if(!Count) {
1199         *ActualCount = 0;
1200         return IHTMLTxtRange_collapse(&This->IHTMLTxtRange_iface, VARIANT_TRUE);
1201     }
1202
1203     switch(unit) {
1204     case RU_CHAR: {
1205         rangepoint_t start;
1206
1207         get_start_point(This, &start);
1208
1209         *ActualCount = move_by_chars(&start, Count);
1210
1211         set_start_point(This, &start);
1212         IHTMLTxtRange_collapse(&This->IHTMLTxtRange_iface, VARIANT_TRUE);
1213         free_rangepoint(&start);
1214         break;
1215     }
1216
1217     case RU_WORD: {
1218         rangepoint_t start;
1219
1220         get_start_point(This, &start);
1221
1222         *ActualCount = move_by_words(&start, Count);
1223
1224         set_start_point(This, &start);
1225         IHTMLTxtRange_collapse(&This->IHTMLTxtRange_iface, VARIANT_TRUE);
1226         free_rangepoint(&start);
1227         break;
1228     }
1229
1230     default:
1231         FIXME("unimplemented unit %s\n", debugstr_w(Unit));
1232     }
1233
1234     TRACE("ret %d\n", *ActualCount);
1235     return S_OK;
1236 }
1237
1238 static HRESULT WINAPI HTMLTxtRange_moveStart(IHTMLTxtRange *iface, BSTR Unit,
1239         LONG Count, LONG *ActualCount)
1240 {
1241     HTMLTxtRange *This = impl_from_IHTMLTxtRange(iface);
1242     range_unit_t unit;
1243
1244     TRACE("(%p)->(%s %d %p)\n", This, debugstr_w(Unit), Count, ActualCount);
1245
1246     unit = string_to_unit(Unit);
1247     if(unit == RU_UNKNOWN)
1248         return E_INVALIDARG;
1249
1250     if(!Count) {
1251         *ActualCount = 0;
1252         return S_OK;
1253     }
1254
1255     switch(unit) {
1256     case RU_CHAR: {
1257         rangepoint_t start;
1258
1259         get_start_point(This, &start);
1260
1261         *ActualCount = move_by_chars(&start, Count);
1262
1263         set_start_point(This, &start);
1264         free_rangepoint(&start);
1265         break;
1266     }
1267
1268     default:
1269         FIXME("unimplemented unit %s\n", debugstr_w(Unit));
1270         return E_NOTIMPL;
1271     }
1272
1273     return S_OK;
1274 }
1275
1276 static HRESULT WINAPI HTMLTxtRange_moveEnd(IHTMLTxtRange *iface, BSTR Unit,
1277         LONG Count, LONG *ActualCount)
1278 {
1279     HTMLTxtRange *This = impl_from_IHTMLTxtRange(iface);
1280     range_unit_t unit;
1281
1282     TRACE("(%p)->(%s %d %p)\n", This, debugstr_w(Unit), Count, ActualCount);
1283
1284     unit = string_to_unit(Unit);
1285     if(unit == RU_UNKNOWN)
1286         return E_INVALIDARG;
1287
1288     if(!Count) {
1289         *ActualCount = 0;
1290         return S_OK;
1291     }
1292
1293     switch(unit) {
1294     case RU_CHAR: {
1295         rangepoint_t end;
1296
1297         get_end_point(This, &end);
1298
1299         *ActualCount = move_by_chars(&end, Count);
1300
1301         set_end_point(This, &end);
1302         free_rangepoint(&end);
1303         break;
1304     }
1305
1306     default:
1307         FIXME("unimplemented unit %s\n", debugstr_w(Unit));
1308     }
1309
1310     return S_OK;
1311 }
1312
1313 static HRESULT WINAPI HTMLTxtRange_select(IHTMLTxtRange *iface)
1314 {
1315     HTMLTxtRange *This = impl_from_IHTMLTxtRange(iface);
1316     nsISelection *nsselection;
1317     nsresult nsres;
1318
1319     TRACE("(%p)\n", This);
1320
1321     nsres = nsIDOMWindow_GetSelection(This->doc->basedoc.window->nswindow, &nsselection);
1322     if(NS_FAILED(nsres)) {
1323         ERR("GetSelection failed: %08x\n", nsres);
1324         return E_FAIL;
1325     }
1326
1327     nsISelection_RemoveAllRanges(nsselection);
1328     nsISelection_AddRange(nsselection, This->nsrange);
1329     nsISelection_Release(nsselection);
1330     return S_OK;
1331 }
1332
1333 static HRESULT WINAPI HTMLTxtRange_pasteHTML(IHTMLTxtRange *iface, BSTR html)
1334 {
1335     HTMLTxtRange *This = impl_from_IHTMLTxtRange(iface);
1336     nsIDOMDocumentFragment *doc_frag;
1337     nsAString nsstr;
1338     nsresult nsres;
1339
1340     TRACE("(%p)->(%s)\n", This, debugstr_w(html));
1341
1342     nsres = nsIDOMRange_Collapse(This->nsrange, TRUE);
1343     assert(nsres == NS_OK);
1344
1345     nsAString_InitDepend(&nsstr, html);
1346     nsres = nsIDOMRange_CreateContextualFragment(This->nsrange, &nsstr, &doc_frag);
1347     nsAString_Finish(&nsstr);
1348     if(NS_FAILED(nsres)) {
1349         ERR("CreateContextualFragment failed: %08x\n", nsres);
1350         return E_FAIL;
1351     }
1352
1353     nsres = nsIDOMRange_InsertNode(This->nsrange, (nsIDOMNode*)doc_frag);
1354     nsIDOMDocumentFragment_Release(doc_frag);
1355     if(NS_FAILED(nsres)) {
1356         ERR("InsertNode failed: %08x\n", nsres);
1357         return E_FAIL;
1358     }
1359
1360     nsres = nsIDOMRange_Collapse(This->nsrange, FALSE);
1361     assert(nsres == NS_OK);
1362     return S_OK;
1363 }
1364
1365 static HRESULT WINAPI HTMLTxtRange_moveToElementText(IHTMLTxtRange *iface, IHTMLElement *element)
1366 {
1367     HTMLTxtRange *This = impl_from_IHTMLTxtRange(iface);
1368     HTMLElement *elem;
1369     nsresult nsres;
1370
1371     TRACE("(%p)->(%p)\n", This, element);
1372
1373     elem = unsafe_impl_from_IHTMLElement(element);
1374     if(!elem)
1375         return E_INVALIDARG;
1376
1377     nsres = nsIDOMRange_SelectNodeContents(This->nsrange, elem->node.nsnode);
1378     if(NS_FAILED(nsres)) {
1379         ERR("SelectNodeContents failed: %08x\n", nsres);
1380         return E_FAIL;
1381     }
1382
1383     return S_OK;
1384 }
1385
1386 static HRESULT WINAPI HTMLTxtRange_setEndPoint(IHTMLTxtRange *iface, BSTR how,
1387         IHTMLTxtRange *SourceRange)
1388 {
1389     HTMLTxtRange *This = impl_from_IHTMLTxtRange(iface);
1390     HTMLTxtRange *src_range;
1391     nsIDOMNode *ref_node;
1392     INT32 ref_offset;
1393     BOOL set_start;
1394     int how_type;
1395     INT16 cmp;
1396     nsresult nsres;
1397
1398     TRACE("(%p)->(%s %p)\n", This, debugstr_w(how), SourceRange);
1399
1400     how_type = string_to_nscmptype(how);
1401     if(how_type == -1)
1402         return E_INVALIDARG;
1403
1404     src_range = get_range_object(This->doc, SourceRange);
1405     if(!src_range)
1406         return E_FAIL;
1407
1408     switch(how_type) {
1409     case NS_START_TO_START:
1410     case NS_END_TO_START:
1411         nsres = nsIDOMRange_GetStartContainer(src_range->nsrange, &ref_node);
1412         assert(nsres == NS_OK);
1413
1414         nsres = nsIDOMRange_GetStartOffset(src_range->nsrange, &ref_offset);
1415         assert(nsres == NS_OK);
1416
1417         set_start = how_type == NS_START_TO_START;
1418         break;
1419     case NS_END_TO_END:
1420     case NS_START_TO_END:
1421         nsres = nsIDOMRange_GetEndContainer(src_range->nsrange, &ref_node);
1422         assert(nsres == NS_OK);
1423
1424         nsres = nsIDOMRange_GetEndOffset(src_range->nsrange, &ref_offset);
1425         assert(nsres == NS_OK);
1426
1427         set_start = how_type == NS_START_TO_END;
1428         break;
1429     DEFAULT_UNREACHABLE;
1430     }
1431
1432     nsres = nsIDOMRange_ComparePoint(This->nsrange, ref_node, ref_offset, &cmp);
1433     assert(nsres == NS_OK);
1434
1435     if(set_start) {
1436         if(cmp <= 0) {
1437             nsres = nsIDOMRange_SetStart(This->nsrange, ref_node, ref_offset);
1438         }else {
1439             nsres = nsIDOMRange_Collapse(This->nsrange, FALSE);
1440             assert(nsres == NS_OK);
1441
1442             nsres = nsIDOMRange_SetEnd(This->nsrange, ref_node, ref_offset);
1443         }
1444     }else {
1445         if(cmp >= 0) {
1446             nsres = nsIDOMRange_SetEnd(This->nsrange, ref_node, ref_offset);
1447         }else {
1448             nsres = nsIDOMRange_Collapse(This->nsrange, TRUE);
1449             assert(nsres == NS_OK);
1450
1451             nsres = nsIDOMRange_SetStart(This->nsrange, ref_node, ref_offset);
1452         }
1453     }
1454     assert(nsres == NS_OK);
1455
1456     nsIDOMNode_Release(ref_node);
1457     return S_OK;
1458 }
1459
1460 static HRESULT WINAPI HTMLTxtRange_compareEndPoints(IHTMLTxtRange *iface, BSTR how,
1461         IHTMLTxtRange *SourceRange, LONG *ret)
1462 {
1463     HTMLTxtRange *This = impl_from_IHTMLTxtRange(iface);
1464     HTMLTxtRange *src_range;
1465     short nsret = 0;
1466     int nscmpt;
1467     nsresult nsres;
1468
1469     TRACE("(%p)->(%s %p %p)\n", This, debugstr_w(how), SourceRange, ret);
1470
1471     nscmpt = string_to_nscmptype(how);
1472     if(nscmpt == -1)
1473         return E_INVALIDARG;
1474
1475     src_range = get_range_object(This->doc, SourceRange);
1476     if(!src_range)
1477         return E_FAIL;
1478
1479     nsres = nsIDOMRange_CompareBoundaryPoints(This->nsrange, nscmpt, src_range->nsrange, &nsret);
1480     if(NS_FAILED(nsres))
1481         ERR("CompareBoundaryPoints failed: %08x\n", nsres);
1482
1483     *ret = nsret;
1484     return S_OK;
1485 }
1486
1487 static HRESULT WINAPI HTMLTxtRange_findText(IHTMLTxtRange *iface, BSTR String,
1488         LONG count, LONG Flags, VARIANT_BOOL *Success)
1489 {
1490     HTMLTxtRange *This = impl_from_IHTMLTxtRange(iface);
1491     FIXME("(%p)->(%s %d %08x %p)\n", This, debugstr_w(String), count, Flags, Success);
1492     return E_NOTIMPL;
1493 }
1494
1495 static HRESULT WINAPI HTMLTxtRange_moveToPoint(IHTMLTxtRange *iface, LONG x, LONG y)
1496 {
1497     HTMLTxtRange *This = impl_from_IHTMLTxtRange(iface);
1498     FIXME("(%p)->(%d %d)\n", This, x, y);
1499     return E_NOTIMPL;
1500 }
1501
1502 static HRESULT WINAPI HTMLTxtRange_getBookmark(IHTMLTxtRange *iface, BSTR *Bookmark)
1503 {
1504     HTMLTxtRange *This = impl_from_IHTMLTxtRange(iface);
1505     FIXME("(%p)->(%p)\n", This, Bookmark);
1506     return E_NOTIMPL;
1507 }
1508
1509 static HRESULT WINAPI HTMLTxtRange_moveToBookmark(IHTMLTxtRange *iface, BSTR Bookmark,
1510         VARIANT_BOOL *Success)
1511 {
1512     HTMLTxtRange *This = impl_from_IHTMLTxtRange(iface);
1513     FIXME("(%p)->(%s %p)\n", This, debugstr_w(Bookmark), Success);
1514     return E_NOTIMPL;
1515 }
1516
1517 static HRESULT WINAPI HTMLTxtRange_queryCommandSupported(IHTMLTxtRange *iface, BSTR cmdID,
1518         VARIANT_BOOL *pfRet)
1519 {
1520     HTMLTxtRange *This = impl_from_IHTMLTxtRange(iface);
1521     FIXME("(%p)->(%s %p)\n", This, debugstr_w(cmdID), pfRet);
1522     return E_NOTIMPL;
1523 }
1524
1525 static HRESULT WINAPI HTMLTxtRange_queryCommandEnabled(IHTMLTxtRange *iface, BSTR cmdID,
1526         VARIANT_BOOL *pfRet)
1527 {
1528     HTMLTxtRange *This = impl_from_IHTMLTxtRange(iface);
1529     FIXME("(%p)->(%s %p)\n", This, debugstr_w(cmdID), pfRet);
1530     return E_NOTIMPL;
1531 }
1532
1533 static HRESULT WINAPI HTMLTxtRange_queryCommandState(IHTMLTxtRange *iface, BSTR cmdID,
1534         VARIANT_BOOL *pfRet)
1535 {
1536     HTMLTxtRange *This = impl_from_IHTMLTxtRange(iface);
1537     FIXME("(%p)->(%s %p)\n", This, debugstr_w(cmdID), pfRet);
1538     return E_NOTIMPL;
1539 }
1540
1541 static HRESULT WINAPI HTMLTxtRange_queryCommandIndeterm(IHTMLTxtRange *iface, BSTR cmdID,
1542         VARIANT_BOOL *pfRet)
1543 {
1544     HTMLTxtRange *This = impl_from_IHTMLTxtRange(iface);
1545     FIXME("(%p)->(%s %p)\n", This, debugstr_w(cmdID), pfRet);
1546     return E_NOTIMPL;
1547 }
1548
1549 static HRESULT WINAPI HTMLTxtRange_queryCommandText(IHTMLTxtRange *iface, BSTR cmdID,
1550         BSTR *pcmdText)
1551 {
1552     HTMLTxtRange *This = impl_from_IHTMLTxtRange(iface);
1553     FIXME("(%p)->(%s %p)\n", This, debugstr_w(cmdID), pcmdText);
1554     return E_NOTIMPL;
1555 }
1556
1557 static HRESULT WINAPI HTMLTxtRange_queryCommandValue(IHTMLTxtRange *iface, BSTR cmdID,
1558         VARIANT *pcmdValue)
1559 {
1560     HTMLTxtRange *This = impl_from_IHTMLTxtRange(iface);
1561     FIXME("(%p)->(%s %p)\n", This, debugstr_w(cmdID), pcmdValue);
1562     return E_NOTIMPL;
1563 }
1564
1565 static HRESULT WINAPI HTMLTxtRange_execCommand(IHTMLTxtRange *iface, BSTR cmdID,
1566         VARIANT_BOOL showUI, VARIANT value, VARIANT_BOOL *pfRet)
1567 {
1568     HTMLTxtRange *This = impl_from_IHTMLTxtRange(iface);
1569     FIXME("(%p)->(%s %x v %p)\n", This, debugstr_w(cmdID), showUI, pfRet);
1570     return E_NOTIMPL;
1571 }
1572
1573 static HRESULT WINAPI HTMLTxtRange_execCommandShowHelp(IHTMLTxtRange *iface, BSTR cmdID,
1574         VARIANT_BOOL *pfRet)
1575 {
1576     HTMLTxtRange *This = impl_from_IHTMLTxtRange(iface);
1577     FIXME("(%p)->(%s %p)\n", This, debugstr_w(cmdID), pfRet);
1578     return E_NOTIMPL;
1579 }
1580
1581 static const IHTMLTxtRangeVtbl HTMLTxtRangeVtbl = {
1582     HTMLTxtRange_QueryInterface,
1583     HTMLTxtRange_AddRef,
1584     HTMLTxtRange_Release,
1585     HTMLTxtRange_GetTypeInfoCount,
1586     HTMLTxtRange_GetTypeInfo,
1587     HTMLTxtRange_GetIDsOfNames,
1588     HTMLTxtRange_Invoke,
1589     HTMLTxtRange_get_htmlText,
1590     HTMLTxtRange_put_text,
1591     HTMLTxtRange_get_text,
1592     HTMLTxtRange_parentElement,
1593     HTMLTxtRange_duplicate,
1594     HTMLTxtRange_inRange,
1595     HTMLTxtRange_isEqual,
1596     HTMLTxtRange_scrollIntoView,
1597     HTMLTxtRange_collapse,
1598     HTMLTxtRange_expand,
1599     HTMLTxtRange_move,
1600     HTMLTxtRange_moveStart,
1601     HTMLTxtRange_moveEnd,
1602     HTMLTxtRange_select,
1603     HTMLTxtRange_pasteHTML,
1604     HTMLTxtRange_moveToElementText,
1605     HTMLTxtRange_setEndPoint,
1606     HTMLTxtRange_compareEndPoints,
1607     HTMLTxtRange_findText,
1608     HTMLTxtRange_moveToPoint,
1609     HTMLTxtRange_getBookmark,
1610     HTMLTxtRange_moveToBookmark,
1611     HTMLTxtRange_queryCommandSupported,
1612     HTMLTxtRange_queryCommandEnabled,
1613     HTMLTxtRange_queryCommandState,
1614     HTMLTxtRange_queryCommandIndeterm,
1615     HTMLTxtRange_queryCommandText,
1616     HTMLTxtRange_queryCommandValue,
1617     HTMLTxtRange_execCommand,
1618     HTMLTxtRange_execCommandShowHelp
1619 };
1620
1621 static inline HTMLTxtRange *impl_from_IOleCommandTarget(IOleCommandTarget *iface)
1622 {
1623     return CONTAINING_RECORD(iface, HTMLTxtRange, IOleCommandTarget_iface);
1624 }
1625
1626 static HRESULT WINAPI RangeCommandTarget_QueryInterface(IOleCommandTarget *iface, REFIID riid, void **ppv)
1627 {
1628     HTMLTxtRange *This = impl_from_IOleCommandTarget(iface);
1629     return IHTMLTxtRange_QueryInterface(&This->IHTMLTxtRange_iface, riid, ppv);
1630 }
1631
1632 static ULONG WINAPI RangeCommandTarget_AddRef(IOleCommandTarget *iface)
1633 {
1634     HTMLTxtRange *This = impl_from_IOleCommandTarget(iface);
1635     return IHTMLTxtRange_AddRef(&This->IHTMLTxtRange_iface);
1636 }
1637
1638 static ULONG WINAPI RangeCommandTarget_Release(IOleCommandTarget *iface)
1639 {
1640     HTMLTxtRange *This = impl_from_IOleCommandTarget(iface);
1641     return IHTMLTxtRange_Release(&This->IHTMLTxtRange_iface);
1642 }
1643
1644 static HRESULT WINAPI RangeCommandTarget_QueryStatus(IOleCommandTarget *iface, const GUID *pguidCmdGroup,
1645         ULONG cCmds, OLECMD prgCmds[], OLECMDTEXT *pCmdText)
1646 {
1647     HTMLTxtRange *This = impl_from_IOleCommandTarget(iface);
1648     FIXME("(%p)->(%s %d %p %p)\n", This, debugstr_guid(pguidCmdGroup), cCmds, prgCmds, pCmdText);
1649     return E_NOTIMPL;
1650 }
1651
1652 static HRESULT exec_indent(HTMLTxtRange *This, VARIANT *in, VARIANT *out)
1653 {
1654     nsIDOMElement *blockquote_elem, *p_elem;
1655     nsIDOMDocumentFragment *fragment;
1656     nsIDOMNode *tmp;
1657
1658     TRACE("(%p)->(%p %p)\n", This, in, out);
1659
1660     if(!This->doc->nsdoc) {
1661         WARN("NULL nsdoc\n");
1662         return E_NOTIMPL;
1663     }
1664
1665     create_nselem(This->doc, L"BLOCKQUOTE", &blockquote_elem);
1666     create_nselem(This->doc, L"P", &p_elem);
1667
1668     nsIDOMRange_ExtractContents(This->nsrange, &fragment);
1669     nsIDOMElement_AppendChild(p_elem, (nsIDOMNode*)fragment, &tmp);
1670     nsIDOMDocumentFragment_Release(fragment);
1671     nsIDOMNode_Release(tmp);
1672
1673     nsIDOMElement_AppendChild(blockquote_elem, (nsIDOMNode*)p_elem, &tmp);
1674     nsIDOMElement_Release(p_elem);
1675     nsIDOMNode_Release(tmp);
1676
1677     nsIDOMRange_InsertNode(This->nsrange, (nsIDOMNode*)blockquote_elem);
1678     nsIDOMElement_Release(blockquote_elem);
1679
1680     return S_OK;
1681 }
1682
1683 static HRESULT WINAPI RangeCommandTarget_Exec(IOleCommandTarget *iface, const GUID *pguidCmdGroup,
1684         DWORD nCmdID, DWORD nCmdexecopt, VARIANT *pvaIn, VARIANT *pvaOut)
1685 {
1686     HTMLTxtRange *This = impl_from_IOleCommandTarget(iface);
1687
1688     TRACE("(%p)->(%s %d %x %p %p)\n", This, debugstr_guid(pguidCmdGroup), nCmdID,
1689           nCmdexecopt, pvaIn, pvaOut);
1690
1691     if(pguidCmdGroup && IsEqualGUID(&CGID_MSHTML, pguidCmdGroup)) {
1692         switch(nCmdID) {
1693         case IDM_INDENT:
1694             return exec_indent(This, pvaIn, pvaOut);
1695         default:
1696             FIXME("Unsupported cmdid %d of CGID_MSHTML\n", nCmdID);
1697         }
1698     }else {
1699         FIXME("Unsupported cmd %d of group %s\n", nCmdID, debugstr_guid(pguidCmdGroup));
1700     }
1701
1702     return E_NOTIMPL;
1703 }
1704
1705 static const IOleCommandTargetVtbl OleCommandTargetVtbl = {
1706     RangeCommandTarget_QueryInterface,
1707     RangeCommandTarget_AddRef,
1708     RangeCommandTarget_Release,
1709     RangeCommandTarget_QueryStatus,
1710     RangeCommandTarget_Exec
1711 };
1712
1713 static const tid_t HTMLTxtRange_iface_tids[] = {
1714     IHTMLTxtRange_tid,
1715     0
1716 };
1717 static dispex_static_data_t HTMLTxtRange_dispex = {
1718     NULL,
1719     IHTMLTxtRange_tid,
1720     HTMLTxtRange_iface_tids
1721 };
1722
1723 HRESULT HTMLTxtRange_Create(HTMLDocumentNode *doc, nsIDOMRange *nsrange, IHTMLTxtRange **p)
1724 {
1725     HTMLTxtRange *ret;
1726
1727     ret = heap_alloc(sizeof(HTMLTxtRange));
1728     if(!ret)
1729         return E_OUTOFMEMORY;
1730
1731     init_dispatch(&ret->dispex, (IUnknown*)&ret->IHTMLTxtRange_iface, &HTMLTxtRange_dispex,
1732                                  dispex_compat_mode(&doc->node.event_target.dispex));
1733
1734     ret->IHTMLTxtRange_iface.lpVtbl = &HTMLTxtRangeVtbl;
1735     ret->IOleCommandTarget_iface.lpVtbl = &OleCommandTargetVtbl;
1736     ret->ref = 1;
1737
1738     if(nsrange)
1739         nsIDOMRange_AddRef(nsrange);
1740     ret->nsrange = nsrange;
1741
1742     ret->doc = doc;
1743     list_add_head(&doc->range_list, &ret->entry);
1744
1745     *p = &ret->IHTMLTxtRange_iface;
1746     return S_OK;
1747 }
1748
1749 static inline HTMLDOMRange *impl_from_IHTMLDOMRange(IHTMLDOMRange *iface)
1750 {
1751     return CONTAINING_RECORD(iface, HTMLDOMRange, IHTMLDOMRange_iface);
1752 }
1753
1754 static HRESULT WINAPI HTMLDOMRange_QueryInterface(IHTMLDOMRange *iface, REFIID riid, void **ppv)
1755 {
1756     HTMLDOMRange *This = impl_from_IHTMLDOMRange(iface);
1757
1758     TRACE("(%p)->(%s %p)\n", This, debugstr_mshtml_guid(riid), ppv);
1759
1760     if(IsEqualGUID(&IID_IUnknown, riid)) {
1761         *ppv = &This->IHTMLDOMRange_iface;
1762     }else if(IsEqualGUID(&IID_IHTMLDOMRange, riid)) {
1763         *ppv = &This->IHTMLDOMRange_iface;
1764     }else if(dispex_query_interface(&This->dispex, riid, ppv)) {
1765         return *ppv ? S_OK : E_NOINTERFACE;
1766     }else {
1767         *ppv = NULL;
1768         WARN("(%p)->(%s %p)\n", This, debugstr_guid(riid), ppv);
1769         return E_NOINTERFACE;
1770     }
1771
1772     IUnknown_AddRef((IUnknown*)*ppv);
1773     return S_OK;
1774 }
1775
1776 static ULONG WINAPI HTMLDOMRange_AddRef(IHTMLDOMRange *iface)
1777 {
1778     HTMLDOMRange *This = impl_from_IHTMLDOMRange(iface);
1779     LONG ref = InterlockedIncrement(&This->ref);
1780
1781     TRACE("(%p) ref=%d\n", This, ref);
1782
1783     return ref;
1784 }
1785
1786 static ULONG WINAPI HTMLDOMRange_Release(IHTMLDOMRange *iface)
1787 {
1788     HTMLDOMRange *This = impl_from_IHTMLDOMRange(iface);
1789     LONG ref = InterlockedDecrement(&This->ref);
1790
1791     TRACE("(%p) ref=%d\n", This, ref);
1792
1793     if(!ref) {
1794         if(This->nsrange)
1795             nsIDOMRange_Release(This->nsrange);
1796         release_dispex(&This->dispex);
1797         heap_free(This);
1798     }
1799
1800     return ref;
1801 }
1802
1803 static HRESULT WINAPI HTMLDOMRange_GetTypeInfoCount(IHTMLDOMRange *iface, UINT *pctinfo)
1804 {
1805     HTMLDOMRange *This = impl_from_IHTMLDOMRange(iface);
1806
1807     return IDispatchEx_GetTypeInfoCount(&This->dispex.IDispatchEx_iface, pctinfo);
1808 }
1809
1810 static HRESULT WINAPI HTMLDOMRange_GetTypeInfo(IHTMLDOMRange *iface, UINT iTInfo,
1811                                                LCID lcid, ITypeInfo **ppTInfo)
1812 {
1813     HTMLDOMRange *This = impl_from_IHTMLDOMRange(iface);
1814
1815     return IDispatchEx_GetTypeInfo(&This->dispex.IDispatchEx_iface, iTInfo, lcid, ppTInfo);
1816 }
1817
1818 static HRESULT WINAPI HTMLDOMRange_GetIDsOfNames(IHTMLDOMRange *iface, REFIID riid,
1819                                                  LPOLESTR *rgszNames, UINT cNames,
1820                                                  LCID lcid, DISPID *rgDispId)
1821 {
1822     HTMLDOMRange *This = impl_from_IHTMLDOMRange(iface);
1823
1824     return IDispatchEx_GetIDsOfNames(&This->dispex.IDispatchEx_iface, riid, rgszNames,
1825             cNames, lcid, rgDispId);
1826 }
1827
1828 static HRESULT WINAPI HTMLDOMRange_Invoke(IHTMLDOMRange *iface, DISPID dispIdMember,
1829                             REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams,
1830                             VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
1831 {
1832     HTMLDOMRange *This = impl_from_IHTMLDOMRange(iface);
1833
1834     return IDispatchEx_Invoke(&This->dispex.IDispatchEx_iface, dispIdMember, riid,
1835             lcid, wFlags, pDispParams, pVarResult, pExcepInfo, puArgErr);
1836 }
1837
1838 static HRESULT WINAPI HTMLDOMRange_get_startContainer(IHTMLDOMRange *iface, IHTMLDOMNode **p)
1839 {
1840     HTMLDOMRange *This = impl_from_IHTMLDOMRange(iface);
1841     FIXME("(%p)->(%p)\n", This, p);
1842     return E_NOTIMPL;
1843 }
1844
1845 static HRESULT WINAPI HTMLDOMRange_get_startOffset(IHTMLDOMRange *iface, LONG *p)
1846 {
1847     HTMLDOMRange *This = impl_from_IHTMLDOMRange(iface);
1848     FIXME("(%p)->(%p)\n", This, p);
1849     return E_NOTIMPL;
1850 }
1851
1852 static HRESULT WINAPI HTMLDOMRange_get_endContainer(IHTMLDOMRange *iface, IHTMLDOMNode **p)
1853 {
1854     HTMLDOMRange *This = impl_from_IHTMLDOMRange(iface);
1855     FIXME("(%p)->(%p)\n", This, p);
1856     return E_NOTIMPL;
1857 }
1858
1859 static HRESULT WINAPI HTMLDOMRange_get_endOffset(IHTMLDOMRange *iface, LONG *p)
1860 {
1861     HTMLDOMRange *This = impl_from_IHTMLDOMRange(iface);
1862     FIXME("(%p)->(%p)\n", This, p);
1863     return E_NOTIMPL;
1864 }
1865
1866 static HRESULT WINAPI HTMLDOMRange_get_collapsed(IHTMLDOMRange *iface, VARIANT_BOOL *p)
1867 {
1868     HTMLDOMRange *This = impl_from_IHTMLDOMRange(iface);
1869     FIXME("(%p)->(%p)\n", This, p);
1870     return E_NOTIMPL;
1871 }
1872
1873 static HRESULT WINAPI HTMLDOMRange_get_commonAncestorContainer(IHTMLDOMRange *iface, IHTMLDOMNode **p)
1874 {
1875     HTMLDOMRange *This = impl_from_IHTMLDOMRange(iface);
1876     FIXME("(%p)->(%p)\n", This, p);
1877     return E_NOTIMPL;
1878 }
1879
1880 static HRESULT WINAPI HTMLDOMRange_setStart(IHTMLDOMRange *iface, IDispatch *node, LONG offset)
1881 {
1882     HTMLDOMRange *This = impl_from_IHTMLDOMRange(iface);
1883     FIXME("(%p)->(%p, %d)\n", This, node, offset);
1884     return E_NOTIMPL;
1885 }
1886
1887 static HRESULT WINAPI HTMLDOMRange_setEnd(IHTMLDOMRange *iface, IDispatch *node, LONG offset)
1888 {
1889     HTMLDOMRange *This = impl_from_IHTMLDOMRange(iface);
1890     FIXME("(%p)->(%p, %d)\n", This, node, offset);
1891     return E_NOTIMPL;
1892 }
1893
1894 static HRESULT WINAPI HTMLDOMRange_setStartBefore(IHTMLDOMRange *iface, IDispatch *node)
1895 {
1896     HTMLDOMRange *This = impl_from_IHTMLDOMRange(iface);
1897     FIXME("(%p)->(%p)\n", This, node);
1898     return E_NOTIMPL;
1899 }
1900
1901 static HRESULT WINAPI HTMLDOMRange_setStartAfter(IHTMLDOMRange *iface, IDispatch *node)
1902 {
1903     HTMLDOMRange *This = impl_from_IHTMLDOMRange(iface);
1904     FIXME("(%p)->(%p)\n", This, node);
1905     return E_NOTIMPL;
1906 }
1907
1908 static HRESULT WINAPI HTMLDOMRange_setEndBefore(IHTMLDOMRange *iface, IDispatch *node)
1909 {
1910     HTMLDOMRange *This = impl_from_IHTMLDOMRange(iface);
1911     FIXME("(%p)->(%p)\n", This, node);
1912     return E_NOTIMPL;
1913 }
1914
1915 static HRESULT WINAPI HTMLDOMRange_setEndAfter(IHTMLDOMRange *iface, IDispatch *node)
1916 {
1917     HTMLDOMRange *This = impl_from_IHTMLDOMRange(iface);
1918     FIXME("(%p)->(%p)\n", This, node);
1919     return E_NOTIMPL;
1920 }
1921
1922 static HRESULT WINAPI HTMLDOMRange_collapse(IHTMLDOMRange *iface, VARIANT_BOOL tostart)
1923 {
1924     HTMLDOMRange *This = impl_from_IHTMLDOMRange(iface);
1925     FIXME("(%p)->(%x)\n", This, tostart);
1926     return E_NOTIMPL;
1927 }
1928
1929 static HRESULT WINAPI HTMLDOMRange_selectNode(IHTMLDOMRange *iface, IDispatch *node)
1930 {
1931     HTMLDOMRange *This = impl_from_IHTMLDOMRange(iface);
1932     FIXME("(%p)->(%p)\n", This, node);
1933     return E_NOTIMPL;
1934 }
1935
1936 static HRESULT WINAPI HTMLDOMRange_selectNodeContents(IHTMLDOMRange *iface, IDispatch *node)
1937 {
1938     HTMLDOMRange *This = impl_from_IHTMLDOMRange(iface);
1939     FIXME("(%p)->(%p)\n", This, node);
1940     return E_NOTIMPL;
1941 }
1942
1943 static HRESULT WINAPI HTMLDOMRange_compareBoundaryPoints(IHTMLDOMRange *iface, short how,
1944     IDispatch *src_range, LONG *result)
1945 {
1946     HTMLDOMRange *This = impl_from_IHTMLDOMRange(iface);
1947     FIXME("(%p)->(%x, %p, %p)\n", This, how, src_range, result);
1948     return E_NOTIMPL;
1949 }
1950
1951 static HRESULT WINAPI HTMLDOMRange_deleteContents(IHTMLDOMRange *iface)
1952 {
1953     HTMLDOMRange *This = impl_from_IHTMLDOMRange(iface);
1954     FIXME("(%p)\n", This);
1955     return E_NOTIMPL;
1956 }
1957
1958 static HRESULT WINAPI HTMLDOMRange_extractContents(IHTMLDOMRange *iface, IDispatch **p)
1959 {
1960     HTMLDOMRange *This = impl_from_IHTMLDOMRange(iface);
1961     FIXME("(%p)->(%p)\n", This, p);
1962     return E_NOTIMPL;
1963 }
1964
1965 static HRESULT WINAPI HTMLDOMRange_cloneContents(IHTMLDOMRange *iface, IDispatch **p)
1966 {
1967     HTMLDOMRange *This = impl_from_IHTMLDOMRange(iface);
1968     FIXME("(%p)->(%p)\n", This, p);
1969     return E_NOTIMPL;
1970 }
1971
1972 static HRESULT WINAPI HTMLDOMRange_insertNode(IHTMLDOMRange *iface, IDispatch *node)
1973 {
1974     HTMLDOMRange *This = impl_from_IHTMLDOMRange(iface);
1975     FIXME("(%p)->(%p)\n", This, node);
1976     return E_NOTIMPL;
1977 }
1978
1979 static HRESULT WINAPI HTMLDOMRange_surroundContents(IHTMLDOMRange *iface, IDispatch *parent)
1980 {
1981     HTMLDOMRange *This = impl_from_IHTMLDOMRange(iface);
1982     FIXME("(%p)->(%p)\n", This, parent);
1983     return E_NOTIMPL;
1984 }
1985
1986 static HRESULT WINAPI HTMLDOMRange_cloneRange(IHTMLDOMRange *iface, IHTMLDOMRange **p)
1987 {
1988     HTMLDOMRange *This = impl_from_IHTMLDOMRange(iface);
1989     FIXME("(%p)->(%p)\n", This, p);
1990     return E_NOTIMPL;
1991 }
1992
1993 static HRESULT WINAPI HTMLDOMRange_toString(IHTMLDOMRange *iface, BSTR *p)
1994 {
1995     HTMLDOMRange *This = impl_from_IHTMLDOMRange(iface);
1996     FIXME("(%p)->(%p)\n", This, p);
1997     return E_NOTIMPL;
1998 }
1999
2000 static HRESULT WINAPI HTMLDOMRange_detach(IHTMLDOMRange *iface)
2001 {
2002     HTMLDOMRange *This = impl_from_IHTMLDOMRange(iface);
2003     FIXME("(%p)\n", This);
2004     return E_NOTIMPL;
2005 }
2006
2007 static HRESULT WINAPI HTMLDOMRange_getClientRects(IHTMLDOMRange *iface, IHTMLRectCollection **p)
2008 {
2009     HTMLDOMRange *This = impl_from_IHTMLDOMRange(iface);
2010     FIXME("(%p)->(%p)\n", This, p);
2011     return E_NOTIMPL;
2012 }
2013
2014 static HRESULT WINAPI HTMLDOMRange_getBoundingClientRect(IHTMLDOMRange *iface, IHTMLRect **p)
2015 {
2016     HTMLDOMRange *This = impl_from_IHTMLDOMRange(iface);
2017     FIXME("(%p)->(%p)\n", This, p);
2018     return E_NOTIMPL;
2019 }
2020
2021 static const IHTMLDOMRangeVtbl HTMLDOMRangeVtbl = {
2022     HTMLDOMRange_QueryInterface,
2023     HTMLDOMRange_AddRef,
2024     HTMLDOMRange_Release,
2025     HTMLDOMRange_GetTypeInfoCount,
2026     HTMLDOMRange_GetTypeInfo,
2027     HTMLDOMRange_GetIDsOfNames,
2028     HTMLDOMRange_Invoke,
2029     HTMLDOMRange_get_startContainer,
2030     HTMLDOMRange_get_startOffset,
2031     HTMLDOMRange_get_endContainer,
2032     HTMLDOMRange_get_endOffset,
2033     HTMLDOMRange_get_collapsed,
2034     HTMLDOMRange_get_commonAncestorContainer,
2035     HTMLDOMRange_setStart,
2036     HTMLDOMRange_setEnd,
2037     HTMLDOMRange_setStartBefore,
2038     HTMLDOMRange_setStartAfter,
2039     HTMLDOMRange_setEndBefore,
2040     HTMLDOMRange_setEndAfter,
2041     HTMLDOMRange_collapse,
2042     HTMLDOMRange_selectNode,
2043     HTMLDOMRange_selectNodeContents,
2044     HTMLDOMRange_compareBoundaryPoints,
2045     HTMLDOMRange_deleteContents,
2046     HTMLDOMRange_extractContents,
2047     HTMLDOMRange_cloneContents,
2048     HTMLDOMRange_insertNode,
2049     HTMLDOMRange_surroundContents,
2050     HTMLDOMRange_cloneRange,
2051     HTMLDOMRange_toString,
2052     HTMLDOMRange_detach,
2053     HTMLDOMRange_getClientRects,
2054     HTMLDOMRange_getBoundingClientRect,
2055 };
2056
2057 static const tid_t HTMLDOMRange_iface_tids[] = {
2058     IHTMLDOMRange_tid,
2059     0
2060 };
2061
2062 static dispex_static_data_t HTMLDOMRange_dispex = {
2063     NULL,
2064     DispHTMLDOMRange_tid,
2065     HTMLDOMRange_iface_tids
2066 };
2067
2068 HRESULT create_dom_range(nsIDOMRange *nsrange, compat_mode_t compat_mode, IHTMLDOMRange **p)
2069 {
2070     HTMLDOMRange *ret;
2071
2072     ret = heap_alloc(sizeof(*ret));
2073     if(!ret)
2074         return E_OUTOFMEMORY;
2075
2076     init_dispatch(&ret->dispex, (IUnknown*)&ret->IHTMLDOMRange_iface, &HTMLDOMRange_dispex, compat_mode);
2077
2078     ret->IHTMLDOMRange_iface.lpVtbl = &HTMLDOMRangeVtbl;
2079     ret->ref = 1;
2080
2081     if(nsrange)
2082         nsIDOMRange_AddRef(nsrange);
2083     ret->nsrange = nsrange;
2084
2085     *p = &ret->IHTMLDOMRange_iface;
2086     return S_OK;
2087 }
2088
2089 void detach_ranges(HTMLDocumentNode *This)
2090 {
2091     HTMLTxtRange *iter, *next;
2092
2093     LIST_FOR_EACH_ENTRY_SAFE(iter, next, &This->range_list, HTMLTxtRange, entry) {
2094         iter->doc = NULL;
2095         list_remove(&iter->entry);
2096     }
2097 }
2098
2099 typedef struct {
2100     IMarkupPointer2 IMarkupPointer2_iface;
2101     LONG ref;
2102 } MarkupPointer;
2103
2104 static inline MarkupPointer *impl_from_IMarkupPointer2(IMarkupPointer2 *iface)
2105 {
2106     return CONTAINING_RECORD(iface, MarkupPointer, IMarkupPointer2_iface);
2107 }
2108
2109 static HRESULT WINAPI MarkupPointer2_QueryInterface(IMarkupPointer2 *iface, REFIID riid, void **ppv)
2110 {
2111     MarkupPointer *This = impl_from_IMarkupPointer2(iface);
2112
2113     TRACE("(%p)->(%s %p)\n", This, debugstr_mshtml_guid(riid), ppv);
2114
2115     if(IsEqualGUID(&IID_IUnknown, riid)) {
2116         *ppv = &This->IMarkupPointer2_iface;
2117     }else if(IsEqualGUID(&IID_IMarkupPointer, riid)) {
2118         *ppv = &This->IMarkupPointer2_iface;
2119     }else if(IsEqualGUID(&IID_IMarkupPointer2, riid)) {
2120         *ppv = &This->IMarkupPointer2_iface;
2121     }else {
2122         *ppv = NULL;
2123         WARN("(%p)->(%s %p)\n", This, debugstr_guid(riid), ppv);
2124         return E_NOINTERFACE;
2125     }
2126
2127     IUnknown_AddRef((IUnknown*)*ppv);
2128     return S_OK;
2129 }
2130
2131 static ULONG WINAPI MarkupPointer2_AddRef(IMarkupPointer2 *iface)
2132 {
2133     MarkupPointer *This = impl_from_IMarkupPointer2(iface);
2134     LONG ref = InterlockedIncrement(&This->ref);
2135
2136     TRACE("(%p) ref=%d\n", This, ref);
2137
2138     return ref;
2139 }
2140
2141 static ULONG WINAPI MarkupPointer2_Release(IMarkupPointer2 *iface)
2142 {
2143     MarkupPointer *This = impl_from_IMarkupPointer2(iface);
2144     LONG ref = InterlockedDecrement(&This->ref);
2145
2146     TRACE("(%p) ref=%d\n", This, ref);
2147
2148     if(!ref)
2149         heap_free(This);
2150
2151     return ref;
2152 }
2153
2154 static HRESULT WINAPI MarkupPointer2_OwningDoc(IMarkupPointer2 *iface, IHTMLDocument2 **p)
2155 {
2156     MarkupPointer *This = impl_from_IMarkupPointer2(iface);
2157     FIXME("(%p)->(%p)\n", This, p);
2158     return E_NOTIMPL;
2159 }
2160
2161 static HRESULT WINAPI MarkupPointer2_Gravity(IMarkupPointer2 *iface, POINTER_GRAVITY *p)
2162 {
2163     MarkupPointer *This = impl_from_IMarkupPointer2(iface);
2164     FIXME("(%p)->(%p)\n", This, p);
2165     return E_NOTIMPL;
2166 }
2167
2168 static HRESULT WINAPI MarkupPointer2_SetGravity(IMarkupPointer2 *iface, POINTER_GRAVITY gravity)
2169 {
2170     MarkupPointer *This = impl_from_IMarkupPointer2(iface);
2171     FIXME("(%p)->(%u)\n", This, gravity);
2172     return E_NOTIMPL;
2173 }
2174
2175 static HRESULT WINAPI MarkupPointer2_Cling(IMarkupPointer2 *iface, BOOL *p)
2176 {
2177     MarkupPointer *This = impl_from_IMarkupPointer2(iface);
2178     FIXME("(%p)->(%p)\n", This, p);
2179     return E_NOTIMPL;
2180 }
2181
2182 static HRESULT WINAPI MarkupPointer2_SetCling(IMarkupPointer2 *iface, BOOL cling)
2183 {
2184     MarkupPointer *This = impl_from_IMarkupPointer2(iface);
2185     FIXME("(%p)->(%x)\n", This, cling);
2186     return E_NOTIMPL;
2187 }
2188
2189 static HRESULT WINAPI MarkupPointer2_Unposition(IMarkupPointer2 *iface)
2190 {
2191     MarkupPointer *This = impl_from_IMarkupPointer2(iface);
2192     FIXME("(%p)\n", This);
2193     return E_NOTIMPL;
2194 }
2195
2196 static HRESULT WINAPI MarkupPointer2_IsPositioned(IMarkupPointer2 *iface, BOOL *p)
2197 {
2198     MarkupPointer *This = impl_from_IMarkupPointer2(iface);
2199     FIXME("(%p)->(%p)\n", This, p);
2200     return E_NOTIMPL;
2201 }
2202
2203 static HRESULT WINAPI MarkupPointer2_GetContainer(IMarkupPointer2 *iface, IMarkupContainer **p)
2204 {
2205     MarkupPointer *This = impl_from_IMarkupPointer2(iface);
2206     FIXME("(%p)->(%p)\n", This, p);
2207     return E_NOTIMPL;
2208 }
2209
2210 static HRESULT WINAPI MarkupPointer2_MoveAdjacentToElement(IMarkupPointer2 *iface, IHTMLElement *element, ELEMENT_ADJACENCY adj)
2211 {
2212     MarkupPointer *This = impl_from_IMarkupPointer2(iface);
2213     FIXME("(%p)->(%p %u)\n", This, element, adj);
2214     return E_NOTIMPL;
2215 }
2216
2217 static HRESULT WINAPI MarkupPointer2_MoveToPointer(IMarkupPointer2 *iface, IMarkupPointer *pointer)
2218 {
2219     MarkupPointer *This = impl_from_IMarkupPointer2(iface);
2220     FIXME("(%p)->(%p)\n", This, pointer);
2221     return E_NOTIMPL;
2222 }
2223
2224 static HRESULT WINAPI MarkupPointer2_MoveToContainer(IMarkupPointer2 *iface, IMarkupContainer *container, BOOL at_start)
2225 {
2226     MarkupPointer *This = impl_from_IMarkupPointer2(iface);
2227     FIXME("(%p)->(%p %x)\n", This, container, at_start);
2228     return E_NOTIMPL;
2229 }
2230
2231 static HRESULT WINAPI MarkupPointer2_Left(IMarkupPointer2 *iface, BOOL move, MARKUP_CONTEXT_TYPE *context,
2232                                           IHTMLElement **element, LONG *len, OLECHAR *text)
2233 {
2234     MarkupPointer *This = impl_from_IMarkupPointer2(iface);
2235     FIXME("(%p)->(%x %p %p %p %p)\n", This, move, context, element, len, text);
2236     return E_NOTIMPL;
2237 }
2238
2239 static HRESULT WINAPI MarkupPointer2_Right(IMarkupPointer2 *iface, BOOL move, MARKUP_CONTEXT_TYPE *context,
2240                                            IHTMLElement **element, LONG *len, OLECHAR *text)
2241 {
2242     MarkupPointer *This = impl_from_IMarkupPointer2(iface);
2243     FIXME("(%p)->(%x %p %p %p %p)\n", This, move, context, element, len, text);
2244     return E_NOTIMPL;
2245 }
2246
2247 static HRESULT WINAPI MarkupPointer2_CurrentScope(IMarkupPointer2 *iface, IHTMLElement **p)
2248 {
2249     MarkupPointer *This = impl_from_IMarkupPointer2(iface);
2250     FIXME("(%p)->(%p)\n", This, p);
2251     return E_NOTIMPL;
2252 }
2253
2254 static HRESULT WINAPI MarkupPointer2_IsLeftOf(IMarkupPointer2 *iface, IMarkupPointer *that_pointer, BOOL *p)
2255 {
2256     MarkupPointer *This = impl_from_IMarkupPointer2(iface);
2257     FIXME("(%p)->(%p %p)\n", This, that_pointer, p);
2258     return E_NOTIMPL;
2259 }
2260
2261 static HRESULT WINAPI MarkupPointer2_IsLeftOfOrEqualTo(IMarkupPointer2 *iface, IMarkupPointer *that_pointer, BOOL *p)
2262 {
2263     MarkupPointer *This = impl_from_IMarkupPointer2(iface);
2264     FIXME("(%p)->(%p %p)\n", This, that_pointer, p);
2265     return E_NOTIMPL;
2266 }
2267
2268 static HRESULT WINAPI MarkupPointer2_IsRightOf(IMarkupPointer2 *iface, IMarkupPointer *that_pointer, BOOL *p)
2269 {
2270     MarkupPointer *This = impl_from_IMarkupPointer2(iface);
2271     FIXME("(%p)->(%p %p)\n", This, that_pointer, p);
2272     return E_NOTIMPL;
2273 }
2274
2275 static HRESULT WINAPI MarkupPointer2_IsRightOfOrEqualTo(IMarkupPointer2 *iface, IMarkupPointer *that_pointer, BOOL *p)
2276 {
2277     MarkupPointer *This = impl_from_IMarkupPointer2(iface);
2278     FIXME("(%p)->(%p %p)\n", This, that_pointer, p);
2279     return E_NOTIMPL;
2280 }
2281
2282 static HRESULT WINAPI MarkupPointer2_IsEqualTo(IMarkupPointer2 *iface, IMarkupPointer *that_pointer, BOOL *p)
2283 {
2284     MarkupPointer *This = impl_from_IMarkupPointer2(iface);
2285     FIXME("(%p)->(%p %p)\n", This, that_pointer, p);
2286     return E_NOTIMPL;
2287 }
2288
2289 static HRESULT WINAPI MarkupPointer2_MoveUnit(IMarkupPointer2 *iface, MOVEUNIT_ACTION action)
2290 {
2291     MarkupPointer *This = impl_from_IMarkupPointer2(iface);
2292     FIXME("(%p)->(%u)\n", This, action);
2293     return E_NOTIMPL;
2294 }
2295
2296 static HRESULT WINAPI MarkupPointer2_FindText(IMarkupPointer2 *iface, OLECHAR *text, DWORD flags,
2297                                               IMarkupPointer *end_match, IMarkupPointer *end_search)
2298 {
2299     MarkupPointer *This = impl_from_IMarkupPointer2(iface);
2300     FIXME("(%p)->(%s %x %p %p)\n", This, debugstr_w(text), flags, end_match, end_search);
2301     return E_NOTIMPL;
2302 }
2303
2304 static HRESULT WINAPI MarkupPointer2_IsAtWordBreak(IMarkupPointer2 *iface, BOOL *p)
2305 {
2306     MarkupPointer *This = impl_from_IMarkupPointer2(iface);
2307     FIXME("(%p)->(%p)\n", This, p);
2308     return E_NOTIMPL;
2309 }
2310
2311 static HRESULT WINAPI MarkupPointer2_GetMarkupPosition(IMarkupPointer2 *iface, LONG *p)
2312 {
2313     MarkupPointer *This = impl_from_IMarkupPointer2(iface);
2314     FIXME("(%p)->(%p)\n", This, p);
2315     return E_NOTIMPL;
2316 }
2317
2318 static HRESULT WINAPI MarkupPointer2_MoveToMarkupPosition(IMarkupPointer2 *iface, IMarkupContainer *container, LONG mp)
2319 {
2320     MarkupPointer *This = impl_from_IMarkupPointer2(iface);
2321     FIXME("(%p)->(%p %d)\n", This, container, mp);
2322     return E_NOTIMPL;
2323 }
2324
2325 static HRESULT WINAPI MarkupPointer2_MoveUnitBounded(IMarkupPointer2 *iface, MOVEUNIT_ACTION action, IMarkupPointer *boundary)
2326 {
2327     MarkupPointer *This = impl_from_IMarkupPointer2(iface);
2328     FIXME("(%p)->(%u %p)\n", This, action, boundary);
2329     return E_NOTIMPL;
2330 }
2331
2332 static HRESULT WINAPI MarkupPointer2_IsInsideURL(IMarkupPointer2 *iface, IMarkupPointer *right, BOOL *p)
2333 {
2334     MarkupPointer *This = impl_from_IMarkupPointer2(iface);
2335     FIXME("(%p)->(%p %p)\n", This, right, p);
2336     return E_NOTIMPL;
2337 }
2338
2339 static HRESULT WINAPI MarkupPointer2_MoveToContent(IMarkupPointer2 *iface, IHTMLElement *element, BOOL at_start)
2340 {
2341     MarkupPointer *This = impl_from_IMarkupPointer2(iface);
2342     FIXME("(%p)->(%p %x)\n", This, element, at_start);
2343     return E_NOTIMPL;
2344 }
2345
2346 static const IMarkupPointer2Vtbl MarkupPointer2Vtbl = {
2347     MarkupPointer2_QueryInterface,
2348     MarkupPointer2_AddRef,
2349     MarkupPointer2_Release,
2350     MarkupPointer2_OwningDoc,
2351     MarkupPointer2_Gravity,
2352     MarkupPointer2_SetGravity,
2353     MarkupPointer2_Cling,
2354     MarkupPointer2_SetCling,
2355     MarkupPointer2_Unposition,
2356     MarkupPointer2_IsPositioned,
2357     MarkupPointer2_GetContainer,
2358     MarkupPointer2_MoveAdjacentToElement,
2359     MarkupPointer2_MoveToPointer,
2360     MarkupPointer2_MoveToContainer,
2361     MarkupPointer2_Left,
2362     MarkupPointer2_Right,
2363     MarkupPointer2_CurrentScope,
2364     MarkupPointer2_IsLeftOf,
2365     MarkupPointer2_IsLeftOfOrEqualTo,
2366     MarkupPointer2_IsRightOf,
2367     MarkupPointer2_IsRightOfOrEqualTo,
2368     MarkupPointer2_IsEqualTo,
2369     MarkupPointer2_MoveUnit,
2370     MarkupPointer2_FindText,
2371     MarkupPointer2_IsAtWordBreak,
2372     MarkupPointer2_GetMarkupPosition,
2373     MarkupPointer2_MoveToMarkupPosition,
2374     MarkupPointer2_MoveUnitBounded,
2375     MarkupPointer2_IsInsideURL,
2376     MarkupPointer2_MoveToContent
2377 };
2378
2379 HRESULT create_markup_pointer(IMarkupPointer **ret)
2380 {
2381     MarkupPointer *markup_pointer;
2382
2383     if(!(markup_pointer = heap_alloc(sizeof(*markup_pointer))))
2384         return E_OUTOFMEMORY;
2385
2386     markup_pointer->IMarkupPointer2_iface.lpVtbl = &MarkupPointer2Vtbl;
2387     markup_pointer->ref = 1;
2388
2389     *ret = (IMarkupPointer*)&markup_pointer->IMarkupPointer2_iface;
2390     return S_OK;
2391 }