3dc6b4e027
To make sure that our manpages are rebuilt when any of the included source files change and only the affected manpages are rebuilt, 'build-docdep.perl' scans our documentation source files for include directives, and outputs 'make' dependencies to be included by 'Documentation/Makefile'. This script relies on Perl's hash data structures, and generates its output while iterating over them, and since hashes in Perl are very much unordered, the output varies greatly from run to run, both the order of targets and the order of dependencies of each target. This lack of ordering doesn't matter for 'make', because it cares neither about the order of targets in a Makefile nor about the order of a target's dependencies. However, it does matter to developers looking into build issues potentially involving these generated dependencies, as it's rather hard to tell whether there are any relevant (i.e. not order-only) changes among the dependencies compared to the previous run. So let's make 'build-docdep.perl's output stable and ordered by sorting the keys of the hashes before iterating over them. Signed-off-by: SZEDER Gábor <szeder.dev@gmail.com> Signed-off-by: Junio C Hamano <gitster@pobox.com>
48 lines
1001 B
Perl
Executable File
48 lines
1001 B
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
my %include = ();
|
|
my %included = ();
|
|
|
|
for my $text (<*.txt>) {
|
|
open I, '<', $text || die "cannot read: $text";
|
|
while (<I>) {
|
|
if (/^include::/) {
|
|
chomp;
|
|
s/^include::\s*//;
|
|
s/\[\]//;
|
|
$include{$text}{$_} = 1;
|
|
$included{$_} = 1;
|
|
}
|
|
}
|
|
close I;
|
|
}
|
|
|
|
# Do we care about chained includes???
|
|
my $changed = 1;
|
|
while ($changed) {
|
|
$changed = 0;
|
|
while (my ($text, $included) = each %include) {
|
|
for my $i (keys %$included) {
|
|
# $text has include::$i; if $i includes $j
|
|
# $text indirectly includes $j.
|
|
if (exists $include{$i}) {
|
|
for my $j (keys %{$include{$i}}) {
|
|
if (!exists $include{$text}{$j}) {
|
|
$include{$text}{$j} = 1;
|
|
$included{$j} = 1;
|
|
$changed = 1;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
foreach my $text (sort keys %include) {
|
|
my $included = $include{$text};
|
|
if (! exists $included{$text} &&
|
|
(my $base = $text) =~ s/\.txt$//) {
|
|
print "$base.html $base.xml : ", join(" ", sort keys %$included), "\n";
|
|
}
|
|
}
|