findsyntax.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14

#!/usr/bin/perl -w

while(<>) {
	if(m!/\*.SYNTAX\:! || $tt) {
		s!^\s+! !;
		if (m#\*/#) {
			$tt=0;
		} else {
			$tt=1;
			chomp;
		}
		print;
	}
}