Commit 1c7ab723 authored by Francois Perrad's avatar Francois Perrad Committed by Thomas Petazzoni
Browse files

support/script/scancpan: add support for BR2_PREFER_STATIC_LIB 



Perl extensions are loaded at runtime with dlopen(), so it does not
make sense to even build extensions that are written in C when
BR2_PREFER_STATIC_LIB is enabled. A Perl module written in C or with a
dependency on a module written in C is not available when doing a
static build.

Therefore, this commit adapts the scancpan script to automatically
generate a dependency on !BR2_PREFER_STATIC_LIB when the Perl module
would not work in a static-only configuration.

Signed-off-by: default avatarFrancois Perrad <francois.perrad@gadz.org>
Signed-off-by: default avatarThomas Petazzoni <thomas.petazzoni@free-electrons.com>
parent 31d8a19a

support/scripts/scancpan

+26 −6
Original line number Diff line number Diff line
@@ -480,6 +480,7 @@ use Getopt::Long; 
use Pod::Usage;

use File::Basename;

use Module::CoreList;

use HTTP::Tiny;

use MetaCPAN::API::Tiny;



my ($help, $man, $quiet, $force, $recommend, $host);
@@ -499,9 +500,21 @@ pod2usage(-exitval => 1) if scalar @ARGV == 0; 
my %dist;               # name -> metacpan data

my %need_target;        # name -> 1 if target package is needed

my %need_host;          # name -> 1 if host package is needed

my %need_dlopen;        # name -> 1 if requires dynamic library

my %deps_build;         # name -> list of host dependencies

my %deps_runtime;       # name -> list of target dependencies

my $mcpan = MetaCPAN::API::Tiny->new();

my $ua = HTTP::Tiny->new();



sub is_xs {

    my ($author, $distname, $version) = @_;

    # This heuristic determines if a module is a native extension, by searching

    # some file extension types in the MANIFEST of the distribution.

    # It was inspired by http://deps.cpantesters.org/static/purity.html

    my $url = qq{http://api.metacpan.org/source/${author}/${distname}-${version}/MANIFEST};

    my $response = $ua->get($url);

    return $response->{content} =~ m/\.(swg|xs|c|h|i)\n/;

}



sub fetch {

    my ($name, $need_target, $need_host) = @_;
@@ -511,6 +524,7 @@ sub fetch { 
        say qq{fetch ${name}} unless $quiet;

        my $result = $mcpan->release( distribution => $name );

        $dist{$name} = $result;

        $need_dlopen{$name} = is_xs( $result->{author}, $name, $result->{version} );

        my @deps_build = ();

        my @deps_runtime = ();

        my $mb;
@@ -539,12 +553,13 @@ sub fetch { 
        unshift @deps_build, q{Module-Build} if $mb;

        $deps_build{$name} = \@deps_build;

        $deps_runtime{$name} = \@deps_runtime;

    }

    foreach my $distname (@{$deps_build{$name}}) {

        foreach my $distname (@deps_build) {

            fetch( $distname, 0, 1 );

        }

    foreach my $distname (@{$deps_runtime{$name}}) {

        foreach my $distname (@deps_runtime) {

            fetch( $distname, $need_target, $need_host );

            $need_dlopen{$name} ||= $need_dlopen{$distname};

        }

    }

    return;

}
@@ -582,6 +597,7 @@ while (my ($distname, $dist) = each %dist) { 
        open my $fh, q{>}, $cfgname;

        say {$fh} qq{config BR2_PACKAGE_${brname}};

        say {$fh} qq{\tbool "${fsname}"};

        say {$fh} qq{\tdepends on !BR2_PREFER_STATIC_LIB} if $need_dlopen{$distname};

        foreach my $dep (sort @{$deps_runtime{$distname}}) {

            my $brdep = brname( fsname( $dep ) );

            say {$fh} qq{\tselect BR2_PACKAGE_${brdep}};
@@ -589,6 +605,10 @@ while (my ($distname, $dist) = each %dist) { 
        say {$fh} qq{\thelp};

        say {$fh} qq{\t  ${abstract}\n} if $abstract;

        say {$fh} qq{\t  ${homepage}};

        if ($need_dlopen{$distname}) {

            say {$fh} qq{\ncomment "${fsname} needs a toolchain w/ dynamic library"};

            say {$fh} qq{\tdepends on BR2_PREFER_STATIC_LIB};

        }

        close $fh;

    }

    if ($force || !-f $mkname) {