#!/usr/bin/perl # parse build log %results = (); %toolsets = (); %defines = (); %configurations = (); sub insertindex { my ($hash, $key) = @_; $$hash{$key} = scalar(keys %$hash) unless defined $$hash{$key}; } while (<>) { ### autotest i386-freebsd-64int gcc release [wchar] result 0 97.78 98.85 if (/^### autotest (\S+) (\S+) (\S+) \[(.*?)\] result (\S+) (\S*) (\S*)/) { my ($platform, $toolset, $configuration, $defineset, $result, $coverage_pugixml, $coverage_pugixpath) = ($1, $2, $3, $4, $5, $6, $7); die "Detected duplicate build information $_\n" if defined $results{"$toolset $platform"}{$configuration}{$defineset}; my $fulltool = "$toolset $platform"; my $fullconf = "$configuration $defineset"; $results{$fulltool}{$fullconf}{result} = $result; $results{$fulltool}{$fullconf}{coverage_pugixml} = $coverage_pugixml; $results{$fulltool}{$fullconf}{coverage_pugixpath} = $coverage_pugixpath; &insertindex(\%toolsets, $fulltool); $defines{$_} = 1 foreach (split /,/, $defineset); &insertindex(\%configurations, $fullconf); } } # make arrays of toolsets and configurations @toolsetarray = (); @configurationarray = (); $toolsetarray[$toolsets{$_}] = $_ foreach (keys %toolsets); $configurationarray[$configurations{$_}] = $_ foreach (keys %configurations); # print header print <pugixml autotest report

pugixml autotest report

END # print configuration header (release/debug) print ""; print "" foreach (@configurationarray); print "\n"; # print defines header (one row for each define) foreach $define (sort {$a cmp $b} keys %defines) { print ""; foreach (@configurationarray) { my $present = ($_ =~ /\b$define\b/); my $color = $present ? "#cccccc" : "#ffffff"; print ""; } print "\n"; } # print data (one row for each toolset) foreach $tool (@toolsetarray) { print ""; foreach (@configurationarray) { my $cmdline = "jam toolset=" . (split /\s+/, $tool)[0] . " defines=" . (split /\s+/, $_)[1] . " configuration=" . (split /\s+/, $_)[0]; my $info = $results{$tool}{$_}; if (!defined $$info{result}) { print ""; } elsif ($$info{result} == 0) { my ($coverage_pugixml, $coverage_pugixpath) = ($$info{coverage_pugixml}, $$info{coverage_pugixpath}); print ""; } else { print "" } } print "\n"; } # print footer $date = localtime; print <
Generated on $date END
configuration".(split /\s+/)[0]."
$define" . ($present ? "+" : " ") . "
$tool pass"; if ($coverage_pugixml > 0 || $coverage_pugixpath > 0) { print "
" . ($coverage_pugixml + 0) . "%
" . ($coverage_pugixpath + 0) . "%"; } print "		fail