diff options
Diffstat (limited to 'util/ck_errf.pl')
-rwxr-xr-x | util/ck_errf.pl | 45 |
1 files changed, 0 insertions, 45 deletions
diff --git a/util/ck_errf.pl b/util/ck_errf.pl deleted file mode 100755 index 7a24d6c..0000000 --- a/util/ck_errf.pl +++ /dev/null @@ -1,45 +0,0 @@ -#!/usr/local/bin/perl -# -# This is just a quick script to scan for cases where the 'error' -# function name in a XXXerr() macro is wrong. -# -# Run in the top level by going -# perl util/ck_errf.pl */*.c */*/*.c -# - -foreach $file (@ARGV) - { - open(IN,"<$file") || die "unable to open $file\n"; - $func=""; - while (<IN>) - { - if (/^[a-zA-Z].+[\s*]([A-Za-z_0-9]+)\(.*\)/) - { - $func=$1; - $func =~ tr/A-Z/a-z/; - } - if (/([A-Z0-9]+)err\(([^,]+)/) - { - next if ($func eq ""); - $errlib=$1; - $n=$2; - if ($n !~ /([^_]+)_F_(.+)$/) - { - # print "check -$file:$.:$func:$n\n"; - next; - } - $lib=$1; - $n=$2; - - if ($lib ne $errlib) - { print "$file:$.:$func:$n\n"; next; } - - $n =~ tr/A-Z/a-z/; - if (($n ne $func) && ($errlib ne "SYS")) - { print "$file:$.:$func:$n\n"; next; } - # print "$func:$1\n"; - } - } - close(IN); - } - |