Patch allowing building with perl 5.22. Will be included in the next ldns release: http://git.nlnetlabs.nl/ldns/commit/?h=develop&id=168ee09a diff --git a/doc/doxyparse.pl b/doc/doxyparse.pl index 96a1732..a09b2e8 100755 --- a/doc/doxyparse.pl +++ b/doc/doxyparse.pl @@ -57,10 +57,15 @@ This manpage was automaticly generated from the ldns source code by use of Doxygen and some perl. "; -getopts("m:",\%options); +getopts("em:",\%options); # if -m manpage file is given process that file # parse the file which tells us what manpages go together my $functions, $see_also; +my $i = -1; +my $report_errors = defined $options{'e'}; +my $errors = 0; +my %unique; + if (defined $options{'m'}) { # process open(MAN, "<$options{'m'}") or die "Cannot open $options{'m'}"; @@ -68,18 +73,35 @@ if (defined $options{'m'}) { # func1, func2, .. | see_also1, see_also2, ... while() { chomp; + $i += 1; if (/^#/) { next; } if (/^$/) { next; } - ($functions, $see_also) = split /[\t ]*\|[\t ]*/, $_; - #print "{$functions}\n"; - #print "{$see_also}\n"; + my @parts = split /[\t ]*\|[\t ]*/, $_; + $functions = shift @parts; + $see_also = join ', ', @parts; + print "{$functions}\n"; + print "{$see_also}\n"; my @funcs = split /[\t ]*,[\t ]*/, $functions; my @also = split /[\t ]*,[\t ]*/, $see_also; $manpages{$funcs[0]} = \@funcs; $see_also{$funcs[0]} = \@also; + foreach (@funcs) { + if ($unique{$_}) { + push $unique{$_}, ($i,); + } else { + $unique{$_} = [$i]; + } + } #print "[", $funcs[0], "]\n"; } close(MAN); + while (($func, $lines) = each %unique ) { + if (scalar @$lines > 1) { + print STDERR "$func in function_manpages on lines: " + . join(", ",@$lines) . "\n" if $report_errors; + $errors += 1; + } + } } else { print "Need -m file to process the .h files\n"; exit 1; @@ -95,7 +117,7 @@ mkdir "doc/man"; mkdir "doc/man/man$MAN_SECTION"; $state = 0; -my $i; +$i = 0; my @lines = ; my $max = @lines; @@ -273,7 +295,7 @@ foreach (keys %manpages) { print MAN $MAN_MIDDLE; - if (defined(@$also)) { + if (@$also) { print MAN "\n.SH SEE ALSO\n\\fI"; print MAN join "\\fR, \\fI", @$also; print MAN "\\fR.\nAnd "; @@ -290,7 +312,7 @@ foreach (keys %manpages) { # create symlinks chdir("$BASE/man$MAN_SECTION"); foreach (@$name) { - print STDERR $_,"\n"; + print STDOUT $_,"\n"; my $new_file = $_ . "." . $MAN_SECTION; if ($new_file eq $symlink_file) { next; @@ -301,3 +323,12 @@ foreach (keys %manpages) { chdir("../../.."); # and back, tricky and fragile... close(MAN); } +foreach (keys %api) { + next if (/ / || /^$/); + if (not $unique{$_}) { + print STDERR "no man page for $_\n" if $report_errors; + $errors += 1; + } +} + +exit ($report_errors and $errors != 0);