The R Project SVN R

Rev

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

Rev 87891 Rev 87901
Line 102... Line 102...
102 
    }
 102 
    }
103 
    return indx;
 103 
    return indx;
104 
}
 104 
}
105 
 
 105 
 
106 
/* Utility used (only in) do_subassign2_dflt(), i.e. "[[<-" in ./subassign.c : */
 106 
/* Utility used (only in) do_subassign2_dflt(), i.e. "[[<-" in ./subassign.c : */
107 
R_xlen_t attribute_hidden
 107 
attribute_hidden R_xlen_t
108 
OneIndex(SEXP x, SEXP s, R_xlen_t nx, int partial, SEXP *newname,
 108 
OneIndex(SEXP x, SEXP s, R_xlen_t nx, int partial, SEXP *newname,
109 
	 int pos, SEXP call)
 109 
	 int pos, SEXP call)
110 
{
 110 
{
111 
    SEXP names;
 111 
    SEXP names;
112 
    R_xlen_t i, indx;
 112 
    R_xlen_t i, indx;
Line 202... Line 202...
202 
    }
 202 
    }
203 
    return indx;
 203 
    return indx;
204 
}
 204 
}
205 
 
 205 
 
206 
/* used here and in subset.c and subassign.c */
 206 
/* used here and in subset.c and subassign.c */
207 
R_xlen_t attribute_hidden
 207 
attribute_hidden R_xlen_t
208 
get1index(SEXP s, SEXP names, R_xlen_t len, int pok, int pos, SEXP call)
 208 
get1index(SEXP s, SEXP names, R_xlen_t len, int pok, int pos, SEXP call)
209 
{
 209 
{
210 
/* Get a single index for the [[ and [[<- operators.
 210 
/* Get a single index for the [[ and [[<- operators.
211 
   Checks that only one index is being selected.
 211 
   Checks that only one index is being selected.
212 
   Returns -1 for no match.
 212 
   Returns -1 for no match.