git.samba.org
/
obnox
/
samba
/
samba-obnox.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
tdb: add a 'new_size' helper variable to tdb_expand_file()
[obnox/samba/samba-obnox.git]
/
source3
/
script
/
count_80_col.pl
1
#!/usr/bin/perl -w
2
3
open( INFILE, "$ARGV[0]" ) || die $@;
4
5
$count = 0;
6
while ( <INFILE> ) {
7
next if ($_ =~ /^#define/);
8
$count++ if (length($_) > 80);
9
}
10
11
close( INFILE );
12
print "$ARGV[0]: $count lines > 80 characters\n" if ($count > 0);
13
14
exit( 0 );
15
16