Return to var-checker CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / rsync / packaging

Annotation of embedaddon/rsync/packaging/var-checker, revision 1.1

1.1     ! misho       1: #!/usr/bin/perl
        !             2: # This script checks the *.c files for extraneous "extern" variables,
        !             3: # for vars that are defined but not used, and for inconsistent array
        !             4: # sizes.  Run it from inside the main rsync directory.
        !             5: 
        !             6: use strict;
        !             7: use warnings;
        !             8: 
        !             9: my %add_syscall_c = map { $_ => 1 } qw( t_stub.c t_unsafe.c tls.c trimslash.c );
        !            10: my %add_compat_c = map { $_ => 1 } qw( t_stub.c tls.c trimslash.c wildtest.c );
        !            11: my %add_util_c = map { $_ => 1 } qw( t_stub.c t_unsafe.c );
        !            12: my %sizes;
        !            13: 
        !            14: open(IN, '<', 'syscall.c') or die $!;
        !            15: undef $/; my $syscall_c = <IN>; $/ = "\n";
        !            16: close IN;
        !            17: $syscall_c =~ s/^extern\s.*//mg;
        !            18: 
        !            19: open(IN, '<', 'lib/compat.c') or die $!;
        !            20: undef $/; my $compat_c = <IN>; $/ = "\n";
        !            21: close IN;
        !            22: $compat_c =~ s/^extern\s.*//mg;
        !            23: 
        !            24: open(IN, '<', 'util.c') or die $!;
        !            25: undef $/; my $util_c = <IN>; $/ = "\n";
        !            26: close IN;
        !            27: $util_c =~ s/^extern\s.*//mg;
        !            28: 
        !            29: my @files = glob('*.c');
        !            30: 
        !            31: foreach my $fn (@files) {
        !            32:     open(IN, '<', $fn) or die $!;
        !            33:     undef $/; $_ = <IN>; $/ = "\n";
        !            34:     close IN;
        !            35: 
        !            36:     my @vars = /^(?!(?:extern|enum)\s)([a-zA-Z]\S*\s+.*);/mg;
        !            37:     my @externs = /^extern\s+(.*);/mg;
        !            38: 
        !            39:     $_ .= $syscall_c if $add_syscall_c{$fn};
        !            40:     $_ .= $compat_c if $add_compat_c{$fn};
        !            41:     $_ .= $util_c if $add_util_c{$fn};
        !            42:     s/INFO_GTE/info_levels/g;
        !            43:     s/DEBUG_GTE/debug_levels/g;
        !            44: 
        !            45:     check_vars($fn, 'var', @vars);
        !            46:     check_vars($fn, 'extern', @externs);
        !            47: }
        !            48: 
        !            49: exit;
        !            50: 
        !            51: # The file's contents are in $_.
        !            52: sub check_vars
        !            53: {
        !            54:     my $fn = shift;
        !            55:     my $type = shift;
        !            56: 
        !            57:     foreach my $line (@_) {
        !            58:        $line =~ s/\s*\{.*\}//;
        !            59:        $line =~ s/\s*\(.*\)//;
        !            60:        foreach my $item (split(/\s*,\s*/, $line)) {
        !            61:            $item =~ s/\s*=.*//;
        !            62:            my $sz = $item =~ s/(\[.*?\])// ? $1 : '';
        !            63:            my($var) = $item =~ /([^*\s]+)$/;
        !            64:            if (!defined $var) {
        !            65:                print "Bogus match? ($item)\n";
        !            66:                next;
        !            67:            }
        !            68:            if ($sz) {
        !            69:                if (defined $sizes{$var}) {
        !            70:                    if ($sizes{$var} ne $sz) {
        !            71:                        print $fn, ' has inconsistent size for "', $var,
        !            72:                            "\": $sizes{$var} vs $sz\n";
        !            73:                    }
        !            74:                } else {
        !            75:                    $sizes{$var} = $sz;
        !            76:                }
        !            77:            }
        !            78:            my @matches = /(?<!\sstruct )\b(\Q$var\E)(?!\w)/g;
        !            79:            push(@matches, /(\QSIGACTION(\E)/g) if $var eq 'sigact';
        !            80:            print $fn, " has extraneous $type: \"", $var, "\"\n" if @matches == 1;
        !            81:        }
        !            82:     }
        !            83: }