samba-mirror

mirror of https://github.com/samba-team/samba.git synced 2024-12-25 23:21:54 +03:00

r23597: add a few utility scripts for code formatting (This used to be commit 3fc0bd3e540652742f5bdd7afa88d80b893e50cd) 2007-06-25 18:40:59 +04:00			`#!/usr/bin/perl -w`

			`open( INFILE, "$ARGV[0]" ) \|\| die $@;`

			`$count = 0;`
r24421: Ignore long #defines (like for registry keys). Guenther (This used to be commit b310b1dfd69ba0470b66eb84007f28e5e69e92e7) 2007-08-14 19:40:49 +04:00			`while ( <INFILE> ) {`
			`next if ($_ =~ /^#define/);`
r23597: add a few utility scripts for code formatting (This used to be commit 3fc0bd3e540652742f5bdd7afa88d80b893e50cd) 2007-06-25 18:40:59 +04:00			`$count++ if (length($_) > 80);`
			`}`

			`close( INFILE );`
			`print "$ARGV[0]: $count lines > 80 characters\n" if ($count > 0);`

			`exit( 0 );`