From f2431fe7df58d1b7f709f5065a2be3a2c01661f9 Mon Sep 17 00:00:00 2001 From: "Dr. David von Oheimb" Date: Sun, 16 May 2021 19:03:50 +0200 Subject: [PATCH] find-doc-nits: Make -c option (cmd-nits) independent of app build and execution Reviewed-by: Paul Dale (Merged from https://github.com/openssl/openssl/pull/15298) --- Configurations/unix-Makefile.tmpl | 2 +- apps/{asn1pars.c => asn1parse.c} | 0 apps/build.info | 2 +- apps/{crl2p7.c => crl2pkcs7.c} | 0 doc/man1/openssl.pod | 14 +++--- util/find-doc-nits | 74 +++++++++++++++++++------------ 6 files changed, 54 insertions(+), 38 deletions(-) rename apps/{asn1pars.c => asn1parse.c} (100%) rename apps/{crl2p7.c => crl2pkcs7.c} (100%) diff --git a/Configurations/unix-Makefile.tmpl b/Configurations/unix-Makefile.tmpl index a80e78e86f..f729416d1d 100644 --- a/Configurations/unix-Makefile.tmpl +++ b/Configurations/unix-Makefile.tmpl @@ -1066,7 +1066,7 @@ generate_buildinfo: generate_doc_buildinfo doc-nits: build_generated_pods $(PERL) $(SRCDIR)/util/find-doc-nits -n -l -e -cmd-nits: build_generated apps/openssl build_generated_pods +cmd-nits: build_generated_pods $(PERL) $(SRCDIR)/util/find-doc-nits -c # This uses "mdl", the markdownlint application, which is written in ruby. diff --git a/apps/asn1pars.c b/apps/asn1parse.c similarity index 100% rename from apps/asn1pars.c rename to apps/asn1parse.c diff --git a/apps/build.info b/apps/build.info index cba9803c65..b2ecdf2e3a 100644 --- a/apps/build.info +++ b/apps/build.info @@ -12,7 +12,7 @@ ENDIF # Source for the 'openssl' program $OPENSSLSRC=\ openssl.c progs.c \ - asn1pars.c ca.c ciphers.c crl.c crl2p7.c dgst.c \ + asn1parse.c ca.c ciphers.c crl.c crl2pkcs7.c dgst.c \ enc.c errstr.c \ genpkey.c kdf.c mac.c nseq.c passwd.c pkcs7.c \ pkcs8.c pkey.c pkeyparam.c pkeyutl.c prime.c rand.c req.c \ diff --git a/apps/crl2p7.c b/apps/crl2pkcs7.c similarity index 100% rename from apps/crl2p7.c rename to apps/crl2pkcs7.c diff --git a/doc/man1/openssl.pod b/doc/man1/openssl.pod index 78b98ab7a6..3b47ae9729 100644 --- a/doc/man1/openssl.pod +++ b/doc/man1/openssl.pod @@ -13,13 +13,13 @@ I B B -B<-standard-commands> | -B<-digest-commands> | -B<-cipher-commands> | -B<-cipher-algorithms> | -B<-digest-algorithms> | -B<-mac-algorithms> | -B<-public-key-algorithms> +B | +B | +B | +B | +B | +B | +B B BI [ I ] 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 ( ) { 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 ( ) { + # 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 ( ) { 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 ( ) { - chop; - my ($cmd, $flag) = split; - err("$cmd has no help for -$flag"); - } - close FH; - exit $status; }