diff options
| -rw-r--r-- | docs/signals.txt | 5 | ||||
| -rw-r--r-- | src/perl/common/module.h | 1 | ||||
| -rw-r--r-- | src/perl/common/typemap | 1 | ||||
| -rwxr-xr-x | src/perl/get-signals.pl | 1 | ||||
| -rw-r--r-- | src/perl/perl-fe.c | 15 |
5 files changed, 20 insertions, 3 deletions
diff --git a/docs/signals.txt b/docs/signals.txt index ba2b148f..51aa4792 100644 --- a/docs/signals.txt +++ b/docs/signals.txt @@ -9,7 +9,6 @@ core "gui exit" "gui dialog", char *type, char *text "send command", char *command, SERVER_REC, WI_ITEM_REC - "print text stripped", WINDOW_REC, SERVER_REC, char *channel, int level, char *text * Provides signals: @@ -254,8 +253,8 @@ keyboard.c: "keyinfo destroyed", KEYINFO_REC printtext.c: - "print text", WINDOW_REC, SERVER_REC, char *channel, int level, char *text - "print text stripped", WINDOW_REC, SERVER_REC, char *channel, int level, char *text + "print text", TEXT_DEST_REC *dest, char *text + "print text stripped", TEXT_DEST_REC *dest, char *text themes.c: "theme created", THEME_REC diff --git a/src/perl/common/module.h b/src/perl/common/module.h index e355ac8a..11a60fe7 100644 --- a/src/perl/common/module.h +++ b/src/perl/common/module.h @@ -53,3 +53,4 @@ typedef THEME_REC *Irssi__Theme; typedef KEYINFO_REC *Irssi__Keyinfo; typedef WINDOW_REC *Irssi__Window; typedef WI_ITEM_REC *Irssi__Windowitem; +typedef TEXT_DEST_REC *Irssi__TextDest; diff --git a/src/perl/common/typemap b/src/perl/common/typemap index 5be3bcd0..f2432f17 100644 --- a/src/perl/common/typemap +++ b/src/perl/common/typemap @@ -16,6 +16,7 @@ Irssi::Theme T_PlainObj Irssi::Keyinfo T_PlainObj Irssi::Window T_PlainObj Irssi::Windowitem T_IrssiObj +Irssi::TextDest T_PlainObj INPUT diff --git a/src/perl/get-signals.pl b/src/perl/get-signals.pl index 56a5753a..b995ba9d 100755 --- a/src/perl/get-signals.pl +++ b/src/perl/get-signals.pl @@ -44,6 +44,7 @@ while (<STDIN>) { s/THEME_REC[^,]*/Irssi::Theme/g; s/KEYINFO_REC[^,]*/Irssi::Keyinfo/g; s/PROCESS_REC[^,]*/Irssi::Process/g; + s/TEXT_DEST_REC[^,]*/Irssi::TextDest/g; s/WINDOW_REC[^,]*/Irssi::Window/g; s/WI_ITEM_REC[^,]*/iobject/g; diff --git a/src/perl/perl-fe.c b/src/perl/perl-fe.c index 4594fd75..6aca6262 100644 --- a/src/perl/perl-fe.c +++ b/src/perl/perl-fe.c @@ -64,6 +64,20 @@ static void perl_window_fill_hash(HV *hv, WINDOW_REC *window) hv_store(hv, "last_line", 9, newSViv(window->last_line), 0); } +static void perl_text_dest_fill_hash(HV *hv, TEXT_DEST_REC *dest) +{ + HV *stash; + + stash = gv_stashpv("Irssi::Window", 0); + hv_store(hv, "window", 6, sv_bless(newRV_noinc(newSViv(GPOINTER_TO_INT(dest->window))), stash), 0); + hv_store(hv, "server", 6, irssi_bless(dest->server), 0); + hv_store(hv, "target", 6, new_pv(dest->target), 0); + hv_store(hv, "level", 5, newSViv(dest->level), 0); + + hv_store(hv, "hilight_priority", 16, newSViv(dest->hilight_priority), 0); + hv_store(hv, "hilight_color", 13, new_pv(dest->hilight_color), 0); +} + void printformat_perl(TEXT_DEST_REC *dest, char *format, char **arglist) { THEME_REC *theme; @@ -126,6 +140,7 @@ void fe_perl_init(void) static PLAIN_OBJECT_INIT_REC fe_plains[] = { { "Irssi::Process", (PERL_OBJECT_FUNC) perl_process_fill_hash }, { "Irssi::Window", (PERL_OBJECT_FUNC) perl_window_fill_hash }, + { "Irssi::TextDest", (PERL_OBJECT_FUNC) perl_text_dest_fill_hash }, { NULL, NULL } }; |