diff options
author | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-04-19 17:20:00 +0000 |
---|---|---|
committer | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-04-19 17:20:00 +0000 |
commit | 8daa83a594a2e98f39d764422bfbdbc62c9efd44 (patch) | |
tree | 4099e8021376c7d8c05bdf8503093d80e9c7bad0 /source3/script/count_80_col.pl | |
parent | Initial commit. (diff) | |
download | samba-8daa83a594a2e98f39d764422bfbdbc62c9efd44.tar.xz samba-8daa83a594a2e98f39d764422bfbdbc62c9efd44.zip |
Adding upstream version 2:4.20.0+dfsg.upstream/2%4.20.0+dfsg
Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
Diffstat (limited to 'source3/script/count_80_col.pl')
-rwxr-xr-x | source3/script/count_80_col.pl | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/source3/script/count_80_col.pl b/source3/script/count_80_col.pl new file mode 100755 index 0000000..8b22622 --- /dev/null +++ b/source3/script/count_80_col.pl @@ -0,0 +1,16 @@ +#!/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 ); + + |