Commit | Line | Data |
---|---|---|
7e050124 PK |
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 NIS |
21 | use File::Basename; |
22 | use Cwd; | |
8e232993 | 23 | use FindExt; |
17af6fb0 NIS |
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 NIS |
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 NIS |
41 | my @ext = FindExt::extensions(); |
42 | ||
43 | foreach my $dir (sort @ext) | |
17af6fb0 NIS |
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"; |
7e050124 PK |
51 | print "$perl \"-I$here\\..\\lib\" Makefile.PL INSTALLDIRS=perl\n"; |
52 | my $code = system($perl,"-I$here\\..\\lib",'Makefile.PL','INSTALLDIRS=perl'); | |
17af6fb0 NIS |
53 | warn "$code from $dir's Makefile.PL" if $code; |
54 | $mmod = -M 'Makefile'; | |
55 | if ($mmod > $dmod) | |
56 | { | |
57 | warn "Makefile $mmod > $dmod ($dep)\n"; | |
58 | } | |
59 | } | |
7e050124 PK |
60 | if ($targ) |
61 | { | |
62 | print "Making $targ in $dir\n$make $targ\n"; | |
e79607b0 | 63 | system("$make $targ"); |
7e050124 PK |
64 | } |
65 | else | |
66 | { | |
67 | print "Making $dir\n$make\n"; | |
68 | system($make); | |
69 | } | |
17af6fb0 NIS |
70 | chdir($here) || die "Cannot cd to $here:$!"; |
71 | } | |
72 | else | |
73 | { | |
74 | warn "Cannot cd to $ext\\$dir:$!"; | |
75 | } | |
76 | } | |
77 |