Documentation: fix dependency generation.
authorJunio C Hamano <junkio@cox.net>
Tue, 8 Nov 2005 06:21:21 +0000 (22:21 -0800)
committerJunio C Hamano <junkio@cox.net>
Tue, 8 Nov 2005 08:23:12 +0000 (00:23 -0800)
The previous rule misses the case where git.txt or tutorial.txt
includes new files.

Signed-off-by: Junio C Hamano <junkio@cox.net>
Documentation/Makefile
Documentation/build-docdep.perl
index f45a06246920cf6bcd5c90bd358461171ed2bd5a..be4f3e13c66396206323a5e1423ecf3cfb739ca0 100644 (file)
@@ -53,8 +53,7 @@ install: man
 #
 # Determine "include::" file references in asciidoc files.
 #
-TEXTFILES = $(wildcard git-*.txt)
-doc.dep : $(TEXTFILES) build-docdep.perl
+doc.dep : $(wildcard *.txt) build-docdep.perl
        rm -f $@+ $@
        perl ./build-docdep.perl >$@+
        mv $@+ $@
index dedef765afc6a1b380fd85d6682f4b266f76a924..6ff35e02faf386f103fd691d8ccca346e181614c 100755 (executable)
@@ -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";
+    }
+}