diff options
Diffstat (limited to 'regress')
| -rwxr-xr-x | regress/lib/libcrypto/man/check_complete.pl | 19 |
1 files changed, 16 insertions, 3 deletions
diff --git a/regress/lib/libcrypto/man/check_complete.pl b/regress/lib/libcrypto/man/check_complete.pl index d31b7c6756a..6d72f444413 100755 --- a/regress/lib/libcrypto/man/check_complete.pl +++ b/regress/lib/libcrypto/man/check_complete.pl @@ -28,6 +28,7 @@ my @obsolete = qw( PKCS5_pbkdf2_set X509_EX_V_INIT X509_EXT_PACK_STRING X509_EXT_PACK_UNKNOWN + X509_VERIFY_PARAM_ID ); my $MANW = 'man -M /usr/share/man -w'; @@ -160,6 +161,8 @@ try_again: next; } + # Handle macros. + if (my ($id) = /^#define\s+(\w+)\s+\S/) { /\\$/ and $in_define = 1; unless (system "$MANW -k Dv=$id > /dev/null 2>&1") { @@ -216,18 +219,28 @@ try_again: } next; } - if (/^typedef\s+(?:struct\s+)?\S+\s+(\w+);$/) { - unless (system "$MANW -k Vt=$1 > /dev/null 2>&1") { + + # Handle variable type definitions. + + if (my ($id) = /^typedef\s+(?:struct\s+)?\S+\s+(\w+);$/) { + unless (system "$MANW -k Vt=$id > /dev/null 2>&1") { print "Vt $line\n" if $verbose; next; } + if (grep { $_ eq $id } @obsolete) { + print "V- $line\n" if $verbose; + next; + } if ($verbose) { print "XX $line\n"; } else { - warn "not found: typedef $1"; + warn "not found: typedef $id"; } next; } + + # Handle function declarations. + if (/^\w+(?:\(\w+\))?(?:\s+\w+)?\s+(?:\(?\*\s*)?(\w+)\(/) { my $id = $1; /\);$/ or $in_function = 1; |