+# Copyright (c) International Business Machines Corp., 2002,2010

+our $lcov_version = 'LCOV version 1.9';

+# For line coverage/all coverage types if not specified

+our $hi_limit = 90;

+our $med_limit = 75;

+our $fn_hi_limit;

+our $fn_med_limit;

+

+# For branch coverage

+our $br_hi_limit;

+our $br_med_limit;

+our $overview_title = "top level";

+

+# Width for line coverage information in the source code view

+our $line_field_width = 12;

+

+# Width for branch coverage information in the source code view

+our $br_field_width = 16;

+

+# Internal Constants

+

+# Header types

+our $HDR_DIR = 0;

+our $HDR_FILE = 1;

+our $HDR_SOURCE = 2;

+our $HDR_TESTDESC = 3;

+our $HDR_FUNC = 4;

+

+# Sort types

+our $SORT_FILE = 0;

+our $SORT_LINE = 1;

+our $SORT_FUNC = 2;

+our $SORT_BRANCH = 3;

+

+# Fileview heading types

+our $HEAD_NO_DETAIL = 1;

+our $HEAD_DETAIL_HIDDEN = 2;

+our $HEAD_DETAIL_SHOWN = 3;

+

+# Offsets for storing branch coverage data in vectors

+our $BR_BLOCK = 0;

+our $BR_BRANCH = 1;

+our $BR_TAKEN = 2;

+our $BR_VEC_ENTRIES = 3;

+our $BR_VEC_WIDTH = 32;

+

+# Additional offsets used when converting branch coverage data to HTML

+our $BR_LEN = 3;

+our $BR_OPEN = 4;

+our $BR_CLOSE = 5;

+

+# Branch data combination types

+our $BR_SUB = 0;

+our $BR_ADD = 1;

+sub set_info_entry($$$$$$$$$;$$$$$$);

+sub get_affecting_tests($$$);

+sub write_dir_page($$$$$$$$$$$$$$$$$);

+sub classify_rate($$$$);

+sub br_taken_add($$);

+sub br_taken_sub($$);

+sub br_ivec_len($);

+sub br_ivec_get($$);

+sub br_ivec_push($$$$);

+sub combine_brcount($$$);

+sub get_br_found_and_hit($);

+sub warn_handler($);

+sub die_handler($);

+sub write_description_file($$$$$$$);

+sub write_function_table(*$$$$$$$$$$);

+sub write_header(*$$$$$$$$$$);

+sub write_header_line(*@);

+sub write_file_table(*$$$$$$$);

+sub write_file_table_prolog(*$@);

+sub write_file_table_entry(*$$$@);

+sub write_file_table_detail_entry(*$@);

+sub write_source($$$$$$$);

+sub write_source_line(*$$$$$$);

+our $br_coverage = 1; # If set, generate branch coverage statistics

+our $no_br_coverage; # Disable br_coverage

+our $demangle_cpp = 0; # Demangle C++ function names

+our @fileview_sortname = ("", "-sort-l", "-sort-f", "-sort-b");

+# Prettify version string

+$lcov_version =~ s/\$\s*Revision\s*:?\s*(\S+)\s*\$/$1/;

+

+if (defined($ENV{"HOME"}) && (-r $ENV{"HOME"}."/.lcovrc"))

+ "genhtml_line_field_width" => \$line_field_width,

+ "genhtml_branch_hi_limit" => \$br_hi_limit,

+ "genhtml_branch_med_limit" => \$br_med_limit,

+ "genhtml_branch_coverage" => \$br_coverage,

+ "genhtml_branch_field_width" => \$br_field_width,

+# Copy limit values if not specified

+$fn_hi_limit = $hi_limit if (!defined($fn_hi_limit));

+$fn_med_limit = $med_limit if (!defined($fn_med_limit));

+$br_hi_limit = $hi_limit if (!defined($br_hi_limit));

+$br_med_limit = $med_limit if (!defined($br_med_limit));

+

+if (!GetOptions("output-directory|o=s" => \$output_directory,

+ "title|t=s" => \$test_title,

+ "description-file|d=s" => \$desc_filename,

+ "keep-descriptions|k" => \$keep_descriptions,

+ "css-file|c=s" => \$css_filename,

+ "baseline-file|b=s" => \$base_filename,

+ "prefix|p=s" => \$dir_prefix,

+ "show-details|s" => \$show_details,

+ "frames|f" => \$frames,

+ "quiet|q" => \$quiet,

+ "version|v" => \$version,

+ "branch-coverage" => \$br_coverage,

+ "no-branch-coverage" => \$no_br_coverage,

+ "demangle-cpp" => \$demangle_cpp,

+ if ($no_br_coverage) {

+ $br_coverage = 0;

+ }

+@fileview_sortlist = ($SORT_FILE);

+@funcview_sortlist = ($SORT_FILE);

+

+ push(@fileview_sortlist, $SORT_LINE);

+ push(@fileview_sortlist, $SORT_FUNC) if ($func_coverage);

+ push(@fileview_sortlist, $SORT_BRANCH) if ($br_coverage);

+ push(@funcview_sortlist, $SORT_LINE);

+# Ensure that the c++filt tool is available when using --demangle-cpp

+if ($demangle_cpp)

+{

+ if (system_no_output(3, "c++filt", "--version")) {

+ die("ERROR: could not find c++filt tool needed for ".

+ "--demangle-cpp\n");

+ }

+}

+

+ create_sub_dir($output_directory);

+ --(no-)branch-coverage Enable (disable) branch coverage display

+ --demangle-cpp Demangle C++ function names

+# get_overall_line(found, hit, name_singular, name_plural)

+#

+# Return a string containing overall information for the specified

+# found/hit data.

+#

+

+sub get_overall_line($$$$)

+{

+ my ($found, $hit, $name_sn, $name_pl) = @_;

+ my $name;

+

+ return "no data found" if (!defined($found) || $found == 0);

+ $name = ($found == 1) ? $name_sn : $name_pl;

+ return sprintf("%.1f%% (%d of %d %s)", $hit * 100 / $found, $hit,

+ $found, $name);

+}

+

+

+#

+# print_overall_rate(ln_do, ln_found, ln_hit, fn_do, fn_found, fn_hit, br_do

+# br_found, br_hit)

+#

+# Print overall coverage rates for the specified coverage types.

+#

+

+sub print_overall_rate($$$$$$$$$)

+{

+ my ($ln_do, $ln_found, $ln_hit, $fn_do, $fn_found, $fn_hit,

+ $br_do, $br_found, $br_hit) = @_;

+

+ info("Overall coverage rate:\n");

+ info(" lines......: %s\n",

+ get_overall_line($ln_found, $ln_hit, "line", "lines"))

+ if ($ln_do);

+ info(" functions..: %s\n",

+ get_overall_line($fn_found, $fn_hit, "function", "functions"))

+ if ($fn_do);

+ info(" branches...: %s\n",

+ get_overall_line($br_found, $br_hit, "branch", "branches"))

+ if ($br_do);

+}

+

+

+#

+ my $br_found;

+ my $br_hit;

+ my $total_br_found = 0;

+ my $total_br_hit = 0;

+ ($lines_found, $lines_hit, $fn_found, $fn_hit,

+ $br_found, $br_hit)

+ $fn_hit, $br_found, $br_hit, $link_name,

+ get_rate($fn_found, $fn_hit),

+ get_rate($br_found, $br_hit)];

+ $total_br_found += $br_found;

+ $total_br_hit += $br_hit;

+ $total_fn_found, $total_fn_hit, $total_br_found,

+ $total_br_hit, \%overview, {}, {}, {}, 0, $_);

