diff options
Diffstat (limited to 'src')
| -rwxr-xr-x | src/regress/lib/libcrypto/man/check_complete.pl | 19 |
1 files changed, 16 insertions, 3 deletions
diff --git a/src/regress/lib/libcrypto/man/check_complete.pl b/src/regress/lib/libcrypto/man/check_complete.pl index d31b7c6756..6d72f44441 100755 --- a/src/regress/lib/libcrypto/man/check_complete.pl +++ b/src/regress/lib/libcrypto/man/check_complete.pl | |||
| @@ -28,6 +28,7 @@ my @obsolete = qw( | |||
| 28 | PKCS5_pbkdf2_set | 28 | PKCS5_pbkdf2_set |
| 29 | X509_EX_V_INIT | 29 | X509_EX_V_INIT |
| 30 | X509_EXT_PACK_STRING X509_EXT_PACK_UNKNOWN | 30 | X509_EXT_PACK_STRING X509_EXT_PACK_UNKNOWN |
| 31 | X509_VERIFY_PARAM_ID | ||
| 31 | ); | 32 | ); |
| 32 | 33 | ||
| 33 | my $MANW = 'man -M /usr/share/man -w'; | 34 | my $MANW = 'man -M /usr/share/man -w'; |
| @@ -160,6 +161,8 @@ try_again: | |||
| 160 | next; | 161 | next; |
| 161 | } | 162 | } |
| 162 | 163 | ||
| 164 | # Handle macros. | ||
| 165 | |||
| 163 | if (my ($id) = /^#define\s+(\w+)\s+\S/) { | 166 | if (my ($id) = /^#define\s+(\w+)\s+\S/) { |
| 164 | /\\$/ and $in_define = 1; | 167 | /\\$/ and $in_define = 1; |
| 165 | unless (system "$MANW -k Dv=$id > /dev/null 2>&1") { | 168 | unless (system "$MANW -k Dv=$id > /dev/null 2>&1") { |
| @@ -216,18 +219,28 @@ try_again: | |||
| 216 | } | 219 | } |
| 217 | next; | 220 | next; |
| 218 | } | 221 | } |
| 219 | if (/^typedef\s+(?:struct\s+)?\S+\s+(\w+);$/) { | 222 | |
| 220 | unless (system "$MANW -k Vt=$1 > /dev/null 2>&1") { | 223 | # Handle variable type definitions. |
| 224 | |||
| 225 | if (my ($id) = /^typedef\s+(?:struct\s+)?\S+\s+(\w+);$/) { | ||
| 226 | unless (system "$MANW -k Vt=$id > /dev/null 2>&1") { | ||
| 221 | print "Vt $line\n" if $verbose; | 227 | print "Vt $line\n" if $verbose; |
| 222 | next; | 228 | next; |
| 223 | } | 229 | } |
| 230 | if (grep { $_ eq $id } @obsolete) { | ||
| 231 | print "V- $line\n" if $verbose; | ||
| 232 | next; | ||
| 233 | } | ||
| 224 | if ($verbose) { | 234 | if ($verbose) { |
| 225 | print "XX $line\n"; | 235 | print "XX $line\n"; |
| 226 | } else { | 236 | } else { |
| 227 | warn "not found: typedef $1"; | 237 | warn "not found: typedef $id"; |
| 228 | } | 238 | } |
| 229 | next; | 239 | next; |
| 230 | } | 240 | } |
| 241 | |||
| 242 | # Handle function declarations. | ||
| 243 | |||
| 231 | if (/^\w+(?:\(\w+\))?(?:\s+\w+)?\s+(?:\(?\*\s*)?(\w+)\(/) { | 244 | if (/^\w+(?:\(\w+\))?(?:\s+\w+)?\s+(?:\(?\*\s*)?(\w+)\(/) { |
| 232 | my $id = $1; | 245 | my $id = $1; |
| 233 | /\);$/ or $in_function = 1; | 246 | /\);$/ or $in_function = 1; |
