mirror of
https://github.com/irssi/irssi.git
synced 2026-08-17 07:32:04 +02:00
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:
parent
0977ab90e5
commit
e23760fb25
2 changed files with 18 additions and 3 deletions
14
findsyntax.pl
Executable file
14
findsyntax.pl
Executable 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;
|
||||
}
|
||||
}
|
||||
Loading…
Add table
Add a link
Reference in a new issue