![Anthony Minessale](/assets/img/avatar_default.png)
git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@8687 d0543943-73ff-0310-b7d9-9358b9ac24b2
22 lines
307 B
Perl
22 lines
307 B
Perl
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;
|