summarize_make_and_test.pl

MTL C++ Numeric Library

: # *-*-perl-*-*
    eval 'exec perl -S  $0 "$@"'
    if $running_under_some_shell;


# Called with
# @ARGV = arch os compiler config
#
# Input and output files are hardwired -- they should be parameterized
#


format My_Top_Format =
S   ARCH   OS          CXX  FLAGS                      FM CF      BUILDS WARNINGS   ERRORS           TESTS
----------------------------------------------------------------------------------------------------------
.
    
    format My_Other_Format = 
@<< @<<<<< @<<<<<<<<<< @<<< @<<<<<<<<<<<<<<<<<<<<<<<<< @> @> @>>>>>>>>>> @>>>>>>> @>>>>>>> @>>>>>>>>>>>>>>
$subdir, $arch, $os,    $compiler,$flags,       $farm,  $conf, $builds, $build_warnings, $build_errors, $tests
.


open (OUTF, ">-");

use FileHandle;
format_name     OUTF "My_Other_Format";
format_top_name OUTF "My_Top_Format";


foreach $subdir ( @ARGV ) {
  
  $bad_farms = 0;
  $good_builds = 0;
  $bad_builds = 0;
  $bad_execs = 0;
  $good_execs = 0;
  $good_tests = 0;
  $bad_tests = 0;
  $build_warnings = 0;
  $build_errors = 0;

  $arch = "";
  $os = "";
  $compiler = "";
  $flags = "None";
  $farm = 0;
  $conf = 0;

  $built_result_errs = 0;
  $test_result_errs = 0;
  
  if (-d $subdir) {
    
    if (-f "$subdir/LOG") {
      $loglines = "";
      open(INF, "<$subdir/LOG");
      while (<INF>) {
	$loglines .= $_;
      }
      close(INF);
      @loglines = split(/\n/, $loglines);
      
      $num_loglines = scalar(@loglines);

      if ($num_loglines != 6) {
	print "Something is wrong with LOG file";
	print "$num_loglines";
        $farm = 0;
      } else { 
        $farm = 1; 
      }
    }

    if (-f "$subdir/config_results.txt") {
      open(INF, "<$subdir/config_results.txt");
      while (<INF>) {

      if (/^%ARCH/) {
	@rfields = split(' ');
        $arch = @rfields[1];
      }
      if (/^%OS/) {
	@rfields = split(' ');
        $os = @rfields[1];
      }
      if (/^%COMPILER/) {
	@rfields = split(' ');
        $compiler = @rfields[1];
      }
      if (/^%FLAGS/) {
	@rfields = split(':');
        $flags = @rfields[1];
        $flags =~ s/\#//; 
        $flags =~ s/\s//; 
        $flags =~ s/.*configure\s//; 
      }
      if (/^%RESULT/) {
	  @rfields = split(' ');
	  if (@rfields[1] eq "FAILURE") {
	    $conf = 0;
	  } elsif (@rfields[1] eq "SUCCESS") {
	    $conf = 1;
	  } else {
	    $conf = "?";
	  }
	}
      }
      close(INF);
    } else {
      print "Missing config\n";
    }

    if (-f "$subdir/make_and_test_results.txt") {
      open(INF, "<$subdir/make_and_test_results.txt");
      while (<INF>) {

      if (/^%BUILD/) {
	while (<INF>) {
	  if (/^%WARN/) {
	    @rfields = split(' ');
            $build_warnings += @rfields[1];
          }
	  if (/^%ERR/) {
	    @rfields = split(' ');
            $build_errors += @rfields[1];
          }
	  if (/^%RESULT/) {
	    @rfields = split(' ');
	    if (@rfields[1] eq "FAILURE") {
	      $bad_builds++;
	    } elsif (@rfields[1] eq "SUCCESS") {
	      $good_builds++;
	    } else {
	      $build_result_errs++;
	    }
            last;
	  }
	}
      }
      
      if (/^%TEST/) {
	while (<INF>) {
	  if (/^%RESULT/) {
	    @rfields = split(' ');
	    if (@rfields[1] eq "FAILURE") {
	      $bad_tests++;
	    } elsif (@rfields[1] eq "SUCCESS") {
	      $good_tests++;
	    } else {
	      $test_result_errs++;
	    }
            last;
	  }
	}
      }
      }      
      
      close(INF);
    } else {
      print "No make_and_test_results.txt\n";
    }
    
    $sum_builds = $good_builds + $bad_builds;
    $builds = "$good_builds/$sum_builds";
    if ($build_result_errs > 0) {
      $builds .= "?";
    }
    
    $sum_tests = $good_tests + $bad_tests;
    $tests = "$good_tests/$sum_tests";
    if ($test_result_errs > 0) {
      $tests .= "?";
    }
    
    write OUTF;
  }
}

close(OUTF);