The R Project SVN R

Rev

Rev 27686 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 27686 Rev 29162
Line 813... Line 813...
813 
    strncpy(buf, ibuf, bufw);
 813 
    strncpy(buf, ibuf, bufw);
814 
    buf[bufw] = '\0';
 814 
    buf[bufw] = '\0';
815 
    if (buflen > fw) {
 815 
    if (buflen > fw) {
816 
	if(left) {
 816 
	if(left) {
817 
	    strncpy(buf, ibuf + buflen - fw, fw);
 817 
	    strncpy(buf, ibuf + buflen - fw, fw);
818 
	    buf[fw + 1] = '\0';
 818 
	    buf[fw] = '\0';
819 
	    *buf = '<';
 819 
	    *buf = '<';
820 
	} else {
 820 
	} else {
821 
	    *(buf + fw - 1) = '>';
 821 
	    *(buf + fw - 1) = '>';
822 
	    *(buf + fw) = '\0';
 822 
	    *(buf + fw) = '\0';
823 
	}
 823 
	}