This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
make script execution order in regen.pl mostly alphabetical
[perl5.git] / regen.pl
CommitLineData
36bb303b 1#!/usr/bin/perl -w
f014cfc2
DM
2#
3# regen.pl - a wrapper that runs all *.pl scripts to to autogenerate files
4
9ad884cb
JH
5require 5.003; # keep this compatible, an old perl is all we may have before
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
JH
14use strict;
15my $perl = $^X;
36bb303b 16
9ad884cb 17# keep warnings.pl in sync with the CPAN distribution by not requiring core
b6b9a099
JC
18# changes. Um, what ?
19# safer_unlink ("warnings.h", "lib/warnings.pm");
36bb303b 20
f014cfc2
DM
21# Which scripts to run. Note the ordering: embed.pl must run after
22# opcode.pl, since it depends on pp.sym, and autodoc.pl should run last as
23# it reads all *.[ch] files, some of which may have been changed by other
24# scripts (eg reentr.c)
25
26my @scripts = qw(
f014cfc2 27keywords.pl
07d48c2a
DM
28opcode.pl
29overload.pl
30reentr.pl
31regcomp.pl
32warnings.pl
33
f014cfc2
DM
34embed.pl
35autodoc.pl
36);
37
38# Which files are (re)generated by each script.
39# *** We no longer need these values, as the "changed" message is
523b3031
NC
40# now generated by regen_lib.pl, so should we just drop them?
41
9ad884cb
JH
42my %gen = (
43 'autodoc.pl' => [qw[pod/perlapi.pod pod/perlintern.pod]],
9ad884cb
JH
44 'embed.pl' => [qw[proto.h embed.h embedvar.h global.sym
45 perlapi.h perlapi.c]],
46 'keywords.pl' => [qw[keywords.h]],
47 'opcode.pl' => [qw[opcode.h opnames.h pp_proto.h pp.sym]],
48 'regcomp.pl' => [qw[regnodes.h]],
0bfd2b7f 49 'warnings.pl' => [qw[warnings.h lib/warnings.pm]],
8c798f87 50 'reentr.pl' => [qw[reentr.c reentr.h]],
e2bcdfc0 51 'overload.pl' => [qw[overload.c overload.h lib/overload/numbers.pm]],
9ad884cb 52 );
36bb303b 53
9ad884cb
JH
54sub do_cksum {
55 my $pl = shift;
56 my %cksum;
57 for my $f (@{ $gen{$pl} }) {
58 local *FH;
59 if (open(FH, $f)) {
60 local $/;
61 $cksum{$f} = unpack("%32C*", <FH>);
62 close FH;
63 } else {
64 warn "$0: $f: $!\n";
65 }
66 }
67 return %cksum;
36bb303b
NC
68}
69
f014cfc2 70foreach my $pl (@scripts) {
95aa0565
RB
71 my @command = ($^X, $pl, @ARGV);
72 print "@command\n";
95aa0565 73 system @command;
36bb303b 74}