+ $total_fn_found, $total_fn_hit,

+ $total_br_found, $total_br_hit);

+ print_overall_rate(1, $overall_found, $overall_hit,

+ $func_coverage, $total_fn_found, $total_fn_hit,

+ $br_coverage, $total_br_found, $total_br_hit);

+ chdir($cwd);

+sub write_dir_page($$$$$$$$$$$$$$$$$)

+ $overall_hit, $total_fn_found, $total_fn_hit, $total_br_found,

+ $total_br_hit, $overview, $testhash, $testfnchash, $testbrhash,

+ $view_type, $sort_type) = @_;

+ $total_fn_hit, $total_br_found, $total_br_hit, $sort_type);

+ $testfnchash, $testbrhash, $view_type, $sort_type);

+ my $br_found;

+ my $br_hit;

+ my $total_br_found = 0;

+ my $total_br_hit = 0;

+ my $testbrdata;

+ my %testbrhash;

+ ($lines_found, $lines_hit, $fn_found, $fn_hit, $br_found,

+ $br_hit, $testdata, $testfncdata, $testbrdata) =

+ process_file($trunc_dir, $rel_dir, $filename);

+ $fn_hit, $br_found, $br_hit,

+ $page_link,

+ get_rate($fn_found, $fn_hit),

+ get_rate($br_found, $br_hit)];

+ $testbrhash{$base_name} = $testbrdata;

+

+ $total_br_found += $br_found;

+ $total_br_hit += $br_hit;

+ $total_br_found, $total_br_hit, \%overview, {},

+ {}, {}, 1, $_);

+ $total_fn_hit, $total_br_found, $total_br_hit,

+ \%overview, \%testhash, \%testfnchash,

+ \%testbrhash, 1, $_);

+ return ($overall_found, $overall_hit, $total_fn_found, $total_fn_hit,

+ $total_br_found, $total_br_hit);

+sub write_function_page($$$$$$$$$$$$$$$$$$)

+ $lines_found, $lines_hit, $fn_found, $fn_hit, $br_found, $br_hit,

+ $sumcount, $funcdata, $sumfnccount, $testfncdata, $sumbrcount,

+ $testbrdata, $sort_type) = @_;

+ $fn_found, $fn_hit, $br_found, $br_hit, $sort_type);

+ $sumfnccount, $testfncdata, $sumbrcount,

+ $testbrdata, $base_name,

+ my $testbrdata;

+ my $sumbrcount;

+ my $br_found;

+ my $br_hit;

+ $sumfnccount, $testbrdata, $sumbrcount, $lines_found, $lines_hit,

+ $fn_found, $fn_hit, $br_found, $br_hit)

+ return ($lines_found, $lines_hit, $fn_found, $fn_hit,

+ $br_found, $br_hit, $testdata, $testfncdata,

+ $testbrdata);

+ $fn_found, $fn_hit, $br_found, $br_hit, 0);

+ $converted, $funcdata, $sumbrcount);

+ $fn_found, $fn_hit, $br_found,

+ $br_hit, $sumcount,

+ $testfncdata, $sumbrcount,

+ $testbrdata, $_);

+ return ($lines_found, $lines_hit, $fn_found, $fn_hit,

+ $br_found, $br_hit, $testdata, $testfncdata,

+ $testbrdata);

+ return ($lines_found, $lines_hit, $fn_found, $fn_hit, $br_found,

+ $br_hit, $testdata, $testfncdata, $testbrdata);

+# "testbr" -> \%testbrdata

+# "sumbr" -> \%sumbrcount

+# %testbrdata: name of test affecting this file -> \%testbrcount

+# %testbrcount : line number -> branch coverage data for a single test

+# %sumbrcount : line number -> branch coverage data for all tests

+# $brdata : vector of items: block, branch, taken

+ my $testbrdata;

+ my $testbrcount;

+ my $sumbrcount;

+ my $br_found;

+ my $br_hit;

+ /^TN:([^,]*)(,diff)?/ && do

+ $testname .= $2 if (defined($2));

+ $testfncdata, $sumfnccount, $testbrdata,

+ $sumbrcount) =

+ $testbrcount = $testbrdata->{$testname};

+ $testbrcount = {};

+

+ /^BRDA:(\d+),(\d+),(\d+),(\d+|-)/ && do {

+ # Branch coverage data found

+ my ($line, $block, $branch, $taken) =

+ ($1, $2, $3, $4);

+

+ $sumbrcount->{$line} =

+ br_ivec_push($sumbrcount->{$line},

+ $block, $branch, $taken);

+

+ # Add test-specific counts

+ if (defined($testname)) {

+ $testbrcount->{$line} =

+ br_ivec_push(

+ $testbrcount->{$line},

+ $block, $branch,

+ $taken);

+ }

+ last;

+ };

+

+ $testbrdata->{$testname} =

+ $testbrcount;

+ $sumfnccount,

+ $testbrdata,

+ $sumbrcount);

+ $sumfnccount, $testbrdata, $sumbrcount) =

+ get_info_entry($data);

+

+ # Get found/hit values for branch data

+ ($br_found, $br_hit) = get_br_found_and_hit($sumbrcount);

+

+ $data->{"b_found"} = $br_found;

+ $data->{"b_hit"} = $br_hit;

+ my $testbrdata = $_[0]->{"testbr"};

+ my $sumbrcount = $_[0]->{"sumbr"};

+ my $br_found = $_[0]->{"b_found"};

+ my $br_hit = $_[0]->{"b_hit"};

+ $testfncdata, $sumfnccount, $testbrdata, $sumbrcount,

+ $lines_found, $lines_hit, $fn_found, $fn_hit,

+ $br_found, $br_hit);

+# checkdata_ref, testfncdata_ref, sumfcncount_ref,

+# testbrdata_ref, sumbrcount_ref[,lines_found,

