diff options
author | Dr. David von Oheimb <David.von.Oheimb@siemens.com> | 2021-05-16 19:03:50 +0200 |
---|---|---|
committer | Dr. David von Oheimb <dev@ddvo.net> | 2021-05-18 13:02:23 +0200 |
commit | f2431fe7df58d1b7f709f5065a2be3a2c01661f9 (patch) | |
tree | 65b2fbdb6d27862a93d88e34245916fa2d76c232 /util | |
parent | 80a4ac5783b1cea66983330c65df11611236869e (diff) | |
download | openssl-new-f2431fe7df58d1b7f709f5065a2be3a2c01661f9.tar.gz |
find-doc-nits: Make -c option (cmd-nits) independent of app build and execution
Reviewed-by: Paul Dale <pauli@openssl.org>
(Merged from https://github.com/openssl/openssl/pull/15298)
Diffstat (limited to 'util')
-rwxr-xr-x | util/find-doc-nits | 74 |
1 files changed, 45 insertions, 29 deletions
diff --git a/util/find-doc-nits b/util/find-doc-nits index a5ea78706d..f4cc771e5a 100755 --- a/util/find-doc-nits +++ b/util/find-doc-nits @@ -28,9 +28,6 @@ use configdata; # Set to 1 for debug output my $debug = 0; -# Where to find openssl command -my $openssl = "./util/opensslwrap.sh"; - # Options. our($opt_d); our($opt_e); @@ -1029,21 +1026,40 @@ my %skips = ( 'digest' => 1, ); +my %genopts; # generic options parsed from apps/include/opt.h + # Check the flags of a command and see if everything is in the manpage sub checkflags { my $cmd = shift; my $doc = shift; - my %cmdopts; + my @cmdopts; my %docopts; my %localskips; - # Get the list of options in the command. - open CFH, "$openssl list --options $cmd|" - or die "Can list options for $cmd, $!"; + # Get the list of options in the command source file. + my $active = 0; + my $expect_helpstr = ""; + open CFH, "apps/$cmd.c" + or die "Can't open apps/$cmd.c to list options for $cmd, $!"; while ( <CFH> ) { chop; - s/ .$//; - $cmdopts{$_} = 1; + if ($active) { + last if m/^\s*};/; + if ($expect_helpstr ne "") { + next if m/^\s*#\s*if/; + err("$cmd does not implement help for -$expect_helpstr") unless m/^\s*"/; + $expect_helpstr = ""; + } elsif (m/\{\s*"([^"]+)"\s*,\s*OPT_[A-Z0-9_]+\s*,\s*('[-\/:<>cEfFlMnNpsuU]'|0)\s*,(.*)$/ + && !($cmd eq "s_client" && $1 eq "wdebug")) { + push @cmdopts, $1; + $expect_helpstr = $1; + $expect_helpstr = "" if $3 =~ m/^\s*"/; + } elsif (m/[\s,](OPT_[A-Z]+_OPTIONS?)\s*(,|$)/) { + push @cmdopts, @{ $genopts{$1} }; + } + } elsif (m/^const\s+OPTIONS\s*/) { + $active = 1; + } } close CFH; @@ -1073,15 +1089,16 @@ sub checkflags { close CFH; # See what's in the command not the manpage. - my @undocced = sort grep { !defined $docopts{$_} } keys %cmdopts; + my @undocced = sort grep { !defined $docopts{$_} } @cmdopts; foreach ( @undocced ) { - next if /-/; # Skip the -- end-of-flags marker + next if $cmd eq "openssl" && $_ eq "help"; err("$doc: undocumented option -$_"); } # See what's in the command not the manpage. - my @unimpl = sort grep { !defined $cmdopts{$_} } keys %docopts; + my @unimpl = sort grep { my $e = $_; !(grep /^\Q$e\E$/, @cmdopts) } keys %docopts; foreach ( @unimpl ) { + next if $_ eq "-"; # Skip the -- end-of-flags marker next if defined $skips{$_} || defined $localskips{$_}; err("$doc: $cmd does not implement -$_"); } @@ -1097,18 +1114,27 @@ sub checkflags { if ( $opt_c ) { my @commands = (); - # Get list of commands. - open FH, "$openssl list -1 -commands|" - or die "Can't list commands, $!"; - while ( <FH> ) { + # Get the lists of generic options. + my $active = ""; + open OFH, "apps/include/opt.h" + or die "Can't open apps/include/opt.h to list generic options, $!"; + while ( <OFH> ) { chop; - push @commands, $_; + push @{ $genopts{$active} }, $1 if $active ne "" && m/^\s+\{\s*"([^"]+)"\s*,\s*OPT_/; + $active = $1 if m/^\s*#\s*define\s+(OPT_[A-Z]+_OPTIONS?)\s*\\\s*$/; + $active = "" if m/^\s*$/; } - close FH; + close OFH; + + # Get list of commands. + opendir(DIR, "apps"); + @commands = grep(/\.c$/, readdir(DIR)); + closedir(DIR); # See if each has a manpage. foreach my $cmd ( @commands ) { - next if $cmd eq 'help' || $cmd eq 'exit'; + $cmd =~ s/\.c$//; + next if $cmd eq 'progs' || $cmd eq 'cmp_mock_srv' || $cmd eq 'vms_decc_init'; my @doc = ( grep { basename($_) eq "openssl-$cmd.pod" # For "tsget" and "CA.pl" pod pages || basename($_) eq "$cmd.pod" } @@ -1123,16 +1149,6 @@ if ( $opt_c ) { } } - # See what help is missing. - open FH, "$openssl list --missing-help |" - or die "Can't list missing help, $!"; - while ( <FH> ) { - chop; - my ($cmd, $flag) = split; - err("$cmd has no help for -$flag"); - } - close FH; - exit $status; } |