From 483eb2f56657e8e7f419ab1a4fab8dce9ade8609 Mon Sep 17 00:00:00 2001 From: Daniel Baumann Date: Sat, 27 Apr 2024 20:24:20 +0200 Subject: Adding upstream version 14.2.21. Signed-off-by: Daniel Baumann --- src/boost/tools/make-cputime-page.pl | 54 ++++++++++++++++++++++++++++++++++++ 1 file changed, 54 insertions(+) create mode 100644 src/boost/tools/make-cputime-page.pl (limited to 'src/boost/tools/make-cputime-page.pl') 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 "\n\n\nCompile Times\n\n\n"; +print "\n"; +print ""; +print "

\n"; +print "Compile time for each successful regression test in seconds.\n"; +print "

\n"; + +print "\n"; +print "\n"; + +while(<>) { + if(/^\*\*\* (.*) \*\*\*$/) { + $filename = $1; + $first = ($first == 0 ? 0 : $first-1); + if($first == 0) { + print "\n\n\n\n"; + } + } elsif(/^\*\* (.*)/) { + $compiler = $1; + if($first) { + print "\n"; + } else { + $ct = 1; + } + } elsif($ct && /^CPU time: ([.0-9]*) s user, ([.0-9]*) s system/) { + $time = $1 + $2; + } elsif($ct && /^Pass$/) { + printf "\n", $time; + $ct = 0; + } elsif($ct && /^Fail$/) { + print "\n"; + $ct = 0; + } +} + +print "\n"; +print "
Test
$filename$compiler%.02f-
\n"; +print "\n\n"; + -- cgit v1.2.3