2018-03-10 06:00:20 +02:00
|
|
|
####################################################################################################################################
|
|
|
|
# Build Binaries and Auto-Generate Code
|
|
|
|
####################################################################################################################################
|
|
|
|
package pgBackRestTest::Common::BuildTest;
|
|
|
|
|
|
|
|
####################################################################################################################################
|
|
|
|
# Perl includes
|
|
|
|
####################################################################################################################################
|
|
|
|
use strict;
|
|
|
|
use warnings FATAL => qw(all);
|
|
|
|
use Carp qw(confess);
|
|
|
|
use English '-no_match_vars';
|
|
|
|
|
|
|
|
# use Cwd qw(abs_path);
|
|
|
|
use Exporter qw(import);
|
|
|
|
our @EXPORT = qw();
|
|
|
|
|
|
|
|
use pgBackRest::Common::Log;
|
|
|
|
|
|
|
|
####################################################################################################################################
|
|
|
|
# Find last modification time in a list of directories, with optional filters
|
|
|
|
####################################################################################################################################
|
|
|
|
sub buildLastModTime
|
|
|
|
{
|
|
|
|
my $oStorage = shift;
|
|
|
|
my $strBasePath = shift;
|
|
|
|
my $rstrySubPath = shift;
|
|
|
|
my $strPattern = shift;
|
|
|
|
|
|
|
|
my $lTimestampLast = 0;
|
|
|
|
|
|
|
|
foreach my $strSubPath (defined($rstrySubPath) ? @{$rstrySubPath} : (''))
|
|
|
|
{
|
|
|
|
my $hManifest = $oStorage->manifest($strBasePath . ($strSubPath eq '' ? '' : "/${strSubPath}"));
|
|
|
|
|
|
|
|
foreach my $strFile (sort(keys(%{$hManifest})))
|
|
|
|
{
|
|
|
|
next if (defined($strPattern) && $strFile !~ /$strPattern/);
|
|
|
|
|
|
|
|
if ($hManifest->{$strFile}{type} eq 'f' && $hManifest->{$strFile}{modification_time} > $lTimestampLast)
|
|
|
|
{
|
|
|
|
$lTimestampLast = $hManifest->{$strFile}{modification_time};
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
if ($lTimestampLast == 0)
|
|
|
|
{
|
|
|
|
confess &log(ERROR, "no files found");
|
|
|
|
}
|
|
|
|
|
|
|
|
return $lTimestampLast;
|
|
|
|
}
|
|
|
|
|
|
|
|
push @EXPORT, qw(buildLastModTime);
|
|
|
|
|
2018-05-23 20:57:08 +02:00
|
|
|
####################################################################################################################################
|
|
|
|
# Build a dependency tree for C files
|
|
|
|
####################################################################################################################################
|
|
|
|
sub buildDependencyTree
|
|
|
|
{
|
|
|
|
my $oStorage = shift;
|
|
|
|
|
|
|
|
my $rhDependencyTree = {};
|
|
|
|
|
|
|
|
# Iterate all files
|
|
|
|
foreach my $strFile (sort(keys(%{$oStorage->manifest('src')})))
|
|
|
|
{
|
|
|
|
# Only process non-auto files
|
|
|
|
if ($strFile =~ /^[A-Za-z0-9\/]+\.(c|h)$/)
|
|
|
|
{
|
|
|
|
buildDependencyTreeSub($oStorage, $rhDependencyTree, $strFile);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
return $rhDependencyTree;
|
|
|
|
}
|
|
|
|
|
|
|
|
push @EXPORT, qw(buildDependencyTree);
|
|
|
|
|
|
|
|
sub buildDependencyTreeSub
|
|
|
|
{
|
|
|
|
my $oStorage = shift;
|
|
|
|
my $rhDependencyTree = shift;
|
|
|
|
my $strFile = shift;
|
|
|
|
|
|
|
|
if (!defined($rhDependencyTree->{$strFile}))
|
|
|
|
{
|
|
|
|
$rhDependencyTree->{$strFile} = {};
|
|
|
|
|
|
|
|
# Load file contents
|
|
|
|
my $rstrContent = $oStorage->get($oStorage->openRead("src/${strFile}", {bIgnoreMissing => true}));
|
|
|
|
|
|
|
|
if (!defined($rstrContent))
|
|
|
|
{
|
|
|
|
$rstrContent = $oStorage->get("libc/${strFile}");
|
|
|
|
}
|
|
|
|
|
|
|
|
# Process includes
|
|
|
|
my $rhInclude = {};
|
|
|
|
|
|
|
|
foreach my $strInclude (sort($$rstrContent =~ /\#include \".*\"$/mg))
|
|
|
|
{
|
|
|
|
$strInclude = (split('"', $strInclude))[1];
|
|
|
|
$rhInclude->{$strInclude} = true;
|
|
|
|
|
|
|
|
buildDependencyTreeSub($oStorage, $rhDependencyTree, $strInclude);
|
|
|
|
|
|
|
|
foreach my $strIncludeSub (@{$rhDependencyTree->{$strInclude}{include}})
|
|
|
|
{
|
|
|
|
$rhInclude->{$strIncludeSub} = true;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
my @stryInclude = sort(keys(%{$rhInclude}));
|
|
|
|
$rhDependencyTree->{$strFile}{include} = \@stryInclude;
|
|
|
|
|
|
|
|
# Find header files that map to C files -- these are required to compile this file
|
|
|
|
foreach my $strInclude (@stryInclude)
|
|
|
|
{
|
|
|
|
if ($strInclude =~ /^[A-Za-z0-9\/]+\.h$/)
|
|
|
|
{
|
|
|
|
my $strObject = substr($strInclude, 0, length($strInclude) - 1) . 'c';
|
|
|
|
|
|
|
|
if ($oStorage->exists("src/${strObject}"))
|
|
|
|
{
|
|
|
|
push(@{$rhDependencyTree->{$strFile}{object}}, $strObject);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
####################################################################################################################################
|
|
|
|
# Build Makefile object compile rules
|
|
|
|
####################################################################################################################################
|
|
|
|
sub buildMakefileObjectCompile
|
|
|
|
{
|
|
|
|
# Assign function parameters, defaults, and log debug info
|
|
|
|
my
|
|
|
|
(
|
|
|
|
$strOperation,
|
|
|
|
$oStorage,
|
|
|
|
$rhOption,
|
|
|
|
) =
|
|
|
|
logDebugParam
|
|
|
|
(
|
|
|
|
__PACKAGE__ . '::buildMakefile', \@_,
|
|
|
|
{name => 'oStorage'},
|
|
|
|
{name => 'rhOption', optional => true},
|
|
|
|
);
|
|
|
|
|
|
|
|
my $rhDependencyTree = buildDependencyTree($oStorage);
|
|
|
|
my $strMakefile;
|
|
|
|
|
|
|
|
foreach my $strFile (sort(keys(%{$rhDependencyTree})))
|
|
|
|
{
|
|
|
|
if ($strFile =~ /^[A-Za-z0-9\/]+\.c$/)
|
|
|
|
{
|
|
|
|
my $strObject = substr($strFile, 0, length($strFile) - 1) . 'o';
|
|
|
|
|
|
|
|
my $strDepend = "${strFile}";
|
|
|
|
|
|
|
|
foreach my $strInclude (@{$rhDependencyTree->{$strFile}{include}})
|
|
|
|
{
|
|
|
|
$strDepend .= ' ' . ($oStorage->exists("src/${strInclude}") ? '' : '../libc/') . $strInclude;
|
|
|
|
}
|
|
|
|
|
|
|
|
$strMakefile .=
|
|
|
|
(defined($strMakefile) ? "\n" : '') .
|
|
|
|
"${strObject}: ${strDepend}\n" .
|
|
|
|
"\t\$(CC) \$(CFLAGS)" . (defined($rhOption->{$strObject}) ? ' ' . $rhOption->{$strObject} : '') .
|
|
|
|
" -c ${strFile} -o ${strObject}\n";
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
return $strMakefile;
|
|
|
|
}
|
|
|
|
|
|
|
|
push @EXPORT, qw(buildMakefileObjectCompile);
|
|
|
|
|
|
|
|
####################################################################################################################################
|
|
|
|
# Update a Makefile with object compile rules
|
|
|
|
####################################################################################################################################
|
|
|
|
sub buildMakefile
|
|
|
|
{
|
|
|
|
# Assign function parameters, defaults, and log debug info
|
|
|
|
my
|
|
|
|
(
|
|
|
|
$strOperation,
|
|
|
|
$oStorage,
|
|
|
|
$strMakefile,
|
|
|
|
$rhOption,
|
|
|
|
) =
|
|
|
|
logDebugParam
|
|
|
|
(
|
|
|
|
__PACKAGE__ . '::buildMakefile', \@_,
|
|
|
|
{name => 'oStorage'},
|
|
|
|
{name => 'strMakeFile'},
|
|
|
|
{name => 'rhOption', optional => true},
|
|
|
|
);
|
|
|
|
|
|
|
|
# Trim off the end where the object compile is
|
|
|
|
my $strHeader = 'Compile rules';
|
|
|
|
|
|
|
|
$strMakefile =~ s/^\#.*${strHeader}(.|\s)+//mg;
|
|
|
|
|
|
|
|
# Add object compile section
|
|
|
|
$strMakefile .=
|
|
|
|
"# $strHeader\n" .
|
|
|
|
('#' x 132) . "\n" .
|
|
|
|
buildMakefileObjectCompile($oStorage, {rhOption => $rhOption});
|
|
|
|
|
|
|
|
|
|
|
|
# Return from function and log return values if any
|
|
|
|
return logDebugReturn
|
|
|
|
(
|
|
|
|
$strOperation,
|
|
|
|
{name => 'strMakefile', value => $strMakefile},
|
|
|
|
);
|
|
|
|
}
|
|
|
|
|
|
|
|
push @EXPORT, qw(buildMakefile);
|
|
|
|
|
2018-05-24 20:01:24 +02:00
|
|
|
####################################################################################################################################
|
|
|
|
# Update a Makefile with object compile rules
|
|
|
|
####################################################################################################################################
|
|
|
|
sub buildLoadLibC
|
|
|
|
{
|
|
|
|
# Load the module dynamically
|
|
|
|
require pgBackRest::LibC;
|
|
|
|
pgBackRest::LibC->import(qw(:debug));
|
|
|
|
|
|
|
|
# Load shared object
|
|
|
|
require XSLoader;
|
|
|
|
XSLoader::load('pgBackRest::LibC', '999');
|
|
|
|
|
|
|
|
# Do a basic test to make sure it installed correctly
|
|
|
|
if (libcUvSize() != 8)
|
|
|
|
{
|
|
|
|
confess &log(ERROR, 'UVSIZE in test library does not equal 8');
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
push @EXPORT, qw(buildLoadLibC);
|
|
|
|
|
|
|
|
|
2018-03-10 06:00:20 +02:00
|
|
|
1;
|