diff options
| author | Timo Sirainen <cras@irssi.org> | 2002-12-08 17:43:57 +0000 |
|---|---|---|
| committer | cras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564> | 2002-12-08 17:43:57 +0000 |
| commit | 65eb0d32806026c289fd3c223836ef1bc90ea8f8 (patch) | |
| tree | 0109f708fc07adbb60f18f54d1fa2e9625d536f2 | |
| parent | 3447e0c1b9937fa9728c2b592bb717a23cadd6ee (diff) | |
| download | irssi-65eb0d32806026c289fd3c223836ef1bc90ea8f8.zip | |
Added Irssi::Script object and "script error" signal.
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@3050 dbcabf3a-b0e7-0310-adc4-f8d773084564
| -rw-r--r-- | docs/signals.txt | 5 | ||||
| -rwxr-xr-x | src/perl/get-signals.pl | 3 | ||||
| -rw-r--r-- | src/perl/perl-common.c | 10 |
3 files changed, 18 insertions, 0 deletions
diff --git a/docs/signals.txt b/docs/signals.txt index df582873..6a9d4e00 100644 --- a/docs/signals.txt +++ b/docs/signals.txt @@ -324,3 +324,8 @@ gui-readline.c: gui-printtext.c: "beep" + +Perl +---- + +"script error", PERL_SCRIPT_REC, char *errormsg diff --git a/src/perl/get-signals.pl b/src/perl/get-signals.pl index df4667ce..c61c81cc 100755 --- a/src/perl/get-signals.pl +++ b/src/perl/get-signals.pl @@ -51,6 +51,9 @@ while (<STDIN>) { 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"; } diff --git a/src/perl/perl-common.c b/src/perl/perl-common.c index fb6d3531..cd23afe5 100644 --- a/src/perl/perl-common.c +++ b/src/perl/perl-common.c @@ -40,6 +40,7 @@ #include "queries.h" #include "nicklist.h" +#include "perl-core.h" #include "perl-common.h" 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); } +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) { const char *cmdchars; @@ -626,6 +635,7 @@ void perl_common_start(void) { "Irssi::Logitem", (PERL_OBJECT_FUNC) perl_log_item_fill_hash }, { "Irssi::Rawlog", (PERL_OBJECT_FUNC) perl_rawlog_fill_hash }, { "Irssi::Reconnect", (PERL_OBJECT_FUNC) perl_reconnect_fill_hash }, + { "Irssi::Script", (PERL_OBJECT_FUNC) perl_script_fill_hash }, { NULL, NULL } }; |