forked from Mirrors/freeswitch
add gen_indent.pl
git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@8687 d0543943-73ff-0310-b7d9-9358b9ac24b2
This commit is contained in:
parent
3c349c274e
commit
263b226665
|
@ -0,0 +1,21 @@
|
|||
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;
|
Loading…
Reference in New Issue