The R Project SVN R

Rev

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

Rev 12976 Rev 16254
Line 104... Line 104...
104 
 
 104 
 
105 
 
 105 
 
106 
/*  mkSYMSXP - return a symsxp with the string  */
 106 
/*  mkSYMSXP - return a symsxp with the string  */
107 
/*             name inserted in the name field  */
 107 
/*             name inserted in the name field  */
108 
 
 108 
 
109 
static int ddVal(SEXP name)
 109 
static int isDDName(SEXP name)
110 
{
 110 
{
111 
    char *buf, *endp;
 111 
    char *buf, *endp;
112 
 
 112 
 
113 
    buf = CHAR(name);
 113 
    buf = CHAR(name);
114 
    if( !strncmp(buf,"..",2) && strlen(buf) > 2 ) {
 114 
    if( !strncmp(buf,"..",2) && strlen(buf) > 2 ) {
Line 127... Line 127...
127 
{
 127 
{
128 
    SEXP c;
 128 
    SEXP c;
129 
    int i;
 129 
    int i;
130 
    PROTECT(name);
 130 
    PROTECT(name);
131 
    PROTECT(value);
 131 
    PROTECT(value);
132 
    i = ddVal(name);
 132 
    i = isDDName(name);
133 
    c = allocSExp(SYMSXP);
 133 
    c = allocSExp(SYMSXP);
134 
    SET_PRINTNAME(c, name);
 134 
    SET_PRINTNAME(c, name);
135 
    SET_SYMVALUE(c, value);
 135 
    SET_SYMVALUE(c, value);
136 
    SET_DDVAL(c, i);
 136 
    SET_DDVAL(c, i);
137 
    UNPROTECT(2);
 137 
    UNPROTECT(2);