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

Help files by lite

Browse source 
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@536 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Timo Sirainen 2000-07-26 17:52:19 +00:00 • committed by cras
commit d9f9b64c76
111 changed files with 1304 additions and 27 deletions
Download patch file Download diff file Expand all files Collapse all files

32
syntax.pl Executable file
View file

@ -0,0 +1,32 @@
#!/usr/bin/perl
#
# This script reads the syntaces of commands from irssi source tree.
# Then it browses through all '.in' files in the current directory and
# substitutes '@SYNTAX:foo@' tags with real syntaces found. This data
# is written into the corresponding files without the '.in' extension.
# For example: help.in -> ../help
#
# This path has to be changed. It should point to your irssi/src directory
# Remember to include the asterisk ('*').
$SRC_PATH='src/*';
# This is quick and dirty, but works for sure :)
$FOO = `grep -r -e '/* SYNTAX:' $SRC_PATH | sed 's/.*SYNTAX: //' > irssi_syntax`;
while (<docs/help/in/*.in>) {
open (FILE, "$_");
@data = <FILE>;
close (FILE);
foreach $DATARIVI (@data) {
if ($DATARIVI =~ /\@SYNTAX\:(.+)\@/) {
$etsittava = "\U$1 ";
$SYNTAX = `grep \'^$etsittava\' irssi_syntax`;
$SYNTAX =~ s/\*\///g; $SYNTAX =~ s/ *$//;
$DATARIVI = $SYNTAX;
}
}
$newfilename = $_; $newfilename =~ s/\.in$//;
$newfilename =~ s/\/in\//\//;
open (NEWFILE, ">$newfilename");
print NEWFILE @data;
close (NEWFILE);
}