diff --git a/findsyntax.pl b/findsyntax.pl new file mode 100755 index 00000000..5389302c --- /dev/null +++ b/findsyntax.pl @@ -0,0 +1,14 @@ +#!/usr/bin/perl -w + +while(<>) { + if(m!/\*.SYNTAX\:! || $tt) { + s!^\s+! !; + if (m#\*/#) { + $tt=0; + } else { + $tt=1; + chomp; + } + print; + } +} diff --git a/syntax.pl b/syntax.pl index 5bcb8a3a..7760457b 100755 --- a/syntax.pl +++ b/syntax.pl @@ -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 () { open (FILE, "$_"); @@ -21,7 +21,8 @@ while () { 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; } }