support processing <openssl/bn.h>

1 files changed, 24 insertions, 3 deletions

diff --git a/src/regress/lib/libcrypto/man/check_complete.pl b/src/regress/lib/libcrypto/man/check_complete.pl
index 3e53a15443..8e69126894 100755
--- a/src/regress/lib/libcrypto/man/check_complete.pl
+++ b/src/regress/lib/libcrypto/man/check_complete.pl
@@ -26,8 +26,12 @@ my %internal = (
         ASN1_STRING_FLAG_MSTRING ASN1_STRING_FLAG_NDEF
         CHARTYPE_FIRST_ESC_2253 CHARTYPE_LAST_ESC_2253 CHARTYPE_PRINTABLESTRING
     )],
+    bn => [qw(
+        BN_MUL_COMBA BN_RECURSION BN_SQR_COMBA
+    )],
     objects => [qw(
         OBJ_bsearch OBJ_bsearch_ OBJ_bsearch_ex OBJ_bsearch_ex_
+        USE_OBJ_MAC
     )],
     x509_vfy => [qw(
         X509_VERIFY_PARAM_ID
@@ -214,13 +218,13 @@ try_again:
             /^DECLARE_STACK_OF\(\w+\)$/ ||
             /^TYPEDEF_D2I2D_OF\(\w+\);$/ ||
             /^#define HEADER_\w+_H$/ ||
-            /^#define USE_OBJ_MAC$/ ||
             /^#endif$/ ||
             /^#else$/ ||
             /^extern\s+const\s+ASN1_ITEM\s+\w+_it;$/ ||
             /^#include\s/ ||
             /^#ifn?def\s/ ||
-            /^#if defined/) {
+            /^#if !?defined/ ||
+            /^#undef\s+BN_LLONG$/) {
                 print "-- $line\n" if $verbose;
                 next;
         }
@@ -255,7 +259,7 @@ try_again:
                         print "D- $line\n" if $verbose;
                         next;
                 }
-                if ($id =~ /^(?:ASN1|X509(?:V3)?)_[FR]_\w+$/) {
+                if ($id =~ /^(?:ASN1|BN|X509(?:V3)?)_[FR]_\w+$/) {
                         print "D- $line\n" if $verbose;
                         next;
                 }
@@ -302,6 +306,19 @@ try_again:
                 }
                 next;
         }
+        if (my ($id) = /^#\s*define\s+(\w+)$/) {
+                if ($undoc{$id}) {
+                        print "-- $line\n" if $verbose;
+                        delete $undoc{$id};
+                        next;
+                }
+                if ($verbose) {
+                        print "XX $line\n";
+                } else {
+                        warn "not found: #define $id";
+                }
+                next;
+        }
 
         # Handle global variables.
 
@@ -408,6 +425,10 @@ try_again:
                 }
                 next;
         }
+        if (/^int$/) {
+                $_ .= ' ' . <$in_fh>;
+                goto try_again;
+        }
         if (/ \*$/) {
                 $_ .= <$in_fh>;
                 goto try_again;