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