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

View file

@ -10,8 +10,8 @@
# Remember to include the asterisk ('*').
$SRC_PATH='src';
# This is quick and dirty, but works for sure :)
$FOO = `find src -name '*.c' -exec grep -e '/* SYNTAX:' \{\} \\; | sed 's/.*SYNTAX: //' > irssi_syntax`;
$FOO = `find src -name '*.c' -exec ./findsyntax.pl \{\} \\; | sed 's/.*SYNTAX: //' > irssi_syntax`;
while (<docs/help/in/*.in>) {
open (FILE, "$_");
@ -21,7 +21,8 @@ while (<docs/help/in/*.in>) {
if ($DATARIVI =~ /\@SYNTAX\:(.+)\@/) {
$etsittava = "\U$1 ";
$SYNTAX = `grep \'^$etsittava\' irssi_syntax`;
$SYNTAX =~ s/\*\///g; $SYNTAX =~ s/ *$//;
$SYNTAX =~ s/\*\///g;
$SYNTAX =~ s/ *$//; $SYNTAX =~ s/ *\n/\n/g;
$DATARIVI = $SYNTAX;
}
}