The R Project SVN R

Rev

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

Rev 46084 Rev 49838
Line 67... Line 67...
67 
static char rhome[] = R_HOME;
 67 
static char rhome[] = R_HOME;
68 
#else
 68 
#else
69 
# include "rterm.c"
 69 
# include "rterm.c"
70 
#endif
 70 
#endif
71 
 
 71 
 
72 
#define RSVERSION "$Rev: 46084 $"
 72 
#define RSVERSION "$Rev: 49838 $"
73 
 
 73 
 
74 
#ifdef HAVE_EXECV
 74 
#ifdef HAVE_EXECV
75 
static int verbose = 0;
 75 
static int verbose = 0;
76 
#endif
 76 
#endif
77 
 
 77 
 
Line 163... Line 163...
163 
	    }
 163 
	    }
164 
	    av[ac++] = argv[i];
 164 
	    av[ac++] = argv[i];
165 
	    i0 = i;
 165 
	    i0 = i;
166 
	    continue;
 166 
	    continue;
167 
	}
 167 
	}
168 
	if(strncmp(argv[i], "--", 2)) break;
 168 
	if(strncmp(argv[i], "--", 2) != 0) break;
169 
	if(strcmp(argv[i], "--verbose") == 0) {
 169 
	if(strcmp(argv[i], "--verbose") == 0) {
170 
	    verbose = 1;
 170 
	    verbose = 1;
171 
	    i0 = i;
 171 
	    i0 = i;
172 
	    continue;
 172 
	    continue;
173 
	}
 173 
	}
Line 193... Line 193...
193 
	av[ac++] = argv[i];
 193 
	av[ac++] = argv[i];
194 
	i0 = i;
 194 
	i0 = i;
195 
    }
 195 
    }
196 
 
 196 
 
197 
    if(!e_mode) {
 197 
    if(!e_mode) {
- 
 
 198 
      if(++i0 >= argc) {
- 
 
 199 
        fprintf(stderr, "file name is missing\n");
- 
 
 200 
        exit(1);
- 
 
 201 
      }
198 
	if(strlen(argv[++i0]) > PATH_MAX) {
 202 
      if(strlen(argv[i0]) > PATH_MAX) {
199 
	    fprintf(stderr, "file name is too long\n");
 203 
	    fprintf(stderr, "file name is too long\n");
200 
	    exit(1);
 204 
	    exit(1);
201 
	}
 205 
	}
202 
	sprintf(buf, "--file=%s", argv[i0]);
 206 
	sprintf(buf, "--file=%s", argv[i0]);
203 
	av[ac++] = buf;
 207 
	av[ac++] = buf;