The R Project SVN R

Rev

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

Rev 45475 Rev 46084
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-7  The R Development Core Team
 3 
 *  Copyright (C) 2006-8  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 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: 45475 $"
 72 
#define RSVERSION "$Rev: 46084 $"
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 219... Line 219...
219 
    perror("Rscript execution error");
 219 
    perror("Rscript execution error");
220 
#else
 220 
#else
221 
    AppMain(ac, av);
 221 
    AppMain(ac, av);
222 
#endif
 222 
#endif
223 
    return res;
 223 
    return res;
224 
#else
 224 
#else /* No execv*/
225 
    fprintf(stderr, "Rscript is not supported on this system");
 225 
    fprintf(stderr, "Rscript is not supported on this system");
226 
    exit(1);
 226 
    exit(1);
227 
#endif
 227 
#endif
228 
}
 228 
}