fd6becc423f0a33149e089fc27adc3b7a7754b8a
[openssl.git] / util / ck_errf.pl
1 #!/usr/local/bin/perl
2 #
3 # This is just a quick script to scan for cases where the 'error'
4 # function name in a XXXerr() macro is wrong.
5
6 # Run in the top level by going
7 # perl util/ck_errf.pl */*.c */*/*.c
8 #
9
10 foreach $file (@ARGV)
11         {
12         open(IN,"<$file") || die "unable to open $file\n";
13         $func="";
14         while (<IN>)
15                 {
16                 if (!/;$/ && /^([a-zA-Z].*[\s*])?([A-Za-z_0-9]+)\(.*[),]/)
17                         {
18                         /^([^()]*(\([^()]*\)[^()]*)*)\(/;
19                         $1 =~ /([A-Za-z_0-9]*)$/;
20                         $func = $1;
21                         $func =~ tr/A-Z/a-z/;
22                         }
23                 if (/([A-Z0-9]+)err\(([^,]+)/ && ! /ckerr_ignore/)
24                         {
25                         $errlib=$1;
26                         $n=$2;
27
28                         if ($func eq "")
29                                 { print "$file:$.:???:$n\n"; next; }
30
31                         if ($n !~ /([^_]+)_F_(.+)$/)
32                                 {
33                 #               print "check -$file:$.:$func:$n\n";
34                                 next;
35                                 }
36                         $lib=$1;
37                         $n=$2;
38
39                         if ($lib ne $errlib)
40                                 { print "$file:$.:$func:$n [${errlib}err]\n"; next; }
41
42                         $n =~ tr/A-Z/a-z/;
43                         if (($n ne $func) && ($errlib ne "SYS"))
44                                 { print "$file:$.:$func:$n\n"; next; }
45         #               print "$func:$1\n";
46                         }
47                 }
48         close(IN);
49         }
50