Alien-Tidyp
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
inc/My/Builder.pm view on Meta::CPAN
my $inst = $self->notes('installed_tidyp');
if (defined $inst) {
$self->config_data('config', { LIBS => $inst->{lflags},
INC => $inst->{cflags},
});
}
else {
# important directories
my $download = 'download';
my $patches = 'patches';
my $build_src = 'build_src';
# we are deriving the subdir name from VERSION as we want to prevent
# troubles when user reinstalls the newer version of Alien::Tidyp
my $build_out = catfile('sharedir', $self->{properties}->{dist_version});
$self->add_to_cleanup($build_out);
$self->add_to_cleanup($build_src);
# get sources
my $tarball = $self->args('srctarball');
my $dir = $self->notes('tidyp_dir');
my $sha1 = $self->notes('tidyp_sha1');
my @url = @{$self->notes('tidyp_url')};
$self->notes('tidyp_src', "$build_src/$dir");
my $archive;
if ($tarball && -f $tarball) {
$archive = $tarball;
$self->check_sha1sum($archive, $sha1) || die "###ERROR### Checksum failed '$archive'";
}
elsif ($tarball && $tarball =~ /^[a-z]+:\/\//) {
warn "Downloading from explicit URL: '$tarball'\n" if $tarball;
$archive = $self->fetch_file([$tarball], $sha1, $download) || die "###ERROR### Download failed\n";
}
elsif ($tarball) {
die "###ERROR### Wrong value of --srctarball option (non existing file or invalid URL)\n";
}
else {
$archive = $self->fetch_file(\@url, $sha1, $download) || die "###ERROR### Download failed\n";
}
print STDERR "Checking checksum '$archive'...\n";
#extract source codes
my $extract_src = 'y';
$extract_src = $self->prompt("Overwrite existing sources? (y/n)", "n") if (-d $self->notes('tidyp_src'));
if (lc($extract_src) eq 'y') {
my $ae = Archive::Extract->new( archive => $archive );
$self->notes('tidyp_src');
$ae->extract(to => $build_src) || die "###ERROR### Cannot extract tarball ", $ae->error;
die "###ERROR### Cannot find expected dir='",$self->notes('tidyp_src'),"'" unless -d $self->notes('tidyp_src');
}
# go for build
$self->build_binaries($build_out, $self->notes('tidyp_src'));
# store info about build into future Alien::Tidyp::ConfigData
$self->config_data('share_subdir', $self->{properties}->{dist_version});
$self->config_data('config', { PREFIX => '@PrEfIx@',
LIBS => '-L' . $self->quote_literal('@PrEfIx@/lib') . ' -ltidyp',
INC => '-I' . $self->quote_literal('@PrEfIx@/include/tidyp'),
});
}
# mark sucessfully finished build
local @ARGV = ('build_done');
ExtUtils::Command::touch();
}
$self->SUPER::ACTION_code;
}
sub fetch_file {
my ($self, $url_list, $sha1sum, $download) = @_;
die "###ERROR### _fetch_file undefined url\n" unless $url_list;
die "###ERROR### _fetch_file undefined sha1sum\n" unless $sha1sum;
for my $url (@$url_list) {
my $ff = File::Fetch->new(uri => $url);
my $fn = catfile($download, $ff->file);
if (-e $fn) {
print STDERR "Checking checksum for already existing '$fn'...\n";
return $fn if $self->check_sha1sum($fn, $sha1sum);
unlink $fn; #exists but wrong checksum
}
print STDERR "Fetching '$url' ...\n";
my $fullpath = $ff->fetch(to => $download);
if ($fullpath && -e $fullpath && $self->check_sha1sum($fullpath, $sha1sum)) {
print STDERR "Download OK (filesize=".(-s $fullpath).")\n";
return $fullpath;
}
warn "###WARNING### Unable to fetch '$url'\n";
}
return;
}
sub check_sha1sum {
my ($self, $file, $sha1sum) = @_;
my $sha1 = Digest::SHA->new;
my $fh;
open($fh, $file) or die "###ERROR## Cannot check checksum for '$file'\n";
binmode($fh);
$sha1->addfile($fh);
close($fh);
my $rv = ($sha1->hexdigest eq $sha1sum) ? 1 : 0;
warn "###WARN## sha1 mismatch: got '", $sha1->hexdigest , "'\n",
"###WARN## sha1 mismatch: expected '", $sha1sum, "'\n",
"###WARN## sha1 mismatch: filesize '", (-s $file), "'\n", unless $rv;
return $rv;
}
sub build_binaries {
die "###ERROR### My::Builder cannot build libtidyp from sources, use rather My::Builder::<platform>";
}
sub quote_literal {
# this needs to be overriden in My::Builder::<platform>
my ($self, $path) = @_;
return $path;
}
sub check_installed_tidyp {
my ($self) = @_;
require ExtUtils::CBuilder;
my $cb = ExtUtils::CBuilder->new( quiet => 1 );
my $dir = tempdir( CLEANUP => 1 );
my ($fs, $src) = tempfile( DIR => $dir, SUFFIX => '.c' );
view all matches for this distributionview release on metacpan - search on metacpan
( run in 0.430 second using v1.00-cache-2.02-grep-82fe00e-cpan-9e6bc14194b )