From 6f813dcf985d42857d536c53199c9daaf2784b3d Mon Sep 17 00:00:00 2001
From: =?utf8?q?Christian=20W=C3=BCrdig?=
 <chriswue@ipd.info.uni-karlsruhe.de>
Date: Thu, 10 Aug 2006 18:55:47 +0000
Subject: [PATCH] added script to create difference between two reports

---
 ir/be/test/diffreports.pl    | 126 +++++++++++++++++++++++++++++++++++
 ir/be/test/makediffhtml.xslt |  76 +++++++++++++++++++++
 2 files changed, 202 insertions(+)
 create mode 100644 ir/be/test/diffreports.pl
 create mode 100644 ir/be/test/makediffhtml.xslt

diff --git a/ir/be/test/diffreports.pl b/ir/be/test/diffreports.pl
new file mode 100644
index 000000000..40e3fead6
--- /dev/null
+++ b/ir/be/test/diffreports.pl
@@ -0,0 +1,126 @@
+#!/usr/bin/perl -w
+
+use strict;
+use XML::Simple;
+use Data::Dumper;
+
+my $old_file  = $ARGV[0];
+my $new_file  = $ARGV[1];
+my $diff_file = "results_diff.xml";
+
+$| = 1; # perform flush after each write to STDOUT
+
+print "reading $old_file ... ";
+my $start = time;
+my $res_old = XMLin("$old_file", forcearray => 1);
+print "done (", time - $start," s)\n";
+
+print "reading $new_file ... ";
+$start = time;
+my $res_new = XMLin("$new_file", forcearray => 1);
+print "done (", time - $start," s)\n";
+
+open(DIFF, ">$diff_file") or die "Could not open $diff_file, reason:$!\n";
+
+print DIFF "<?xml version=\"1.0\"?>\n";
+print DIFF "<results>\n";
+print DIFF "    <files>\n";
+print DIFF "        <OLD>$old_file</OLD>\n";
+print DIFF "        <NEW>$new_file</NEW>\n";
+print DIFF "    </files>\n";
+
+if (! exists($res_old->{"environment"})) {
+	print "environment missing in $old_file!\n";
+}
+elsif (! exists($res_new->{"environment"})) {
+	print "environment missing in $new_file!\n";
+}
+else {
+	print DIFF "    <environment>\n";
+	print DIFF "        <OLD>\n";
+
+	my %env = %{ @{ $res_old->{"environment"} }[0] };
+
+	foreach (keys(%env)) {
+		print DIFF "            <$_>", @{ $env{"$_"} }[0], "</$_>\n";
+	}
+	print DIFF "        </OLD>\n";
+	print DIFF "        <NEW>\n";
+
+	%env = %{ @{ $res_new->{"environment"} }[0] };
+
+	foreach (keys(%env)) {
+		print DIFF "            <$_>", @{ $env{"$_"} }[0], "</$_>\n";
+	}
+	print DIFF "        </NEW>\n";
+	print DIFF "    </environment>\n";
+}
+
+my $section_old = $res_old->{"section"};
+my $section_new = $res_new->{"section"};
+
+foreach (keys(%{ $section_old })) {
+	if (! exists($section_new->{"$_"})) {
+		print "Section $_ missing in $new_file!\n";
+		next;
+	}
+
+	print DIFF "    <section name=\"$_\">\n";
+
+	my $old = $section_old->{"$_"}{"result"};
+	my $new = $section_new->{"$_"}{"result"};
+
+	foreach my $test (keys(%{ $old })) {
+		my $entry_old = $old->{"$test"};
+		my $entry_new = $new->{"$test"};
+		my $has_diff = 0;
+
+		if (! exists($new->{"$test"})) {
+			foreach my $k1 (keys(%{ $entry_old })) {
+				$entry_new->{"$k1"} = [ 'missing' ];
+				$has_diff           = 1;
+			}
+		}
+		else {
+			foreach my $k (keys(%{ $entry_old })) {
+				if (! exists($entry_new->{"$k"})) {
+				    $entry_new->{"$k"} = [ 'missing' ];
+					$has_diff = 1;
+				}
+				else {
+					my @val_old = @{ $entry_old->{"$k"} };
+					my @val_new = @{ $entry_new->{"$k"} };
+					if ($val_old[0] ne $val_new[0]) {
+						$has_diff = 1;
+					}
+				}
+			}
+		}
+
+		if ($has_diff == 1) {
+			print DIFF "        <result name=\"$test\">\n";
+			print DIFF "            <OLD>\n";
+			emit_entry($entry_old);
+			print DIFF "            </OLD>\n";
+			print DIFF "            <NEW>\n";
+			emit_entry($entry_new);
+			print DIFF "            </NEW>\n";
+			print DIFF "        </result>\n";
+		}
+	}
+
+	print DIFF "    </section>\n";
+}
+
+print DIFF "</results>\n";
+
+close(DIFF);
+
+sub emit_entry {
+	my $href = shift;
+
+	foreach (keys(%{ $href })) {
+		my @val = @{ $href->{"$_"} };
+		print DIFF "                <$_>", $val[0], "</$_>\n";
+	}
+}
diff --git a/ir/be/test/makediffhtml.xslt b/ir/be/test/makediffhtml.xslt
new file mode 100644
index 000000000..54e5e2d1f
--- /dev/null
+++ b/ir/be/test/makediffhtml.xslt
@@ -0,0 +1,76 @@
+<?xml version="1.0"?>
+<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="1.0">
+	<xsl:output method="html" indent="yes"
+              doctype-public="-//W3C//DTD HTML 4.01//EN"
+	            doctype-system="http://www.w3.org/TR/html4/strict.dtd"/>
+
+	<xsl:template name="resultcell" match="result/*/*">
+		<xsl:element name="div">
+			<xsl:if test="contains(text(), 'ok')">
+				<xsl:attribute name="style">background-color: green; color: white;</xsl:attribute>
+			</xsl:if>
+			<xsl:if test="contains(text(), 'failed')">
+				<xsl:attribute name="style">background-color: red; color: white;</xsl:attribute>
+			</xsl:if>
+			<xsl:if test="contains(text(), 'missing')">
+				<xsl:attribute name="style">background-color: black; color: white;</xsl:attribute>
+			</xsl:if>
+			<xsl:value-of select="text()"/>
+		</xsl:element>
+	</xsl:template>
+
+	<xsl:template match="/">
+		<html>
+			<head>
+				<title>Results</title>
+			</head>
+			<body>
+				OLD: <xsl:value-of select="/results/files/OLD"/><br/>
+				NEW: <xsl:value-of select="/results/files/NEW"/><br/><br/>
+				<table>
+					<tr>
+						<th>Name</th>
+						<th>Compile</th>
+						<th>Link</th>
+						<th>GCC Compile</th>
+						<th>GCC Run</th>
+						<th>Firm Run</th>
+						<th>Results</th>
+					</tr>
+					<xsl:for-each select="/results/section">
+						<tr>
+						    <th colspan="7" style="background-color: yellow; color: black;"><xsl:value-of select="@name"/></th>
+						</tr>
+						<xsl:for-each select="result">
+							<tr>
+								<th rowspan="2">
+									<xsl:element name="a">
+										<xsl:attribute name="href">buildresult_<xsl:value-of select="@name"/>.txt</xsl:attribute>
+										<xsl:value-of select="@name"/>
+									</xsl:element>
+								</th>
+								<td><xsl:apply-templates select="OLD/compile"/></td>
+								<td><xsl:apply-templates select="OLD/link"/></td>
+								<td><xsl:apply-templates select="OLD/gcc_compile"/></td>
+								<td><xsl:apply-templates select="OLD/gcc_run"/></td>
+								<td><xsl:apply-templates select="OLD/firm_run"/></td>
+								<td><xsl:apply-templates select="OLD/diff"/></td>
+							</tr>
+							<tr>
+								<td><xsl:apply-templates select="NEW/compile"/></td>
+								<td><xsl:apply-templates select="NEW/link"/></td>
+								<td><xsl:apply-templates select="NEW/gcc_compile"/></td>
+								<td><xsl:apply-templates select="NEW/gcc_run"/></td>
+								<td><xsl:apply-templates select="NEW/firm_run"/></td>
+								<td><xsl:apply-templates select="NEW/diff"/></td>
+							</tr>
+							<tr>
+							    <th colspan="7"> </th>
+							</tr>
+						</xsl:for-each>
+					</xsl:for-each>
+				</table>
+			</body>
+		</html>
+	</xsl:template>
+</xsl:stylesheet>
-- 
2.20.1