jrd/irssi
1
0
Fork 0
forked from PsychoticNinja/irssi
Code Issues Pull Requests Projects Releases Wiki Activity

Merge findsyntax.pl in syntax.pl.

Browse Source 
git-svn-id: file:///var/www/svn.irssi.org/SVN/irssi/trunk@4905 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Emanuele Giaquinta 2008-11-13 10:22:35 +00:00 committed by exg
parent 169c55b949
commit 5497b07c8a
3 changed files with 29 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Makefile.am
View File

@ -30,5 +30,4 @@ EXTRA_DIST = \
$(theme_DATA) \ $(theme_DATA) \
irssi-config.in \ irssi-config.in \
irssi-icon.png \ irssi-icon.png \
syntax.pl \ syntax.pl
findsyntax.pl

18
findsyntax.pl
View File

@ -1,18 +0,0 @@
#!/usr/bin/perl -w
while(<>) {
if(m!/\*.SYNTAX\:! || $tt) {
s/^\s+/ /;
if (/^ [A-Z]+/) {
print "\n";
s/^ //;
}
if (m!\*/!) {
$tt=0;
} else {
$tt=1;
chomp;
}
print;
}
}

33
syntax.pl
View File

@ -10,8 +10,33 @@
# Remember to include the asterisk ('*'). # Remember to include the asterisk ('*').
$SRC_PATH='src'; $SRC_PATH='src';
$FOO = `find src -name '*.c' -exec perl findsyntax.pl \{\} \\; | sed 's/.*SYNTAX: //' > irssi_syntax`; @files = `find src -name '*.c'`;
foreach $file (@files) {
open (FILE, "$file");
while (<FILE>) {
chomp;
if (m!/\*.SYNTAX\:! || $state) {
s/^\s+/ /;
s/.*SYNTAX: //;
if (/^ [A-Z]+/) {
push @lines, $line;
$line = "";
s/^ //;
}
$line .= $_;
if (m!\*/!) {
$line =~ s!\*/!!;
push @lines, $line;
$line = "";
$state = 0;
} else {
$state = 1;
}
}
}
close (FILE);
}
while (<docs/help/in/*.in>) { while (<docs/help/in/*.in>) {
next if (/Makefile/); next if (/Makefile/);
@ -21,9 +46,8 @@ while (<docs/help/in/*.in>) {
$count = 0; $count = 0;
foreach $DATARIVI (@data) { foreach $DATARIVI (@data) {
if ($DATARIVI =~ /\@SYNTAX\:(.+)\@/) { if ($DATARIVI =~ /\@SYNTAX\:(.+)\@/) {
$etsittava = "\U$1 "; $SYNTAX = join "\n", (grep /^\U$1 /, @lines);
$SYNTAX = `grep \'^$etsittava\' irssi_syntax`; $SYNTAX .= "\n" if $SYNTAX;
$SYNTAX =~ s/\*\///g;
$SYNTAX =~ s/ *$//; $SYNTAX =~ s/ *\n/\n/g; $SYNTAX =~ s/ *$//; $SYNTAX =~ s/ *\n/\n/g;
# add %| after "COMMAND SUB " so parameters will indent correctly # add %| after "COMMAND SUB " so parameters will indent correctly
@ -54,4 +78,3 @@ while (<docs/help/in/*.in>) {
print NEWFILE @data; print NEWFILE @data;
close (NEWFILE); close (NEWFILE);
} }
unlink "irssi_syntax";