+# lines_hit, f_found, f_hit, $b_found, $b_hit])

+sub set_info_entry($$$$$$$$$;$$$$$$)

+ $data_ref->{"testbr"} = $_[7];

+ $data_ref->{"sumbr"} = $_[8];

+

+ if (defined($_[9])) { $data_ref->{"found"} = $_[9]; }

+ if (defined($_[10])) { $data_ref->{"hit"} = $_[10]; }

+ if (defined($_[11])) { $data_ref->{"f_found"} = $_[11]; }

+ if (defined($_[12])) { $data_ref->{"f_hit"} = $_[12]; }

+ if (defined($_[13])) { $data_ref->{"b_found"} = $_[13]; }

+ if (defined($_[14])) { $data_ref->{"b_hit"} = $_[14]; }

+ if (defined($funcdata1)) {

+ %result = %{$funcdata1};

+ }

+ if (defined($fnccount1)) {

+ %result = %{$fnccount1};

+ }

+

+#

+# brcount_to_db(brcount)

+#

+# Convert brcount data to the following format:

+#

+# db: line number -> block hash

+# block hash: block number -> branch hash

+# branch hash: branch number -> taken value

+#

+

+sub brcount_to_db($)

+{

+ my ($brcount) = @_;

+ my $line;

+ my $db;

+

+ # Add branches from first count to database

+ foreach $line (keys(%{$brcount})) {

+ my $brdata = $brcount->{$line};

+ my $i;

+ my $num = br_ivec_len($brdata);

+

+ for ($i = 0; $i < $num; $i++) {

+ my ($block, $branch, $taken) = br_ivec_get($brdata, $i);

+

+ $db->{$line}->{$block}->{$branch} = $taken;

+ }

+ }

+

+ return $db;

+}

+

+

+#

+# db_to_brcount(db)

+#

+# Convert branch coverage data back to brcount format.

+#

+

+sub db_to_brcount($)

+{

+ my ($db) = @_;

+ my $line;

+ my $brcount = {};

+ my $br_found = 0;

+ my $br_hit = 0;

+

+ # Convert database back to brcount format

+ foreach $line (sort({$a <=> $b} keys(%{$db}))) {

+ my $ldata = $db->{$line};

+ my $brdata;

+ my $block;

+

+ foreach $block (sort({$a <=> $b} keys(%{$ldata}))) {

+ my $bdata = $ldata->{$block};

+ my $branch;

+

+ foreach $branch (sort({$a <=> $b} keys(%{$bdata}))) {

+ my $taken = $bdata->{$branch};

+

+ $br_found++;

+ $br_hit++ if ($taken ne "-" && $taken > 0);

+ $brdata = br_ivec_push($brdata, $block,

+ $branch, $taken);

+ }

+ }

+ $brcount->{$line} = $brdata;

+ }

+

+ return ($brcount, $br_found, $br_hit);

+}

+

+

+#

+# combine_brcount(brcount1, brcount2, type)

+#

+# If add is BR_ADD, add branch coverage data and return list (brcount_added,

+# br_found, br_hit). If add is BR_SUB, subtract the taken values of brcount2

+# from brcount1 and return (brcount_sub, br_found, br_hit).

+#

+

+sub combine_brcount($$$)

+{

+ my ($brcount1, $brcount2, $type) = @_;

+ my $line;

+ my $block;

+ my $branch;

+ my $taken;

+ my $db;

+ my $br_found = 0;

+ my $br_hit = 0;

+ my $result;

+

+ # Convert branches from first count to database

+ $db = brcount_to_db($brcount1);

+ # Combine values from database and second count

+ foreach $line (keys(%{$brcount2})) {

+ my $brdata = $brcount2->{$line};

+ my $num = br_ivec_len($brdata);

+ my $i;

+

+ for ($i = 0; $i < $num; $i++) {

+ ($block, $branch, $taken) = br_ivec_get($brdata, $i);

+ my $new_taken = $db->{$line}->{$block}->{$branch};

+

+ if ($type == $BR_ADD) {

+ $new_taken = br_taken_add($new_taken, $taken);

+ } elsif ($type == $BR_SUB) {

+ $new_taken = br_taken_sub($new_taken, $taken);

+ }

+ $db->{$line}->{$block}->{$branch} = $new_taken

+ if (defined($new_taken));

+ }

+ }

+ # Convert database back to brcount format

+ ($result, $br_found, $br_hit) = db_to_brcount($db);

+

+ return ($result, $br_found, $br_hit);

+}

+

+

+#

+# add_testbrdata(testbrdata1, testbrdata2)

+#

+# Add branch coverage data for several tests. Return reference to

+# added_testbrdata.

+#

+

+sub add_testbrdata($$)

+{

+ my ($testbrdata1, $testbrdata2) = @_;

+ my %result;

+ my $testname;

+

+ foreach $testname (keys(%{$testbrdata1})) {

+ if (defined($testbrdata2->{$testname})) {

+ my $brcount;

+

+ # Branch coverage data for this testname exists

+ # in both data sets: add

+ ($brcount) = combine_brcount($testbrdata1->{$testname},

+ $testbrdata2->{$testname}, $BR_ADD);

+ $result{$testname} = $brcount;

+ next;

+ }

+ # Branch coverage data for this testname is unique to

+ # data set 1: copy

+ $result{$testname} = $testbrdata1->{$testname};

+ }

+

+ # Add count data for testnames unique to data set 2

+ foreach $testname (keys(%{$testbrdata2})) {

+ if (!defined($result{$testname})) {

+ $result{$testname} = $testbrdata2->{$testname};

+ }

+ }

+ return \%result;

+}

+

+

+ my $testbrdata1;

+ my $sumbrcount1;

+ my $testbrdata2;

+ my $sumbrcount2;

+ my $result_testbrdata;

+ my $result_sumbrcount;

+ my $br_found;

+ my $br_hit;

+ $sumfnccount1, $testbrdata1, $sumbrcount1) = get_info_entry($entry1);

+ $sumfnccount2, $testbrdata2, $sumbrcount2) = get_info_entry($entry2);

+ # Combine branch coverage data

+ $result_testbrdata = add_testbrdata($testbrdata1, $testbrdata2);

+ ($result_sumbrcount, $br_found, $br_hit) =

+ combine_brcount($sumbrcount1, $sumbrcount2, $BR_ADD);

+

+ $result_sumfnccount, $result_testbrdata,

+ $result_sumbrcount, $lines_found, $lines_hit,

+ $fn_found, $fn_hit, $br_found, $br_hit);

+ my ($dir) = @_;

+

+ system("mkdir", "-p" ,$dir)

+ and die("ERROR: cannot create directory $dir!\n");

+# total_fn_found, total_fn_hit, total_br_found,

+# total_br_hit)

