File: findsyntax.pl

package info (click to toggle)
irssi 0.8.10-3
  • links: PTS
  • area: main
  • in suites: etch
  • size: 8,964 kB
  • ctags: 5,972
  • sloc: ansic: 55,008; sh: 36,071; perl: 2,460; makefile: 1,030
file content (18 lines) | stat: -rwxr-xr-x 221 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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;
	}
}