The R Project SVN R

Rev

Rev 51958 | Rev 52804 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 51958 Rev 52012
Line 1711... Line 1711...
1711 
    p->fc = 0;
 1711 
    p->fc = 0;
1712 
    cur_pos = 0;
 1712 
    cur_pos = 0;
1713 
    max_pos = 0;
 1713 
    max_pos = 0;
1714 
    cur_line = &aLine[prompt_len];
 1714 
    cur_line = &aLine[prompt_len];
1715 
    cur_line[0] = L'\0';
 1715 
    cur_line[0] = L'\0';
- 
 
 1716 
    showcaret(c, 1);
1716 
    REDRAW;
 1717 
    REDRAW;
1717 
    for(;;) {
 1718 
    for(;;) {
1718 
	wchar_t cur_char;
 1719 
	wchar_t cur_char;
1719 
	char chtype; /* boolean */
 1720 
	char chtype; /* boolean */
1720 
	p->input = 1;
 1721 
	p->input = 1;
Line 1827... Line 1828...
1827 
		    p->r = -1;
 1828 
		    p->r = -1;
1828 
		    cur_line[max_pos] = L'\0';
 1829 
		    cur_line[max_pos] = L'\0';
1829 
		    if (max_pos && addtohistory) wgl_histadd(cur_line);
 1830 
		    if (max_pos && addtohistory) wgl_histadd(cur_line);
1830 
		    xbuffixl(p->lbuf);
 1831 
		    xbuffixl(p->lbuf);
1831 
		    consolewrites(c, "\n");
 1832 
		    consolewrites(c, "\n");
- 
 
 1833 
		    showcaret(c, 0);
1832 
		    REDRAW;
 1834 
		    REDRAW;
1833 
		    return cur_char == EOFKEY;
 1835 
		    return cur_char == EOFKEY;
1834 
		}
 1836 
		}
1835 
		break;
 1837 
		break;
1836 
	    }
 1838 
	    }