Commit | Line | Data |
---|---|---|
36bb303b | 1 | #!/usr/bin/perl -w |
f014cfc2 DM |
2 | # |
3 | # regen.pl - a wrapper that runs all *.pl scripts to to autogenerate files | |
4 | ||
916e4025 | 5 | require 5.004; # keep this compatible, an old perl is all we may have before |
9ad884cb | 6 | # we build the new one |
36bb303b | 7 | |
9ad884cb JH |
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. | |
36bb303b | 13 | |
9ad884cb | 14 | use strict; |
36bb303b | 15 | |
f014cfc2 | 16 | # Which scripts to run. Note the ordering: embed.pl must run after |
22b7b87b | 17 | # opcode.pl, since it depends on pp.sym |
f014cfc2 DM |
18 | |
19 | my @scripts = qw( | |
f014cfc2 | 20 | keywords.pl |
07d48c2a DM |
21 | opcode.pl |
22 | overload.pl | |
23 | reentr.pl | |
24 | regcomp.pl | |
25 | warnings.pl | |
f014cfc2 | 26 | embed.pl |
f014cfc2 DM |
27 | ); |
28 | ||
3879ea51 | 29 | my $tap = $ARGV[0] && $ARGV[0] eq '--tap' ? '# ' : ''; |
af001346 | 30 | foreach my $pl (map {"regen/$_"} @scripts) { |
95aa0565 | 31 | my @command = ($^X, $pl, @ARGV); |
3879ea51 | 32 | print "$tap@command\n"; |
95aa0565 | 33 | system @command; |
36bb303b | 34 | } |