Changeset c49b79c for memlog_analyze

Timestamp:

06/01/15 05:20:33 (10 years ago)

Author:

Hal Finkel <hfinkel@…>

Branches:

master

Children:

77ebdb8

Parents:

4598848

git-author:

Hal Finkel <hfinkel@…> (06/01/15 05:20:33)

git-committer:

Hal Finkel <hfinkel@…> (06/01/15 05:20:33)

Message:

use Getopt::Long, print status messages and usage info

File:

• memlog_analyze (modified) (3 diffs)

memlog_analyze

@@ -2 +2 @@
 use strict;
 use File::Basename;
+use Getopt::Long;
+
+my $print_raw_proc_name = 0;
+my $quiet = 0;
+my $help = 0;
+
+sub print_usage($) {
+  my $ec = $_[0];
+  my $usage = <<EOM;
+Usage: $0 [options] <memlog file> [<output directory>]
+  options:
+    --print-symbol-names
+      Include symbol names and offsets in the output
+    --quiet or -q
+      Don't print status messages while running
+EOM
+
+  print $usage;
+  exit($ec);
+}
+
+GetOptions("help|?" => \$help,
+           "print-symbol-names" => \$print_raw_proc_name,
+           "quiet|q" => \$quiet)
+  or print_usage(1);
+
+if ($help) {
+  print_usage(0);
+}
 
 my $memlog_fn = $ARGV[0];
 my $out_dir = $ARGV[1] || '.';
 
-my $print_raw_proc_name = 0;
-
 if (! -f $memlog_fn) {
-  print "Usage: $0 <memlog file> [<output directory>]\n";
-  exit 1;
+  print_usage(1);
 }
 
@@ -152 +178 @@
 my $pdf_fn = "$out_dir/" . basename($memlog_fn) . ".pdf";
 
+if (!$quiet) {
+  print "Creating $txt_fn\n";
+}
+
 open(TXT, ">$txt_fn") || die "Can't open $txt_fn: $!";
+
+if (!$quiet) {
+  print "Creating $dot_fn\n";
+}
+
 open(DOT, ">$dot_fn") || die "Can't open $dot_fn: $!";
 
@@ -355 +390 @@
 close(DOT);
 
+if (!$quiet) {
+  print "Creating $ps_fn\n";
+}
+
 system("dot -Tps2 < '$dot_fn' > '$ps_fn'");
+
+if (!$quiet) {
+  print "Creating $pdf_fn\n";
+}
+
 system("ps2pdf '$ps_fn' '$pdf_fn'");