The R Project SVN R

Rev

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

Rev 32888 Rev 33099
Line 45... Line 45...
45 
    }
 45 
    }
46 
    for (p = cmd; *p && isspace(*p); p++);
 46 
    for (p = cmd; *p && isspace(*p); p++);
47 
    for (q = p, d = 0; *q && ( d || !isspace(*q) ); q++)
 47 
    for (q = p, d = 0; *q && ( d || !isspace(*q) ); q++)
48 
      if (*q == '\"') d = d ? 0 : 1;
 48 
      if (*q == '\"') d = d ? 0 : 1;
49 
    if (d) {
 49 
    if (d) {
50 
	strcpy(RunError, _("A \" is missing(expandcmd)"));
 50 
	strcpy(RunError, _("A \" is missing (expandcmd)"));
51 
	return NULL;
 51 
	return NULL;
52 
    }
 52 
    }
53 
    c = *q;
 53 
    c = *q;
54 
    *q = '\0';
 54 
    *q = '\0';
55 
 
 55