[Freeswitch-svn] [commit] r8687 - freeswitch/trunk/build

[Freeswitch SVN]

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;