X-Git-Url: http://git.silcnet.org/gitweb/?a=blobdiff_plain;f=apps%2Firssi%2Ffindsyntax.pl;fp=apps%2Firssi%2Ffindsyntax.pl;h=e24d50f0b92a2110863c80ee3bb048a2d53300a9;hb=23c5df1c8b0bfe539d3fa65802186e6e09e044aa;hp=0000000000000000000000000000000000000000;hpb=0f9738ce962b8498bbed0a75d5fb6fa127e3577f;p=silc.git

diff --git a/apps/irssi/findsyntax.pl b/apps/irssi/findsyntax.pl
new file mode 100755
index 00000000..e24d50f0
--- /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;
+	}
+}