zynk/irssi
2
0
Fork 0
mirror of https://github.com/irssi/irssi.git synced 2026-08-08 19:30:15 +02:00
Code Issues Projects Releases Packages Wiki Activity

docs generator updates

Browse source 
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@1074 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Timo Sirainen 2001-01-05 09:38:08 +00:00 • committed by cras
commit 1dc07c42bd
6 changed files with 33 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

18
syntax.pl
View file

@ -12,20 +12,36 @@ $SRC_PATH='src';
$FOO = `find src -name '*.c' -exec ./findsyntax.pl \{\} \\; | sed 's/.*SYNTAX: //' > irssi_syntax`;
while (<docs/help/in/*.in>) {
next if (/Makefile/);
open (FILE, "$_");
@data = <FILE>;
close (FILE);
$count = 0;
foreach $DATARIVI (@data) {
if ($DATARIVI =~ /\@SYNTAX\:(.+)\@/) {
$etsittava = "\U$1 ";
$SYNTAX = `grep \'^$etsittava\' irssi_syntax`;
$SYNTAX =~ s/\*\///g;
$SYNTAX =~ s/ *$//; $SYNTAX =~ s/ *\n/\n/g;
# add %| after "COMMAND SUB " so parameters will indent correctly
$SYNTAX =~ s/^([A-Z ]+)/\1%|/;
$SYNTAX =~ s/(\n[A-Z ]+)/\1%|/g;
# no need for this if there's no parameters
$SYNTAX =~ s/%\|$//;
$DATARIVI = $SYNTAX;
} elsif ($DATARIVI =~ /^\S+/) {
chomp $DATARIVI if ($data[$count+1] =~ /^\S+/);
}
$count++;
}
# must always end with empty line
push @data, "\n" if ($data[@data-1] ne "\n");
push @data, "\n" if ($data[@data-2] !~ /\n$/);
$newfilename = $_; $newfilename =~ s/\.in$//;
$newfilename =~ s/\/in\//\//;
open (NEWFILE, ">$newfilename");