The R Project SVN R

Rev

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

Rev 40672 Rev 40705
Line 1... Line 1...
1 
/*
 1 
/*
2 
 *  R : A Computer Language for Statistical Data Analysis
 2 
 *  R : A Computer Language for Statistical Data Analysis
3 
 *  Copyright (C) 1995, 1996, 1997 Robert Gentleman and Ross Ihaka
 3 
 *  Copyright (C) 1995, 1996, 1997 Robert Gentleman and Ross Ihaka
4 
 *  Copyright (C) 1998-2006	The R Development Core Team
 4 
 *  Copyright (C) 1998-2007	The R Development Core Team
5 
 *
 5 
 *
6 
 *  This source code module:
 6 
 *  This source code module:
7 
 *  Copyright (C) 1997, 1998 Paul Murrell and Ross Ihaka
 7 
 *  Copyright (C) 1997, 1998 Paul Murrell and Ross Ihaka
8 
 *  Copyright (C) 1998-2006	The R Development Core Team
 8 
 *  Copyright (C) 1998-2006	The R Development Core Team
9 
 *
 9 
 *
Line 624... Line 624...
624 
    return !strcmp(CHAR(PRINTNAME(expr)), aString);
 624 
    return !strcmp(CHAR(PRINTNAME(expr)), aString);
625 
}
 625 
}
626 
 
 626 
 
627 
static int StringMatch(SEXP expr, char *aString)
 627 
static int StringMatch(SEXP expr, char *aString)
628 
{
 628 
{
629 
    return !strcmp(CHAR(STRING_ELT(expr, 0)), aString);
 629 
    return !strcmp(translateChar(STRING_ELT(expr, 0)), aString);
630 
}
 630 
}
631 
/* Code to determine the ascii code corresponding */
 631 
/* Code to determine the ascii code corresponding */
632 
/* to an element of a mathematical expression. */
 632 
/* to an element of a mathematical expression. */
633 
 
 633 
 
634 
#define A_HAT		  94
 634 
#define A_HAT		  94