1 files changed, 14 insertions, 0 deletions
diff --git a/findsyntax.pl b/findsyntax.pl
new file mode 100755
index 00000000..5389302c
--- /dev/null
+++ b/findsyntax.pl
@@ -0,0 +1,14 @@
+#!/usr/bin/perl -w
+
+while(<>) {
+	if(m!/\*.SYNTAX\:! || $tt) {
+		s!^\s+! !;
+		if (m#\*/#) {
+			$tt=0;
+		} else {
+			$tt=1;
+			chomp;
+		}
+		print;
+	}
+}