1
0
mirror of https://github.com/irssi/irssi.git synced 2024-12-04 14:46:39 -05:00
irssi/findsyntax.pl

15 lines
150 B
Perl
Raw Normal View History

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