svn commit: r1524805 - /jackrabbit/oak/trunk/analyze-hprof.pl

[jukka]

Author: jukka
Date: Thu Sep 19 18:50:26 2013
New Revision: 1524805

URL: http://svn.apache.org/r1524805
Log:
OAK-641: Improved benchmark tooling

Use unicode box drawing characters in analyze-hprof.pl

Modified:
    jackrabbit/oak/trunk/analyze-hprof.pl

Modified: jackrabbit/oak/trunk/analyze-hprof.pl
URL: 
http://svn.apache.org/viewvc/jackrabbit/oak/trunk/analyze-hprof.pl?rev=1524805&r1=1524804&r2=1524805&view=diff
==============================================================================
--- jackrabbit/oak/trunk/analyze-hprof.pl (original)
+++ jackrabbit/oak/trunk/analyze-hprof.pl Thu Sep 19 18:50:26 2013
@@ -13,6 +13,8 @@
 # See the License for the specific language governing permissions and
 # limitations under the License.
 
+binmode STDOUT, ":utf8";
+
 my %traces = ();
 my $root = { 'count' => 0, 'frame' => 'root', 'children' => {} };
 my $leaf = { 'count' => 0, 'frame' => 'leaf', 'children' => {} };
@@ -56,12 +58,12 @@ sub output {
 
   my $last = $children[-1];
   for my $child (@children) {
-    printf "%s+%d%% (%d%%) %s\n",
+    printf "%s%s%d%% %s\n",
       $prefix,
+      ($child == $last) ? "\x{2514}" : "\x{251c}",
       $child->{'count'} * 100 / $total,
-      $child->{'count'} * 100 / $info->{'count'},
       $child->{'frame'};
-    output($total, $child, ($child == $last) ? "$prefix " : "$prefix|");
+    output($total, $child, ($child == $last) ? "$prefix " : "$prefix\x{2502}");
   }
 }
 
@@ -73,7 +75,7 @@ while (<>) {
   /^\s*\d+\s+\S+%\s+\S+%\s+(\d+)\s+(\d+)/ and accumulate($2, $1); 
 }
 
-print "ROOT\n====\n";
+print "Caller tree\n===========\n";
 output($root->{'count'}, $root, "");
-print "LEAF\n====\n";
+print "Callee tree\n===========\n";
 output($leaf->{'count'}, $leaf, "");