=head1 SYNOPSIS
- buildext.pl make [-make_opts] dep directory [target] !ext1 !ext2
+ buildext.pl make [-make_opts] dep directory [target] [--static|--dynamic] !ext1 !ext2
E.g.
Will skip building extensions which are marked with an '!' char.
Mostly because they still not ported to specified platform.
+If '--static' specified, only static extensions will be built.
+If '--dynamic' specified, only dynamic extensions will be built.
+
+--create-perllibst-h
+ creates perllibst.h file for inclusion from perllib.c
+--list-static-libs:
+ prints libraries for static linking and exits
+
=cut
-use File::Basename;
use Cwd;
use FindExt;
+use Config;
# @ARGV with '!' at first position are exclusions
my %excl = map {$_=>1} map {/^!(.*)$/} @ARGV;
@ARGV = grep {!/^!/} @ARGV;
+# --static/--dynamic
+my %opts = map {$_=>1} map {/^--([\w\-]+)$/} @ARGV;
+@ARGV = grep {!/^--([\w\-]+)$/} @ARGV;
+my ($static,$dynamic) = ((exists $opts{static}?1:0),(exists $opts{dynamic}?1:0));
+if ("$static,$dynamic" eq "0,0") {
+ ($static,$dynamic) = (1,1);
+}
+if ($opts{'list-static-libs'} || $opts{'create-perllibst-h'}) {
+ my @statics = split /\s+/, $Config{static_ext};
+ if ($opts{'create-perllibst-h'}) {
+ open my $fh, ">perllibst.h";
+ my @statics1 = map {local $_=$_;s/\//__/g;$_} @statics;
+ my @statics2 = map {local $_=$_;s/\//::/g;$_} @statics;
+ print $fh "/*DO NOT EDIT\n this file is included from perllib.c to init static extensions */\n";
+ print $fh "#ifdef STATIC1\n",(map {" \"$_\",\n"} @statics),"#undef STATIC1\n#endif\n";
+ print $fh "#ifdef STATIC2\n",(map {" EXTERN_C void boot_$_ (pTHX_ CV* cv);\n"} @statics1),"#undef STATIC2\n#endif\n";
+ print $fh "#ifdef STATIC3\n",(map {" newXS(\"$statics2[$_]::bootstrap\", boot_$statics1[$_], file);\n"} 0 .. $#statics),"#undef STATIC3\n#endif\n";
+ }
+ else {
+ my %extralibs;
+ for (@statics) {
+ open my $fh, "<..\\lib\\auto\\$_\\extralibs.ld" or die "can't open <..\\lib\\auto\\$_\\extralibs.ld: $!";
+ $extralibs{$_}++ for grep {/\S/} split /\s+/, join '', <$fh>;
+ }
+ print map {s|/|\\|g;m|([^\\]+)$|;"..\\lib\\auto\\$_\\$1$Config{_a} "} @statics;
+ print map {"$_ "} sort keys %extralibs;
+ }
+ exit;
+}
+
my $here = getcwd();
my $perl = $^X;
$here =~ s,/,\\,g;
(my $ext = getcwd()) =~ s,/,\\,g;
my $code;
FindExt::scan_ext($ext);
+FindExt::set_static_extensions(split ' ', $Config{static_ext}) if $ext ne "ext";
-my @ext = FindExt::extensions();
+my @ext;
+push @ext, FindExt::static_ext() if $static;
+push @ext, FindExt::dynamic_ext(), FindExt::nonxs_ext() if $dynamic;
-foreach my $dir (sort @ext)
+foreach $dir (sort @ext)
{
if (exists $excl{$dir}) {
warn "Skipping extension $ext\\$dir, not ported to current platform";
{
print "\nRunning Makefile.PL in $dir\n";
my @perl = ($perl, "-I$here\\..\\lib", 'Makefile.PL',
- 'INSTALLDIRS=perl', 'PERL_CORE=1');
+ 'INSTALLDIRS=perl', 'PERL_CORE=1',
+ (FindExt::is_static($dir)
+ ? ('LINKTYPE=static') : ()), # if ext is static
+ );
if (defined $::Cross::platform) {
@perl = (@perl[0,1],"-MCross=$::Cross::platform",@perl[2..$#perl]);
}
print join(' ', @perl), "\n";
$code = system(@perl);
- warn "$code from $dir's Makefile.PL" if $code;
+ warn "$code from $dir\'s Makefile.PL" if $code;
$mmod = -M 'Makefile';
if ($mmod > $dmod)
{