+sub write_description_file($$$$$$$)

+ my $br_found = $_[5];

+ my $br_hit = $_[6];

+ $fn_hit, $br_found, $br_hit, 0);

+ font-family: sans-serif;

+ font-family: sans-serif;

+ font-family: sans-serif;

+ font-family: sans-serif;

+ font-family: sans-serif;

+ font-family: sans-serif;

+ font-size:80%;

+ font-size:80%;

+ font-size:80%;

+ font-family: sans-serif;

+ font-family: sans-serif;

+ font-family: sans-serif;

+ font-family: sans-serif;

+ font-family: sans-serif;

+ margin-top: 2px;

+ background-color: #FF6230;

+ /* Source code view: format for branches which were executed

+ * and taken */

+ span.branchCov

+ {

+ background-color: #CAD7FE;

+ }

+

+ /* Source code view: format for branches which were executed

+ * but not taken */

+ span.branchNoCov

+ {

+ background-color: #FF6230;

+ }

+

+ /* Source code view: format for branches which were not executed */

+ span.branchNoExec

+ {

+ background-color: #FF6230;

+ }

+

+ /* Source code view: format for the source code heading line */

+ pre.sourceHeading

+ {

+ white-space: pre;

+ font-family: monospace;

+ font-weight: bold;

+ margin: 0px;

+ }

+

+ /* All views: header legend value for low rate */

+ td.headerValueLegL

+ {

+ font-family: sans-serif;

+ text-align: center;

+ white-space: nowrap;

+ padding-left: 4px;

+ padding-right: 2px;

+ background-color: #FF0000;

+ font-size: 80%;

+ }

+

+ /* All views: header legend value for med rate */

+ td.headerValueLegM

+ {

+ font-family: sans-serif;

+ text-align: center;

+ white-space: nowrap;

+ padding-left: 2px;

+ padding-right: 2px;

+ background-color: #FFEA20;

+ font-size: 80%;

+ }

+

+ /* All views: header legend value for hi rate */

+ td.headerValueLegH

+ font-family: sans-serif;

+ white-space: nowrap;

+ padding-left: 2px;

+ padding-right: 4px;

+ background-color: #A7FC9D;

+ font-size: 80%;

+ }

+

+ /* All views except source code view: legend format for low coverage */

+ span.coverLegendCovLo

+ {

+ padding-top: 2px;

+ background-color: #FF0000;

+ }

+

+ /* All views except source code view: legend format for med coverage */

+ span.coverLegendCovMed

+ {

+ padding-left: 10px;

+ padding-right: 10px;

+ padding-top: 2px;

+ background-color: #FFEA20;

+ }

+

+ /* All views except source code view: legend format for hi coverage */

+ span.coverLegendCovHi

