The R Project SVN R

Rev

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

Rev 10439 Rev 10633
Line 19... Line 19...
19
# writing to the Free Software Foundation, Inc., 59 Temple Place,
19
# writing to the Free Software Foundation, Inc., 59 Temple Place,
20
# Suite 330, Boston, MA  02111-1307  USA.
20
# Suite 330, Boston, MA  02111-1307  USA.
21
 
21
 
22
use Getopt::Long;
22
use Getopt::Long;
23
 
23
 
24
my $revision = ' $Revision: 1.13 $ ';
24
my $revision = ' $Revision: 1.14 $ ';
25
my $version;
25
my $version;
26
my $name;
26
my $name;
27
 
27
 
28
$revision =~ / ([\d\.]*) /;
28
$revision =~ / ([\d\.]*) /;
29
$version = $1;
29
$version = $1;
Line 50... Line 50...
50
  -v, --version		print version info and exit
50
  -v, --version		print version info and exit
51
  -n			render examples non-executable by wrapping them
51
  -n			render examples non-executable by wrapping them
52
			into a \\dontrun{} environment
52
			into a \\dontrun{} environment
53
  -x			interpret all single-quoted names as code names
53
  -x			interpret all single-quoted names as code names
54
 
54
 
55
Email bug reports to <r-bugs\@lists.r-project.org>.
55
Email bug reports to <r-bugs\@r-project.org>.
56
END
56
END
57
  exit 0; 
57
  exit 0; 
58
}
58
}
59
 
59
 
60
GetOptions(("v|version", "h|help", "n", "x")) || &usage();
60
GetOptions(("v|version", "h|help", "n", "x")) || &usage();