\nCompile Times

#!/usr/bin/perl -w # Copyright 2004 Aleksey Gurtovoy # Copyright 2001 Jens Maurer # Distributed under the Boost Software License, Version 1.0. # (See accompanying file LICENSE_1_0.txt or http://www.boost.org/LICENSE_1_0.txt) use strict; my $filename; my $compiler; my $time = 0; my $ct = 0; my $first = 2; print "\n\n\nCompile Times\n\n\n"; print "\n"; print "

"; print "

\n"; print "Compile time for each successful regression test in seconds.\n"; print "

\n"; print "\n"; print "\n"; while(<>) { if(/^\*\*\* (.*) \*\*\*$/) { $filename = $1; $first = ($first == 0 ? 0 : $first-1); if($first == 0) { print "\n\n\n\n"; } } elsif(/^\*\* (.*)/) { $compiler = $1; if($first) { print "\n"; } else { $ct = 1; } } elsif($ct && /^CPU time: ([.0-9]*) s user, ([.0-9]*) s system/) { $time = $1 + $2; } elsif($ct && /^Pass$/) { printf "\n", $time; $ct = 0; } elsif($ct && /^Fail$/) { print "\n"; $ct = 0; } } print "\n"; print "
Test
$filename $compiler %.02f -
\n"; print "\n\n";