";
echo "';
foreach ($actions as $action) {
$out[] = ''.$action.' ';
}
$out[] = ' ';
}
return implode('', $out);
}
/**
* @param html-str $content the text/image/innerhtml/whatever for the link
* @param raw-str $href
* @param raw-str $class
* @param raw-str $id
* @param raw-str $title
* @param raw-str $target
* @param raw-str $onclick
* @param raw-str $style
* @param raw-str $access
* @param raw-str $onmouseover
* @param raw-str $onmouseout
* @param raw-str $onmousedown
* @param raw-str $dir
* @param raw-str $rel
*/
function xhprof_render_link($content, $href, $class='', $id='', $title='',
$target='',
$onclick='', $style='', $access='', $onmouseover='',
$onmouseout='', $onmousedown='') {
if (!$content) {
return '';
}
if ($href) {
$link = ' 1,
"ct" => 1,
"wt" => 1,
"excl_wt" => 1,
"ut" => 1,
"excl_ut" => 1,
"st" => 1,
"excl_st" => 1,
"mu" => 1,
"excl_mu" => 1,
"pmu" => 1,
"excl_pmu" => 1,
"cpu" => 1,
"excl_cpu" => 1,
"samples" => 1,
"excl_samples" => 1
);
// Textual descriptions for column headers in "single run" mode
$descriptions = array(
"fn" => "Function Name",
"ct" => "Calls",
"Calls%" => "Calls%",
"wt" => "Incl. Wall TimeRun #%s: %s",
$run1, $run1_desc);
$base_url_params = xhprof_array_unset(xhprof_array_unset($url_params,
'symbol'),
'all');
$top_link_query_string = "$base_path/?" . http_build_query($base_url_params);
if ($diff_mode) {
$diff_text = "Diff";
$base_url_params = xhprof_array_unset($base_url_params, 'run1');
$base_url_params = xhprof_array_unset($base_url_params, 'run2');
$run1_link = xhprof_render_link('View Run #' . $run1,
"$base_path/?" .
http_build_query(xhprof_array_set($base_url_params,
'run',
$run1)));
$run2_txt = sprintf("Run #%s: %s",
$run2, $run2_desc);
$run2_link = xhprof_render_link('View Run #' . $run2,
"$base_path/?" .
http_build_query(xhprof_array_set($base_url_params,
'run',
$run2)));
} else {
$diff_text = "Run";
}
// set up the action links for operations that can be done on this report
$links = array();
$links [] = xhprof_render_link("View Top Level $diff_text Report",
$top_link_query_string);
if ($diff_mode) {
$inverted_params = $url_params;
$inverted_params['run1'] = $url_params['run2'];
$inverted_params['run2'] = $url_params['run1'];
// view the different runs or invert the current diff
$links [] = $run1_link;
$links [] = $run2_link;
$links [] = xhprof_render_link('Invert ' . $diff_text . ' Report',
"$base_path/?".
http_build_query($inverted_params));
}
// lookup function typeahead form
$links [] = '' .
' ' . $diff_text . ' Report ' .
' ' . ($diff_mode ?
$run1_txt . 'vs. ' .
' Tip ' .
' Click a function name below to drill down. ' .
' ' .
'
';
// data tables
if (!empty($rep_symbol)) {
if (!isset($symbol_tab[$rep_symbol])) {
echo "$rep_symbol not found in XHProf run element with a numeric value.
*/
function print_td_num($num, $fmt_func, $bold=false, $attributes=null) {
$class = get_print_class($num, $bold);
if (!empty($fmt_func)) {
$num = call_user_func($fmt_func, $num);
}
print(" $num \n");
}
/**
* Prints a element with a pecentage.
*/
function print_td_pct($numer, $denom, $bold=false, $attributes=null) {
global $vbar;
global $vbbar;
global $diff_mode;
$class = get_print_class($numer, $bold);
if ($denom == 0) {
$pct = "N/A%";
} else {
$pct = xhprof_percent_format($numer / abs($denom));
}
print(" $pct \n");
}
/**
* Print "flat" data corresponding to one function.
*
* @author Kannan
*/
function print_function_info($url_params, $info, $sort, $run1, $run2) {
static $odd_even = 0;
global $totals;
global $sort_col;
global $metrics;
global $format_cbk;
global $display_calls;
global $base_path;
// Toggle $odd_or_even
$odd_even = 1 - $odd_even;
if ($odd_even) {
print("");
}
else {
print(' ');
}
$href = "$base_path/?" .
http_build_query(xhprof_array_set($url_params,
'symbol', $info["fn"]));
print('');
print(xhprof_render_link($info["fn"], $href));
print_source_link($info);
print(" \n");
if ($display_calls) {
// Call Count..
print_td_num($info["ct"], $format_cbk["ct"], ($sort_col == "ct"));
print_td_pct($info["ct"], $totals["ct"], ($sort_col == "ct"));
}
// Other metrics..
foreach ($metrics as $metric) {
// Inclusive metric
print_td_num($info[$metric], $format_cbk[$metric],
($sort_col == $metric));
print_td_pct($info[$metric], $totals[$metric],
($sort_col == $metric));
// Exclusive Metric
print_td_num($info["excl_" . $metric],
$format_cbk["excl_" . $metric],
($sort_col == "excl_" . $metric));
print_td_pct($info["excl_" . $metric],
$totals[$metric],
($sort_col == "excl_" . $metric));
}
print(" \n");
}
/**
* Print non-hierarchical (flat-view) of profiler data.
*
* @author Kannan
*/
function print_flat_data($url_params, $title, $flat_data, $sort, $run1, $run2, $limit) {
global $stats;
global $sortable_columns;
global $vwbar;
global $base_path;
$size = count($flat_data);
if (!$limit) { // no limit
$limit = $size;
$display_link = "";
} else {
$display_link = xhprof_render_link(" [ display all ]",
"$base_path/?" .
http_build_query(xhprof_array_set($url_params,
'all', 1)));
}
print("$title $display_link ');
print('');
foreach ($stats as $stat) {
$desc = stat_description($stat);
if (array_key_exists($stat, $sortable_columns)) {
$href = "$base_path/?"
. http_build_query(xhprof_array_set($url_params, 'sort', $stat));
$header = xhprof_render_link($desc, $href);
} else {
$header = $desc;
}
if ($stat == "fn")
print("$header $header \n");
if ($limit >= 0) {
$limit = min($size, $limit);
for ($i = 0; $i < $limit; $i++) {
print_function_info($url_params, $flat_data[$i], $sort, $run1, $run2);
}
} else {
// if $limit is negative, print abs($limit) items starting from the end
$limit = min($size, abs($limit));
for ($i = 0; $i < $limit; $i++) {
print_function_info($url_params, $flat_data[$size - $i - 1], $sort, $run1, $run2);
}
}
print("
");
// let's print the display all link at the bottom as well...
if ($display_link) {
echo '' . $display_link . '
';
}
}
/**
* Generates a tabular report for all functions. This is the top-level report.
*
* @author Kannan
*/
function full_report($url_params, $symbol_tab, $sort, $run1, $run2) {
global $vwbar;
global $vbar;
global $totals;
global $totals_1;
global $totals_2;
global $metrics;
global $diff_mode;
global $descriptions;
global $sort_col;
global $format_cbk;
global $display_calls;
global $base_path;
$possible_metrics = xhprof_get_possible_metrics();
if ($diff_mode) {
$base_url_params = xhprof_array_unset(xhprof_array_unset($url_params,
'run1'),
'run2');
$href1 = "$base_path/?" .
http_build_query(xhprof_array_set($base_url_params,
'run', $run1));
$href2 = "$base_path/?" .
http_build_query(xhprof_array_set($base_url_params,
'run', $run2));
print("Overall Diff Summary ' . "\n");
print('');
print("" . xhprof_render_link("Run #$run1", $href1) . " ");
print("" . xhprof_render_link("Run #$run2", $href2) . " ");
print("Diff ");
print("Diff% ");
print(' ');
if ($display_calls) {
print('');
print("Number of Function Calls ");
print_td_num($totals_1["ct"], $format_cbk["ct"]);
print_td_num($totals_2["ct"], $format_cbk["ct"]);
print_td_num($totals_2["ct"] - $totals_1["ct"], $format_cbk["ct"], true);
print_td_pct($totals_2["ct"] - $totals_1["ct"], $totals_1["ct"], true);
print(' ');
}
foreach ($metrics as $metric) {
$m = $metric;
print('');
print("" . str_replace(" ");
print_td_num($totals_1[$m], $format_cbk[$m]);
print_td_num($totals_2[$m], $format_cbk[$m]);
print_td_num($totals_2[$m] - $totals_1[$m], $format_cbk[$m], true);
print_td_pct($totals_2[$m] - $totals_1[$m], $totals_1[$m], true);
print(' ');
}
print('
');
$callgraph_report_title = '[View Regressions/Improvements using Callgraph Diff]';
} else {
print("
\n");
print('' . "\n");
echo "";
echo "Overall Summary ";
echo " ";
foreach ($metrics as $metric) {
echo "";
echo "Total "
. str_replace(" ";
echo "" . number_format($totals[$metric]) . " "
. $possible_metrics[$metric][1] . " ";
echo " ";
}
if ($display_calls) {
echo "";
echo "Number of Function Calls: ";
echo "" . number_format($totals['ct']) . " ";
echo " ";
}
echo "
";
print(" \n");
$callgraph_report_title = '[View Full Callgraph]';
}
print("" .
xhprof_render_link($callgraph_report_title,
"$base_path/callgraph.php" . "?" . http_build_query($url_params))
. " Regressions /"
. "Improvements : "
. "Sorted by $desc Diff";
}
} else {
if ($all) {
$title = "Sorted by $desc";
} else {
$title = "Displaying top $limit functions: Sorted by $desc";
}
}
print_flat_data($url_params, $title, $flat_data, $sort, $run1, $run2, $limit);
}
/**
* Return attribute names and values to be used by javascript tooltip.
*/
function get_tooltip_attributes($type, $metric) {
return "type='$type' metric='$metric'";
}
/**
* Print info for a parent or child function in the
* parent & children report.
*
* @author Kannan
*/
function pc_info($info, $base_ct, $base_info, $parent) {
global $sort_col;
global $metrics;
global $format_cbk;
global $display_calls;
if ($parent)
$type = "Parent";
else $type = "Child";
if ($display_calls) {
$mouseoverct = get_tooltip_attributes($type, "ct");
/* call count */
print_td_num($info["ct"], $format_cbk["ct"], ($sort_col == "ct"), $mouseoverct);
print_td_pct($info["ct"], $base_ct, ($sort_col == "ct"), $mouseoverct);
}
/* Inclusive metric values */
foreach ($metrics as $metric) {
print_td_num($info[$metric], $format_cbk[$metric],
($sort_col == $metric),
get_tooltip_attributes($type, $metric));
print_td_pct($info[$metric], $base_info[$metric], ($sort_col == $metric),
get_tooltip_attributes($type, $metric));
}
}
function print_pc_array($url_params, $results, $base_ct, $base_info, $parent,
$run1, $run2) {
global $base_path;
// Construct section title
if ($parent) {
$title = 'Parent function';
}
else {
$title = 'Child function';
}
if (count($results) > 1) {
$title .= 's';
}
print("");
print("" . $title . " ");
print(" ');
}
else {
print(' ');
}
print("" . xhprof_render_link($info["fn"], $href));
print_source_link($info);
print(" ");
pc_info($info, $base_ct, $base_info, $parent);
print(" ");
}
}
function print_source_link($info) {
if (strncmp($info['fn'], 'run_init', 8) && $info['fn'] !== 'main()') {
if (defined('XHPROF_SYMBOL_LOOKUP_URL')) {
$link = xhprof_render_link(
'source',
XHPROF_SYMBOL_LOOKUP_URL . '?symbol='.rawurlencode($info["fn"]));
print(' ('.$link.')');
}
}
}
function print_symbol_summary($symbol_info, $stat, $base) {
$val = $symbol_info[$stat];
$desc = str_replace("Diff ";
$regr_impr = "Regression /Improvement ";
} else {
$diff_text = "";
$regr_impr = "";
}
if ($diff_mode) {
$base_url_params = xhprof_array_unset(xhprof_array_unset($url_params,
'run1'),
'run2');
$href1 = "$base_path?"
. http_build_query(xhprof_array_set($base_url_params, 'run', $run1));
$href2 = "$base_path?"
. http_build_query(xhprof_array_set($base_url_params, 'run', $run2));
print("$regr_impr summary for $rep_symbol ");
print('' . "\n");
print('');
print("$rep_symbol ");
print("Run #$run1 Run #$run2 Diff ");
print("Diff% ");
print(' ');
print('');
if ($display_calls) {
print("Number of Function Calls ");
print_td_num($symbol_info1["ct"], $format_cbk["ct"]);
print_td_num($symbol_info2["ct"], $format_cbk["ct"]);
print_td_num($symbol_info2["ct"] - $symbol_info1["ct"],
$format_cbk["ct"], true);
print_td_pct($symbol_info2["ct"] - $symbol_info1["ct"],
$symbol_info1["ct"], true);
print(' ');
}
foreach ($metrics as $metric) {
$m = $metric;
// Inclusive stat for metric
print('');
print("" . str_replace(" ");
print_td_num($symbol_info1[$m], $format_cbk[$m]);
print_td_num($symbol_info2[$m], $format_cbk[$m]);
print_td_num($symbol_info2[$m] - $symbol_info1[$m], $format_cbk[$m], true);
print_td_pct($symbol_info2[$m] - $symbol_info1[$m], $symbol_info1[$m], true);
print(' ');
// AVG (per call) Inclusive stat for metric
print('');
print("" . str_replace(" ");
$avg_info1 = 'N/A';
$avg_info2 = 'N/A';
if ($symbol_info1['ct'] > 0) {
$avg_info1 = ($symbol_info1[$m] / $symbol_info1['ct']);
}
if ($symbol_info2['ct'] > 0) {
$avg_info2 = ($symbol_info2[$m] / $symbol_info2['ct']);
}
print_td_num($avg_info1, $format_cbk[$m]);
print_td_num($avg_info2, $format_cbk[$m]);
print_td_num($avg_info2 - $avg_info1, $format_cbk[$m], true);
print_td_pct($avg_info2 - $avg_info1, $avg_info1, true);
print(' ');
// Exclusive stat for metric
$m = "excl_" . $metric;
print('');
print("" . str_replace(" ");
print_td_num($symbol_info1[$m], $format_cbk[$m]);
print_td_num($symbol_info2[$m], $format_cbk[$m]);
print_td_num($symbol_info2[$m] - $symbol_info1[$m], $format_cbk[$m], true);
print_td_pct($symbol_info2[$m] - $symbol_info1[$m], $symbol_info1[$m], true);
print(' ');
}
print('
');
}
print("");
print("Parent/Child $regr_impr report for $rep_symbol ");
$callgraph_href = "$base_path/callgraph.php?"
. http_build_query(xhprof_array_set($url_params, 'func', $rep_symbol));
print(" [View Callgraph $diff_text] ' . "\n");
print('');
foreach ($pc_stats as $stat) {
$desc = stat_description($stat);
if (array_key_exists($stat, $sortable_columns)) {
$href = "$base_path/?" .
http_build_query(xhprof_array_set($url_params,
'sort', $stat));
$header = xhprof_render_link($desc, $href);
} else {
$header = $desc;
}
if ($stat == "fn")
print("$header $header ");
print("");
print("Current Function ");
print(" ");
// make this a self-reference to facilitate copy-pasting snippets to e-mails
print("$rep_symbol ");
print_source_link(array('fn' => $rep_symbol));
print(" ");
print("");
print(""
."Exclusive Metrics $diff_text for Current Function ");
if ($display_calls) {
// Call Count
print(" ");
// list of callers/parent functions
$results = array();
if ($display_calls) {
$base_ct = $symbol_info["ct"];
} else {
$base_ct = 0;
}
foreach ($metrics as $metric) {
$base_info[$metric] = $symbol_info[$metric];
}
foreach ($run_data as $parent_child => $info) {
list($parent, $child) = xhprof_parse_parent_child($parent_child);
if (($child == $rep_symbol) && ($parent)) {
$info_tmp = $info;
$info_tmp["fn"] = $parent;
$results[] = $info_tmp;
}
}
usort($results, 'sort_cbk');
if (count($results) > 0) {
print_pc_array($url_params, $results, $base_ct, $base_info, true,
$run1, $run2);
}
// list of callees/child functions
$results = array();
$base_ct = 0;
foreach ($run_data as $parent_child => $info) {
list($parent, $child) = xhprof_parse_parent_child($parent_child);
if ($parent == $rep_symbol) {
$info_tmp = $info;
$info_tmp["fn"] = $child;
$results[] = $info_tmp;
if ($display_calls) {
$base_ct += $info["ct"];
}
}
}
usort($results, 'sort_cbk');
if (count($results)) {
print_pc_array($url_params, $results, $base_ct, $base_info, false,
$run1, $run2);
}
print("
");
// These will be used for pop-up tips/help.
// Related javascript code is in: xhprof_report.js
print("\n");
print('');
print("\n");
}
/**
* Generate the profiler report for a single run.
*
* @author Kannan
*/
function profiler_single_run_report ($url_params,
$xhprof_data,
$run_desc,
$rep_symbol,
$sort,
$run) {
init_metrics($xhprof_data, $rep_symbol, $sort, false);
profiler_report($url_params, $rep_symbol, $sort, $run, $run_desc,
$xhprof_data);
}
/**
* Generate the profiler report for diff mode (delta between two runs).
*
* @author Kannan
*/
function profiler_diff_report($url_params,
$xhprof_data1,
$run1_desc,
$xhprof_data2,
$run2_desc,
$rep_symbol,
$sort,
$run1,
$run2) {
// Initialize what metrics we'll display based on data in Run2
init_metrics($xhprof_data2, $rep_symbol, $sort, true);
profiler_report($url_params,
$rep_symbol,
$sort,
$run1,
$run1_desc,
$xhprof_data1,
$run2,
$run2_desc,
$xhprof_data2);
}
/**
* Generate a XHProf Display View given the various URL parameters
* as arguments. The first argument is an object that implements
* the iXHProfRuns interface.
*
* @param object $xhprof_runs_impl An object that implements
* the iXHProfRuns interface
*.
* @param array $url_params Array of non-default URL params.
*
* @param string $source Category/type of the run. The source in
* combination with the run id uniquely
* determines a profiler run.
*
* @param string $run run id, or comma separated sequence of
* run ids. The latter is used if an aggregate
* report of the runs is desired.
*
* @param string $wts Comma separate list of integers.
* Represents the weighted ratio in
* which which a set of runs will be
* aggregated. [Used only for aggregate
* reports.]
*
* @param string $symbol Function symbol. If non-empty then the
* parent/child view of this function is
* displayed. If empty, a flat-profile view
* of the functions is displayed.
*
* @param string $run1 Base run id (for diff reports)
*
* @param string $run2 New run id (for diff reports)
*
*/
function displayXHProfReport($xhprof_runs_impl, $url_params, $source,
$run, $wts, $symbol, $sort, $run1, $run2) {
if ($run) { // specific run to display?
// run may be a single run or a comma separate list of runs
// that'll be aggregated. If "wts" (a comma separated list
// of integral weights is specified), the runs will be
// aggregated in that ratio.
//
$runs_array = explode(",", $run);
if (count($runs_array) == 1) {
$xhprof_data = $xhprof_runs_impl->get_run($runs_array[0],
$source,
$description);
} else {
if (!empty($wts)) {
$wts_array = explode(",", $wts);
} else {
$wts_array = null;
}
$data = xhprof_aggregate_runs($xhprof_runs_impl,
$runs_array, $wts_array, $source, false);
$xhprof_data = $data['raw'];
$description = $data['description'];
}
profiler_single_run_report($url_params,
$xhprof_data,
$description,
$symbol,
$sort,
$run);
} else if ($run1 && $run2) { // diff report for two runs
$xhprof_data1 = $xhprof_runs_impl->get_run($run1, $source, $description1);
$xhprof_data2 = $xhprof_runs_impl->get_run($run2, $source, $description2);
profiler_diff_report($url_params,
$xhprof_data1,
$description1,
$xhprof_data2,
$description2,
$symbol,
$sort,
$run1,
$run2);
} else {
echo "No XHProf runs specified in the URL.";
if (method_exists($xhprof_runs_impl, 'list_runs')) {
$xhprof_runs_impl->list_runs();
}
}
}