The R Project SVN R

Rev

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

Rev 29607 Rev 29902
Line 1... Line 1...
1 
/*
 1 
/*
2 
 *  R : A Computer Langage for Statistical Data Analysis
 2 
 *  R : A Computer Langage for Statistical Data Analysis
3 
 *  Copyright (C) 1995, 1996  Robert Gentleman and Ross Ihaka
 3 
 *  Copyright (C) 1995, 1996  Robert Gentleman and Ross Ihaka
4 
 *  Copyright (C) 2001-3  The R Development Core Team
 4 
 *  Copyright (C) 2001-4  The R Development Core Team
5 
 *
 5 
 *
6 
 *  This program is free software; you can redistribute it and/or modify
 6 
 *  This program is free software; you can redistribute it and/or modify
7 
 *  it under the terms of the GNU General Public License as published by
 7 
 *  it under the terms of the GNU General Public License as published by
8 
 *  the Free Software Foundation; either version 2 of the License, or
 8 
 *  the Free Software Foundation; either version 2 of the License, or
9 
 *  (at your option) any later version.
 9 
 *  (at your option) any later version.
Line 159... Line 159...
159 
    case CPLXSXP:
 159 
    case CPLXSXP:
160 
    case STRSXP:
 160 
    case STRSXP:
161 
    case CHARSXP:
 161 
    case CHARSXP:
162 
    case VECSXP:
 162 
    case VECSXP:
163 
    case EXPRSXP:
 163 
    case EXPRSXP:
- 
 
 164 
    case RAWSXP:
164 
	return LENGTH(s);
 165 
	return LENGTH(s);
165 
    case LISTSXP:
 166 
    case LISTSXP:
166 
    case LANGSXP:
 167 
    case LANGSXP:
167 
    case DOTSXP:
 168 
    case DOTSXP:
168 
	i = 0;
 169 
	i = 0;