Author: anthm Date: Tue May 27 00:31:01 2008 New Revision: 8687 Added: freeswitch/trunk/build/gen_indent.pl Log: add gen_indent.pl Added: freeswitch/trunk/build/gen_indent.pl ============================================================================== --- (empty file) +++ freeswitch/trunk/build/gen_indent.pl Tue May 27 00:31:01 2008 @@ -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;