The R Project SVN R

Rev

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

Rev 28254 Rev 28362
Line 145... Line 145...
145 
}
 145 
}
146 
 
 146 
 
147 
 
 147 
 
148 
/*  length - length of objects  */
 148 
/*  length - length of objects  */
149 
 
 149 
 
150 
int length(SEXP s)
 150 
R_len_t length(SEXP s)
151 
{
 151 
{
152 
    int i;
 152 
    int i;
153 
    switch (TYPEOF(s)) {
 153 
    switch (TYPEOF(s)) {
154 
    case NILSXP:
 154 
    case NILSXP:
155 
	return 0;
 155 
	return 0;