1 files changed, 37 insertions, 98 deletions

diff --git a/src/lib/libcrypto/util/mkerr.pl b/src/lib/libcrypto/util/mkerr.pl
index 53e14ab4df..9678514604 100644
--- a/src/lib/libcrypto/util/mkerr.pl
+++ b/src/lib/libcrypto/util/mkerr.pl
@@ -44,7 +44,8 @@ while (@ARGV) {
 }
 
 if($recurse) {
-        @source = (<crypto/*.c>, <crypto/*/*.c>, <ssl/*.c>);
+        @source = (<crypto/*.c>, <crypto/*/*.c>, <ssl/*.c>, <fips-1.0/*.c>,
+                   <fips-1.0/*/*.c>);
 } else {
         @source = @ARGV;
 }
@@ -65,8 +66,6 @@ while(<IN>)
                         $csrc{$1} = $3;
                         $fmax{$1} = 99;
                         $rmax{$1} = 99;
-                        $fassigned{$1} = ":";
-                        $rassigned{$1} = ":";
                         $fnew{$1} = 0;
                         $rnew{$1} = 0;
                 }
@@ -105,24 +104,15 @@ while (($hdr, $lib) = each %libinc)
                     next;
                 }
 
-                if(/\/\*/) {
-                    if (not /\*\//) {           # multiline comment...
-                        $line = $_;             # ... just accumulate
-                        next; 
-                    } else {
-                        s/\/\*.*?\*\///gs;      # wipe it
-                    }
-                }
-
+                $cpp = 1 if /^#.*ifdef.*cplusplus/;  # skip "C" declaration
                 if ($cpp) {
-                    $cpp++ if /^#\s*if/;
-                    $cpp-- if /^#\s*endif/;
+                    $cpp = 0 if /^#.*endif/;
                     next;
                 }
-                $cpp = 1 if /^#.*ifdef.*cplusplus/;  # skip "C" declaration
 
                 next if (/^\#/);                      # skip preprocessor directives
 
+                s/\/\*.*?\*\///gs;                   # ignore comments
                 s/{[^{}]*}//gs;                      # ignore {} blocks
 
                 if (/\{|\/\*/) { # Add a } so editor works...
@@ -135,37 +125,31 @@ while (($hdr, $lib) = each %libinc)
 
         print STDERR "                                  \r" if $debug;
         $defnr = 0;
-        # Delete any DECLARE_ macros
-        $def =~ s/DECLARE_\w+\([\w,\s]+\)//gs;
         foreach (split /;/, $def) {
             $defnr++;
             print STDERR "def: $defnr\r" if $debug;
 
-            # The goal is to collect function names from function declarations.
-
             s/^[\n\s]*//g;
             s/[\n\s]*$//g;
-
-            # Skip over recognized non-function declarations
-            next if(/typedef\W/ or /DECLARE_STACK_OF/ or /TYPEDEF_.*_OF/);
-
-            # Remove STACK_OF(foo)
-            s/STACK_OF\(\w+\)/void/;
-
-            # Reduce argument lists to empty ()
-            # fold round brackets recursively: (t(*v)(t),t) -> (t{}{},t) -> {}
-            while(/\(.*\)/s) {
-                s/\([^\(\)]+\)/\{\}/gs;
-                s/\(\s*\*\s*(\w+)\s*\{\}\s*\)/$1/gs;    #(*f{}) -> f
-            }
-            # pretend as we didn't use curly braces: {} -> ()
-            s/\{\}/\(\)/gs;
-
-            if (/(\w+)\s*\(\).*/s) {    # first token prior [first] () is
-                my $name = $1;          # a function name!
+            next if(/typedef\W/);
+            if (/\(\*(\w*)\([^\)]+/) {
+                my $name = $1;
+                $name =~ tr/[a-z]/[A-Z]/;
+                $ftrans{$name} = $1;
+            } elsif (/\w+\W+(\w+)\W*\(\s*\)(\s*__attribute__\(.*\)\s*)?$/s){
+                # K&R C
+                next ;
+            } elsif (/\w+\W+\w+\W*\(.*\)(\s*__attribute__\(.*\)\s*)?$/s) {
+                while (not /\(\)(\s*__attribute__\(.*\)\s*)?$/s) {
+                    s/[^\(\)]*\)(\s*__attribute__\(.*\)\s*)?$/\)/s;
+                    s/\([^\(\)]*\)\)(\s*__attribute__\(.*\)\s*)?$/\)/s;
+                }
+                s/\(void\)//;
+                /(\w+(\{[0-9]+\})?)\W*\(\)/s;
+                my $name = $1;
                 $name =~ tr/[a-z]/[A-Z]/;
                 $ftrans{$name} = $1;
-            } elsif (/[\(\)]/ and not (/=/)) {
+            } elsif (/\(/ and not (/=/ or /DECLARE_STACK/)) {
                 print STDERR "Header $hdr: cannot parse: $_;\n";
             }
         }
@@ -178,7 +162,7 @@ while (($hdr, $lib) = each %libinc)
         # maximum code used.
 
         if ($gotfile) {
-          while(<IN>) {
+            while(<IN>) {
                 if(/^\#define\s+(\S+)\s+(\S+)/) {
                         $name = $1;
                         $code = $2;
@@ -189,49 +173,18 @@ while (($hdr, $lib) = each %libinc)
                         }
                         if($1 eq "R") {
                                 $rcodes{$name} = $code;
-                                if ($rassigned{$lib} =~ /:$code:/) {
-                                        print STDERR "!! ERROR: $lib reason code $code assigned twice\n";
-                                }
-                                $rassigned{$lib} .= "$code:";
                                 if(!(exists $rextra{$name}) &&
                                          ($code > $rmax{$lib}) ) {
                                         $rmax{$lib} = $code;
                                 }
                         } else {
-                                if ($fassigned{$lib} =~ /:$code:/) {
-                                        print STDERR "!! ERROR: $lib function code $code assigned twice\n";
-                                }
-                                $fassigned{$lib} .= "$code:";
                                 if($code > $fmax{$lib}) {
                                         $fmax{$lib} = $code;
                                 }
                                 $fcodes{$name} = $code;
                         }
                 }
-          }
-        }
-
-        if ($debug) {
-                if (defined($fmax{$lib})) {
-                        print STDERR "Max function code fmax" . "{" . "$lib" . "} = $fmax{$lib}\n";
-                        $fassigned{$lib} =~ m/^:(.*):$/;
-                        @fassigned = sort {$a <=> $b} split(":", $1);
-                        print STDERR "  @fassigned\n";
-                }
-                if (defined($rmax{$lib})) {
-                        print STDERR "Max reason code rmax" . "{" . "$lib" . "} = $rmax{$lib}\n";
-                        $rassigned{$lib} =~ m/^:(.*):$/;
-                        @rassigned = sort {$a <=> $b} split(":", $1);
-                        print STDERR "  @rassigned\n";
-                }
-        }
-
-        if ($lib eq "SSL") {
-                if ($rmax{$lib} >= 1000) {
-                        print STDERR "!! ERROR: SSL error codes 1000+ are reserved for alerts.\n";
-                        print STDERR "!!        Any new alerts must be added to $config.\n";
-                        print STDERR "\n";
-                }
+            }
         }
         close IN;
 }
