summaryrefslogtreecommitdiff
path: root/src/perl/perl-fe.c
diff options
context:
space:
mode:
authorTimo Sirainen <cras@irssi.org>2001-02-17 11:33:12 +0000
committercras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564>2001-02-17 11:33:12 +0000
commitc0726196eab7e88da3a0138321e7ed02717792de (patch)
tree45a8066c1f762cd38dea5eb068e596a6e0aa6999 /src/perl/perl-fe.c
parent66f9ea8694fa03be1f74c23de5cc32a43d3e711d (diff)
downloadirssi-c0726196eab7e88da3a0138321e7ed02717792de.zip
Moved fe stuff from perl-common to perl-fe.
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@1234 dbcabf3a-b0e7-0310-adc4-f8d773084564
Diffstat (limited to 'src/perl/perl-fe.c')
-rw-r--r--src/perl/perl-fe.c70
1 files changed, 69 insertions, 1 deletions
diff --git a/src/perl/perl-fe.c b/src/perl/perl-fe.c
index f7ace310..503db4b6 100644
--- a/src/perl/perl-fe.c
+++ b/src/perl/perl-fe.c
@@ -21,11 +21,71 @@
#include "module.h"
#include "signals.h"
-#include "fe-common/core/themes.h"
+#include "fe-common/core/fe-exec.h"
#include "fe-common/core/formats.h"
+#include "fe-common/core/printtext.h"
+#include "fe-common/core/themes.h"
#include "perl-common.h"
+static void perl_process_fill_hash(HV *hv, PROCESS_REC *process)
+{
+ HV *stash;
+
+ hv_store(hv, "id", 2, newSViv(process->id), 0);
+ hv_store(hv, "name", 4, new_pv(process->name), 0);
+ hv_store(hv, "args", 4, new_pv(process->args), 0);
+
+ hv_store(hv, "pid", 3, newSViv(process->pid), 0);
+ hv_store(hv, "target", 6, new_pv(process->target), 0);
+ if (process->target_win != NULL) {
+ stash = gv_stashpv("Irssi::Window", 0);
+ hv_store(hv, "target_win", 10, sv_bless(newRV_noinc(newSViv(GPOINTER_TO_INT(process->target_win))), stash), 0);
+ }
+ hv_store(hv, "shell", 5, newSViv(process->shell), 0);
+ hv_store(hv, "notice", 6, newSViv(process->notice), 0);
+ hv_store(hv, "silent", 6, newSViv(process->silent), 0);
+}
+
+static void perl_window_fill_hash(HV *hv, WINDOW_REC *window)
+{
+ hv_store(hv, "refnum", 6, newSViv(window->refnum), 0);
+ hv_store(hv, "name", 4, new_pv(window->name), 0);
+
+ if (window->active)
+ hv_store(hv, "active", 6, irssi_bless(window->active), 0);
+ if (window->active_server)
+ hv_store(hv, "active_server", 13, irssi_bless(window->active_server), 0);
+
+ hv_store(hv, "lines", 5, newSViv(window->lines), 0);
+
+ hv_store(hv, "level", 5, newSViv(window->level), 0);
+ hv_store(hv, "data_level", 8, newSViv(window->data_level), 0);
+ hv_store(hv, "hilight_color", 10, newSViv(window->hilight_color), 0);
+ hv_store(hv, "last_timestamp", 14, newSViv(window->last_timestamp), 0);
+ hv_store(hv, "last_line", 9, newSViv(window->last_line), 0);
+}
+
+void printformat_perl(TEXT_DEST_REC *dest, char *format, char **arglist)
+{
+ THEME_REC *theme;
+ char *module, *str;
+ int formatnum;
+
+ module = g_strdup(perl_get_package());
+ theme = dest->window->theme == NULL ? current_theme :
+ dest->window->theme;
+
+ formatnum = format_find_tag(module, format);
+ signal_emit("print format", 5, theme, module,
+ &dest, GINT_TO_POINTER(formatnum), arglist);
+
+ str = format_get_text_theme_charargs(theme, module, dest, formatnum, arglist);
+ if (*str != '\0') printtext_window(dest->window, dest->level, "%s", str);
+ g_free(str);
+ g_free(module);
+}
+
static void perl_unregister_theme(const char *package)
{
FORMAT_REC *formats;
@@ -65,6 +125,14 @@ static void sig_perl_stop(void)
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 },
+
+ { NULL, NULL }
+ };
+ irssi_add_plains(fe_plains);
+
signal_add("script destroy", (SIGNAL_FUNC) sig_script_destroy);
signal_add("perl stop", (SIGNAL_FUNC) sig_perl_stop);
}