From baa2375b0f83c55950fb7f2306779cd5dc0f7cac Mon Sep 17 00:00:00 2001
From: Brion Vibber <brion@users.mediawiki.org>
Date: Tue, 18 Jan 2005 12:30:42 +0000
Subject: [PATCH] * Call-tree output mode for profiling The call tree is pretty
 long, and currently displays _uncorrected_ runtimes (without compensation for
 profiling overhead). However it can be nice to get a better idea of what's
 calling what.

---
 includes/DefaultSettings.php |  2 +
 includes/Profiling.php       | 75 ++++++++++++++++++++++++++++++++++++
 2 files changed, 77 insertions(+)

diff --git a/includes/DefaultSettings.php b/includes/DefaultSettings.php
index 72df355e78..785d56260d 100644
--- a/includes/DefaultSettings.php
+++ b/includes/DefaultSettings.php
@@ -618,6 +618,8 @@ $wgProfileLimit = 0.0; # Only record profiling info for pages that took longer t
 $wgProfileOnly = false; # Don't put non-profiling info into log file
 $wgProfileToDatabase = false; # Log sums from profiling into "profiling" table in db.
 $wgProfileSampleRate = 1; # Only profile every n requests when profiling is turned on
+$wgProfileCallTree = false; # If true, print a raw call tree instead of per-function report
+
 $wgDebugProfiling = false; # Detects non-matching wfProfileIn/wfProfileOut calls
 $wgDebugFunctionEntry = 0; # Output debug message on every wfProfileIn/wfProfileOut
 $wgDebugSquid = false; # Lots of debugging output from SquidUpdate.php
diff --git a/includes/Profiling.php b/includes/Profiling.php
index e7e089ac6c..f0881400f5 100755
--- a/includes/Profiling.php
+++ b/includes/Profiling.php
@@ -103,6 +103,80 @@ class Profiler
 			return "No profiling output\n";
 		}
 		$this->close();
+		
+		global $wgProfileCallTree;
+		if( $wgProfileCallTree ) {
+			return $this->getCallTree();
+		} else {
+			return $this->getFunctionReport();
+		}
+	}
+	
+	function getCallTree( $start = 0 ) {
+		return implode( '',
+			array_map(
+				array( &$this, 'getCallTreeLine' ),
+				$this->remapCallTree( $this->mStack ) ) );
+	}
+	
+	function remapCallTree( $stack ) {
+		if( count( $stack ) < 2 ) {
+			return $stack;
+		}
+		$outputs = array();
+		for( $max = count( $stack ) - 1; $max > 0; ) {
+			/* Find all items under this entry */
+			$level = $stack[$max][1];
+			$working = array();
+			for( $i = $max - 1; $i >= 0; $i-- ) {
+				if( $stack[$i][1] > $level ) {
+					$working[] = $stack[$i];
+				} else {
+					break;
+				}
+			}
+			$working = $this->remapCallTree( array_reverse( $working ) );
+			$output = array();
+			foreach( $working as $item ) {
+				array_push( $output, $item );
+			}
+			array_unshift( $output, $stack[$max] );
+			$max = $i;
+			
+			array_unshift( $outputs, $output );
+		}
+		$final = array();
+		foreach( $outputs as $output ) {
+			foreach( $output as $item ) {
+				$final[] = $item;
+			}
+		}
+		return $final;
+	}
+	
+	function getCallTreeLine( $entry ) {
+		list( $fname, $level, $start, $x, $end ) = $entry;
+		$delta = $this->microDelta( $start, $end );
+		$space = str_repeat( ' ', $level );
+		
+		# The ugly double sprintf is to work around a PHP bug,
+		# which has been fixed in recent releases.
+		return sprintf( "%10s %s %s\n",
+			trim( sprintf( "%7.3f", $delta * 1000.0 ) ),
+			$space, $fname );
+	}
+	
+	function micro2Float( $micro ) {
+		list( $whole, $fractional ) = explode( ' ', $micro );
+		return (float)$whole + (float)$fractional;
+	}
+	
+	function microDelta( $start, $end ) {
+		return $this->micro2Float( $end ) -
+		       $this->micro2Float( $start );
+	}
+	
+	function getFunctionReport() {		
 		$width = 125;
 		$format = "%-" . ($width - 34) . "s %6d %6.3f %6.3f %7.3f%% %6d (%6.3f-%6.3f) [%d]\n";
 		$titleFormat = "%-" . ($width - 34) . "s %9s %9s %9s %9s %6s\n";
@@ -227,6 +301,7 @@ class Profiler
 	 * @static
 	 */
 	function logToDB($name, $timeSum, $eventCount) {
+		$fname = 'Profiler::logToDB';
 		$dbw =& wfGetDB( DB_MASTER );
 		$profiling = $dbw->tableName( 'profiling' );
 
-- 
2.20.1