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:
Anthony Minessale 2008-05-27 04:31:01 +00:00
parent 3c349c274e
commit 263b226665
1 changed files with 21 additions and 0 deletions

21
build/gen_indent.pl Normal file
View File

@ -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;