lcov-1.7 into third_party for code coverage on POSIX systems....

third_party/lcov/contrib/galaxy/conglomerate_functions.pl

+#! /usr/bin/perl -w
+
+# Takes a set of ps images (belonging to one file) and produces a
+# conglomerate picture of that file: static functions in the middle,
+# others around it.  Each one gets a box about its area.
+
+use strict;
+
+my $SCRUNCH = $ARGV [0];
+my $BOXSCRUNCH = $ARGV [1];
+my $Tmp;
+my $DEBUG = 1;
+
+shift @ARGV; # skip SCRUNCH and BOXSCRUNCH
+shift @ARGV;
+
+
+DecorateFuncs (@ARGV);
+
+
+#TMPFILE=`mktemp ${TMPDIR:-/tmp}/$$.XXXXXX`
+
+# Arrange.
+my $ArgList = "";
+
+foreach $Tmp (@ARGV) {
+        $ArgList .= "'$Tmp' ";
+}
+
+my @Arranged = `../draw_arrangement $SCRUNCH 0 360 0 $ArgList`;
+
+my $CFile = $ARGV [0];
+$CFile =~ s/\.c\..*$/.c/;
+if ($DEBUG) { print ("% Conglomeration of $CFile\n"); }
+
+print "gsave angle rotate\n";
+
+# Now output the file, except last line.
+my $LastLine = pop (@Arranged);
+my $Fill = Box_2 ($LastLine,$CFile);
+print $Fill;
+# Draw box with file name
+my @Output = Box ('normal', 'Helvetica-Bold', 32, $CFile, $LastLine);
+splice(@Output, $#Output, 0, "grestore\n");
+#print @Output;
+
+print (@Arranged);
+#add a duplicate box to test if this works
+print @Output;
+
+
+sub ParseBound
+{
+        my $BBoxLine = shift;
+
+        $BBoxLine =~ /(-?[\d.]+)\s+(-?[\d.]+)\s+(-?[\d.]+)\s+(-?[\d.]+)/;
+
+        # XMin, YMin, XMax, YMax
+        return ($1 * $BOXSCRUNCH, $2 * $BOXSCRUNCH,
+                $3 * $BOXSCRUNCH, $4 * $BOXSCRUNCH);
+}
+
+
+
+# Box (type, font, fontsize, Label, BBoxLine)
+sub Box
+{
+        my $Type     = shift;
+        my $Font     = shift;
+        my $Fontsize = shift;
+        my $Label    = shift;
+        my $BBoxLine = shift;
+        my @Output   = ();
+
+        #        print (STDERR "Box ('$Type', '$Font', '$Fontsize', '$Label', '$BBoxLine')\n");
+        push (@Output, "% start of box\n");
+
+        push (@Output, "D5\n") if ($Type eq "dashed");
+
+        #       print (STDERR "BBoxLine: '$BBoxLine'\n");
+        #       print (STDERR "Parsed: '" . join ("' '", ParseBound ($BBoxLine)) . "\n");
+        my ($XMin, $YMin, $XMax, $YMax) = ParseBound ($BBoxLine);
+
+        my $LeftSpaced   = $XMin + 6;
+        my $BottomSpaced = $YMin + 6;
+
+        # Put black box around it
+        push (@Output, (
+                        "($Label) $LeftSpaced $BottomSpaced $Fontsize /$Font\n",
+                        "$YMin $XMin $YMax $XMax U\n"
+                       )
+             );
+
+        push (@Output, "D\n") if ($Type eq "dashed");
+        # fill bounding box
+        push (@Output, "% end of box\n");
+
+        # Output bounding box
+        push (@Output, "% bound $XMin $YMin $XMax $YMax\n");
+
+        return @Output;
+}
+
+sub Box_2
+{
+        my $BBoxLine = shift;
+        my $CFile = shift;
+        my $CovFile = "./coverage.dat";
+        my ($XMin, $YMin, $XMax, $YMax) = ParseBound ($BBoxLine);
+        my @output = `fgrep $CFile $CovFile`;
+        chomp $output[0];
+        my ($junk, $Class, $per) = split /\t/, $output[0];
+        return "$XMin $YMin $XMax $YMax $Class\n";
+}
+# Decorate (rgb-vals(1 string) filename)
+sub Decorate
+{
+        my $RGB      = shift;
+        my $Filename = shift;
+
+        my @Input    = ReadPS ($Filename);
+        my $LastLine = pop (@Input);
+        my @Output   = ();
+
+        # Color at the beginning.
+        push (@Output, "C$RGB\n");
+
+        # Now output the file, except last line.
+        push (@Output, @Input);
+
+        # Draw dashed box with function name
+        # FIXME Make bound cover the label as well!
+        my $FuncName = $Filename;
+        $FuncName =~ s/^[^.]+\.c\.(.+?)\..*$/$1/;
+
+        push (@Output, Box ('dashed', 'Helvetica', 24, $FuncName, $LastLine));
+
+        # Slap over the top.
+        WritePS ($Filename, @Output);
+}
+
+
+
+# Add colored boxes around functions
+sub DecorateFuncs
+{
+        my $FName = "";
+        my $FType = "";
+
+        foreach $FName (@ARGV)
+        {
+                $FName =~ /\+([A-Z]+)\+/;
+                $FType = $1;
+
+                if ($FType eq 'STATIC') {
+                        Decorate ("2", $FName); # Light green.
+                }
+                elsif ($FType eq 'INDIRECT') {
+                        Decorate ("3", $FName); # Green.
+                }
+                elsif ($FType eq 'EXPORTED') {
+                        Decorate ("4", $FName); # Red.
+                }
+                elsif ($FType eq 'NORMAL') {
+                        Decorate ("5", $FName); # Blue.
+                }
+                else {
+                        die ("Unknown extension $FName");
+                }
+        }
+}
+
+
+sub ReadPS
+{
+        my $Filename = shift;
+        my @Contents = ();
+
+        open (INFILE, "$Filename") or die ("Could not read $Filename: $!");
+        @Contents = <INFILE>;
+        close (INFILE);
+
+        return @Contents;
+}
+
+sub WritePS
+{
+        my $Filename = shift;
+
+        open (OUTFILE, ">$Filename")
+                or die ("Could not write $Filename: $!");
+        print (OUTFILE @_);
+        close (OUTFILE);
+}
+