The R Project SVN R

Rev

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

Rev 10633 Rev 11515
Line 20... Line 20...
20 
# writing to the Free Software Foundation, Inc., 59 Temple Place,
 20 
# writing to the Free Software Foundation, Inc., 59 Temple Place,
21 
# Suite 330, Boston, MA  02111-1307  USA.
 21 
# Suite 330, Boston, MA  02111-1307  USA.
22 
 
 22 
 
23 
# Send any bug reports to r-bugs@r-project.org.
 23 
# Send any bug reports to r-bugs@r-project.org.
24 
 
 24 
 
- 
 
 25 
use Getopt::Long;
- 
 
 26 
use R::Utils;
- 
 
 27 
 
- 
 
 28 
my $revision = ' $Revision: 1.4 $ ';
- 
 
 29 
my $version;
- 
 
 30 
my $name;
- 
 
 31 
 
- 
 
 32 
$revision =~ / ([\d\.]*) /;
- 
 
 33 
$version = $1;
- 
 
 34 
($name = $0) =~ s|.*/||;
- 
 
 35 
 
- 
 
 36 
sub usage {
- 
 
 37 
    print STDERR <<END;
- 
 
 38 
Usage: R CMD Rprof [options] file
- 
 
 39 
 
- 
 
 40 
Post-process profiling information in file generated by Rprof().
- 
 
 41 
 
- 
 
 42 
Options:
- 
 
 43 
  -h, --help		print short help message and exit
- 
 
 44 
  -v, --version		print version info and exit
- 
 
 45 
 
- 
 
 46 
Email bug reports to <r-bugs\@r-project.org>.
- 
 
 47 
END
- 
 
 48 
  exit 0;
- 
 
 49 
}
- 
 
 50 
 
- 
 
 51 
@knownoptions = ("h|help", "v|version");
- 
 
 52 
GetOptions(@knownoptions) || &usage();
- 
 
 53 
&R_version("R profiling post-processor", $version) if $opt_v;
- 
 
 54 
&usage() if $opt_h;
- 
 
 55 
 
25 
%leafcounts = ();
 56 
%leafcounts = ();
26 
%totalcounts = ();
 57 
%totalcounts = ();
27 
 
 58 
 
28 
while (<>) {
 59 
while (<>) {
29 
    if (/^sample\.interval=/) {
 60 
    if (/^sample\.interval=/) {