From f7494f01b9feef747fbf66acc522fcee46d1ccb9 Mon Sep 17 00:00:00 2001
From: "dbaron%fas.harvard.edu" <dbaron%fas.harvard.edu>
Date: Tue, 18 Jun 2002 22:35:05 +0000
Subject: [PATCH] Add perl script for splitting jprof profiles into segments.

---
 tools/jprof/split-profile.pl | 133 +++++++++++++++++++++++++++++++++++
 1 file changed, 133 insertions(+)
 create mode 100755 tools/jprof/split-profile.pl

diff --git a/tools/jprof/split-profile.pl b/tools/jprof/split-profile.pl
new file mode 100755
index 00000000000..9b12ff13162
--- /dev/null
+++ b/tools/jprof/split-profile.pl
@@ -0,0 +1,133 @@
+#!/usr/bin/perl
+# ***** BEGIN LICENSE BLOCK *****
+# Version: MPL 1.1/GPL 2.0/LGPL 2.1
+#
+# The contents of this file are subject to the Mozilla Public License Version
+# 1.1 (the "License"); you may not use this file except in compliance with
+# the License. You may obtain a copy of the License at
+# http://www.mozilla.org/MPL/
+#
+# Software distributed under the License is distributed on an "AS IS" basis,
+# WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
+# for the specific language governing rights and limitations under the
+# License.
+#
+# The Original Code is a perl script for splitting jprof profiles into
+# segments.
+#
+# The Initial Developer of the Original Code is L. David Baron.
+# Portions created by the Initial Developer are Copyright (C) 2002
+# the Initial Developer. All Rights Reserved.
+#
+# Contributor(s):
+#   L. David Baron <dbaron@fas.harvard.edu> (original author)
+#
+# Alternatively, the contents of this file may be used under the terms of
+# either the GNU General Public License Version 2 or later (the "GPL"), or
+# the GNU Lesser General Public License Version 2.1 or later (the "LGPL"),
+# in which case the provisions of the GPL or the LGPL are applicable instead
+# of those above. If you wish to allow use of your version of this file only
+# under the terms of either the GPL or the LGPL, and not to allow others to
+# use your version of this file under the terms of the MPL, indicate your
+# decision by deleting the provisions above and replace them with the notice
+# and other provisions required by the GPL or the LGPL. If you do not delete
+# the provisions above, a recipient may use your version of this file under
+# the terms of any one of the MPL, the GPL or the LGPL.
+#
+# ***** END LICENSE BLOCK *****
+
+
+# split-profile.pl Documentation:
+# 
+# This script uses jprof's includes (-i) and excludes (-e) options to
+# split profiles into segments.  It takes as input a single text file,
+# and from that text file creates a series of jprof profiles in the
+# directory in which it is run.  It expects the application binaries
+# with which the profile was made, including jprof, and the jprof
+# profile data, to be in a directory called "bin" that is a subdirectory
+# of the current directory, and it will output the profiles into the
+# current directory.
+#
+# The input file format looks like the following:
+#
+#   poll g_main_poll
+#   GetRuleCascade CSSRuleProcessor::GetRuleCascade(nsIPresContext *, nsIAtom *)
+#   RuleProcessorData RuleProcessorData::RuleProcessorData(nsIPresContext *, nsIContent *, nsRuleWalker *, nsCompatibility *)
+#
+# From this input file, the script will construct a profile called
+# 00.html that contains the whole profile, a profile called 01-poll.html
+# that includes only stacks with g_main_poll, a profile called
+# 02-GetRuleCascade.html that includes only stacks that have
+# GetRuleCascade and do not have g_main_poll, a profile called
+# 03-RuleProcessorData.html that includes only stacks that have the
+# RuleProcessorData constructor and do not have GetRuleCascade or
+# g_main_poll, and a profile called 04.html that includes only stacks
+# that do not have any of the three functions in them.
+#
+# This means that all of the segments of the profile, except 00.html,
+# are mutually exclusive.  Thus clever ordering of the functions in the
+# input file can lead to a logical splitting of the profile into
+# segments.
+
+
+use strict;
+
+my @names;
+my @sigs;
+
+sub read_info($) {
+    my ($fname) = @_;
+
+    open(INFO, "<$fname");
+    my $i = 0;
+    while (<INFO>) {
+        chop;
+        my $line = $_;
+        my $idx = index($line, " ");
+        my $name = substr($line, 0, $idx);
+        my $sig = substr($line, $idx+1);
+
+        $names[$i] = $name;
+        $sigs[$i] = $sig;
+        ++$i;
+    }
+}
+
+sub run_profile($$) {
+    my ($options, $outfile) = @_;
+
+    print  "./jprof$options mozilla-bin jprof-log > ../$outfile.html\n";
+    system "./jprof$options mozilla-bin jprof-log > ../$outfile.html";
+}
+
+sub run_profiles() {
+    run_profile("", "00");
+
+    for (my $i = 0; $i <= $#names + 1; ++$i) {
+        my $options = "";
+        for (my $j = 0; $j < $i; ++$j) {
+            $options .= " -e\"$sigs[$j]\"";
+        }
+        if ($i <= $#names) {
+            $options .= " -i\"$sigs[$i]\"";
+        }
+        my $num;
+        my $n = $i + 1;
+        if ($n < 10) {
+            $num = "0$n";
+        } else {
+            $num = "$n";
+        }
+        if ($i <= $#names) {
+            run_profile($options, "$num-$names[$i]");
+        } else {
+            run_profile($options, "$num");
+        }
+    }
+}
+
+($#ARGV == 0) || die "Usage: split-profile.pl <info-file>\n";
+
+read_info($ARGV[0]);
+chdir "bin" || die "Can't change directory to bin.";
+run_profiles();