mirror of
https://github.com/irssi/irssi.git
synced 2024-09-01 04:14:16 -04: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
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;
|
||||||
|
}
|
||||||
|
}
|
@ -10,8 +10,8 @@
|
|||||||
# Remember to include the asterisk ('*').
|
# Remember to include the asterisk ('*').
|
||||||
$SRC_PATH='src';
|
$SRC_PATH='src';
|
||||||
|
|
||||||
# This is quick and dirty, but works for sure :)
|
$FOO = `find src -name '*.c' -exec ./findsyntax.pl \{\} \\; | sed 's/.*SYNTAX: //' > irssi_syntax`;
|
||||||
$FOO = `find src -name '*.c' -exec grep -e '/* SYNTAX:' \{\} \\; | sed 's/.*SYNTAX: //' > irssi_syntax`;
|
|
||||||
|
|
||||||
while (<docs/help/in/*.in>) {
|
while (<docs/help/in/*.in>) {
|
||||||
open (FILE, "$_");
|
open (FILE, "$_");
|
||||||
@ -21,7 +21,8 @@ while (<docs/help/in/*.in>) {
|
|||||||
if ($DATARIVI =~ /\@SYNTAX\:(.+)\@/) {
|
if ($DATARIVI =~ /\@SYNTAX\:(.+)\@/) {
|
||||||
$etsittava = "\U$1 ";
|
$etsittava = "\U$1 ";
|
||||||
$SYNTAX = `grep \'^$etsittava\' irssi_syntax`;
|
$SYNTAX = `grep \'^$etsittava\' irssi_syntax`;
|
||||||
$SYNTAX =~ s/\*\///g; $SYNTAX =~ s/ *$//;
|
$SYNTAX =~ s/\*\///g;
|
||||||
|
$SYNTAX =~ s/ *$//; $SYNTAX =~ s/ *\n/\n/g;
|
||||||
$DATARIVI = $SYNTAX;
|
$DATARIVI = $SYNTAX;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
Loading…
Reference in New Issue
Block a user