The R Project SVN R

Rev

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

Rev 49592 Rev 49597
Line 244... Line 244...
244 
		      type2char(TYPEOF(s)));
 244 
		      type2char(TYPEOF(s)));
245 
    }
 245 
    }
246 
    return indx;
 246 
    return indx;
247 
}
 247 
}
248 
 
 248 
 
- 
 
 249 
SEXP attribute_hidden
249 
SEXP attribute_hidden vectorIndex(SEXP x, SEXP thesub, int start, int stop, int pok, SEXP call)
250 
vectorIndex(SEXP x, SEXP thesub, int start, int stop, int pok, SEXP call)
250 
{
 251 
{
251 
    int i, len = length(thesub), offset;
 252 
    int i, offset;
252 
 
 253 
 
253 
    for(i = start; i < stop; i++) {
 254 
    for(i = start; i < stop; i++) {
254 
	if(!isVectorList(x) && !isPairList(x))
 255 
	if(!isVectorList(x) && !isPairList(x))
255 
	    errorcall(call, _("recursive indexing failed at level %d\n"), i+1);
 256 
	    errorcall(call, _("recursive indexing failed at level %d\n"), i+1);
256 
	offset = get1index(thesub, getAttrib(x, R_NamesSymbol),
 257 
	offset = get1index(thesub, getAttrib(x, R_NamesSymbol),