The R Project SVN R

Rev

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

Rev 39507 Rev 41807
Line 107... Line 107...
107 
/*  mkSYMSXP - return a symsxp with the string  */
 107 
/*  mkSYMSXP - return a symsxp with the string  */
108 
/*             name inserted in the name field  */
 108 
/*             name inserted in the name field  */
109 
 
 109 
 
110 
static int isDDName(SEXP name)
 110 
static int isDDName(SEXP name)
111 
{
 111 
{
- 
 
 112 
    const char *buf;
112 
    char *buf, *endp;
 113 
    char *endp;
113 
    long val;
 114 
    long val;
114 
 
 115 
 
115 
    buf = CHAR(name);
 116 
    buf = CHAR(name);
116 
    if( !strncmp(buf, "..", 2) && strlen(buf) > 2 ) {
 117 
    if( !strncmp(buf, "..", 2) && strlen(buf) > 2 ) {
117 
        buf += 2;
 118 
        buf += 2;