Fixed to work with multiline syntaxes (by lite)

git-svn-id: http://svn.irssi.org/repos/irssi/trunk@766 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Timo Sirainen 2000-10-17 23:45:00 +00:00 committed by cras
commit e23760fb25
2 changed files with 18 additions and 3 deletions

14
findsyntax.pl Executable file
View file

@ -0,0 +1,14 @@
#!/usr/bin/perl -w
while(<>) {
if(m!/\*.SYNTAX\:! || $tt) {
s!^\s+! !;
if (m#\*/#) {
$tt=0;
} else {
$tt=1;
chomp;
}
print;
}
}