regex: use regexec_buf()
[gitweb.git] / Documentation / build-docdep.perl
index dedef765afc6a1b380fd85d6682f4b266f76a924..ba4205e0302a267a5da6bef504f3e69eb0c4aa6d 100755 (executable)
@@ -1,28 +1,46 @@
 #!/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) {
+       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;
+                   }
+               }
+           }
+       }
     }
-    print "$base.html $base.$suffix : ", join(" ", keys %$included), "\n";
 }
 
+while (my ($text, $included) = each %include) {
+    if (! exists $included{$text} &&
+       (my $base = $text) =~ s/\.txt$//) {
+       print "$base.html $base.xml : ", join(" ", keys %$included), "\n";
+    }
+}