build: remove GNU time dependency

Replace the GNU time program invocation with a simple Perl script reporting
the timing values. Since we require Perl anyway for the build system, we can
as well use that instead of requiring a random GNU utility rarely installed
by default.

Fixes: ff6e62b288 ("build: log time taken by each packages/steps")
Signed-off-by: Jo-Philipp Wich <jo@mein.io>
(backported from d3ddf6631e)
This commit is contained in:
Jo-Philipp Wich
2018-08-05 00:06:27 +02:00
parent 43c96e8dd8
commit b4454ca4fa
3 changed files with 43 additions and 6 deletions

42
scripts/time.pl Executable file
View File

@@ -0,0 +1,42 @@
#!/usr/bin/env perl
use strict;
use warnings;
use Time::HiRes qw(gettimeofday);
if (@ARGV < 2) {
die "Usage: $0 <prefix> <command...>\n";
}
my ($prefix, @cmd) = @ARGV;
my ($sec, $msec) = gettimeofday();
my $pid = fork();
if (!defined($pid)) {
die "$0: Failure to fork(): $!\n";
}
elsif ($pid == 0) {
exec(@cmd);
die "$0: Failure to exec(): $!\n";
}
else {
$SIG{'INT'} = 'IGNORE';
$SIG{'QUIT'} = 'IGNORE';
if (waitpid($pid, 0) == -1) {
die "$0: Failure to waitpid(): $!\n";
}
my $exitcode = $? >> 8;
my ($sec2, $msec2) = gettimeofday();
my (undef, undef, $cuser, $csystem) = times();
printf STDERR "%s#%.2f#%.2f#%.2f\n",
$prefix, $cuser, $csystem,
($sec2 - $sec) + ($msec2 - $msec) / 1000000;
$SIG{'INT'} = 'DEFAULT';
$SIG{'QUIT'} = 'DEFAULT';
exit $exitcode;
}