mirror/openssl
2
0
Fork 0
mirror of https://github.com/openssl/openssl.git synced 2024-11-27 05:21:51 +08:00
Code Issues Packages Projects Releases Wiki Activity

util/find-docs-nits: Extend to handle internal documentation

Browse Source 
While we're at it, we also check for names that contain white-space,
as they are invalid.

Reviewed-by: Paul Dale <paul.dale@oracle.com>
(Merged from https://github.com/openssl/openssl/pull/8269)
This commit is contained in:
Richard Levitte 2019-02-18 16:00:06 +01:00
parent 9b57e4a1ef
commit 23ab880d42
1 changed files with 19 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
util/find-doc-nits
View File

@ -68,7 +68,6 @@ sub name_synopsis()
$tmp =~ s/ -.*//g;
$tmp =~ s/ */ /g;
print "$id missing comma in NAME\n" if $tmp =~ /[^,] /;
$tmp =~ s/,//g;
my $dirname = dirname($filename);
my $simplename = basename($filename);
@ -76,7 +75,11 @@ sub name_synopsis()
my $foundfilename = 0;
my %foundfilenames = ();
my %names;
foreach my $n ( split ' ', $tmp ) {
foreach my $n ( split ',', $tmp ) {
$n =~ s/^\s+//;
$n =~ s/\s+$//;
print "$id the name '$n' contains white-space\n"
if $n =~ /\s/;
$names{$n} = 1;
$foundfilename++ if $n eq $simplename;
$foundfilenames{$n} = 1
@ -247,7 +250,7 @@ sub parsenum()
return sort @apis;
}
sub getdocced()
sub getdocced
{
my $dir = shift;
my %return;
@ -349,13 +352,16 @@ sub collectnames {
$tmp =~ tr/\n/ /;
$tmp =~ s/-.*//g;
my @names = map { s/\s+//g; $_ } split(/,/, $tmp);
my @names = map { s/^\s+//g; s/\s+$//g; $_ } split(/,/, $tmp);
unless (grep { $simplename eq $_ } @names) {
print "$id missing $simplename\n";
push @names, $simplename;
}
foreach my $name (@names) {
next if $name eq "";
if ($name =~ /\s/) {
print "$id '$name' contains white space\n";
}
my $name_sec = "$name($section)";
if (! exists $name_collection{$name_sec}) {
$name_collection{$name_sec} = $filename;
@ -524,7 +530,8 @@ if ( $opt_c ) {
}
if ( $opt_l ) {
foreach (@ARGV ? @ARGV : glob('doc/*/*.pod')) {
foreach (@ARGV ? @ARGV : (glob('doc/*/*.pod'),
glob('doc/internal/*/*.pod'))) {
collectnames($_);
}
checklinks();
@ -535,10 +542,16 @@ if ( $opt_n ) {
foreach (@ARGV ? @ARGV : glob('doc/*/*.pod')) {
&check($_);
}
{
local $opt_p = undef;
foreach (@ARGV ? @ARGV : glob('doc/internal/*/*.pod')) {
&check($_);
}
}
}
if ( $opt_u ) {
my %temp = &getdocced('doc/man3');
my %temp = getdocced('doc/man3');
foreach ( keys %temp ) {
$docced{$_} = $temp{$_};
}