X-Git-Url: http://git.silcnet.org/gitweb/?a=blobdiff_plain;f=apps%2Firssi%2Fsrc%2Fperl%2Fget-signals.pl;fp=apps%2Firssi%2Fsrc%2Fperl%2Fget-signals.pl;h=0000000000000000000000000000000000000000;hb=72c2de619079457f7a68100eb13385275a424a23;hp=c61c81cc934a391bef7c3eef0ae5f8a9e75d4fab;hpb=e7b6c157b80152bf9fb9266e6bdd93f9fb0db776;p=runtime.git

diff --git a/apps/irssi/src/perl/get-signals.pl b/apps/irssi/src/perl/get-signals.pl
deleted file mode 100755
index c61c81cc..00000000
--- a/apps/irssi/src/perl/get-signals.pl
+++ /dev/null
@@ -1,61 +0,0 @@
-#!/usr/bin/perl
-
-print "static PERL_SIGNAL_ARGS_REC perl_signal_args[] =\n{\n";
-
-while (<STDIN>) {
-	chomp;
-
-	next if (!/^ "([^"]*)"(<.*>)?,\s*(.*)/);
-	next if (/\.\.\./);
-	next if (/\(/);
-
-	$signal = $1;
-	$_ = $3;
-
-	s/GList \* of ([^,]*)/glistptr_\1/g;
-	s/GSList of (\w+)s/gslist_\1/g;
-
-	s/char \*[^,]*/string/g;
-	s/ulong \*[^,]*/ulongptr/g;
-	s/int \*[^,]*/intptr/g;
-	s/int [^,]*/int/g;
-
-	# core
-        s/CHATNET_REC[^,]*/iobject/g;
-        s/SERVER_REC[^,]*/iobject/g;
-        s/RECONNECT_REC[^,]*/iobject/g;
-	s/CHANNEL_REC[^,]*/iobject/g;
-	s/QUERY_REC[^,]*/iobject/g;
-	s/COMMAND_REC[^,]*/Irssi::Command/g;
-	s/NICK_REC[^,]*/iobject/g;
-	s/LOG_REC[^,]*/Irssi::Log/g;
-	s/RAWLOG_REC[^,]*/Irssi::Rawlog/g;
-	s/IGNORE_REC[^,]*/Irssi::Ignore/g;
-	s/MODULE_REC[^,]*/Irssi::Module/g;
-
-	# irc
-	s/BAN_REC[^,]*/Irssi::Irc::Ban/g;
-	s/NETSPLIT_REC[^,]*/Irssi::Irc::Netsplit/g;
-	s/NETSPLIT_SERVER_REC[^,]*/Irssi::Irc::Netsplitserver/g;
-
-	# irc modules
-	s/DCC_REC[^,]*/siobject/g;
-	s/AUTOIGNORE_REC[^,]*/Irssi::Irc::Autoignore/g;
-	s/NOTIFYLIST_REC[^,]*/Irssi::Irc::Notifylist/g;
-
-	# fe-common
-	s/THEME_REC[^,]*/Irssi::UI::Theme/g;
-	s/KEYINFO_REC[^,]*/Irssi::UI::Keyinfo/g;
-	s/PROCESS_REC[^,]*/Irssi::UI::Process/g;
-	s/TEXT_DEST_REC[^,]*/Irssi::UI::TextDest/g;
-	s/WINDOW_REC[^,]*/Irssi::UI::Window/g;
-	s/WI_ITEM_REC[^,]*/iobject/g;
-
-	# perl
-	s/PERL_SCRIPT_REC[^,]*/Irssi::Script/g;
-
-	s/([\w\*:]+)(,|$)/"\1"\2/g;
-	print "    { \"$signal\", { $_, NULL } },\n";
-}
-
-print "\n    { NULL }\n};\n";