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 10my $err_strict = 0; 11my $bad = 0; 12 13foreach $file (@ARGV) 14 { 15 if ($file eq "-strict") 16 { 17 $err_strict = 1; 18 next; 19 } 20 open(IN,"<$file") || die "unable to open $file\n"; 21 $func=""; 22 while (<IN>) 23 { 24 if (!/;$/ && /^([a-zA-Z].*[\s*])?([A-Za-z_0-9]+)\(.*[),]/) 25 { 26 /^([^()]*(\([^()]*\)[^()]*)*)\(/; 27 $1 =~ /([A-Za-z_0-9]*)$/; 28 $func = $1; 29 $func =~ tr/A-Z/a-z/; 30 } 31 if (/([A-Z0-9]+)err\(([^,]+)/ && ! /ckerr_ignore/) 32 { 33 $errlib=$1; 34 $n=$2; 35 36 if ($func eq "") 37 { print "$file:$.:???:$n\n"; $bad = 1; next; } 38 39 if ($n !~ /([^_]+)_F_(.+)$/) 40 { 41 # print "check -$file:$.:$func:$n\n"; 42 next; 43 } 44 $lib=$1; 45 $n=$2; 46 47 if ($lib ne $errlib) 48 { print "$file:$.:$func:$n [${errlib}err]\n"; $bad = 1; next; } 49 50 $n =~ tr/A-Z/a-z/; 51 if (($n ne $func) && ($errlib ne "SYS")) 52 { print "$file:$.:$func:$n\n"; $bad = 1; next; } 53 # print "$func:$1\n"; 54 } 55 } 56 close(IN); 57 } 58 59if ($bad && $err_strict) 60 { 61 print STDERR "FATAL: error discrepancy\n"; 62 exit 1; 63 } 64 65