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

add "print format" signal to perl

Browse source 
fix syntax in signals.txt with regards to GLists

simplify signal emit code
This commit is contained in:
ailin-nemui 2020-05-11 17:46:45 +02:00
commit 4330dbec62
8 changed files with 229 additions and 176 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/perl/get-signals.pl
View file

@ -16,14 +16,15 @@ while (<>) {
$signal = $1;
$_ = $3;
s/GList \* of ([^,]*)/glistptr_\1/g;
s/GSList of (\w+)s/gslist_\1/g;
s/GList \* of ([^,]*)s/glistptr_\1/g;
s/GSList of ([^,]*)s/gslist_\1/g;
s/char \*[^,]*/string/g;
s/ulong \*[^,]*/ulongptr/g;
s/int \*[^,]*/intptr/g;
s/int [^,]*/int/g;
my %map = (
# core
CHATNET_REC => 'iobject',