The R Project SVN R

Rev

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

Rev 9615 Rev 9642
Line 605... Line 605...
605 
    return !strcmp(CHAR(PRINTNAME(expr)), aString);
 605 
    return !strcmp(CHAR(PRINTNAME(expr)), aString);
606 
}
 606 
}
607 
 
 607 
 
608 
static int StringMatch(SEXP expr, char *aString)
 608 
static int StringMatch(SEXP expr, char *aString)
609 
{
 609 
{
610 
    return !strcmp(CHAR(STRING(expr)[0]), aString);
 610 
    return !strcmp(CHAR(STRING_ELT(expr, 0)), aString);
611 
}
 611 
}
612 
/* Code to determine the ascii code corresponding */
 612 
/* Code to determine the ascii code corresponding */
613 
/* to an element of a mathematical expression. */
 613 
/* to an element of a mathematical expression. */
614 
 
 614 
 
615 
#define A_HAT		  94
 615 
#define A_HAT		  94
Line 1116... Line 1116...
1116 
 
 1116 
 
1117 
/* Code for String Atoms */
 1117 
/* Code for String Atoms */
1118 
 
 1118 
 
1119 
static BBOX RenderString(SEXP expr, int draw)
 1119 
static BBOX RenderString(SEXP expr, int draw)
1120 
{
 1120 
{
1121 
    return RenderStr(CHAR(STRING(expr)[0]), draw);
 1121 
    return RenderStr(CHAR(STRING_ELT(expr, 0)), draw);
1122 
}
 1122 
}
1123 
 
 1123 
 
1124 
/* Code for Ellipsis (ldots, cdots, ...) */
 1124 
/* Code for Ellipsis (ldots, cdots, ...) */
1125 
 
 1125 
 
1126 
static int DotsAtom(SEXP expr)
 1126 
static int DotsAtom(SEXP expr)