The R Project SVN R

Rev

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

Rev 62580 Rev 63181
Line 1147... Line 1147...
1147 
    }
 1147 
    }
1148 
 
 1148 
 
1149 
    PROTECT(ans = allocVector(INTSXP, n_input));
 1149 
    PROTECT(ans = allocVector(INTSXP, n_input));
1150 
    int *ians = INTEGER(ans);
 1150 
    int *ians = INTEGER(ans);
1151 
 
 1151 
 
1152 
    const void *vmax = vmaxget();
 1152 
    const void *vmax = vmaxget();  // prudence: .Internal does this too.
1153 
    for(R_xlen_t i = 0; i < n_input; i++) {
 1153 
    for(R_xlen_t i = 0; i < n_input; i++) {
1154 
	if(useBytes)
 1154 
	if(useBytes)
1155 
	    ss = CHAR(STRING_ELT(input, i));
 1155 
	    ss = CHAR(STRING_ELT(input, i));
1156 
	else if(useUTF8)
 1156 
	else if(useUTF8)
1157 
	    ss = translateCharUTF8(STRING_ELT(input, i));
 1157 
	    ss = translateCharUTF8(STRING_ELT(input, i));
Line 1628... Line 1628...
1628 
    SEXP names, sep, ans, dup, newx;
 1628 
    SEXP names, sep, ans, dup, newx;
1629 
    int i, cnt, *cnts, dp;
 1629 
    int i, cnt, *cnts, dp;
1630 
    int n, len, maxlen = 0;
 1630 
    int n, len, maxlen = 0;
1631 
    HashData data;
 1631 
    HashData data;
1632 
    const char *csep, *ss;
 1632 
    const char *csep, *ss;
1633 
    void *vmax;
 1633 
    const void *vmax;
1634 
 
 1634 
 
1635 
    checkArity(op, args);
 1635 
    checkArity(op, args);
1636 
    names = CAR(args);
 1636 
    names = CAR(args);
1637 
    if(!isString(names))
 1637 
    if(!isString(names))
1638 
	error(_("'names' must be a character vector"));
 1638 
	error(_("'names' must be a character vector"));