Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
22 lines (17 sloc) 307 Bytes
open O, ">.indent.pro";
select O;
while (<>) {
open I, $_;
while(<I>) {
if (/([\w\d]+_t)[\s\)]/) {
##print "-T $1 ";
$h{$1}++;
}
}
close I;
}
print "-brs -sai -npsl -di0 -br -ce -d0 -cli0 -npcs -nfc1 -ut -i4 -ts4 -l155 -cs ";
foreach (keys %h) {
print "-T $_ ";
}
close O;