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

Make several signals without parameters available to perl again.

Browse Source 
In particular, this includes the "beep" signal.

Submitted by Matt Sparks
Bug #674


git-svn-id: file:///var/www/svn.irssi.org/SVN/irssi/trunk@5100 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Jilles Tjoelker 2009-09-06 21:27:38 +00:00 committed by jilles
parent 60113c0b31
commit aab41042fc
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/perl/get-signals.pl
View File

@ -9,7 +9,7 @@ print "static PERL_SIGNAL_ARGS_REC perl_signal_args[] =\n{\n";
while (<STDIN>) { while (<STDIN>) {
chomp; chomp;
next if (!/^ "([^"]*)"(<.*>)?,\s*(.*)/); next if (!/^ "([^"]*)"(<.*>)?(?:,\s*(.*))?/);
next if (/\.\.\./); next if (/\.\.\./);
next if (/\(/); next if (/\(/);
@ -60,7 +60,11 @@ while (<STDIN>) {
s/PERL_SCRIPT_REC[^,]*/Irssi::Script/g; s/PERL_SCRIPT_REC[^,]*/Irssi::Script/g;
s/([\w\*:]+)(,|$)/"\1"\2/g; s/([\w\*:]+)(,|$)/"\1"\2/g;
if ($_ eq "") {
print " { \"$signal\", { NULL } },\n";
} else {
print " { \"$signal\", { $_, NULL } },\n"; print " { \"$signal\", { $_, NULL } },\n";
} }
}
print "\n { NULL }\n};\n"; print "\n { NULL }\n};\n";