The R Project SVN R

Rev

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

Rev 15617 Rev 15696
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.54 $ ';
 37 
my $revision = ' $Revision: 1.55 $ ';
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 77... Line 77...
77 
    die "Error: environment variable R_HOME not found\n";
 77 
    die "Error: environment variable R_HOME not found\n";
78 
 
 78 
 
79 
my $R_CMD = $ENV{'R_CMD'} ||
 79 
my $R_CMD = $ENV{'R_CMD'} ||
80 
    die "Error: environment variable R_CMD not found\n";
 80 
    die "Error: environment variable R_CMD not found\n";
81 
 
 81 
 
- 
 
 82 
## <FIXME>
- 
 
 83 
## Currently, R_OSTYPE is always set on Unix/Windows.
82 
my $OS = R_getenv("R_OSTYPE", "unix");
 84 
my $OS = R_getenv("R_OSTYPE", "mac");
- 
 
 85 
## </FIXME>
- 
 
 86 
 
83 
my $R_exe = "${R_HOME}/bin/R";
 87 
my $R_exe = "${R_HOME}/bin/R";
84 
my $TMPDIR = R_getenv("TMPDIR", "/tmp");
 88 
my $TMPDIR = R_getenv("TMPDIR", "/tmp");
85 
$WINDOWS = ($OS eq "windows");
 89 
$WINDOWS = ($OS eq "windows");
86 
if($WINDOWS) {
 90 
if($WINDOWS) {
87 
    $TMPDIR = R_getenv("TMPDIR", "/TEMP");
 91 
    $TMPDIR = R_getenv("TMPDIR", "/TEMP");