The R Project SVN R

Rev

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

Rev 27052 Rev 27900
Line 195... Line 195...
195 
		if (i > 1) strcat(cmd, " ");
 195 
		if (i > 1) strcat(cmd, " ");
196 
		if (strlen(cmd) + strlen(argv[i]) > 9900) {
 196 
		if (strlen(cmd) + strlen(argv[i]) > 9900) {
197 
		    fprintf(stderr, "command line too long\n");
 197 
		    fprintf(stderr, "command line too long\n");
198 
		    exit(27);
 198 
		    exit(27);
199 
		}
 199 
		}
- 
 
 200 
		if(strchr(argv[i], ' ')) {
- 
 
 201 
		    strcat(cmd, "\"");
200 
		strcat(cmd, argv[i]);
 202 
		    strcat(cmd, argv[i]);
- 
 
 203 
		    strcat(cmd, "\"");
- 
 
 204 
		} else strcat(cmd, argv[i]);
201 
	    }
 205 
	    }
202 
/*	    printf("cmd is %s\n", cmd); */
 206 
/*	    printf("cmd is %s\n", cmd); */
203 
	    res = system(cmd);
 207 
	    res = system(cmd);
204 
	    if (res) status = 1;
 208 
	    if (res) status = 1;
205 
	}
 209 
	}