Skip to content

Commit a81df63

Browse files
captain5050acmel
authored andcommitted
perf doc: Fix doc.dep
The doc.dep dependencies for the Makefile fail to build as build-docdep.perl is missing. Add this file from git. Signed-off-by: Ian Rogers <[email protected]> Acked-by: Namhyung Kim <[email protected]> Cc: Alexander Shishkin <[email protected]> Cc: Ingo Molnar <[email protected]> Cc: Jiri Olsa <[email protected]> Cc: Mark Rutland <[email protected]> Cc: Peter Zijlstra <[email protected]> Cc: Stephane Eranian <[email protected]> Link: https //lore.kernel.org/r/[email protected] Signed-off-by: Arnaldo Carvalho de Melo <[email protected]>
1 parent 6f6e7f0 commit a81df63

File tree

1 file changed

+46
-0
lines changed

1 file changed

+46
-0
lines changed
Lines changed: 46 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,46 @@
1+
#!/usr/bin/perl
2+
3+
my %include = ();
4+
my %included = ();
5+
6+
for my $text (<*.txt>) {
7+
open I, '<', $text || die "cannot read: $text";
8+
while (<I>) {
9+
if (/^include::/) {
10+
chomp;
11+
s/^include::\s*//;
12+
s/\[\]//;
13+
$include{$text}{$_} = 1;
14+
$included{$_} = 1;
15+
}
16+
}
17+
close I;
18+
}
19+
20+
# Do we care about chained includes???
21+
my $changed = 1;
22+
while ($changed) {
23+
$changed = 0;
24+
while (my ($text, $included) = each %include) {
25+
for my $i (keys %$included) {
26+
# $text has include::$i; if $i includes $j
27+
# $text indirectly includes $j.
28+
if (exists $include{$i}) {
29+
for my $j (keys %{$include{$i}}) {
30+
if (!exists $include{$text}{$j}) {
31+
$include{$text}{$j} = 1;
32+
$included{$j} = 1;
33+
$changed = 1;
34+
}
35+
}
36+
}
37+
}
38+
}
39+
}
40+
41+
while (my ($text, $included) = each %include) {
42+
if (! exists $included{$text} &&
43+
(my $base = $text) =~ s/\.txt$//) {
44+
print "$base.html $base.xml : ", join(" ", keys %$included), "\n";
45+
}
46+
}

0 commit comments

Comments
 (0)