aniani/irssi
1
0
Fork 0
mirror of https://github.com/irssi/irssi.git synced 2024-12-04 14:46:39 -05:00
Code

Added Irssi::Script object and "script error" signal.

Browse Source 
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@3050 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Timo Sirainen 2002-12-08 17:43:57 +00:00 committed by cras
parent 3447e0c1b9
commit 65eb0d3280
3 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
docs/signals.txt
View File

@ -324,3 +324,8 @@ gui-readline.c:
gui-printtext.c: gui-printtext.c:
"beep" "beep"
Perl
----
"script error", PERL_SCRIPT_REC, char *errormsg

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

@ -51,6 +51,9 @@ while (<STDIN>) {
s/WINDOW_REC[^,]*/Irssi::UI::Window/g; s/WINDOW_REC[^,]*/Irssi::UI::Window/g;
s/WI_ITEM_REC[^,]*/iobject/g; s/WI_ITEM_REC[^,]*/iobject/g;
# perl
s/PERL_SCRIPT_REC[^,]*/Irssi::Script/g;
s/([\w\*:]+)(,|$)/"\1"\2/g; s/([\w\*:]+)(,|$)/"\1"\2/g;
print " { \"$signal\", { $_, NULL } },\n"; print " { \"$signal\", { $_, NULL } },\n";
} }

10
src/perl/perl-common.c
View File

@ -40,6 +40,7 @@
#include "queries.h" #include "queries.h"
#include "nicklist.h" #include "nicklist.h"
#include "perl-core.h"
#include "perl-common.h" #include "perl-common.h"
typedef struct { typedef struct {
@ -489,6 +490,14 @@ static void perl_reconnect_fill_hash(HV *hv, RECONNECT_REC *reconnect)
hv_store(hv, "next_connect", 12, newSViv(reconnect->next_connect), 0); hv_store(hv, "next_connect", 12, newSViv(reconnect->next_connect), 0);
} }
static void perl_script_fill_hash(HV *hv, PERL_SCRIPT_REC *script)
{
hv_store(hv, "name", 4, new_pv(script->name), 0);
hv_store(hv, "package", 7, new_pv(script->package), 0);
hv_store(hv, "path", 4, new_pv(script->path), 0);
hv_store(hv, "data", 4, new_pv(script->data), 0);
}
void perl_command(const char *cmd, SERVER_REC *server, WI_ITEM_REC *item) void perl_command(const char *cmd, SERVER_REC *server, WI_ITEM_REC *item)
{ {
const char *cmdchars; const char *cmdchars;
@ -626,6 +635,7 @@ void perl_common_start(void)
{ "Irssi::Logitem", (PERL_OBJECT_FUNC) perl_log_item_fill_hash }, { "Irssi::Logitem", (PERL_OBJECT_FUNC) perl_log_item_fill_hash },
{ "Irssi::Rawlog", (PERL_OBJECT_FUNC) perl_rawlog_fill_hash }, { "Irssi::Rawlog", (PERL_OBJECT_FUNC) perl_rawlog_fill_hash },
{ "Irssi::Reconnect", (PERL_OBJECT_FUNC) perl_reconnect_fill_hash }, { "Irssi::Reconnect", (PERL_OBJECT_FUNC) perl_reconnect_fill_hash },
{ "Irssi::Script", (PERL_OBJECT_FUNC) perl_script_fill_hash },
{ NULL, NULL } { NULL, NULL }
}; };