1
0
mirror of https://github.com/samba-team/samba.git synced 2024-12-22 13:34:15 +03:00
samba-mirror/source3/script/count_80_col.pl
Günther Deschner 1ba6b71691 r24421: Ignore long #defines (like for registry keys).
Guenther
(This used to be commit b310b1dfd6)
2007-10-10 12:29:44 -05:00

17 lines
253 B
Perl
Executable File

#!/usr/bin/perl -w
open( INFILE, "$ARGV[0]" ) || die $@;
$count = 0;
while ( <INFILE> ) {
next if ($_ =~ /^#define/);
$count++ if (length($_) > 80);
}
close( INFILE );
print "$ARGV[0]: $count lines > 80 characters\n" if ($count > 0);
exit( 0 );