The R Project SVN R

Rev

Rev 68956 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 68956 Rev 84236
Line 1... Line 1...
1 
/*
 1 
/*
2 
 *  R : A Computer Language for Statistical Data Analysis
 2 
 *  R : A Computer Language for Statistical Data Analysis
3 
 *  Copyright (C) 2000-11  R Core Team
 3 
 *  Copyright (C) 2000-23  R Core Team
4 
 *
 4 
 *
5 
 *  This program is free software; you can redistribute it and/or modify
 5 
 *  This program is free software; you can redistribute it and/or modify
6 
 *  it under the terms of the GNU General Public License as published by
 6 
 *  it under the terms of the GNU General Public License as published by
7 
 *  the Free Software Foundation; either version 2 of the License, or
 7 
 *  the Free Software Foundation; either version 2 of the License, or
8 
 *  (at your option) any later version.
 8 
 *  (at your option) any later version.
Line 36... Line 36...
36 
		    cmdarg = i + 1;
 36 
		    cmdarg = i + 1;
37 
		    break;
37 
		    break;
38 
		}
 38 
		}
39 
	    if (cmdarg >= 3) { /* something before CMD */
 39 
	    if (cmdarg >= 3) { /* something before CMD */
40 
		/* Cannot set to empty value on Windows */
 40 
		/* Cannot set to empty value on Windows */
41 
		char *Init = "R_PROFILE_USER=\r", *Site="R_RPOFILE=\r",
 41 
		char *Init = "R_PROFILE_USER=\r", *Site="R_PROFILE=\r",
42 
		    *Env1="R_ENVIRON=\r", *Env2="R_ENVIRON_USER=\r";
 42 
		    *Env1="R_ENVIRON=\r", *Env2="R_ENVIRON_USER=\r";
43 
		for(int i = 1; i < cmdarg; i++) {
 43 
		for(int i = 1; i < cmdarg; i++) {
44 
		    char *a = argv[i];
 44 
		    char *a = argv[i];
45 
		    if (strcmp(a, "--no-init-file") == 0 ||
 45 
		    if (strcmp(a, "--no-init-file") == 0 ||
46 
			strcmp(a, "--vanilla") == 0) putenv(Init);
 46 
			strcmp(a, "--vanilla") == 0) putenv(Init);