Upgrades lcov to 1.10, removes lcov-1.9

third_party/lcov/bin/genpng

 #!/usr/bin/perl -w
 #
 #   Copyright (c) International Business Machines  Corp., 2002
 #
 #   This program is free software;  you can redistribute it and/or modify
 #   it under the terms of the GNU General Public License as published by
 #   the Free Software Foundation; either version 2 of the License, or (at
 #   your option) any later version.
 #
 #   This program is distributed in the hope that it will be useful, but
 #   WITHOUT ANY WARRANTY;  without even the implied warranty of
 #   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 #   General Public License for more details.                 
 #
 #   You should have received a copy of the GNU General Public License
 #   along with this program;  if not, write to the Free Software
 #   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 #
 #
 # genpng
 #
 #   This script creates an overview PNG image of a source code file by
 #   representing each source code character by a single pixel.
 #
-#   Note that the PERL module GD.pm is required for this script to work.
+#   Note that the Perl module GD.pm is required for this script to work.
 #   It may be obtained from http://www.cpan.org
 #
 # History:
 #   2002-08-26: created by Peter Oberparleiter <Peter.Oberparleiter@de.ibm.com>
 #
 
 use strict;
 use File::Basename; 
 use Getopt::Long;
 
 
 # Constants
-our $lcov_version       = "LCOV version 1.7";
+our $lcov_version       = 'LCOV version 1.10';
 our $lcov_url           = "http://ltp.sourceforge.net/coverage/lcov.php";
 our $tool_name          = basename($0);
 
 
 # Prototypes
 sub gen_png($$$@);
 sub check_and_load_module($);
 sub genpng_print_usage(*);
 sub genpng_process_file($$$$);
-sub warn_handler($);
-sub die_handler($);
+sub genpng_warn_handler($);
+sub genpng_die_handler($);
 
 
 #
 # Code entry point
 #
 
+# Prettify version string
+$lcov_version =~ s/\$\s*Revision\s*:?\s*(\S+)\s*\$/$1/;
+
 # Check whether required module GD.pm is installed
 if (check_and_load_module("GD"))
 {
         # Note: cannot use die() to print this message because inserting this
         # code into another script via do() would not fail as required!
         print(STDERR <<END_OF_TEXT)
 ERROR: required module GD.pm not found on this system (see www.cpan.org).
 END_OF_TEXT
         ;
         exit(2);
 }
 
 # Check whether we're called from the command line or from another script
 if (!caller)
 {
         my $filename;
         my $tab_size = 4;
         my $width = 80;
         my $out_filename;
         my $help;
         my $version;
 
-        $SIG{__WARN__} = \&warn_handler;
-        $SIG{__DIE__} = \&die_handler;
+        $SIG{__WARN__} = \&genpng_warn_handler;
+        $SIG{__DIE__} = \&genpng_die_handler;
 
         # Parse command line options
         if (!GetOptions("tab-size=i" => \$tab_size,
                         "width=i" => \$width,
                         "output-filename=s" => \$out_filename,
                         "help" => \$help,
                         "version" => \$version))
         {
                 print(STDERR "Use $tool_name --help to get usage ".
                       "information\n");
@@ skipping 82 matching lines @@
 
 sub genpng_process_file($$$$)
 {
         my $filename            = $_[0];
         my $out_filename        = $_[1];
         my $width               = $_[2];
         my $tab_size            = $_[3];
         local *HANDLE;
         my @source;
 
-        open(HANDLE, "<$filename")
+        open(HANDLE, "<", $filename)
                 or die("ERROR: cannot open $filename!\n");
 
         # Check for .gcov filename extension
         if ($filename =~ /^(.*).gcov$/)
         {
                 # Assume gcov text format
                 while (<HANDLE>)
                 {
                         if (/^\t\t(.*)$/)
                         {
@@ skipping 35 matching lines @@
 #
 # Die on error.
 #
 
 sub gen_png($$$@)
 {
         my $filename = shift(@_);       # Filename for PNG file
         my $overview_width = shift(@_); # Imagewidth for image
         my $tab_size = shift(@_);       # Replacement string for tab signs
         my @source = @_;        # Source code as passed via argument 2
-        my $height = scalar(@source);   # Height as define by source size
+        my $height;             # Height as define by source size
         my $overview;           # Source code overview image data
         my $col_plain_back;     # Color for overview background
         my $col_plain_text;     # Color for uninstrumented text
         my $col_cov_back;       # Color for background of covered lines
         my $col_cov_text;       # Color for text of covered lines
         my $col_nocov_back;     # Color for background of lines which
                                 # were not covered (count == 0)
         my $col_nocov_text;     # Color for test of lines which were not
                                 # covered (count == 0)
         my $col_hi_back;        # Color for background of highlighted lines
         my $col_hi_text;        # Color for text of highlighted lines
         my $line;               # Current line during iteration
         my $row = 0;            # Current row number during iteration
         my $column;             # Current column number during iteration
         my $color_text;         # Current text color during iteration
         my $color_back;         # Current background color during iteration
         my $last_count;         # Count of last processed line
         my $count;              # Count of current line
         my $source;             # Source code of current line
         my $replacement;        # Replacement string for tabulator chars
         local *PNG_HANDLE;      # Handle for output PNG file
 
+        # Handle empty source files
+        if (!@source) {
+                @source = ( "" );
+        }
+        $height = scalar(@source);
         # Create image
         $overview = new GD::Image($overview_width, $height)
                 or die("ERROR: cannot allocate overview image!\n");
 
         # Define colors
         $col_plain_back = $overview->colorAllocate(0xff, 0xff, 0xff);
         $col_plain_text = $overview->colorAllocate(0xaa, 0xaa, 0xaa);
         $col_cov_back   = $overview->colorAllocate(0xaa, 0xa7, 0xef);
         $col_cov_text   = $overview->colorAllocate(0x5d, 0x5d, 0xea);
         $col_nocov_back = $overview->colorAllocate(0xff, 0x00, 0x00);
@@ skipping 81 matching lines @@
                 {
                         $overview->setPixel($column++, $row, $color_back);
                 }
 
                 $last_count = $2;
 
                 $row++;
         }
 
         # Write PNG file
-        open (PNG_HANDLE, ">$filename")
+        open (PNG_HANDLE, ">", $filename)
                 or die("ERROR: cannot write png file $filename!\n");
         binmode(*PNG_HANDLE);
         print(PNG_HANDLE $overview->png());
         close(PNG_HANDLE);
 }
 
-sub warn_handler($)
+sub genpng_warn_handler($)
 {
         my ($msg) = @_;
 
         warn("$tool_name: $msg");
 }
 
-sub die_handler($)
+sub genpng_die_handler($)
 {
         my ($msg) = @_;
 
         die("$tool_name: $msg");
 }