10 "BUF", "buffer/buffer.err",
12 "OBJ", "objects/objects.err",
14 "X509", "x509/x509.err",
15 "METH", "meth/meth.err",
16 "ASN1", "asn1/asn1.err",
17 "CONF", "conf/conf.err",
18 "PROXY","proxy/proxy.err",
19 "PKCS7","pkcs7/pkcs7.err",
20 "RSAREF","../rsaref/rsaref.err",
21 "SSL", "../ssl/ssl.err",
22 "SSL2", "../ssl/ssl2.err",
23 "SSL3", "../ssl/ssl3.err",
24 "SSL23","../ssl/ssl23.err",
27 $function{'RSAREF_F_RSA_BN2BIN'}=1;
28 $function{'RSAREF_F_RSA_PRIVATE_DECRYPT'}=1;
29 $function{'RSAREF_F_RSA_PRIVATE_ENCRYPT'}=1;
30 $function{'RSAREF_F_RSA_PUBLIC_DECRYPT'}=1;
31 $function{'RSAREF_F_RSA_PUBLIC_ENCRYPT'}=1;
32 $function{'SSL_F_CLIENT_CERTIFICATE'}=1;
34 $r_value{'SSL_R_SSLV3_ALERT_UNEXPECTED_MESSAGE'}= 1010;
35 $r_value{'SSL_R_SSLV3_ALERT_BAD_RECORD_MAC'}= 1020;
36 $r_value{'SSL_R_SSLV3_ALERT_DECOMPRESSION_FAILURE'}=1030;
37 $r_value{'SSL_R_SSLV3_ALERT_HANDSHAKE_FAILURE'}= 1040;
38 $r_value{'SSL_R_SSLV3_ALERT_NO_CERTIFICATE'}= 1041;
39 $r_value{'SSL_R_SSLV3_ALERT_BAD_CERTIFICATE'}= 1042;
40 $r_value{'SSL_R_SSLV3_ALERT_UNSUPPORTED_CERTIFICATE'}=1043;
41 $r_value{'SSL_R_SSLV3_ALERT_CERTIFICATE_REVOKED'}= 1044;
42 $r_value{'SSL_R_SSLV3_ALERT_CERTIFICATE_EXPIRED'}= 1045;
43 $r_value{'SSL_R_SSLV3_ALERT_CERTIFICATE_UNKNOWN'}= 1046;
44 $r_value{'SSL_R_SSLV3_ALERT_ILLEGAL_PARAMETER'}= 1047;
46 $r_value{'RSAREF_R_CONTENT_ENCODING'}= 0x0400;
47 $r_value{'RSAREF_R_DATA'}= 0x0401;
48 $r_value{'RSAREF_R_DIGEST_ALGORITHM'}= 0x0402;
49 $r_value{'RSAREF_R_ENCODING'}= 0x0403;
50 $r_value{'RSAREF_R_KEY'}= 0x0404;
51 $r_value{'RSAREF_R_KEY_ENCODING'}= 0x0405;
52 $r_value{'RSAREF_R_LEN'}= 0x0406;
53 $r_value{'RSAREF_R_MODULUS_LEN'}= 0x0407;
54 $r_value{'RSAREF_R_NEED_RANDOM'}= 0x0408;
55 $r_value{'RSAREF_R_PRIVATE_KEY'}= 0x0409;
56 $r_value{'RSAREF_R_PUBLIC_KEY'}= 0x040a;
57 $r_value{'RSAREF_R_SIGNATURE'}= 0x040b;
58 $r_value{'RSAREF_R_SIGNATURE_ENCODING'}=0x040c;
59 $r_value{'RSAREF_R_ENCRYPTION_ALGORITHM'}=0x040d;
64 if (/err\(([A-Z0-9]+_F_[0-9A-Z_]+)\s*,\s*([0-9A-Z]+_R_[0-9A-Z_]+)\s*\)/)
68 if ($function{$1} == 0)
70 printf STDERR "$. $1 is bad\n";
79 foreach (keys %function,keys %reason)
85 @F=sort keys %function;
87 foreach $j (sort keys %prefix)
89 next if $errfile{$j} eq "NONE";
90 printf STDERR "doing %-6s - ",$j;
91 open(OUT,">$errfile{$j}") || die "unable to open '$errfile{$j}':$!\n";
95 print OUT "/* Error codes for the $j functions. */\n\n";
96 print OUT "/* Function codes. */\n";
100 $z=6-int(length($i)/8);
101 printf OUT "#define $i%s $num\n","\t" x $z;
106 print OUT "\n/* Reason codes. */\n";
110 $z=6-int(length($i)/8);
111 if (defined($r_value{$i}))
113 printf OUT "#define $i%s $r_value{$i}\n","\t" x $z;
117 printf OUT "#define $i%s $num\n","\t" x $z;
124 printf STDERR "%3d functions, %3d reasons\n",$f_count,$r_count;