diff options
Diffstat (limited to 'doc')
| -rw-r--r-- | doc/Makefile | 2 | ||||
| -rw-r--r-- | doc/texidep.pl | 22 |
2 files changed, 23 insertions, 1 deletions
diff --git a/doc/Makefile b/doc/Makefile index cd24b8c597..ab18146f41 100644 --- a/doc/Makefile +++ b/doc/Makefile @@ -43,7 +43,7 @@ doc: documentation apidoc: doc/doxy/html documentation: $(DOCS) -TEXIDEP = awk '/^@(verbatim)?include/ { printf "$@: $(@D)/%s\n", $$2 }' <$< >$(@:%=%.d) +TEXIDEP = perl $(SRC_PATH)/doc/texidep.pl $< $@ >$(@:%=%.d) doc/%.txt: TAG = TXT doc/%.txt: doc/%.texi diff --git a/doc/texidep.pl b/doc/texidep.pl new file mode 100644 index 0000000000..0275e74709 --- /dev/null +++ b/doc/texidep.pl @@ -0,0 +1,22 @@ +#! /usr/bin/perl + +use warnings; +use strict; + +my ($root, $target) = @ARGV; + +sub print_deps { + my ($file, $deps) = @_; + $deps->{$file} = 1; + + open(my $fh, "$file") or die "Cannot open file '$file': $!"; + while (<$fh>) { + /^@(?:verbatim)?include\s+(\S+)/ and do { + die "Circular dependency found in file $root\n" if exists $deps->{"doc/$1"}; + print "$target: doc/$1\n"; + print_deps("doc/$1", {%$deps}); + } + } +} + +print_deps($root, {}); |