diff options
author | Dr. Stephen Henson <steve@openssl.org> | 2015-11-03 13:52:45 +0000 |
---|---|---|
committer | Dr. Stephen Henson <steve@openssl.org> | 2015-11-05 15:48:37 +0000 |
commit | f4c38857d75a8f95c0991feae514f8c3de3f060e (patch) | |
tree | b37cb05c3fd5fb0edf959043c4ee5dd13371acef /util/mkerr.pl | |
parent | cf0113eb47111b437658844bfc1ea87c38ca19ad (diff) | |
download | openssl-new-f4c38857d75a8f95c0991feae514f8c3de3f060e.tar.gz |
Read function names from C source files.
In mkerr.pl read parse functions names in C source files and use
them for translation and sanity checks.
Reviewed-by: Richard Levitte <levitte@openssl.org>
Diffstat (limited to 'util/mkerr.pl')
-rw-r--r-- | util/mkerr.pl | 15 |
1 files changed, 14 insertions, 1 deletions
diff --git a/util/mkerr.pl b/util/mkerr.pl index 8a51588c88..95f288304e 100644 --- a/util/mkerr.pl +++ b/util/mkerr.pl @@ -328,9 +328,18 @@ foreach $file (@source) { next if exists $cskip{$file}; print STDERR "File loaded: ".$file."\r" if $debug; open(IN, "<$file") || die "Can't open source file $file\n"; + my $func; + my $linenr = 0; while(<IN>) { # skip obsoleted source files entirely! last if(/^#error\s+obsolete/); + $linenr++; + if (!/;$/ && /^\**([a-zA-Z_].*[\s*])?([A-Za-z_0-9]+)\(.*([),]|$)/) + { + /^([^()]*(\([^()]*\)[^()]*)*)\(/; + $1 =~ /([A-Za-z_0-9]*)$/; + $func = $1; + } if(/(([A-Z0-9]+)_F_([A-Z0-9_]+))/) { next unless exists $csrc{$2}; @@ -340,7 +349,11 @@ foreach $file (@source) { $fcodes{$1} = "X"; $fnew{$2}++; } - $notrans{$1} = 1 unless exists $ftrans{$3}; + $ftrans{$3} = $func unless exists $ftrans{$3}; + if (uc $func ne $3) { + print STDERR "ERROR: mismatch $file:$linenr $func:$3\n"; + $errcount++; + } print STDERR "Function: $1\t= $fcodes{$1} (lib: $2, name: $3)\n" if $debug; } if(/(([A-Z0-9]+)_R_[A-Z0-9_]+)/) { |