1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
|
=head1 NAME
buildext.pl - build extensions
=head1 SYNOPSIS
buildext.pl make [-make_opts] dep directory [target] [--static|--dynamic] +ext2 !ext1
E.g.
buildext.pl nmake -nologo perldll.def ..\ext
buildext.pl nmake -nologo perldll.def ..\ext clean
buildext.pl dmake perldll.def ..\ext
buildext.pl dmake perldll.def ..\ext clean
Will skip building extensions which are marked with an '!' char.
Mostly because they still not ported to specified platform.
If any extensions are listed with a '+' char then only those
extensions will be built, but only if they arent countermanded
by an '!ext' and are appropriate to the type of building being done.
If '--static' specified, only static extensions will be built.
If '--dynamic' specified, only dynamic extensions will be built.
=cut
use Cwd;
use FindExt;
use Config;
# @ARGV with '!' at first position are exclusions
# @ARGV with '+' at first position are inclusions
# -- are long options.
my %excl, %incl,
my @argv;
foreach (@ARGV) {
if (/^!(.*)$/) {
$excl{$1} = 1;
} elsif (/^\+(.*)$/) {
$incl{$1} = 1;
} elsif (/^--([\w\-]+)$/) {
$opts{$1} = 1;
} else {
push @argv, $_;
}
}
my $static = $opts{static};
my $dynamic = $opts{dynamic};
$static = $dynamic = 1 unless $static or $dynamic;
my $makecmd = shift @argv;
my $dep = shift @argv;
my $dir = shift @argv;
my $targ = shift @argv;
my $make;
if (defined($makecmd) and $makecmd =~ /^MAKE=(.*)$/) {
$make = $1;
}
else {
print "ext/util/make_ext: WARNING: Please include MAKE=\$(MAKE)\n";
print "\tin your call to make_ext. See ext/util/make_ext for details.\n";
exit(1);
}
(my $here = getcwd()) =~ s{/}{\\}g;
my $perl = $^X;
if ($perl =~ m#^\.\.#) {
$perl = "$here\\$perl";
}
(my $topdir = $perl) =~ s/\\[^\\]+$//;
# miniperl needs to find perlglob and pl2bat
$ENV{PATH} = "$topdir;$topdir\\win32\\bin;$ENV{PATH}";
my $pl2bat = "$topdir\\win32\\bin\\pl2bat";
unless (-f "$pl2bat.bat") {
my @args = ($perl, ("$pl2bat.pl") x 2);
print "@args\n";
system(@args) unless defined $::Cross::platform;
}
my $dmod = -M $dep;
chdir($dir) || die "Cannot cd to $dir\n";
(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;
push @ext, FindExt::static_ext() if $static;
push @ext, FindExt::dynamic_ext(), FindExt::nonxs_ext() if $dynamic;
foreach $dir (sort @ext)
{
if (%incl and !exists $incl{$dir}) {
#warn "Skipping extension $ext\\$dir, not in inclusion list\n";
next;
}
if (exists $excl{$dir}) {
warn "Skipping extension $ext\\$dir, not ported to current platform";
next;
}
if (chdir("$ext\\$dir"))
{
my $mmod = -M 'Makefile';
if (!(-f 'Makefile') || $mmod > $dmod)
{
print "\nRunning Makefile.PL in $dir\n";
my @perl = ($perl, "-I$here\\..\\lib", 'Makefile.PL',
'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;
$mmod = -M 'Makefile';
if ($mmod > $dmod)
{
warn "Makefile $mmod > $dmod ($dep)\n";
}
}
if ($targ)
{
print "Making $targ in $dir\n$make $targ\n";
$code = system("$make $targ");
die "Unsuccessful make($dir): code=$code" if $code!=0;
}
else
{
print "Making $dir\n$make\n";
$code = system($make);
die "Unsuccessful make($dir): code=$code" if $code!=0;
}
chdir($here) || die "Cannot cd to $here:$!";
}
else
{
warn "Cannot cd to $ext\\$dir:$!";
}
}
|
