summaryrefslogtreecommitdiff
path: root/Documentation/build-docdep.perl
diff options
context:
space:
mode:
authorJunio C Hamano <junkio@cox.net>2005-11-08 09:25:59 (GMT)
committerJunio C Hamano <junkio@cox.net>2005-11-08 09:25:59 (GMT)
commit5ca15b8af7f018b9ae9da30130f9dcd1a896e0b3 (patch)
treee4ae4ad79b5560920696f3983c436b6d34ce18b8 /Documentation/build-docdep.perl
parent77131db5855ed044e30706aa1219d79126686f00 (diff)
parent4bfb6b62ffc9460798ebc78c3a30e4eff7c409d0 (diff)
downloadgit-5ca15b8af7f018b9ae9da30130f9dcd1a896e0b3.zip
git-5ca15b8af7f018b9ae9da30130f9dcd1a896e0b3.tar.gz
git-5ca15b8af7f018b9ae9da30130f9dcd1a896e0b3.tar.bz2
GIT 0.99.9fv0.99.9f
Signed-off-by: Junio C Hamano <junkio@cox.net>
Diffstat (limited to 'Documentation/build-docdep.perl')
-rwxr-xr-xDocumentation/build-docdep.perl44
1 files changed, 35 insertions, 9 deletions
diff --git a/Documentation/build-docdep.perl b/Documentation/build-docdep.perl
index dedef76..6ff35e0 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";
+ }
+}