From 9f4876c5867098c09095c6dc6305e3addf85a4ca Mon Sep 17 00:00:00 2001 From: Gerald Carter Date: Mon, 25 Jun 2007 14:40:59 +0000 Subject: r23597: add a few utility scripts for code formatting (This used to be commit 3fc0bd3e540652742f5bdd7afa88d80b893e50cd) --- source3/script/count_80_col.pl | 15 +++++++++++++++ 1 file changed, 15 insertions(+) create mode 100755 source3/script/count_80_col.pl (limited to 'source3/script/count_80_col.pl') 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 ( ) { + $count++ if (length($_) > 80); +} + +close( INFILE ); +print "$ARGV[0]: $count lines > 80 characters\n" if ($count > 0); + +exit( 0 ); + + -- cgit