Add hyperlink to profile data to HTML report.

Signed-off-by: Henry Cox <[email protected]>

Author: henry2cox

bin/genhtml

@@ -6705,7 +6705,9 @@ if ($serialize) {
 }
 
 lcovutil::cleanup_callbacks();
-lcovutil::save_profile(File::Spec->catfile($output_directory, 'genhtml'));
+lcovutil::save_profile(File::Spec->catfile($output_directory, 'genhtml'),
+                       File::Spec->catfile($output_directory, 'profile.html'));
+
 # exit with non-zero status if --keep-going and some errors detected
 $exit_status = 1
     if (0 == $exit_status && lcovutil::saw_error());
@@ -8926,7 +8928,7 @@ sub write_header_line(*@)
         $str .= $text
             if defined($text);
         $str .= "</td>\n";
-        # so 'str' looke like '<td width="value" colspan="value">whatever</td>'
+        # so 'str' looked like '<td width="value" colspan="value">whatever</td>'
         write_html($handle, $str);
     }
     write_html($handle, "          </tr>\n");    # then end the row
@@ -11058,6 +11060,24 @@ sub write_header(*$$$$$$)
               [undef, "headerValue", $baseline_date]
              ]);
     }
+    # if top-level page, link to command line and profile
+    if ($summary->type() eq 'top' &&
+        $bin_type eq ''        &&
+        $primary_key eq 'name' &&
+        defined($lcovutil::profile)) {
+
+        push(@row_left,
+             [[undef, 'headerItem', 'genhtml Process:'],
+              [undef, 'headerValue',
+               '<span><a href="cmdline.html">Command Line</a></span>'
+              ]
+             ],
+             [[undef, 'headerItem', ''],    #blank
+              [undef, 'headerValue',
+               '<span><a href="profile.html">Profile Data</a></span>'
+              ]
+             ]);
+    }
     if ($type != $HDR_SOURCE &&
         $type != $HDR_FUNC   &&
         (defined($main::show_ownerBins) ||

lib/lcovutil.pm

@@ -819,9 +819,9 @@ sub save_cmd_line($$)
     $lcovutil::profileData{config}{buildDir} = Cwd::getcwd();
 }
 
-sub save_profile($)
+sub save_profile($@)
 {
-    my ($dest) = @_;
+    my ($dest, $html) = @_;
 
     if (defined($lcovutil::profile)) {
         $lcovutil::profileData{config}{maxParallel} = $maxParallelism;
@@ -852,6 +852,34 @@ sub save_profile($)
         } else {
             warn("unable to open profile output $dest: '$!'\n");
         }
+
+        # only generate the extra data if profile enabled
+        if ($html) {
+
+            my $leader =
+                '<object data="https://www.w3.org/TR/PNG/iso_8859-1.txt" width="300" height="200">'
+                . "\n";
+            my $tail = "</object>\n";
+
+            my $outDir = File::Basename::dirname($html);
+            open(CMD, '>', File::Spec->catfile($outDir, 'cmdline.html')) or
+                die("unable to create cmdline.html: $!");
+            print(CMD $leader, $lcovutil::profileData{config}{cmdLine},
+                  "\n", $tail);
+            close(CMD) or die("unable to close cmdline.html: $!");
+
+            # and the profile data
+            open(PROF, '>', $html) or die("unable to create $html: $!");
+            print(PROF $leader);
+
+            open(IN, '<', $dest) or die("unable to open $dest: $!");
+            while (<IN>) {
+                print(PROF $_);
+            }
+            close(IN) or die("unable to close $dest: $!");
+            print(PROF "\n", $tail);
+            close(PROF) or die("unable to close cmdline.html: $!");
+        }
     }
 }
 

tests/gendiffcov/simple/script.sh

@@ -1278,7 +1278,7 @@ if [ 0 != $? ] ; then
     fi
 fi
 
-NAME=`(cd select2 ; ls *.html)`
+NAME=`(cd select2 ; ls *.html | grep -v -E '(cmdline|profile)')`
 if [ "index.html" != "$NAME" ] ; then
     echo "ERROR: expected to find only one HTML file"
     status=1