support processing <openssl/bn.h>
authorschwarze <schwarze@openbsd.org>
Sat, 18 Dec 2021 19:55:26 +0000 (19:55 +0000)
committerschwarze <schwarze@openbsd.org>
Sat, 18 Dec 2021 19:55:26 +0000 (19:55 +0000)
regress/lib/libcrypto/man/check_complete.pl

index 3e53a15..8e69126 100755 (executable)
@@ -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;