mirror of
https://github.com/irssi/irssi.git
synced 2024-08-18 03:54:16 -04:00
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@1074 dbcabf3a-b0e7-0310-adc4-f8d773084564
19 lines
221 B
Perl
Executable File
19 lines
221 B
Perl
Executable File
#!/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;
|
|
}
|
|
}
|