diff options
| author | djm <> | 2008-09-06 12:17:54 +0000 |
|---|---|---|
| committer | djm <> | 2008-09-06 12:17:54 +0000 |
| commit | 6b62d1fdd8a4fd35acfcc0c4bb1bf8b757fa8cda (patch) | |
| tree | 7ccc28afe1789ea3dbedf72365f955d5b8e105b5 /src/lib/libcrypto/util/ck_errf.pl | |
| parent | 89181603212b41e95cde36b1be5a146ce8fb2935 (diff) | |
| download | openbsd-6b62d1fdd8a4fd35acfcc0c4bb1bf8b757fa8cda.tar.gz openbsd-6b62d1fdd8a4fd35acfcc0c4bb1bf8b757fa8cda.tar.bz2 openbsd-6b62d1fdd8a4fd35acfcc0c4bb1bf8b757fa8cda.zip | |
resolve conflicts
Diffstat (limited to 'src/lib/libcrypto/util/ck_errf.pl')
| -rw-r--r-- | src/lib/libcrypto/util/ck_errf.pl | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/src/lib/libcrypto/util/ck_errf.pl b/src/lib/libcrypto/util/ck_errf.pl index 7a24d6c5a2..344b422c34 100644 --- a/src/lib/libcrypto/util/ck_errf.pl +++ b/src/lib/libcrypto/util/ck_errf.pl | |||
| @@ -13,16 +13,21 @@ foreach $file (@ARGV) | |||
| 13 | $func=""; | 13 | $func=""; |
| 14 | while (<IN>) | 14 | while (<IN>) |
| 15 | { | 15 | { |
| 16 | if (/^[a-zA-Z].+[\s*]([A-Za-z_0-9]+)\(.*\)/) | 16 | if (!/;$/ && /^([a-zA-Z].*[\s*])?([A-Za-z_0-9]+)\(.*[),]/) |
| 17 | { | 17 | { |
| 18 | $func=$1; | 18 | /^([^()]*(\([^()]*\)[^()]*)*)\(/; |
| 19 | $1 =~ /([A-Za-z_0-9]*)$/; | ||
| 20 | $func = $1; | ||
| 19 | $func =~ tr/A-Z/a-z/; | 21 | $func =~ tr/A-Z/a-z/; |
| 20 | } | 22 | } |
| 21 | if (/([A-Z0-9]+)err\(([^,]+)/) | 23 | if (/([A-Z0-9]+)err\(([^,]+)/) |
| 22 | { | 24 | { |
| 23 | next if ($func eq ""); | ||
| 24 | $errlib=$1; | 25 | $errlib=$1; |
| 25 | $n=$2; | 26 | $n=$2; |
| 27 | |||
| 28 | if ($func eq "") | ||
| 29 | { print "$file:$.:???:$n\n"; next; } | ||
| 30 | |||
| 26 | if ($n !~ /([^_]+)_F_(.+)$/) | 31 | if ($n !~ /([^_]+)_F_(.+)$/) |
| 27 | { | 32 | { |
| 28 | # print "check -$file:$.:$func:$n\n"; | 33 | # print "check -$file:$.:$func:$n\n"; |
| @@ -32,7 +37,7 @@ foreach $file (@ARGV) | |||
| 32 | $n=$2; | 37 | $n=$2; |
| 33 | 38 | ||
| 34 | if ($lib ne $errlib) | 39 | if ($lib ne $errlib) |
| 35 | { print "$file:$.:$func:$n\n"; next; } | 40 | { print "$file:$.:$func:$n [${errlib}err]\n"; next; } |
| 36 | 41 | ||
| 37 | $n =~ tr/A-Z/a-z/; | 42 | $n =~ tr/A-Z/a-z/; |
| 38 | if (($n ne $func) && ($errlib ne "SYS")) | 43 | if (($n ne $func) && ($errlib ne "SYS")) |
