more symbols that are postponed or intentionally undocumented and

some regexp tweaks; the relevant parts of asn1.h are nearing completion

diff --git a/regress/lib/libcrypto/man/check_complete.pl b/regress/lib/libcrypto/man/check_complete.pl
index 3af4421..4d70329 100755 (executable)
--- a/regress/lib/libcrypto/man/check_complete.pl
+++ b/regress/lib/libcrypto/man/check_complete.pl
@@ -18,7 +18,42 @@ use strict;
 use warnings;
 
 my @obsolete = qw(
+    ASN1_dup ASN1_d2i_bio ASN1_d2i_bio_of ASN1_d2i_fp ASN1_d2i_fp_of
+    ASN1_i2d_bio ASN1_i2d_bio_of ASN1_i2d_bio_of_const
+    ASN1_i2d_fp ASN1_i2d_fp_of ASN1_i2d_fp_of_const
+    ASN1_LONG_UNDEF
+    ASN1_OBJECT_FLAG_CRITICAL ASN1_OBJECT_FLAG_DYNAMIC
+    ASN1_OBJECT_FLAG_DYNAMIC_DATA ASN1_OBJECT_FLAG_DYNAMIC_STRINGS
+    ASN1_STRING_FLAG_BITS_LEFT ASN1_STRING_FLAG_CONT
+    ASN1_STRING_FLAG_MSTRING ASN1_STRING_FLAG_NDEF
+    CHARTYPE_FIRST_ESC_2253 CHARTYPE_LAST_ESC_2253 CHARTYPE_PRINTABLESTRING
+    d2i_NETSCAPE_X509
+    NETSCAPE_X509_free NETSCAPE_X509_new
+    i2d_NETSCAPE_X509
+    ub_title
+    V_ASN1_PRIMATIVE_TAG
+    X509_algor_st
+    X509_EX_V_INIT X509_EX_V_NETSCAPE_HACK
+    X509_EXT_PACK_STRING X509_EXT_PACK_UNKNOWN
+    X509_VERIFY_PARAM_ID
+);
+
+# postponed
+push @obsolete, qw(
+    ASN1_ITEM_ptr ASN1_ITEM_ref ASN1_ITEM_rptr
+    CHECKED_D2I_OF CHECKED_I2D_OF CHECKED_NEW_OF CHECKED_PPTR_OF CHECKED_PTR_OF
+    DECLARE_ASN1_ALLOC_FUNCTIONS DECLARE_ASN1_ALLOC_FUNCTIONS_name
+    DECLARE_ASN1_ENCODE_FUNCTIONS DECLARE_ASN1_ENCODE_FUNCTIONS_const
+    DECLARE_ASN1_FUNCTIONS DECLARE_ASN1_FUNCTIONS_const
+    DECLARE_ASN1_FUNCTIONS_fname DECLARE_ASN1_FUNCTIONS_name
+    DECLARE_ASN1_ITEM
+    DECLARE_ASN1_NDEF_FUNCTION
+    DECLARE_ASN1_PRINT_FUNCTION DECLARE_ASN1_PRINT_FUNCTION_fname
+    DECLARE_ASN1_SET_OF
+    D2I_OF
     d2i_PBEPARAM d2i_PBE2PARAM d2i_PBKDF2PARAM
+    IMPLEMENT_ASN1_SET_OF
+    I2D_OF I2D_OF_const
     i2d_PBEPARAM i2d_PBE2PARAM i2d_PBKDF2PARAM
     NETSCAPE_SPKAC NETSCAPE_SPKI
     PBEPARAM PBEPARAM_free PBEPARAM_new
@@ -27,9 +62,7 @@ my @obsolete = qw(
     PKCS5_pbe_set PKCS5_pbe_set0_algor
     PKCS5_pbe2_set PKCS5_pbe2_set_iv
     PKCS5_pbkdf2_set
-    X509_EX_V_INIT X509_EX_V_NETSCAPE_HACK
-    X509_EXT_PACK_STRING X509_EXT_PACK_UNKNOWN
-    X509_VERIFY_PARAM_ID
+    TYPEDEF_D2I_OF TYPEDEF_D2I2D_OF TYPEDEF_I2D_OF
 );
 
 my $MANW = 'man -M /usr/share/man -w';
@@ -180,11 +213,15 @@ try_again:
                        print "Fn $line\n" if $verbose;
                        next;
                }
-               unless (system qw/grep -qR/, '^\.\\\\" ' . $id . '\>',
+               unless (system qw/grep -qR/, '^\.\\\\" .*\<' . $id . '\>',
                    "$srcdir/") {
                        print "D- $line\n" if $verbose;
                        next;
                }
+               if ($id =~ /^ASN1_PCTX_FLAGS_\w+$/) {
+                       print "D- $line\n" if $verbose;
+                       next;
+               }
                if ($id =~ /^(?:ASN1|X509(?:V3)?)_[FR]_\w+$/) {
                        print "D- $line\n" if $verbose;
                        next;
@@ -210,11 +247,15 @@ try_again:
                        print "Fn $line\n" if $verbose;
                        next;
                }
-               unless (system qw/grep -qR/, '^\.\\\\" .*' . $id . '(3)',
+               unless (system qw/grep -qR/, '^\.\\\\" .*\<' . $id . '(3)',
                    "$srcdir/") {
                        print "F- $line\n" if $verbose;
                        next;
                }
+               if (grep { $_ eq $id } @obsolete) {
+                       print "F- $line\n" if $verbose;
+                       next;
+               }
                if ($verbose) {
                        print "XX $line\n";
                } else {
@@ -230,6 +271,10 @@ try_again:
                        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 {
@@ -286,7 +331,7 @@ try_again:
                        print "F- $line\n" if $verbose;
                        next;
                }
-               unless (system qw/grep -qR/, '^\.\\\\" .*' . $id . '\>',
+               unless (system qw/grep -qR/, '^\.\\\\" .*\<' . $id . '\>',
                    "$srcdir/") {
                        print "F- $line\n" if $verbose;
                        next;
@@ -295,6 +340,10 @@ try_again:
                        print "F- $line\n" if $verbose;
                        next;
                }
+               if ($id =~ /^ASN1_PCTX_\w+$/) {
+                       print "F- $line\n" if $verbose;
+                       next;
+               }
                if ($verbose) {
                        print "XX $line\n";
                } else {