repo.or.cz
/
Samba.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
s3-passdb: Respect LOOKUP_NAME_GROUP flag in sid lookup.
[Samba.git]
/
source3
/
script
/
count_80_col.pl
blob
8b226228c979127d164ca35e029f8f29403ad6a5
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