+ {

+ padding-left: 10px;

+ padding-right: 10px;

+ padding-top: 2px;

+ background-color: #A7FC9D;

+# write_header_line(handle, content)

+# Write a header line with the specified table contents.

+sub write_header_line(*@)

+ my ($handle, @content) = @_;

+ my $entry;

+ write_html($handle, " <tr>\n");

+ foreach $entry (@content) {

+ my ($width, $class, $text, $colspan) = @{$entry};

+ if (defined($width)) {

+ $width = " width=\"$width\"";

+ } else {

+ $width = "";

+ }

+ if (defined($class)) {

+ $class = " class=\"$class\"";

+ } else {

+ $class = "";

+ }

+ if (defined($colspan)) {

+ $colspan = " colspan=\"$colspan\"";

+ } else {

+ $colspan = "";

+ }

+ $text = "" if (!defined($text));

+ write_html($handle,

+ " <td$width$class$colspan>$text</td>\n");

+ }

+ write_html($handle, " </tr>\n");

+ <tr><td><img src="$_[1]glass.png" width=3 height=3 alt=""></td></tr>

+

+# write_file_table_prolog(handle, file_heading, ([heading, num_cols], ...))

+sub write_file_table_prolog(*$@)

+ my ($handle, $file_heading, @columns) = @_;

+ my $num_columns = 0;

+ my $file_width;

+ my $col;

+ my $width;

+ $width = 20 if (scalar(@columns) == 1);

+ $width = 10 if (scalar(@columns) == 2);

+ $width = 8 if (scalar(@columns) > 2);

+ foreach $col (@columns) {

+ my ($heading, $cols) = @{$col};

+ $num_columns += $cols;

+ }

+ $file_width = 100 - $num_columns * $width;

+ # Table definition

+ write_html($handle, <<END_OF_HTML);

+ <td width="$file_width%"><br></td>

+END_OF_HTML

+ # Empty first row

+ foreach $col (@columns) {

+ my ($heading, $cols) = @{$col};

+

+ while ($cols-- > 0) {

+ write_html($handle, <<END_OF_HTML);

+ <td width="$width%"></td>

+END_OF_HTML

+ }

+ }

+ # Next row

+ write_html($handle, <<END_OF_HTML);

+ <td class="tableHead">$file_heading</td>

+END_OF_HTML

+ # Heading row

+ foreach $col (@columns) {

+ my ($heading, $cols) = @{$col};

+ my $colspan = "";

+

+ $colspan = " colspan=$cols" if ($cols > 1);

+ write_html($handle, <<END_OF_HTML);

+ <td class="tableHead"$colspan>$heading</td>

+END_OF_HTML

+ }

+ write_html($handle, <<END_OF_HTML);

+# write_file_table_entry(handle, base_dir, filename, page_link,

+# ([ found, hit, med_limit, hi_limit, graph ], ..)

+sub write_file_table_entry(*$$$@)

+ my ($handle, $base_dir, $filename, $page_link, @entries) = @_;

+ my $entry;

+ # First column: filename

+ write_html($handle, <<END_OF_HTML);

+END_OF_HTML

+ # Columns as defined

+ foreach $entry (@entries) {

+ my ($found, $hit, $med, $hi, $graph) = @{$entry};

+ my $bar_graph;

+ my $class;

+ my $rate;

+

+ # Generate bar graph if requested

+ if ($graph) {

+ $bar_graph = get_bar_graph_code($base_dir, $found,

+ $hit);

+ write_html($handle, <<END_OF_HTML);

+ }

+ # Get rate color and text

+ if ($found == 0) {

+ $rate = "-";

+ $class = "Hi";

+ } else {

+ $rate = sprintf("%.1f&nbsp;%%", $hit * 100 / $found);

+ $class = $rate_name[classify_rate($found, $hit,

+ $med, $hi)];

+ }

+ write_html($handle, <<END_OF_HTML);

+ <td class="coverPer$class">$rate</td>

+ <td class="coverNum$class">$hit / $found</td>

+ }

+ # End of row

+ write_html($handle, <<END_OF_HTML);

+# write_file_table_detail_entry(filehandle, test_name, ([found, hit], ...))

+sub write_file_table_detail_entry(*$@)

+ my ($handle, $test, @entries) = @_;

+ my $entry;

+ if ($test eq "") {

+ $test = "<span style=\"font-style:italic\">&lt;unnamed&gt;</span>";

+ } elsif ($test =~ /^(.*),diff$/) {

+ $test = $1." (converted)";

+ # Testname

+ write_html($handle, <<END_OF_HTML);

+ <td class="testName" colspan=2>$test</td>

+ # Test data

+ foreach $entry (@entries) {

+ my ($found, $hit) = @{$entry};

+ my $rate = "-";

+

+ if ($found > 0) {

+ $rate = sprintf("%.1f&nbsp;%%", $hit * 100 / $found);

+ }

+ write_html($handle, <<END_OF_HTML);

+ <td class="testPer">$rate</td>

+ <td class="testNum">$hit&nbsp;/&nbsp;$found</td>

+ }

+

+ write_html($handle, <<END_OF_HTML);

+sub fmt_centered($$)

+{

+ my ($width, $text) = @_;

+ my $w0 = length($text);

+ my $w1 = int(($width - $w0) / 2);

+ my $w2 = $width - $w0 - $w1;

+

+ return (" "x$w1).$text.(" "x$w2);

+}

+

+

+ my $lineno_heading = " ";

+ my $branch_heading = "";

+ my $line_heading = fmt_centered($line_field_width, "Line data");

+ my $source_heading = " Source code";

+

+ if ($br_coverage) {

+ $branch_heading = fmt_centered($br_field_width, "Branch data").

+ " ";

+ }

+ <td>

+<pre class="sourceHeading">${lineno_heading}${branch_heading}${line_heading} ${source_heading}</pre>

+<pre class="source">

+# get_branch_blocks(brdata)

+#

+# Group branches that belong to the same basic block.

+#

+# Returns: [block1, block2, ...]

+# block: [branch1, branch2, ...]

+# branch: [block_num, branch_num, taken_count, text_length, open, close]

+#

+

+sub get_branch_blocks($)

+{

+ my ($brdata) = @_;

+ my $last_block_num;

+ my $block = [];

+ my @blocks;

+ my $i;

+ my $num = br_ivec_len($brdata);

+

+ # Group branches

+ for ($i = 0; $i < $num; $i++) {

+ my ($block_num, $branch, $taken) = br_ivec_get($brdata, $i);

+ my $br;

+

+ if (defined($last_block_num) && $block_num != $last_block_num) {

+ push(@blocks, $block);

+ $block = [];

+ }

+ $br = [$block_num, $branch, $taken, 3, 0, 0];

+ push(@{$block}, $br);

+ $last_block_num = $block_num;

+ }

+ push(@blocks, $block) if (scalar(@{$block}) > 0);

+

+ # Add braces to first and last branch in group

+ foreach $block (@blocks) {

+ $block->[0]->[$BR_OPEN] = 1;

+ $block->[0]->[$BR_LEN]++;

+ $block->[scalar(@{$block}) - 1]->[$BR_CLOSE] = 1;

+ $block->[scalar(@{$block}) - 1]->[$BR_LEN]++;

+ }

+

+ return @blocks;

+}

+

+#

+# get_block_len(block)

+#

+# Calculate total text length of all branches in a block of branches.

+#

+

+sub get_block_len($)

+{

+ my ($block) = @_;

+ my $len = 0;

+ my $branch;

+

+ foreach $branch (@{$block}) {

+ $len += $branch->[$BR_LEN];

+ }

+

+ return $len;

+}

+

+

+#

+# get_branch_html(brdata)

+#

+# Return a list of HTML lines which represent the specified branch coverage

+# data in source code view.

+#

+

+sub get_branch_html($)

+{

+ my ($brdata) = @_;

+ my @blocks = get_branch_blocks($brdata);

+ my $block;

+ my $branch;

+ my $line_len = 0;

+ my $line = []; # [branch2|" ", branch|" ", ...]

+ my @lines; # [line1, line2, ...]

+ my @result;

+

+ # Distribute blocks to lines

+ foreach $block (@blocks) {

+ my $block_len = get_block_len($block);

+

+ # Does this block fit into the current line?

+ if ($line_len + $block_len <= $br_field_width) {

+ # Add it

+ $line_len += $block_len;

+ push(@{$line}, @{$block});

+ next;

+ } elsif ($block_len <= $br_field_width) {

+ # It would fit if the line was empty - add it to new

+ # line

+ push(@lines, $line);

+ $line_len = $block_len;

+ $line = [ @{$block} ];

+ next;

+ }

+ # Split the block into several lines

+ foreach $branch (@{$block}) {

+ if ($line_len + $branch->[$BR_LEN] >= $br_field_width) {

+ # Start a new line

+ if (($line_len + 1 <= $br_field_width) &&

+ scalar(@{$line}) > 0 &&

+ !$line->[scalar(@$line) - 1]->[$BR_CLOSE]) {

+ # Try to align branch symbols to be in

+ # one # row

+ push(@{$line}, " ");

+ }

+ push(@lines, $line);

+ $line_len = 0;

+ $line = [];

+ }

+ push(@{$line}, $branch);

+ $line_len += $branch->[$BR_LEN];

+ }

+ }

+ push(@lines, $line);

+

+ # Convert to HTML

+ foreach $line (@lines) {

+ my $current = "";

+ my $current_len = 0;

+

+ foreach $branch (@$line) {

+ # Skip alignment space

+ if ($branch eq " ") {

+ $current .= " ";

+ $current_len++;

+ next;

+ }

+

+ my ($block_num, $br_num, $taken, $len, $open, $close) =

+ @{$branch};

+ my $class;

+ my $title;

+ my $text;

+

+ if ($taken eq '-') {

+ $class = "branchNoExec";

+ $text = " # ";

+ $title = "Branch $br_num was not executed";

+ } elsif ($taken == 0) {

+ $class = "branchNoCov";

+ $text = " - ";

+ $title = "Branch $br_num was not taken";

+ } else {

+ $class = "branchCov";

+ $text = " + ";

+ $title = "Branch $br_num was taken $taken ".

+ "time";

+ $title .= "s" if ($taken > 1);

+ }

+ $current .= "[" if ($open);

+ $current .= "<span class=\"$class\" title=\"$title\">";

+ $current .= $text."</span>";

+ $current .= "]" if ($close);

+ $current_len += $len;

+ }

+

+ # Right-align result text

+ if ($current_len < $br_field_width) {

+ $current = (" "x($br_field_width - $current_len)).

+ $current;

+ }

+ push(@result, $current);

+ }

+

+ return @result;

+}

+

+

+#

+# format_count(count, width)

+#

+# Return a right-aligned representation of count that fits in width characters.

+#

+

+sub format_count($$)

+{

+ my ($count, $width) = @_;

+ my $result;

+ my $exp;

+

+ $result = sprintf("%*.0f", $width, $count);

+ while (length($result) > $width) {

+ last if ($count < 10);

+ $exp++;

+ $count = int($count/10);

+ $result = sprintf("%*s", $width, ">$count*10^$exp");

+ }

+ return $result;

+}

+

+#

+# brdata, add_anchor)

+sub write_source_line(*$$$$$$)

+ my ($handle, $line, $source, $count, $converted, $brdata,

+ $add_anchor) = @_;

+ my $count_format;

+ my $count_field_width = $line_field_width - 1;

+ my @br_html;

+ my $html;

+ # Get branch HTML data for this line

+ @br_html = get_branch_html($brdata) if ($br_coverage);

+

+ if (!defined($count)) {

+ $count_format = " "x$count_field_width;

+ elsif ($count == 0) {

+ $result = $count;

+ $count_format = format_count($count, $count_field_width);

+ elsif ($converted && defined($highlight)) {

+ $result = "*".$count;

+ $count_format = format_count($count, $count_field_width);

+ else {

+ $result = $count;

+ $count_format = format_count($count, $count_field_width);

+ $result .= ":".$source;

+ if ($add_anchor)

+ $html = $anchor_start;

+ $html .= "<span class=\"lineNum\">".sprintf("%8d", $line)." </span>";

+ $html .= shift(@br_html).":" if ($br_coverage);

+ $html .= "$source_format$count_format : ";

+ $html .= escape_html($source);

+ $html .= "</span>" if ($source_format);

+ $html .= $anchor_end."\n";

+

+ write_html($handle, $html);

+

+ if ($br_coverage) {

+ # Add lines for overlong branch information

+ foreach (@br_html) {

+ write_html($handle, "<span class=\"lineNum\">".

+ " </span>$_\n");

+ }

+ }

+ <tr><td class="ruler"><img src="$_[1]glass.png" width=3 height=3 alt=""></td></tr>

+ <tr><td class="versionInfo">Generated by: <a href="$lcov_url"$break_code>$lcov_version</a></td></tr>

+

+sub max($$)

+ my ($a, $b) = @_;

+ return $a if ($a > $b);

+ return $b;

+

+sub write_header(*$$$$$$$$$$)

+ my $br_found = $_[8];

+ my $br_hit = $_[9];

+ my $sort_type = $_[10];

+ my $style;

+ my $rate;

+ my @row_left;

+ my @row_right;

+ my $num_rows;

+ my $i;

+ if ($type == $HDR_DIR)

+ elsif ($type == $HDR_FILE)

+ elsif ($type == $HDR_SOURCE || $type == $HDR_FUNC)

+ $view .= "<span style=\"font-size: 80%;\">";

+ if ($type == $HDR_SOURCE) {

+ } elsif ($type == $HDR_FUNC) {

+ $view .= "</span>";

+ elsif ($type == $HDR_TESTDESC)

+ if (%test_description && ($type != $HDR_TESTDESC))

+ if ($frames && ($type == $HDR_SOURCE || $type == $HDR_FUNC))

+ $test .= " ( <span style=\"font-size:80%;\">".

+ "<a href=\"$base_dir".

+ "view descriptions</a></span> )";

+ $test .= " ( <span style=\"font-size:80%;\">".

+ "<a href=\"$base_dir".

+ "view descriptions</a></span> )";

+

+ # Left row

+ push(@row_left, [[ "10%", "headerItem", "Current view:" ],

+ [ "35%", "headerValue", $view ]]);

+ push(@row_left, [[undef, "headerItem", "Test:"],

+ [undef, "headerValue", $test]]);

+ push(@row_left, [[undef, "headerItem", "Date:"],

+ [undef, "headerValue", $date]]);

+

+ # Right row

+ if ($legend && ($type == $HDR_SOURCE || $type == $HDR_FUNC)) {

+ my $text = <<END_OF_HTML;

+ Lines:

+ <span class="coverLegendCov">hit</span>

+ <span class="coverLegendNoCov">not hit</span>

+END_OF_HTML

+ if ($br_coverage) {

+ $text .= <<END_OF_HTML;

+ | Branches:

+ <span class="coverLegendCov">+</span> taken

+ <span class="coverLegendNoCov">-</span> not taken

+ <span class="coverLegendNoCov">#</span> not executed

+END_OF_HTML

+ }

+ push(@row_left, [[undef, "headerItem", "Legend:"],

+ [undef, "headerValueLeg", $text]]);

+ } elsif ($legend && ($type != $HDR_TESTDESC)) {

+ my $text = <<END_OF_HTML;

+ Rating:

+ <span class="coverLegendCovLo" title="Coverage rates below $med_limit % are classified as low">low: &lt; $med_limit %</span>

+ <span class="coverLegendCovMed" title="Coverage rates between $med_limit % and $hi_limit % are classified as medium">medium: &gt;= $med_limit %</span>

+ <span class="coverLegendCovHi" title="Coverage rates of $hi_limit % and more are classified as high">high: &gt;= $hi_limit %</span>

+END_OF_HTML

+ push(@row_left, [[undef, "headerItem", "Legend:"],

+ [undef, "headerValueLeg", $text]]);

+ }

+ if ($type == $HDR_TESTDESC) {

+ push(@row_right, [[ "55%" ]]);

+ push(@row_right, [["15%", undef, undef ],

+ ["10%", "headerCovTableHead", "Hit" ],

+ ["10%", "headerCovTableHead", "Total" ],

+ ["15%", "headerCovTableHead", "Coverage"]]);

+ }

+ # Line coverage

+ $style = $rate_name[classify_rate($lines_found, $lines_hit,

+ $med_limit, $hi_limit)];

+ $rate = format_rate($lines_found, $lines_hit);

+ push(@row_right, [[undef, "headerItem", "Lines:"],

+ [undef, "headerCovTableEntry", $lines_hit],

+ [undef, "headerCovTableEntry", $lines_found],

+ [undef, "headerCovTableEntry$style", $rate]])

+ if ($type != $HDR_TESTDESC);

+ # Function coverage

+ if ($func_coverage) {

+ $style = $rate_name[classify_rate($fn_found, $fn_hit,

+ $fn_med_limit, $fn_hi_limit)];

+ $rate = format_rate($fn_found, $fn_hit);

+ push(@row_right, [[undef, "headerItem", "Functions:"],

+ [undef, "headerCovTableEntry", $fn_hit],

+ [undef, "headerCovTableEntry", $fn_found],

+ [undef, "headerCovTableEntry$style", $rate]])

+ if ($type != $HDR_TESTDESC);

+ }

+ # Branch coverage

+ if ($br_coverage) {

+ $style = $rate_name[classify_rate($br_found, $br_hit,

+ $br_med_limit, $br_hi_limit)];

+ $rate = format_rate($br_found, $br_hit);

+ push(@row_right, [[undef, "headerItem", "Branches:"],

+ [undef, "headerCovTableEntry", $br_hit],

+ [undef, "headerCovTableEntry", $br_found],

+ [undef, "headerCovTableEntry$style", $rate]])

+ if ($type != $HDR_TESTDESC);

+ }

+

+ # Print rows

+ $num_rows = max(scalar(@row_left), scalar(@row_right));

+ for ($i = 0; $i < $num_rows; $i++) {

+ my $left = $row_left[$i];

+ my $right = $row_right[$i];

+

+ if (!defined($left)) {

+ $left = [[undef, undef, undef], [undef, undef, undef]];

+ }

+ if (!defined($right)) {

+ $right = [];

+ write_header_line(*HTML_HANDLE, @{$left},

+ [ $i == 0 ? "5%" : undef, undef, undef],

+ @{$right});

+

+ # Fourth line

+ if ($type == $SORT_FILE) {

+ } elsif ($type == $SORT_LINE) {

+ return sort({$hash->{$a}[7] <=> $hash->{$b}[7]} keys(%{$hash}));

+ } elsif ($type == $SORT_FUNC) {

+ return sort({$hash->{$a}[8] <=> $hash->{$b}[8]} keys(%{$hash}));

+ } elsif ($type == $SORT_BRANCH) {

+ # Sort by br coverage;

+ return sort({$hash->{$a}[9] <=> $hash->{$b}[9]} keys(%{$hash}));

+ if ($type == $HEAD_NO_DETAIL) {

+ if ($type == $HEAD_NO_DETAIL) {

+ } elsif ($type == $HEAD_DETAIL_HIDDEN) {

+ if ($type == $HEAD_NO_DETAIL) {

+sub get_br_code($$$$)

+{

+ my ($type, $text, $sort_button, $base) = @_;

+ my $result = $text;

+ my $link;

+

+ if ($sort_button) {

+ if ($type == $HEAD_NO_DETAIL) {

+ $link = "index-sort-b.$html_ext";

+ } else {

+ $link = "index-detail-sort-b.$html_ext";

+ }

+ }

+ $result .= get_sort_code($link, "Sort by branch coverage", $base);

+ return $result;

+}

+

+# testbrhash, fileview, sort_type)

+sub write_file_table(*$$$$$$$)

+ my $testbrhash = $_[5];

+ my $fileview = $_[6];

+ my $sort_type = $_[7];

+ my $br_found;

+ my $br_hit;

+ my $testbrdata;

+ my $br_code;

+ my @head_columns;

+ $file_code = get_file_code($detailed ? $HEAD_DETAIL_HIDDEN :

+ $HEAD_NO_DETAIL,

+ $sort && $sort_type != $SORT_FILE,

+ $base_dir);

+ $line_code = get_line_code($detailed ? $HEAD_DETAIL_SHOWN :

+ $HEAD_DETAIL_HIDDEN,

+ $sort_type,

+ $sort && $sort_type != $SORT_LINE,

+ $base_dir);

+ $func_code = get_func_code($detailed ? $HEAD_DETAIL_HIDDEN :

+ $HEAD_NO_DETAIL,

+ "Functions",

+ $sort && $sort_type != $SORT_FUNC,

+ $base_dir);

+ $br_code = get_br_code($detailed ? $HEAD_DETAIL_HIDDEN :

+ $HEAD_NO_DETAIL,

+ "Branches",

+ $sort && $sort_type != $SORT_BRANCH,

+ $base_dir);

+ $file_code = get_file_code($HEAD_NO_DETAIL,

+ $sort && $sort_type != $SORT_FILE,

+ $base_dir);

+ $line_code = get_line_code($HEAD_NO_DETAIL, $sort_type, "Line Coverage",

+ $sort && $sort_type != $SORT_LINE,

+ $base_dir);

+ $func_code = get_func_code($HEAD_NO_DETAIL, "Functions",

+ $sort && $sort_type != $SORT_FUNC,

+ $base_dir);

+ $br_code = get_br_code($HEAD_NO_DETAIL, "Branches",

+ $sort && $sort_type != $SORT_BRANCH,

+ $base_dir);

+ }

+ push(@head_columns, [ $line_code, 3 ]);

+ push(@head_columns, [ $func_code, 2]) if ($func_coverage);

+ push(@head_columns, [ $br_code, 2]) if ($br_coverage);

+

+ write_file_table_prolog(*HTML_HANDLE, $file_code, @head_columns);

+ my @columns;

+ ($found, $hit, $fn_found, $fn_hit, $br_found, $br_hit,

+ $page_link) = @{$overview->{$filename}};

+

+ # Line coverage

+ push(@columns, [$found, $hit, $med_limit, $hi_limit, 1]);

+ # Function coverage

+ if ($func_coverage) {

+ push(@columns, [$fn_found, $fn_hit, $fn_med_limit,

+ $fn_hi_limit, 0]);

+ }

+ # Branch coverage

+ if ($br_coverage) {

+ push(@columns, [$br_found, $br_hit, $br_med_limit,

+ $br_hi_limit, 0]);

+ }

+ write_file_table_entry(*HTML_HANDLE, $base_dir, $filename,

+ $page_link, @columns);

+ $testbrdata = $testbrhash->{$filename};

+ $testfncdata, $testbrdata) };

+ my @results;

+ ($found, $hit, $fn_found, $fn_hit, $br_found, $br_hit) =

+ push(@results, [$found, $hit]);

+ push(@results, [$fn_found, $fn_hit]) if ($func_coverage);

+ push(@results, [$br_found, $br_hit]) if ($br_coverage);

+ @results);

+# br_taken_to_num(taken)

+#

+# Convert a branch taken value .info format to number format.

+#

+

+sub br_taken_to_num($)

+{

+ my ($taken) = @_;

+

+ return 0 if ($taken eq '-');

+ return $taken + 1;

+}

+

+

+#

+# br_num_to_taken(taken)

+#

+# Convert a branch taken value in number format to .info format.

+#

+

+sub br_num_to_taken($)

+{

+ my ($taken) = @_;

+

+ return '-' if ($taken == 0);

+ return $taken - 1;

+}

+

+

+#

+# br_taken_add(taken1, taken2)

+#

+# Return the result of taken1 + taken2 for 'branch taken' values.

+#

+

+sub br_taken_add($$)

+{

+ my ($t1, $t2) = @_;

+

+ return $t1 if (!defined($t2));

+ return $t2 if (!defined($t1));

+ return $t1 if ($t2 eq '-');

+ return $t2 if ($t1 eq '-');

+ return $t1 + $t2;

+}

+

+

+#

+# br_taken_sub(taken1, taken2)

+#

+# Return the result of taken1 - taken2 for 'branch taken' values. Return 0

+# if the result would become negative.

+#

+

+sub br_taken_sub($$)

+{

+ my ($t1, $t2) = @_;

+

+ return $t1 if (!defined($t2));

+ return undef if (!defined($t1));

+ return $t1 if ($t1 eq '-');

+ return $t1 if ($t2 eq '-');

+ return 0 if $t2 > $t1;

+ return $t1 - $t2;

+}

+

+

+#

+# br_ivec_len(vector)

+#

+# Return the number of entries in the branch coverage vector.

+#

+

+sub br_ivec_len($)

+{

+ my ($vec) = @_;

+

+ return 0 if (!defined($vec));

+ return (length($vec) * 8 / $BR_VEC_WIDTH) / $BR_VEC_ENTRIES;

+}

+

+

+#

+# br_ivec_get(vector, number)

+#

+# Return an entry from the branch coverage vector.

+#

+

+sub br_ivec_get($$)

+{

+ my ($vec, $num) = @_;

+ my $block;

+ my $branch;

+ my $taken;

+ my $offset = $num * $BR_VEC_ENTRIES;

+

+ # Retrieve data from vector

+ $block = vec($vec, $offset + $BR_BLOCK, $BR_VEC_WIDTH);

+ $branch = vec($vec, $offset + $BR_BRANCH, $BR_VEC_WIDTH);

+ $taken = vec($vec, $offset + $BR_TAKEN, $BR_VEC_WIDTH);

+

+ # Decode taken value from an integer

+ $taken = br_num_to_taken($taken);

+

+ return ($block, $branch, $taken);

+}

+

+

+#

+# br_ivec_push(vector, block, branch, taken)

+#

+# Add an entry to the branch coverage vector. If an entry with the same

+# branch ID already exists, add the corresponding taken values.

+#

+

+sub br_ivec_push($$$$)

+{

+ my ($vec, $block, $branch, $taken) = @_;

+ my $offset;

+ my $num = br_ivec_len($vec);

+ my $i;

+

+ $vec = "" if (!defined($vec));

+

+ # Check if branch already exists in vector

+ for ($i = 0; $i < $num; $i++) {

+ my ($v_block, $v_branch, $v_taken) = br_ivec_get($vec, $i);

+

+ next if ($v_block != $block || $v_branch != $branch);

+

+ # Add taken counts

+ $taken = br_taken_add($taken, $v_taken);

+ last;

+ }

+

+ $offset = $i * $BR_VEC_ENTRIES;

+ $taken = br_taken_to_num($taken);

+

+ # Add to vector

+ vec($vec, $offset + $BR_BLOCK, $BR_VEC_WIDTH) = $block;

+ vec($vec, $offset + $BR_BRANCH, $BR_VEC_WIDTH) = $branch;

+ vec($vec, $offset + $BR_TAKEN, $BR_VEC_WIDTH) = $taken;

+

+ return $vec;

+}

+

+

+#

+# get_br_found_and_hit(sumbrcount)

+#

+# Return (br_found, br_hit) for sumbrcount

+#

+

+sub get_br_found_and_hit($)

+{

+ my ($sumbrcount) = @_;

+ my $line;

+ my $br_found = 0;

+ my $br_hit = 0;

+

+ foreach $line (keys(%{$sumbrcount})) {

+ my $brdata = $sumbrcount->{$line};

+ my $i;

+ my $num = br_ivec_len($brdata);

+

+ for ($i = 0; $i < $num; $i++) {

+ my $taken;

+

+ (undef, undef, $taken) = br_ivec_get($brdata, $i);

+

+ $br_found++;

+ $br_hit++ if ($taken ne "-" && $taken > 0);

+ }

+ }

+

+ return ($br_found, $br_hit);

+}

+

+

+#

+# get_affecting_tests(testdata, testfncdata, testbrdata)

+sub get_affecting_tests($$$)

+ my ($testdata, $testfncdata, $testbrdata) = @_;

+ my $testbrcount;

+ my $br_found;

+ my $br_hit;

+ $testbrcount = $testbrdata->{$testname};

+ ($br_found, $br_hit) = get_br_found_and_hit($testbrcount);

+ $result{$testname} = "$found,$hit,$fn_found,$fn_hit,".

+ "$br_found,$br_hit";

+# converted_data, func_data, sumbrcount)

+sub write_source($$$$$$$)

+ my $sumbrcount = $_[6];

+ # Also remove CR from line-end

+ s/\015$//;

+

+ $sumbrcount->{$line_number}, $add_anchor));

+# sumfnccount, testfncdata, sumbrcount, testbrdata,

+# base_name, base_dir, sort_type)

+sub write_function_table(*$$$$$$$$$$)

+ my $sumbrcount = $_[6];

+ my $testbrdata = $_[7];

+ my $name = $_[8];

+ my $base = $_[9];

+ my $type = $_[10];

+ if (!defined($funcdata->{$func}))

+ {

+ next;

+ }

+

+ my $name = $func;

+ # Demangle C++ function names if requested

+ if ($demangle_cpp) {

+ $name = `c++filt "$name"`;

+ chomp($name);

+ }

+ # Escape any remaining special characters

+ $name = escape_html($name);

+ my %data;

+ my %base;

+ %data = %{$_[0]} if (defined($_[0]));

+ %base = %{$_[1]} if (defined($_[1]));

+ my $data_testbrdata;

+ my $data_testbrcount;

+ my $base_sumbrcount;

+ my $sumbrcount;

+ my $br_found;

+ my $br_hit;

+ $data_testfncdata, undef, $data_testbrdata) =

+ get_info_entry($data);

+ $base_sumfnccount, undef, $base_sumbrcount) =

+ get_info_entry($base);

+ $sumbrcount = {};

+ $data_testbrcount = $data_testbrdata->{$testname};

+ ($data_testbrcount) =

+ combine_brcount($data_testbrcount,

+ $base_sumbrcount, $BR_SUB);

+

+ $data_testbrdata->{$testname} =

+ $data_testbrcount;

+ delete($data_testbrdata->{$testname});

+ add_fnccount($sumfnccount, $data_testfnccount);

+ ($sumbrcount, $br_found, $br_hit) =

+ combine_brcount($sumbrcount, $data_testbrcount,

+ $BR_ADD);

+ $data_testbrdata, $sumbrcount, $found, $hit,

+ $fn_found, $fn_hit, $br_found, $br_hit);