aniani/irssi
1
0
Fork 0
mirror of https://github.com/irssi/irssi.git synced 2025-02-02 15:08:01 -05:00
Code

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
parent 19d111eff4
commit 1dc07c42bd
6 changed files with 33 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
autogen.sh
View File

@ -24,11 +24,11 @@ find src -name '*.c'|grep -v 'src/perl/.*/' > po/POTFILES.in
# create help files # create help files
perl syntax.pl perl syntax.pl
files=`echo docs/help/in/*.in|sed -e 's/docs\/help\/in\///g' -e 's/Makefile.in //'` files=`echo docs/help/in/*.in|sed -e 's,docs/help/in/Makefile.in ,,' -e 's,docs/help/in/,!,g' -e 's/\.in /.in ?/g'`
cat docs/help/in/Makefile.am.gen|sed "s/@HELPFILES@/$files/g" > docs/help/in/Makefile.am cat docs/help/in/Makefile.am.gen|sed "s/@HELPFILES@/$files/g"|sed 's/?/\\?/g'|tr '\!?' '\t\n' > docs/help/in/Makefile.am
files=`echo $files|sed 's/\.in//g'` files=`echo $files|sed 's/\.in//g'`
cat docs/help/Makefile.am.gen|sed "s/@HELPFILES@/$files/g" > docs/help/Makefile.am cat docs/help/Makefile.am.gen|sed "s/@HELPFILES@/$files/g"|sed 's/?/\\?/g'|tr '\!?' '\t\n' > docs/help/Makefile.am
# *********** a bit modified GNOME's macros/autogen.sh ********** # *********** a bit modified GNOME's macros/autogen.sh **********

2
docs/help/Makefile.am.gen
View File

@ -1,3 +1,5 @@
# Makefile.am is autogenerated by autogen.sh from Makefile.am.gen
helpdir = $(datadir)/irssi/help helpdir = $(datadir)/irssi/help
help_DATA = \ help_DATA = \

2
docs/help/in/Makefile.am.gen
View File

@ -1,3 +1,5 @@
# Makefile.am is autogenerated by autogen.sh from Makefile.am.gen
EXTRA_DIST = \ EXTRA_DIST = \
Makefile.am.gen \ Makefile.am.gen \
@HELPFILES@ @HELPFILES@

2
docs/signals.txt
View File

@ -178,7 +178,7 @@ dcc*.c:
"dcc connected", DCC_REC "dcc connected", DCC_REC
"dcc rejecting", DCC_REC "dcc rejecting", DCC_REC
"dcc closed", DCC_REC "dcc closed", DCC_REC
"dcc request", DCC_REC "dcc request", DCC_REC, char *sendaddr
"dcc chat message", DCC_REC, char *msg "dcc chat message", DCC_REC, char *msg
"dcc transfer update", DCC_REC "dcc transfer update", DCC_REC
"dcc get receive", DCC_REC "dcc get receive", DCC_REC

8
findsyntax.pl
View File

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

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`; $FOO = `find src -name '*.c' -exec ./findsyntax.pl \{\} \\; | sed 's/.*SYNTAX: //' > irssi_syntax`;
while (<docs/help/in/*.in>) { while (<docs/help/in/*.in>) {
next if (/Makefile/);
open (FILE, "$_"); open (FILE, "$_");
@data = <FILE>; @data = <FILE>;
close (FILE); close (FILE);
$count = 0;
foreach $DATARIVI (@data) { foreach $DATARIVI (@data) {
if ($DATARIVI =~ /\@SYNTAX\:(.+)\@/) { if ($DATARIVI =~ /\@SYNTAX\:(.+)\@/) {
$etsittava = "\U$1 "; $etsittava = "\U$1 ";
$SYNTAX = `grep \'^$etsittava\' irssi_syntax`; $SYNTAX = `grep \'^$etsittava\' irssi_syntax`;
$SYNTAX =~ s/\*\///g; $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
$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; $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 = $_; $newfilename =~ s/\.in$//;
$newfilename =~ s/\/in\//\//; $newfilename =~ s/\/in\//\//;
open (NEWFILE, ">$newfilename"); open (NEWFILE, ">$newfilename");