The R Project SVN R

Rev

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

Rev 38705 Rev 39507
Line 108... Line 108...
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 
    char *buf, *endp;
 112 
    char *buf, *endp;
- 
 
 113 
    long val;
113 
 
 114 
 
114 
    buf = CHAR(name);
 115 
    buf = CHAR(name);
115 
    if( !strncmp(buf,"..",2) && strlen(buf) > 2 ) {
 116 
    if( !strncmp(buf, "..", 2) && strlen(buf) > 2 ) {
116 
        buf += 2;
 117 
        buf += 2;
117 
	strtol(buf, &endp, 10);
 118 
	val = strtol(buf, &endp, 10);
118 
        if( *endp != '\0')
 119 
        if( *endp != '\0')
119 
	    return 0;
 120 
	    return 0;
120 
	else
 121 
	else
121 
	    return 1;
 122 
	    return 1;
122 
    }
 123 
    }