← Back to branch summary

~zulcss/samba/server-dailies-3.4

« back to all changes in this revision

Viewing changes to source3/script/count_80_col.pl

  • Committer: Chuck Short
  • Date: 2010-09-28 20:38:39 UTC
  • Revision ID: zulcss@ubuntu.com-20100928203839-pgjulytsi9ue63x1
Initial version

Show diffs side-by-side

added added

removed removed

Lines of Context:
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