aniani/irssi
1
0
Fork 0
mirror of https://github.com/irssi/irssi.git synced 2024-11-03 04:27:19 -05:00
Code

Fixed to work with multiline syntaxes (by lite)

Browse Source 
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
parent 0977ab90e5
commit e23760fb25
2 changed files with 18 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
findsyntax.pl Executable file
View 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;
}
}

7
syntax.pl
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;
}
}