The R Project SVN R

Rev

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

Rev 11684 Rev 14341
Line 25... Line 25...
25 
 
 25 
 
26 
use Getopt::Long;
 26 
use Getopt::Long;
27 
use R::Rdconv;
 27 
use R::Rdconv;
28 
use R::Utils;
 28 
use R::Utils;
29 
 
 29 
 
30 
my $revision = ' $Revision: 1.19 $ ';
 30 
my $revision = ' $Revision: 1.20 $ ';
31 
my $version;
 31 
my $version;
32 
my $name;
 32 
my $name;
33 
 
 33 
 
34 
$revision =~ / ([\d\.]*) /;
 34 
$revision =~ / ([\d\.]*) /;
35 
$version = $1;
 35 
$version = $1;
Line 62... Line 62...
62 
Email bug reports to <r-bugs\@r-project.org>.
 62 
Email bug reports to <r-bugs\@r-project.org>.
63 
END
 63 
END
64 
  exit 0;
 64 
  exit 0;
65 
}
 65 
}
66 
 
 66 
 
67 
$OSdir ="unix";
 67 
$OSdir = R_getenv("R_OSTYPE", "unix");
68 
 
 68 
 
69 
@knownoptions = ("debug|d", "type|t:s", "h|help", "v|version",
69 
@knownoptions = ("debug|d", "type|t:s", "h|help", "v|version",
70 
		 "o|output:s", "os|OS:s");
 70 
		 "o|output:s", "os|OS:s");
71 
GetOptions (@knownoptions) || &usage();
 71 
GetOptions (@knownoptions) || &usage();
72 
&R_version($name, $version) if $opt_v;
 72 
&R_version($name, $version) if $opt_v;