win32/buildext.pl

   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
  21 use File::Basename;
  22 use Cwd;
  23 use FindExt;
  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;
  32 $make .= " ".shift while $ARGV[0]=~/^-/;
  33 my $dep  = shift;
  34 my $dmod = -M $dep;
  35 my $dir  = shift;
  36 chdir($dir) || die "Cannot cd to $dir\n";
  37 my $targ  = shift;
  38 (my $ext = getcwd()) =~ s,/,\\,g;
  39 FindExt::scan_ext($ext);
  40
  41 my @ext = FindExt::extensions();
  42
  43 foreach my $dir (sort @ext)
  44  {
  45   if (chdir("$ext\\$dir"))
  46    {
  47     my $mmod = -M 'Makefile';
  48     if (!(-f 'Makefile') || $mmod > $dmod)
  49      {
  50       print "\nRunning Makefile.PL in $dir\n";
  51       print "$perl \"-I$here\\..\\lib\" Makefile.PL INSTALLDIRS=perl\n";
  52       my $code = system($perl,"-I$here\\..\\lib",'Makefile.PL','INSTALLDIRS=perl');
  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      }
  60     if ($targ)
  61      {
  62       print "Making $targ in $dir\n$make $targ\n";
  63       system("$make $targ");
  64      }
  65     else
  66      {
  67       print "Making $dir\n$make\n";
  68       system($make);
  69      }
  70     chdir($here) || die "Cannot cd to $here:$!";
  71    }
  72   else
  73    {
  74     warn "Cannot cd to $ext\\$dir:$!";
  75    }
  76  }
  77