diff options
| author | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-04-27 18:24:20 +0000 |
|---|---|---|
| committer | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-04-27 18:24:20 +0000 |
| commit | 483eb2f56657e8e7f419ab1a4fab8dce9ade8609 (patch) | |
| tree | e5d88d25d870d5dedacb6bbdbe2a966086a0a5cf /src/boost/tools/make-cputime-page.pl | |
| parent | Initial commit. (diff) | |
| download | ceph-483eb2f56657e8e7f419ab1a4fab8dce9ade8609.tar.xz ceph-483eb2f56657e8e7f419ab1a4fab8dce9ade8609.zip | |
Adding upstream version 14.2.21.upstream/14.2.21upstream
Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
Diffstat (limited to 'src/boost/tools/make-cputime-page.pl')
| -rw-r--r-- | src/boost/tools/make-cputime-page.pl | 54 |
1 files changed, 54 insertions, 0 deletions
diff --git a/src/boost/tools/make-cputime-page.pl b/src/boost/tools/make-cputime-page.pl new file mode 100644 index 00000000..e6969be5 --- /dev/null +++ b/src/boost/tools/make-cputime-page.pl @@ -0,0 +1,54 @@ +#!/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 "<html>\n<head>\n<title>\nCompile Times</title>\n</head>\n\n"; +print "<body bgcolor=\"#ffffff\" text=\"#000000\">\n"; +print "<img border=\"0\" src=\"boost.png\" 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"; + |