The R Project SVN R

Rev

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

Rev 16261 Rev 16272
Line 32... Line 32...
32 
use Text::DelimMatch;
 32 
use Text::DelimMatch;
33 
 
 33 
 
34 
## don't buffer output
 34 
## don't buffer output
35 
$| = 1;
 35 
$| = 1;
36 
 
 36 
 
37 
my $revision = ' $Revision: 1.64 $ ';
 37 
my $revision = ' $Revision: 1.65 $ ';
38 
my $version;
 38 
my $version;
39 
my $name;
 39 
my $name;
40 
$revision =~ / ([\d\.]*) /;
 40 
$revision =~ / ([\d\.]*) /;
41 
$version = $1;
 41 
$version = $1;
42 
($name = $0) =~ s|.*/||;
 42 
($name = $0) =~ s|.*/||;
Line 94... Line 94...
94 
my $OS = R_getenv("R_OSTYPE", "mac");
 94 
my $OS = R_getenv("R_OSTYPE", "mac");
95 
## </FIXME>
 95 
## </FIXME>
96 
 
 96 
 
97 
my $R_exe = "${R_HOME}/bin/R";
 97 
my $R_exe = "${R_HOME}/bin/R";
98 
my $TMPDIR = R_getenv("TMPDIR", "/tmp");
 98 
my $TMPDIR = R_getenv("TMPDIR", "/tmp");
99 
my $WINDOWS = ($OS eq "windows");
 99 
$WINDOWS = ($OS eq "windows");
100 
if($WINDOWS) {
 100 
if($WINDOWS) {
101 
    $TMPDIR = R_getenv("TMPDIR", "/TEMP");
 101 
    $TMPDIR = R_getenv("TMPDIR", "/TEMP");
102 
    die "Please set TMPDIR to a valid temporary directory\n"
102 
    die "Please set TMPDIR to a valid temporary directory\n"
103 
      unless (-e $TMPDIR);
 103 
      unless (-e $TMPDIR);
104 
    $R_exe = "Rterm.exe";
 104 
    $R_exe = "Rterm.exe";