The R Project SVN R

Rev

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

Rev 76994 Rev 77364
Line 1359... Line 1359...
1359 
	    	res ++;
 1359 
	    	res ++;
1360 
	    	if (res >= n) break;
 1360 
	    	if (res >= n) break;
1361 
	    }
 1361 
	    }
1362 
	}
 1362 
	}
1363 
    else
 1363 
    else
1364 
	for(t = s; ; res++, t += m) {
 1364 
	for(t = s; ; t += m) {
1365 
	    m  = (ssize_t) utf8toucs(&local, t);
 1365 
	    m  = (ssize_t) utf8toucs(&local, t);
1366 
	    if (m < 0) error(_("invalid input '%s' in 'utf8towcs'"), s);
 1366 
	    if (m < 0) error(_("invalid input '%s' in 'utf8towcs'"), s);
1367 
	    if (m == 0) break;
 1367 
	    if (m == 0) break;
- 
 
 1368 
	    res ++;
- 
 
 1369 
	    if (IS_HIGH_SURROGATE(local))
- 
 
 1370 
		res++;
1368 
	}
 1371 
	}
1369 
    return (size_t) res;
 1372 
    return (size_t) res;
1370 
}
 1373 
}
1371 
 
 1374 
 
1372 
/* based on pcre.c */
 1375 
/* based on pcre.c */