The R Project SVN R

Rev

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

Rev 25961 Rev 27076
Line 3203... Line 3203...
3203 
        return 0;
 3203 
        return 0;
3204 
 
 3204 
 
3205 
    if (c == '.' && isdigit((int)*p))
3205 
    if (c == '.' && isdigit((int)*p))
3206 
	return 0;
 3206 
	return 0;
3207 
 
 3207 
 
3208 
    while ( c = *p++, (isalnum(c) || c=='.') )
 3208 
    while ( c = *p++, (isalnum(c) || c == '.'
- 
 
 3209 
#ifdef UNDERSCORE_IN_NAMES
- 
 
 3210 
		       || c == '_'
- 
 
 3211 
#endif
- 
 
 3212 
		) )
3209 
	;
 3213 
	;
3210 
 
 3214 
 
3211 
    if (c != '\0') return 0;
 3215 
    if (c != '\0') return 0;
3212 
 
 3216 
 
3213 
    if (strcmp(name, "...") == 0)
3217 
    if (strcmp(name, "...") == 0)
Line 3226... Line 3230...
3226 
    int kw;
 3230 
    int kw;
3227 
    DECLARE_YYTEXT_BUFP(yyp);
 3231 
    DECLARE_YYTEXT_BUFP(yyp);
3228 
    do {
 3232 
    do {
3229 
	YYTEXT_PUSH(c, yyp);
 3233 
	YYTEXT_PUSH(c, yyp);
3230 
    }
 3234 
    }
3231 
    while ((c = xxgetc()) != R_EOF && (isalnum(c) || c == '.'));
 3235 
    while ((c = xxgetc()) != R_EOF && (isalnum(c) || c == '.'
- 
 
 3236 
#ifdef UNDERSCORE_IN_NAMES
- 
 
 3237 
				       || c == '_'
- 
 
 3238 
#endif
- 
 
 3239 
	       ));
3232 
    xxungetc(c);
 3240 
    xxungetc(c);
3233 
    YYTEXT_PUSH('\0', yyp);
 3241 
    YYTEXT_PUSH('\0', yyp);
3234 
    if ((kw = KeywordLookup(yytext))) {
 3242 
    if ((kw = KeywordLookup(yytext))) {
3235 
	if ( kw == FUNCTION ) {
 3243 
	if ( kw == FUNCTION ) {
3236 
	    if (FunctionLevel >= MAXNEST)
 3244 
	    if (FunctionLevel >= MAXNEST)