imported irssi.

[silc.git] / apps / irssi / findsyntax.pl

diff --git a/apps/irssi/findsyntax.pl b/apps/irssi/findsyntax.pl
new file mode 100755 (executable)
index 0000000..e24d50f
--- /dev/null
+++ b/apps/irssi/findsyntax.pl
@@ -0,0 +1,18 @@
+#!/usr/bin/perl -w
+
+while(<>) {
+       if(m!/\*.SYNTAX\:! || $tt) {
+               s/^\s+/ /;
+               if (/^ [A-Z]+/) {
+                       print "\n";
+                        s/^ //;
+               }
+               if (m!\*/!) {
+                       $tt=0;
+               } else {
+                       $tt=1;
+                       chomp;
+               }
+               print;
+       }
+}