| 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. Note the ordering: embed.pl must run after |
| 17 | # opcode.pl, since it depends on pp.sym |
| 18 | |
| 19 | my @scripts = qw( |
| 20 | keywords.pl |
| 21 | opcode.pl |
| 22 | overload.pl |
| 23 | reentr.pl |
| 24 | regcomp.pl |
| 25 | warnings.pl |
| 26 | embed.pl |
| 27 | ); |
| 28 | |
| 29 | foreach my $pl (@scripts) { |
| 30 | my @command = ($^X, $pl, @ARGV); |
| 31 | print "@command\n"; |
| 32 | system @command; |
| 33 | } |