|
Last change
on this file since 25 was
12,
checked in by landauf, 18 years ago
|
|
added boost
|
-
Property svn:executable set to
*
|
|
File size:
1.1 KB
|
| Line | |
|---|
| 1 | #!/usr/bin/perl -w |
|---|
| 2 | |
|---|
| 3 | use strict; |
|---|
| 4 | |
|---|
| 5 | my $filename; |
|---|
| 6 | my $compiler; |
|---|
| 7 | my $time = 0; |
|---|
| 8 | my $ct = 0; |
|---|
| 9 | my $first = 2; |
|---|
| 10 | |
|---|
| 11 | print "<html>\n<head>\n<title>\nCompile Times</title>\n</head>\n\n"; |
|---|
| 12 | print "<body bgcolor=\"#ffffff\" text=\"#000000\">\n"; |
|---|
| 13 | print "<img border=\"0\" src=\"boost.png\" width=\"277\" height=\"86\">"; |
|---|
| 14 | print "<p>\n"; |
|---|
| 15 | print "Compile time for each successful regression test in seconds.\n"; |
|---|
| 16 | print "<p>\n"; |
|---|
| 17 | |
|---|
| 18 | print "<table border=\"1\">\n"; |
|---|
| 19 | print "<tr><td>Test</td>\n"; |
|---|
| 20 | |
|---|
| 21 | while(<>) { |
|---|
| 22 | if(/^\*\*\* (.*) \*\*\*$/) { |
|---|
| 23 | $filename = $1; |
|---|
| 24 | $first = ($first == 0 ? 0 : $first-1); |
|---|
| 25 | if($first == 0) { |
|---|
| 26 | print "</tr>\n\n<tr align=right>\n<td align=left><a href=\"http://www.boost.org/$filename\">$filename</a></td>\n"; |
|---|
| 27 | } |
|---|
| 28 | } elsif(/^\*\* (.*)/) { |
|---|
| 29 | $compiler = $1; |
|---|
| 30 | if($first) { |
|---|
| 31 | print "<td>$compiler</td>\n"; |
|---|
| 32 | } else { |
|---|
| 33 | $ct = 1; |
|---|
| 34 | } |
|---|
| 35 | } elsif($ct && /^CPU time: ([.0-9]*) s user, ([.0-9]*) s system/) { |
|---|
| 36 | $time = $1 + $2; |
|---|
| 37 | } elsif($ct && /^Pass$/) { |
|---|
| 38 | printf "<td>%.02f</td>\n", $time; |
|---|
| 39 | $ct = 0; |
|---|
| 40 | } elsif($ct && /^Fail$/) { |
|---|
| 41 | print "<td>-</td>\n"; |
|---|
| 42 | $ct = 0; |
|---|
| 43 | } |
|---|
| 44 | } |
|---|
| 45 | |
|---|
| 46 | print "</tr>\n"; |
|---|
| 47 | print "</table>\n"; |
|---|
| 48 | print "</body>\n</html>\n"; |
|---|
| 49 | |
|---|
Note: See
TracBrowser
for help on using the repository browser.
