The R Project SVN R

Rev

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

Rev 49838 Rev 50910
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) 2006-8  The R Development Core Team
 3 
 *  Copyright (C) 2006-9  The R Development 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 64... Line 64...
64 
#endif
 64 
#endif
65 
 
 65 
 
66 
#ifndef WIN32
 66 
#ifndef WIN32
67 
static char rhome[] = R_HOME;
 67 
static char rhome[] = R_HOME;
68 
#else
 68 
#else
- 
 
 69 
# define FOR_Rscript
69 
# include "rterm.c"
 70 
# include "rterm.c"
70 
#endif
 71 
#endif
71 
 
 72 
 
72 
#define RSVERSION "$Rev: 49838 $"
 73 
#define RSVERSION "$Rev: 50910 $"
73 
 
 74 
 
74 
#ifdef HAVE_EXECV
 75 
#ifdef HAVE_EXECV
75 
static int verbose = 0;
 76 
static int verbose = 0;
76 
#endif
 77 
#endif
77 
 
 78 
 
Line 219... Line 220...
219 
	fprintf(stderr, "'\n\n");
 220 
	fprintf(stderr, "'\n\n");
220 
    }
 221 
    }
221 
#ifndef WIN32
 222 
#ifndef WIN32
222 
    res = execv(cmd, av); /* will not return if R is launched */
 223 
    res = execv(cmd, av); /* will not return if R is launched */
223 
    perror("Rscript execution error");
 224 
    perror("Rscript execution error");
- 
 
 225 
#elif defined WIN64
- 
 
 226 
    realmain(ac, av);
224 
#else
 227 
#else
225 
    AppMain(ac, av);
 228 
    AppMain(ac, av);
226 
#endif
 229 
#endif
227 
    return res;
 230 
    return res;
228 
#else /* No execv*/
 231 
#else /* No execv*/