<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">#!/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 "&lt;html&gt;\n&lt;head&gt;\n&lt;title&gt;\nCompile Times&lt;/title&gt;\n&lt;/head&gt;\n\n";
print "&lt;body bgcolor=\"#ffffff\" text=\"#000000\"&gt;\n";
print "&lt;img border=\"0\" src=\"boost.png\" width=\"277\" height=\"86\"&gt;";
print "&lt;p&gt;\n";
print "Compile time for each successful regression test in seconds.\n";
print "&lt;p&gt;\n";

print "&lt;table border=\"1\"&gt;\n";
print "&lt;tr&gt;&lt;td&gt;Test&lt;/td&gt;\n";

while(&lt;&gt;) {
  if(/^\*\*\* (.*) \*\*\*$/) {
    $filename = $1;
    $first = ($first == 0 ? 0 : $first-1);
    if($first == 0) {
      print "&lt;/tr&gt;\n\n&lt;tr align=right&gt;\n&lt;td align=left&gt;&lt;a href=\"http://www.boost.org/$filename\"&gt;$filename&lt;/a&gt;&lt;/td&gt;\n";
    }
  } elsif(/^\*\* (.*)/) {
    $compiler = $1;
    if($first) {
      print "&lt;td&gt;$compiler&lt;/td&gt;\n";
    } else {
      $ct = 1;
    }
  } elsif($ct &amp;&amp; /^CPU time: ([.0-9]*) s user, ([.0-9]*) s system/) {
    $time = $1 + $2;
  } elsif($ct &amp;&amp; /^Pass$/) {
    printf "&lt;td&gt;%.02f&lt;/td&gt;\n", $time;
    $ct = 0; 
  } elsif($ct &amp;&amp; /^Fail$/) {
    print "&lt;td&gt;-&lt;/td&gt;\n";
    $ct = 0; 
  }  
}

print "&lt;/tr&gt;\n";
print "&lt;/table&gt;\n";
print "&lt;/body&gt;\n&lt;/html&gt;\n";

</pre></body></html>