[svn-r5514] Purpose:

     Add Report Generator
Description:
     This is a generator for ASCII and Excel(tm)(c) reports generated by
     the pio_perf benchmark we run. There are instructions at the top of
     the file on how to run the program and the input format it expects,
     etc.
Platforms tested:
     Linux

2 files changed, 30 insertions, 6 deletions

diff --git a/MANIFEST b/MANIFEST
index 9ec05cf..51028af 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -747,6 +747,7 @@
 ./perform/Dependencies
 ./perform/Makefile.in
 ./perform/chunk.c
+./perform/gen_report.pl
 ./perform/iopipe.c
 ./perform/mpi-perf.c
 ./perform/overhead.c
diff --git a/perform/gen_report.pl b/perform/gen_report.pl
index db82096..b8bbed8 100755
--- a/perform/gen_report.pl
+++ b/perform/gen_report.pl
@@ -162,15 +162,40 @@ sub create_excel_output_string {
 	$output_content;
 }
 
+sub is_defined {
+	my ($t) = @_;
+	my $def = 1;
+
+	foreach my $procs (sort { $b <=> $a } keys(%results)) {
+		foreach my $xfer (sort { $a <=> $b } keys(%{$results{$procs}})) {
+			if (!defined($results{$procs}{$xfer}[0]{$t})) {
+				$def = 0;
+			}
+		}
+
+		foreach my $xfer (sort { $a <=> $b } keys(%{$results{$procs}})) {
+			if (!defined($results{$procs}{$xfer}[0]{$t})) {
+				$def = 0;
+			}
+		}
+
+		foreach my $xfer (sort { $a <=> $b } keys(%{$results{$procs}})) {
+			if (!defined($results{$procs}{$xfer}[0]{$t})) {
+				$def = 0;
+			}
+		}
+	}
+
+	$def;
+}
+
 sub write_excel_file {
 	print EXCEL_OUTPUT "\nWrite-Only\n";
 	print EXCEL_OUTPUT create_excel_output_string("write-only");
 	print EXCEL_OUTPUT "\nWrite-Close\n";
 	print EXCEL_OUTPUT create_excel_output_string("write-close");
 
-	if (defined($results{$procs}{$xfer}[0]{"read-only"}) ||
-			defined($results{$procs}{$xfer}[1]{"read-only"}) ||
-			defined($results{$procs}{$xfer}[2]{"read-only"})) {
+	if (is_defined("read-only")) {
 		print EXCEL_OUTPUT "\nRead-Only\n";
 		print EXCEL_OUTPUT create_excel_output_string("read-only");
 		print EXCEL_OUTPUT "\nRead-Close\n";
@@ -246,9 +271,7 @@ sub write_ascii_file {
 	print ASCII_OUTPUT "\n-----------\n";
 	print ASCII_OUTPUT create_ascii_output_string("write-close");
 
-	if (defined($results{$procs}{$xfer}[0]{"read-only"}) ||
-			defined($results{$procs}{$xfer}[1]{"read-only"}) ||
-			defined($results{$procs}{$xfer}[2]{"read-only"})) {
+	if (is_defined("read-only")) {
 		print ASCII_OUTPUT "\n\nRead-Only";
 		print ASCII_OUTPUT "\n---------\n";
 		print ASCII_OUTPUT create_ascii_output_string("read-only");