about summary refs log tree commit diff
path: root/third_party/git/Documentation/build-docdep.perl
diff options
context:
space:
mode:
Diffstat (limited to 'third_party/git/Documentation/build-docdep.perl')
-rwxr-xr-xthird_party/git/Documentation/build-docdep.perl46
1 files changed, 0 insertions, 46 deletions
diff --git a/third_party/git/Documentation/build-docdep.perl b/third_party/git/Documentation/build-docdep.perl
deleted file mode 100755
index ba4205e0302a..000000000000
--- a/third_party/git/Documentation/build-docdep.perl
+++ /dev/null
@@ -1,46 +0,0 @@
-#!/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;
-		    }
-		}
-	    }
-	}
-    }
-}
-
-while (my ($text, $included) = each %include) {
-    if (! exists $included{$text} &&
-	(my $base = $text) =~ s/\.txt$//) {
-	print "$base.html $base.xml : ", join(" ", keys %$included), "\n";
-    }
-}