This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove autodoc.pl from regen.pl and the lists of regenerated files in Makefiles.
[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 21# Which scripts to run. Note the ordering: embed.pl must run after
22b7b87b 22# opcode.pl, since it depends on pp.sym
f014cfc2
DM
23
24my @scripts = qw(
f014cfc2 25keywords.pl
07d48c2a
DM
26opcode.pl
27overload.pl
28reentr.pl
29regcomp.pl
30warnings.pl
31
f014cfc2 32embed.pl
f014cfc2
DM
33);
34
35# Which files are (re)generated by each script.
36# *** We no longer need these values, as the "changed" message is
523b3031
NC
37# now generated by regen_lib.pl, so should we just drop them?
38
9ad884cb 39my %gen = (
9ad884cb
JH
40 'embed.pl' => [qw[proto.h embed.h embedvar.h global.sym
41 perlapi.h perlapi.c]],
42 'keywords.pl' => [qw[keywords.h]],
43 'opcode.pl' => [qw[opcode.h opnames.h pp_proto.h pp.sym]],
44 'regcomp.pl' => [qw[regnodes.h]],
0bfd2b7f 45 'warnings.pl' => [qw[warnings.h lib/warnings.pm]],
8c798f87 46 'reentr.pl' => [qw[reentr.c reentr.h]],
e2bcdfc0 47 'overload.pl' => [qw[overload.c overload.h lib/overload/numbers.pm]],
9ad884cb 48 );
36bb303b 49
9ad884cb
JH
50sub do_cksum {
51 my $pl = shift;
52 my %cksum;
53 for my $f (@{ $gen{$pl} }) {
54 local *FH;
55 if (open(FH, $f)) {
56 local $/;
57 $cksum{$f} = unpack("%32C*", <FH>);
58 close FH;
59 } else {
60 warn "$0: $f: $!\n";
61 }
62 }
63 return %cksum;
36bb303b
NC
64}
65
f014cfc2 66foreach my $pl (@scripts) {
95aa0565
RB
67 my @command = ($^X, $pl, @ARGV);
68 print "@command\n";
95aa0565 69 system @command;
36bb303b 70}