The R Project SVN R

Rev

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

Rev 42398 Rev 42569
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) 1997-2006   Robert Gentleman, Ross Ihaka
 3 
 *  Copyright (C) 1997-2007   Robert Gentleman, Ross Ihaka
4 
 *                            and the R Development Core Team
 4 
 *                            and the R Development Core Team
5 
 *
 5 
 *
6 
 *  This program is free software; you can redistribute it and/or modify
 6 
 *  This program is free software; you can redistribute it and/or modify
7 
 *  it under the terms of the GNU General Public License as published by
 7 
 *  it under the terms of the GNU General Public License as published by
8 
 *  the Free Software Foundation; either version 2 of the License, or
 8 
 *  the Free Software Foundation; either version 2 of the License, or
Line 85... Line 85...
85 
    UNPROTECT(1);
 85 
    UNPROTECT(1);
86 
    return vals;
 86 
    return vals;
87 
}
 87 
}
88 
 
 88 
 
89 
#ifdef Win32
 89 
#ifdef Win32
90 
extern int R_LoadRconsole;
 90 
extern Rboolean R_LoadRconsole;
91 
#endif
 91 
#endif
92 
 
 92 
 
93 
void
 93 
void
94 
R_common_command_line(int *pac, char **argv, Rstart Rp)
 94 
R_common_command_line(int *pac, char **argv, Rstart Rp)
95 
{
 95 
{
Line 143... Line 143...
143 
		Rp->LoadSiteFile = FALSE; /* --no-site-file */
 143 
		Rp->LoadSiteFile = FALSE; /* --no-site-file */
144 
		Rp->LoadInitFile = FALSE; /* --no-init-file */
 144 
		Rp->LoadInitFile = FALSE; /* --no-init-file */
145 
		R_RestoreHistory = 0;     /* --no-restore-history */
 145 
		R_RestoreHistory = 0;     /* --no-restore-history */
146 
		Rp->NoRenviron = TRUE;
 146 
		Rp->NoRenviron = TRUE;
147 
#ifdef Win32
 147 
#ifdef Win32
148 
		R_LoadRconsole = 0;
 148 
		R_LoadRconsole = FALSE;
149 
#endif
 149 
#endif
150 
	    }
 150 
	    }
151 
	    else if (!strcmp(*av, "--no-environ")) {
 151 
	    else if (!strcmp(*av, "--no-environ")) {
152 
		Rp->NoRenviron = TRUE;
 152 
		Rp->NoRenviron = TRUE;
153 
	    }
 153 
	    }