Commit | Line | Data |
61edc683 |
1 | #!./miniperl |
a2f19a19 |
2 | use strict; |
3 | use warnings; |
b8d39eba |
4 | use Config; |
75f92628 |
5 | |
a0d0e21e |
6 | # This script acts as a simple interface for building extensions. |
7 | # It primarily used by the perl Makefile: |
8 | # |
9 | # d_dummy $(dynamic_ext): miniperl preplibrary FORCE |
e2fabae1 |
10 | # @$(RUN) ./miniperl make_ext.pl --target=dynamic $@ MAKE=$(MAKE) LIBPERL_A=$(LIBPERL) |
a0d0e21e |
11 | # |
12 | # It may be deleted in a later release of perl so try to |
13 | # avoid using it for other purposes. |
14 | |
e3b84025 |
15 | my $is_Win32 = $^O eq 'MSWin32'; |
16 | my $is_VMS = $^O eq 'VMS'; |
17 | my $is_Unix = !$is_Win32 && !$is_VMS; |
18 | |
fc678412 |
19 | my (%excl, %incl, %opts, @extspec, @pass_through); |
97a26ad9 |
20 | |
21 | foreach (@ARGV) { |
22 | if (/^!(.*)$/) { |
23 | $excl{$1} = 1; |
24 | } elsif (/^\+(.*)$/) { |
25 | $incl{$1} = 1; |
26 | } elsif (/^--([\w\-]+)$/) { |
27 | $opts{$1} = 1; |
e2fabae1 |
28 | } elsif (/^--([\w\-]+)=(.*)$/) { |
29 | $opts{$1} = $2; |
e2fabae1 |
30 | } elsif (/=/) { |
fc678412 |
31 | push @pass_through, $_; |
ca5de986 |
32 | } elsif (length) { |
e2fabae1 |
33 | push @extspec, $_; |
97a26ad9 |
34 | } |
35 | } |
36 | |
ca5de986 |
37 | # The Perl Makefile.SH will expand all extensions to |
38 | # lib/auto/X/X.a (or lib/auto/X/Y/Y.a if nested) |
39 | # A user wishing to run make_ext might use |
40 | # X (or X/Y or X::Y if nested) |
41 | |
42 | # canonise into X/Y form (pname) |
43 | |
44 | foreach (@extspec) { |
45 | if (/^lib/) { |
46 | # Remove lib/auto prefix and /*.* suffix |
47 | s{^lib/auto/}{}; |
48 | s{[^/]*\.[^/]*$}{}; |
49 | } elsif (/^ext/) { |
50 | # Remove ext/ prefix and /pm_to_blib suffix |
51 | s{^ext/}{}; |
52 | s{/pm_to_blib$}{}; |
53 | } elsif (/::/) { |
54 | # Convert :: to / |
55 | s{::}{\/}g; |
56 | } elsif (/\..*o$/) { |
57 | s/\..*o//; |
58 | } |
59 | } |
60 | |
fc678412 |
61 | my $makecmd = shift @pass_through; # Should be something like MAKE=make |
62 | unshift @pass_through, 'PERL_CORE=1'; |
63 | |
e2fabae1 |
64 | my $target = $opts{target}; |
07f3cc2a |
65 | $target = 'all' unless defined $target; |
a0d0e21e |
66 | |
fb73857a |
67 | # Previously, $make was taken from config.sh. However, the user might |
68 | # instead be running a possibly incompatible make. This might happen if |
69 | # the user types "gmake" instead of a plain "make", for example. The |
70 | # correct current value of MAKE will come through from the main perl |
71 | # makefile as MAKE=/whatever/make in $makecmd. We'll be cautious in |
72 | # case third party users of this script (are there any?) don't have the |
73 | # MAKE=$(MAKE) argument, which was added after 5.004_03. |
ca5de986 |
74 | unless(defined $makecmd and $makecmd =~ /^MAKE=(.*)$/) { |
75 | die "$0: WARNING: Please include MAKE=\$(MAKE) in \@ARGV\n"; |
a2f19a19 |
76 | } |
77 | |
ca5de986 |
78 | my $make = $1 || $Config{make} || $ENV{MAKE}; |
79 | # Using an array of 0 or 1 elements makes the subsequent code simpler. |
fc678412 |
80 | my @run = $Config{run}; |
81 | @run = () if not defined $run[0] or $run[0] eq ''; |
a2f19a19 |
82 | |
ca5de986 |
83 | if (!@extspec) { |
84 | die "$0: no extension specified\n"; |
a2f19a19 |
85 | } |
a0d0e21e |
86 | |
07f3cc2a |
87 | if ($target eq '') { |
ca5de986 |
88 | die "make_ext: no make target specified (eg all or clean)\n"; |
89 | } elsif ($target !~ /(?:^all|clean)$/) { |
90 | # for the time being we are strict about what make_ext is used for |
91 | die "$0: unknown make target '$target'\n"; |
a2f19a19 |
92 | } |
93 | |
ca5de986 |
94 | foreach my $pname (@extspec) { |
95 | my $mname = $pname; |
96 | $mname =~ s!/!::!g; |
97 | my $depth = $pname; |
98 | $depth =~ s![^/]+!..!g; |
99 | # Always need one more .. for ext/ |
100 | my $up = "../$depth"; |
101 | my $perl = "$up/miniperl"; |
a2f19a19 |
102 | |
ca5de986 |
103 | if ($Config{osname} eq 'catamount') { |
a2f19a19 |
104 | # Snowball's chance of building extensions. |
ca5de986 |
105 | die "This is $Config{osname}, not building $mname, sorry.\n"; |
106 | } |
a2f19a19 |
107 | |
ca5de986 |
108 | print "\tMaking $mname ($target)\n"; |
a2f19a19 |
109 | |
ca5de986 |
110 | build_extension('ext', "ext/$pname", $up, $perl, "$up/lib", |
111 | \@pass_through); |
112 | } |
a0d0e21e |
113 | |
fc678412 |
114 | sub build_extension { |
ca5de986 |
115 | my ($ext, $ext_dir, $return_dir, $perl, $lib_dir, $pass_through) = @_; |
fc678412 |
116 | unless (chdir "$ext_dir") { |
117 | warn "Cannot cd to $ext_dir: $!"; |
118 | return; |
119 | } |
120 | |
121 | if (!-f 'Makefile') { |
122 | print "\nRunning Makefile.PL in $ext_dir\n"; |
123 | |
124 | # Presumably this can be simplified |
125 | my @cross; |
126 | if (defined $::Cross::platform) { |
127 | # Inherited from win32/buildext.pl |
128 | @cross = "-MCross=$::Cross::platform"; |
129 | } elsif ($opts{cross}) { |
130 | # Inherited from make_ext.pl |
131 | @cross = '-MCross'; |
a2f19a19 |
132 | } |
fc678412 |
133 | |
134 | my @perl = (@run, $perl, "-I$lib_dir", @cross, 'Makefile.PL', |
135 | 'INSTALLDIRS=perl', 'INSTALLMAN3DIR=none', |
136 | @$pass_through); |
137 | print join(' ', @perl), "\n"; |
138 | my $code = system @perl; |
139 | warn "$code from $ext_dir\'s Makefile.PL" if $code; |
140 | |
61edc683 |
141 | # Right. The reason for this little hack is that we're sitting inside |
142 | # a program run by ./miniperl, but there are tasks we need to perform |
143 | # when the 'realclean', 'distclean' or 'veryclean' targets are run. |
144 | # Unfortunately, they can be run *after* 'clean', which deletes |
145 | # ./miniperl |
146 | # So we do our best to leave a set of instructions identical to what |
147 | # we would do if we are run directly as 'realclean' etc |
148 | # Whilst we're perfect, unfortunately the targets we call are not, as |
149 | # some of them rely on a $(PERL) for their own distclean targets. |
150 | # But this always used to be a problem with the old /bin/sh version of |
151 | # this. |
e3b84025 |
152 | if ($is_Unix) { |
fc678412 |
153 | my $suffix = '.sh'; |
154 | foreach my $clean_target ('realclean', 'veryclean') { |
ca5de986 |
155 | my $file = "$return_dir/$clean_target$suffix"; |
fc678412 |
156 | open my $fh, '>>', $file or die "open $file: $!"; |
157 | # Quite possible that we're being run in parallel here. |
158 | # Can't use Fcntl this early to get the LOCK_EX |
159 | flock $fh, 2 or warn "flock $file: $!"; |
160 | print $fh <<"EOS"; |
161 | cd $ext_dir |
162 | if test ! -f Makefile -a -f Makefile.old; then |
61edc683 |
163 | echo "Note: Using Makefile.old" |
fc678412 |
164 | make -f Makefile.old $clean_target MAKE=$make @pass_through |
61edc683 |
165 | else |
fc678412 |
166 | if test ! -f Makefile ; then |
61edc683 |
167 | echo "Warning: No Makefile!" |
168 | fi |
fc678412 |
169 | make $clean_target MAKE=$make @pass_through |
61edc683 |
170 | fi |
fc678412 |
171 | cd $return_dir |
61edc683 |
172 | EOS |
fc678412 |
173 | close $fh or die "close $file: $!"; |
174 | } |
61edc683 |
175 | } |
fc678412 |
176 | } |
a2f19a19 |
177 | |
fc678412 |
178 | if (not -f 'Makefile') { |
a2f19a19 |
179 | print "Warning: No Makefile!\n"; |
fc678412 |
180 | } |
a2f19a19 |
181 | |
fc678412 |
182 | if (!$target or $target !~ /clean$/) { |
a2f19a19 |
183 | # Give makefile an opportunity to rewrite itself. |
75f92628 |
184 | # reassure users that life goes on... |
fc678412 |
185 | my @config = (@run, $make, 'config', @$pass_through); |
186 | system @config and print "@config failed, continuing anyway...\n"; |
187 | } |
188 | my @targ = (@run, $make, $target, @$pass_through); |
a79902b1 |
189 | print "Making $target in $ext_dir\n@targ\n"; |
fc678412 |
190 | my $code = system @targ; |
191 | die "Unsuccessful make($ext_dir): code=$code" if $code != 0; |
a2f19a19 |
192 | |
fc678412 |
193 | chdir $return_dir || die "Cannot cd to $return_dir: $!"; |
194 | } |