diff options
| author | Gerald Carter <jerry@samba.org> | 2007-06-25 14:40:59 +0000 |
|---|---|---|
| committer | Gerald (Jerry) Carter <jerry@samba.org> | 2007-10-10 12:23:34 -0500 |
| commit | 9f4876c5867098c09095c6dc6305e3addf85a4ca (patch) | |
| tree | d6a0d0b628bb6efcf71aea3f958b0135673fc213 /source3/script/count_80_col.pl | |
| parent | 78fcf93d88a1a786fb56a98ff043d217d62f406d (diff) | |
| download | samba-9f4876c5867098c09095c6dc6305e3addf85a4ca.tar.gz samba-9f4876c5867098c09095c6dc6305e3addf85a4ca.tar.bz2 samba-9f4876c5867098c09095c6dc6305e3addf85a4ca.zip | |
r23597: add a few utility scripts for code formatting
(This used to be commit 3fc0bd3e540652742f5bdd7afa88d80b893e50cd)
Diffstat (limited to 'source3/script/count_80_col.pl')
| -rwxr-xr-x | source3/script/count_80_col.pl | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/source3/script/count_80_col.pl b/source3/script/count_80_col.pl new file mode 100755 index 0000000000..e1c8ff46a2 --- /dev/null +++ b/source3/script/count_80_col.pl @@ -0,0 +1,15 @@ +#!/usr/bin/perl -w + +open( INFILE, "$ARGV[0]" ) || die $@; + +$count = 0; +while ( <INFILE> ) { + $count++ if (length($_) > 80); +} + +close( INFILE ); +print "$ARGV[0]: $count lines > 80 characters\n" if ($count > 0); + +exit( 0 ); + + |