apps/irssi/src/perl/ui/UI.xs

   1 #include "module.h"
   2
   3 void perl_themes_init(void);
   4 void perl_themes_deinit(void);
   5
   6 static int initialized = FALSE;
   7
   8 static void perl_process_fill_hash(HV *hv, PROCESS_REC *process)
   9 {
  10         hv_store(hv, "id", 2, newSViv(process->id), 0);
  11         hv_store(hv, "name", 4, new_pv(process->name), 0);
  12         hv_store(hv, "args", 4, new_pv(process->args), 0);
  13
  14         hv_store(hv, "pid", 3, newSViv(process->pid), 0);
  15         hv_store(hv, "target", 6, new_pv(process->target), 0);
  16         if (process->target_win != NULL) {
  17                 hv_store(hv, "target_win", 10,
  18                          plain_bless(process->target_win, "Irssi::UI::Window"), 0);
  19         }
  20         hv_store(hv, "shell", 5, newSViv(process->shell), 0);
  21         hv_store(hv, "notice", 6, newSViv(process->notice), 0);
  22         hv_store(hv, "silent", 6, newSViv(process->silent), 0);
  23 }
  24
  25 static void perl_window_fill_hash(HV *hv, WINDOW_REC *window)
  26 {
  27         hv_store(hv, "refnum", 6, newSViv(window->refnum), 0);
  28         hv_store(hv, "name", 4, new_pv(window->name), 0);
  29         hv_store(hv, "history_name", 12, new_pv(window->history_name), 0);
  30
  31         hv_store(hv, "width", 5, newSViv(window->width), 0);
  32         hv_store(hv, "height", 6, newSViv(window->height), 0);
  33
  34         if (window->active)
  35                 hv_store(hv, "active", 6, iobject_bless(window->active), 0);
  36         if (window->active_server)
  37                 hv_store(hv, "active_server", 13, iobject_bless(window->active_server), 0);
  38
  39         hv_store(hv, "servertag", 9, new_pv(window->servertag), 0);
  40         hv_store(hv, "level", 5, newSViv(window->level), 0);
  41
  42         hv_store(hv, "immortal", 8, newSViv(window->immortal), 0);
  43         hv_store(hv, "sticky_refnum", 13, newSViv(window->sticky_refnum), 0);
  44
  45         hv_store(hv, "data_level", 10, newSViv(window->data_level), 0);
  46         hv_store(hv, "hilight_color", 13, new_pv(window->hilight_color), 0);
  47
  48         hv_store(hv, "last_timestamp", 14, newSViv(window->last_timestamp), 0);
  49         hv_store(hv, "last_line", 9, newSViv(window->last_line), 0);
  50
  51         hv_store(hv, "theme", 5, plain_bless(window->theme, "Irssi::UI::Theme"), 0);
  52         hv_store(hv, "theme_name", 10, new_pv(window->theme_name), 0);
  53 }
  54
  55 static void perl_text_dest_fill_hash(HV *hv, TEXT_DEST_REC *dest)
  56 {
  57         hv_store(hv, "window", 6, plain_bless(dest->window, "Irssi::UI::Window"), 0);
  58         hv_store(hv, "server", 6, iobject_bless(dest->server), 0);
  59         hv_store(hv, "target", 6, new_pv(dest->target), 0);
  60         hv_store(hv, "level", 5, newSViv(dest->level), 0);
  61
  62         hv_store(hv, "hilight_priority", 16, newSViv(dest->hilight_priority), 0);
  63         hv_store(hv, "hilight_color", 13, new_pv(dest->hilight_color), 0);
  64 }
  65
  66 static PLAIN_OBJECT_INIT_REC fe_plains[] = {
  67         { "Irssi::UI::Process", (PERL_OBJECT_FUNC) perl_process_fill_hash },
  68         { "Irssi::UI::Window", (PERL_OBJECT_FUNC) perl_window_fill_hash },
  69         { "Irssi::UI::TextDest", (PERL_OBJECT_FUNC) perl_text_dest_fill_hash },
  70
  71         { NULL, NULL }
  72 };
  73
  74 MODULE = Irssi::UI  PACKAGE = Irssi::UI
  75
  76 PROTOTYPES: ENABLE
  77
  78 void
  79 processes()
  80 PREINIT:
  81         GSList *tmp;
  82 PPCODE:
  83         for (tmp = processes; tmp != NULL; tmp = tmp->next) {
  84                 XPUSHs(sv_2mortal(plain_bless(tmp->data, "Irssi::UI::Process")));
  85         }
  86
  87
  88 void
  89 init()
  90 CODE:
  91         if (initialized) return;
  92         perl_api_version_check("Irssi::UI");
  93         initialized = TRUE;
  94
  95         irssi_add_plains(fe_plains);
  96         perl_themes_init();
  97
  98 void
  99 deinit()
 100 CODE:
 101         if (!initialized) return;
 102         perl_themes_deinit();
 103         initialized = FALSE;
 104
 105 BOOT:
 106         irssi_boot(UI__Formats);
 107         irssi_boot(UI__Themes);
 108         irssi_boot(UI__Window);