File: findsyntax.pl

package info (click to toggle)

irssi-text 0.8.4-3.1

links: PTS
area: main
in suites: woody
size: 6,048 kB
ctags: 5,670
sloc: ansic: 51,220; sh: 8,913; perl: 1,076; makefile: 1,017

file content (18 lines) | stat: -rwxr-xr-x 221 bytes

parent folder | download | duplicates (5)

#!/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;
	}
}