| | 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 | opcode.pl |
| | 20 | overload.pl |
| | 21 | reentr.pl |
| | 22 | regcomp.pl |
| | 23 | warnings.pl |
| | 24 | embed.pl |
| | 25 | ); |
| | 26 | |
| | 27 | my $tap = $ARGV[0] && $ARGV[0] eq '--tap' ? '# ' : ''; |
| | 28 | foreach my $pl (map {"regen/$_"} @scripts) { |
| | 29 | my @command = ($^X, $pl, @ARGV); |
| | 30 | print "$tap@command\n"; |
| | 31 | system @command; |
| | 32 | } |
https://perl5.git.perl.org / perl5.git / blame_incremental