regen.pl

   1 #!/usr/bin/perl -w
   2 #
   3 # regen.pl - a wrapper that runs all *.pl scripts to to autogenerate files
   4
   5 require 5.004;  # keep this compatible, an old perl is all we may have before
   6                 # we build the new one
   7
   8 # The idea is to move the regen_headers target out of the Makefile so that
   9 # it is possible to rebuild the headers before the Makefile is available.
  10 # (and the Makefile is unavailable until after Configure is run, and we may
  11 # wish to make a clean source tree but with current headers without running
  12 # anything else.
  13
  14 use strict;
  15
  16 # Which scripts to run.
  17
  18 my @scripts = qw(
  19 mg_vtable.pl
  20 opcode.pl
  21 overload.pl
  22 reentr.pl
  23 regcomp.pl
  24 warnings.pl
  25 embed.pl
  26 feature.pl
  27 );
  28
  29 my $tap = $ARGV[0] && $ARGV[0] eq '--tap' ? '# ' : '';
  30 foreach my $pl (map {"regen/$_"} @scripts) {
  31   my @command =  ($^X, $pl, @ARGV);
  32   print "$tap@command\n";
  33   system @command;
  34 }