The R Project SVN R

Rev

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

Rev 25961 Rev 27076
Line 1654... Line 1654...
1654 
        return 0;
 1654 
        return 0;
1655 
 
 1655 
 
1656 
    if (c == '.' && isdigit((int)*p))
1656 
    if (c == '.' && isdigit((int)*p))
1657 
	return 0;
 1657 
	return 0;
1658 
 
 1658 
 
1659 
    while ( c = *p++, (isalnum(c) || c=='.') )
 1659 
    while ( c = *p++, (isalnum(c) || c == '.'
- 
 
 1660 
#ifdef UNDERSCORE_IN_NAMES
- 
 
 1661 
		       || c == '_'
- 
 
 1662 
#endif
- 
 
 1663 
		) )
1660 
	;
 1664 
	;
1661 
 
 1665 
 
1662 
    if (c != '\0') return 0;
 1666 
    if (c != '\0') return 0;
1663 
 
 1667 
 
1664 
    if (strcmp(name, "...") == 0)
1668 
    if (strcmp(name, "...") == 0)
Line 1677... Line 1681...
1677 
    int kw;
 1681 
    int kw;
1678 
    DECLARE_YYTEXT_BUFP(yyp);
 1682 
    DECLARE_YYTEXT_BUFP(yyp);
1679 
    do {
 1683 
    do {
1680 
	YYTEXT_PUSH(c, yyp);
 1684 
	YYTEXT_PUSH(c, yyp);
1681 
    }
 1685 
    }
1682 
    while ((c = xxgetc()) != R_EOF && (isalnum(c) || c == '.'));
 1686 
    while ((c = xxgetc()) != R_EOF && (isalnum(c) || c == '.'
- 
 
 1687 
#ifdef UNDERSCORE_IN_NAMES
- 
 
 1688 
				       || c == '_'
- 
 
 1689 
#endif
- 
 
 1690 
	       ));
1683 
    xxungetc(c);
 1691 
    xxungetc(c);
1684 
    YYTEXT_PUSH('\0', yyp);
 1692 
    YYTEXT_PUSH('\0', yyp);
1685 
    if ((kw = KeywordLookup(yytext))) {
 1693 
    if ((kw = KeywordLookup(yytext))) {
1686 
	if ( kw == FUNCTION ) {
 1694 
	if ( kw == FUNCTION ) {
1687 
	    if (FunctionLevel >= MAXNEST)
 1695 
	    if (FunctionLevel >= MAXNEST)