diff options
| author | Jens Maurer <jens.maurer@gmx.net> | 2001-12-18 22:37:28 +0000 |
|---|---|---|
| committer | Jens Maurer <jens.maurer@gmx.net> | 2001-12-18 22:37:28 +0000 |
| commit | 77c2f844244a34acfb089d3fbd6571a141d0d687 (patch) | |
| tree | c7303a785a6b6a1d4bddab22a96273be5d8050a9 /tools/make-cputime-page.pl | |
| parent | d098a2f7dc21f7ae97b83633284cc6b2e84965c2 (diff) | |
| download | boost-77c2f844244a34acfb089d3fbd6571a141d0d687.tar.gz | |
generating timing HTML page from message log
[SVN r12121]
Diffstat (limited to 'tools/make-cputime-page.pl')
| -rw-r--r-- | tools/make-cputime-page.pl | 49 |
1 files changed, 49 insertions, 0 deletions
diff --git a/tools/make-cputime-page.pl b/tools/make-cputime-page.pl new file mode 100644 index 0000000000..2f07b577a2 --- /dev/null +++ b/tools/make-cputime-page.pl @@ -0,0 +1,49 @@ +#!/usr/bin/perl -w + +use strict; + +my $filename; +my $compiler; +my $time = 0; +my $ct = 0; +my $first = 2; + +print "<html>\n<head>\n<title>\nCompile Times</title>\n</head>\n\n"; +print "<body bgcolor=\"#ffffff\" text=\"#000000\">\n"; +print "<img border=\"0\" src=\"c++boost.gif\" width=\"277\" height=\"86\">"; +print "<p>\n"; +print "Compile time for each successful regression test in seconds.\n"; +print "<p>\n"; + +print "<table border=\"1\">\n"; +print "<tr><td>Test</td>\n"; + +while(<>) { + if(/^\*\*\* (.*) \*\*\*$/) { + $filename = $1; + $first = ($first == 0 ? 0 : $first-1); + if($first == 0) { + print "</tr>\n\n<tr align=right>\n<td align=left><a href=\"http://www.boost.org/$filename\">$filename</a></td>\n"; + } + } elsif(/^\*\* (.*)/) { + $compiler = $1; + if($first) { + print "<td>$compiler</td>\n"; + } else { + $ct = 1; + } + } elsif($ct && /^CPU time: ([.0-9]*) s user, ([.0-9]*) s system/) { + $time = $1 + $2; + } elsif($ct && /^Pass$/) { + printf "<td>%.02f</td>\n", $time; + $ct = 0; + } elsif($ct && /^Fail$/) { + print "<td>-</td>\n"; + $ct = 0; + } +} + +print "</tr>\n"; +print "</table>\n"; +print "</body>\n</html>\n"; + |