@@ -248,10 +201,11 @@ while (($hdr, $lib) = each %libinc)
 # so all those unreferenced can be printed out.
 
 
+print STDERR "Files loaded: " if $debug;
 foreach $file (@source) {
         # Don't parse the error source file.
         next if exists $cskip{$file};
-        print STDERR "File loaded: ".$file."\r" if $debug;
+        print STDERR $file if $debug;
         open(IN, "<$file") || die "Can't open source file $file\n";
         while(<IN>) {
                 if(/(([A-Z0-9]+)_F_([A-Z0-9_]+))/) {
@@ -275,7 +229,7 @@ foreach $file (@source) {
         }
         close IN;
 }
-print STDERR "                                  \n" if $debug;
+print STDERR "\n" if $debug;
 
 # Now process each library in turn.
 
@@ -312,7 +266,7 @@ foreach $lib (keys %csrc)
         } else {
             push @out,
 "/* ====================================================================\n",
-" * Copyright (c) 2001-2008 The OpenSSL Project.  All rights reserved.\n",
+" * Copyright (c) 2001-2005 The OpenSSL Project.  All rights reserved.\n",
 " *\n",
 " * Redistribution and use in source and binary forms, with or without\n",
 " * modification, are permitted provided that the following conditions\n",
@@ -402,16 +356,7 @@ EOF
         foreach $i (@function) {
                 $z=6-int(length($i)/8);
                 if($fcodes{$i} eq "X") {
-                        $fassigned{$lib} =~ m/^:([^:]*):/;
-                        $findcode = $1;
-                        if (!defined($findcode)) {
-                                $findcode = $fmax{$lib};
-                        }
-                        while ($fassigned{$lib} =~ m/:$findcode:/) {
-                                $findcode++;
-                        }
-                        $fcodes{$i} = $findcode;
-                        $fassigned{$lib} .= "$findcode:";
+                        $fcodes{$i} = ++$fmax{$lib};
                         print STDERR "New Function code $i\n" if $debug;
                 }
                 printf OUT "#define $i%s $fcodes{$i}\n","\t" x $z;
@@ -422,16 +367,7 @@ EOF
         foreach $i (@reasons) {
                 $z=6-int(length($i)/8);
                 if($rcodes{$i} eq "X") {
-                        $rassigned{$lib} =~ m/^:([^:]*):/;
-                        $findcode = $1;
-                        if (!defined($findcode)) {
-                                $findcode = $rmax{$lib};
-                        }
-                        while ($rassigned{$lib} =~ m/:$findcode:/) {
-                                $findcode++;
-                        }
-                        $rcodes{$i} = $findcode;
-                        $rassigned{$lib} .= "$findcode:";
+                        $rcodes{$i} = ++$rmax{$lib};
                         print STDERR "New Reason code   $i\n" if $debug;
                 }
                 printf OUT "#define $i%s $rcodes{$i}\n","\t" x $z;
@@ -486,7 +422,7 @@ EOF
         print OUT <<"EOF";
 /* $cfile */
 /* ====================================================================
- * Copyright (c) 1999-2008 The OpenSSL Project.  All rights reserved.
+ * Copyright (c) 1999-2005 The OpenSSL Project.  All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
  * modification, are permitted provided that the following conditions
@@ -600,14 +536,17 @@ if($static) {
 
 ${staticloader}void ERR_load_${lib}_strings(void)
         {
-#ifndef OPENSSL_NO_ERR
+        static int init=1;
 
-        if (ERR_func_error_string(${lib}_str_functs[0].error) == NULL)
+        if (init)
                 {
+                init=0;
+#ifndef OPENSSL_NO_ERR
                 ERR_load_strings($load_errcode,${lib}_str_functs);
                 ERR_load_strings($load_errcode,${lib}_str_reasons);
-                }
 #endif
+
+                }
         }
 EOF
 } else {