diff options
Diffstat (limited to 'Documentation/build-docdep.perl')
| -rwxr-xr-x | Documentation/build-docdep.perl | 44 |
1 files changed, 35 insertions, 9 deletions
diff --git a/Documentation/build-docdep.perl b/Documentation/build-docdep.perl index dedef765a..6ff35e02f 100755 --- a/Documentation/build-docdep.perl +++ b/Documentation/build-docdep.perl @@ -1,28 +1,54 @@ #!/usr/bin/perl my %include = (); +my %included = (); -for my $text (<git-*.txt>) { +for my $text (<*.txt>) { open I, '<', $text || die "cannot read: $text"; - (my $base = $text) =~ s/\.txt$//; while (<I>) { if (/^include::/) { chomp; s/^include::\s*//; s/\[\]//; - $include{$base}{$_} = 1; + $include{$text}{$_} = 1; + $included{$_} = 1; } } close I; } # Do we care about chained includes??? - -while (my ($base, $included) = each %include) { - my ($suffix) = '1'; - if ($base eq 'git') { - $suffix = '7'; # yuck... +my $changed = 1; +while ($changed) { + $changed = 0; + while (my ($text, $included) = each %include) { + print STDERR "Looking at $text...\n"; + for my $i (keys %$included) { + print STDERR "$text includes $i.\n"; + # $text has include::$i; if $i includes $j + # $text indirectly includes $j. + if (exists $include{$i}) { + print STDERR "$i includes something.\n"; + for my $j (keys %{$include{$i}}) { + print STDERR "$text includes $i include $j\n"; + if (!exists $include{$text}{$j}) { + $include{$text}{$j} = 1; + $included{$j} = 1; + $changed = 1; + } + } + } + } } - print "$base.html $base.$suffix : ", join(" ", keys %$included), "\n"; } +while (my ($text, $included) = each %include) { + if (! exists $included{$text} && + (my $base = $text) =~ s/\.txt$//) { + my ($suffix) = '1'; + if ($base eq 'git') { + $suffix = '7'; # yuck... + } + print "$base.html $base.$suffix : ", join(" ", keys %$included), "\n"; + } +} |