diff options
| author | Timo Sirainen <cras@irssi.org> | 2001-12-10 17:37:51 +0000 |
|---|---|---|
| committer | cras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564> | 2001-12-10 17:37:51 +0000 |
| commit | eb91b126ecb77e3348b5040284ffcf57854913ce (patch) | |
| tree | 149b8a26cce0f8209d466941a0c8ebb24cb94ef3 /src/perl/common | |
| parent | 1d340a96602c56ffa8c431831e5d04dd234bfdb3 (diff) | |
| download | irssi-eb91b126ecb77e3348b5040284ffcf57854913ce.zip | |
Moved Irssi::command(), Irssi::Server::command() and Irssi::Windowitem::command() from ui to core. Also, Irssi::command() now doesn't default to active server/window item, if this breaks any scripts change them use Irssi::active_win()->command() instead.
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@2232 dbcabf3a-b0e7-0310-adc4-f8d773084564
Diffstat (limited to 'src/perl/common')
| -rw-r--r-- | src/perl/common/Core.xs | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/src/perl/common/Core.xs b/src/perl/common/Core.xs index f8ad6c00..7fbf0195 100644 --- a/src/perl/common/Core.xs +++ b/src/perl/common/Core.xs @@ -349,6 +349,12 @@ combine_level(level, str) char *str void +command(cmd) + char *cmd +CODE: + perl_command(cmd, NULL, NULL); + +void commands() PREINIT: GSList *tmp; @@ -458,6 +464,14 @@ PPCODE: XPUSHs(sv_2mortal(new_pv(ret))); g_free_not_null(ret); +void +command(server, cmd) + Irssi::Server server + char *cmd +CODE: + perl_command(cmd, server, NULL); + + #******************************* MODULE = Irssi::Core PACKAGE = Irssi::Windowitem #******************************* @@ -474,3 +488,11 @@ PPCODE: ret = parse_special_string(cmd, item->server, item, data, NULL, flags); XPUSHs(sv_2mortal(new_pv(ret))); g_free_not_null(ret); + +void +command(item, cmd) + Irssi::Windowitem item + char *cmd +CODE: + perl_command(cmd, item->server, item); + |