Commit | Line | Data |
7e050124 |
1 | =head1 NAME |
2 | |
3 | buildext.pl - build extensions |
4 | |
5 | =head1 SYNOPSIS |
6 | |
7 | buildext.pl make [-make_opts] dep directory [target] |
8 | |
9 | E.g. |
10 | |
11 | buildext.pl nmake -nologo perldll.def ..\ext |
12 | |
13 | buildext.pl nmake -nologo perldll.def ..\ext clean |
14 | |
15 | buildext.pl dmake perldll.def ..\ext |
16 | |
17 | buildext.pl dmake perldll.def ..\ext clean |
18 | |
19 | =cut |
20 | |
17af6fb0 |
21 | use File::Basename; |
22 | use Cwd; |
8e232993 |
23 | use FindExt; |
17af6fb0 |
24 | my $here = getcwd(); |
25 | my $perl = $^X; |
26 | $here =~ s,/,\\,g; |
27 | if ($perl =~ m#^\.\.#) |
28 | { |
29 | $perl = "$here\\$perl"; |
30 | } |
31 | my $make = shift; |
f76dcffd |
32 | $make .= " ".shift while $ARGV[0]=~/^-/; |
17af6fb0 |
33 | my $dep = shift; |
34 | my $dmod = -M $dep; |
35 | my $dir = shift; |
36 | chdir($dir) || die "Cannot cd to $dir\n"; |
7e050124 |
37 | my $targ = shift; |
17af6fb0 |
38 | (my $ext = getcwd()) =~ s,/,\\,g; |
8e232993 |
39 | FindExt::scan_ext($ext); |
17af6fb0 |
40 | |
8e232993 |
41 | my @ext = FindExt::extensions(); |
42 | |
43 | foreach my $dir (sort @ext) |
17af6fb0 |
44 | { |
45 | if (chdir("$ext\\$dir")) |
46 | { |
47 | my $mmod = -M 'Makefile'; |
48 | if (!(-f 'Makefile') || $mmod > $dmod) |
49 | { |
0026721a |
50 | print "\nRunning Makefile.PL in $dir\n"; |
e7d8b26b |
51 | my @perl = ($perl, "-I$here\\..\\lib", 'Makefile.PL', |
52 | 'INSTALLDIRS=perl', 'PERL_CORE=1'); |
53 | print join(' ', @perl), "\n"; |
54 | my $code = system(@perl); |
17af6fb0 |
55 | warn "$code from $dir's Makefile.PL" if $code; |
56 | $mmod = -M 'Makefile'; |
57 | if ($mmod > $dmod) |
58 | { |
59 | warn "Makefile $mmod > $dmod ($dep)\n"; |
60 | } |
61 | } |
7e050124 |
62 | if ($targ) |
63 | { |
64 | print "Making $targ in $dir\n$make $targ\n"; |
e79607b0 |
65 | system("$make $targ"); |
7e050124 |
66 | } |
67 | else |
68 | { |
69 | print "Making $dir\n$make\n"; |
70 | system($make); |
71 | } |
17af6fb0 |
72 | chdir($here) || die "Cannot cd to $here:$!"; |
73 | } |
74 | else |
75 | { |
76 | warn "Cannot cd to $ext\\$dir:$!"; |
77 | } |
78 | } |
79 | |