The R Project SVN R

Rev

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

Rev 46832 Rev 47442
Line 21... Line 21...
21 
# Send any bug reports to r-bugs@r-project.org.
 21 
# Send any bug reports to r-bugs@r-project.org.
22 
 
 22 
 
23 
use Getopt::Long;
 23 
use Getopt::Long;
24 
use R::Utils;
 24 
use R::Utils;
25 
 
 25 
 
26 
my $revision = ' $Rev: 46832 $ ';
 26 
my $revision = ' $Rev: 47442 $ ';
27 
my $version;
 27 
my $version;
28 
my $name;
 28 
my $name;
29 
 
 29 
 
30 
$revision =~ / ([\d\.]*) /;
 30 
$revision =~ / ([\d\.]*) /;
31 
$version = $1;
 31 
$version = $1;
32 
($name = $0) =~ s|.*/||;
 32 
($name = $0) =~ s|.*/||;
33 
 
 33 
 
34 
sub usage {
 34 
sub usage {
35 
    print STDERR <<END;
 35 
    print <<END;
36 
Usage: R CMD Rprof [options] file
 36 
Usage: R CMD Rprof [options] file
37 
 
 37 
 
38 
Post-process profiling information in file generated by Rprof().
 38 
Post-process profiling information in file generated by Rprof().
39 
 
 39 
 
40 
Options:
 40 
Options:
41 
  -h, --help		print short help message and exit
 41 
  -h, --help		print short help message and exit
42 
  -v, --version		print Rprof version info and exit
 42 
  -v, --version		print version info and exit
43 
 
 43 
 
44 
Email bug reports to <r-bugs\@r-project.org>.
 44 
Report bugs to <r-bugs\@r-project.org>.
45 
END
 45 
END
46 
  exit 0;
 46 
  exit 0;
47 
}
 47 
}
48 
 
 48 
 
49 
@knownoptions = ("h|help", "v|version");
 49 
@knownoptions = ("h|help", "v|version");