diff options
| -rwxr-xr-x | findsyntax.pl | 14 | ||||
| -rwxr-xr-x | syntax.pl | 7 |
2 files changed, 18 insertions, 3 deletions
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; + } +} @@ -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; } } |