apps/irssi/src/perl/textui/TextUI.xs

   1 #include "module.h"
   2
   3 void perl_statusbar_init(void);
   4 void perl_statusbar_deinit(void);
   5
   6 static int initialized = FALSE;
   7
   8 static void perl_main_window_fill_hash(HV *hv, MAIN_WINDOW_REC *window)
   9 {
  10         hv_store(hv, "active", 6, plain_bless(window->active, "Irssi::UI::Window"), 0);
  11
  12         hv_store(hv, "first_line", 10, newSViv(window->first_line), 0);
  13         hv_store(hv, "last_line", 9, newSViv(window->last_line), 0);
  14         hv_store(hv, "width", 5, newSViv(window->width), 0);
  15         hv_store(hv, "height", 6, newSViv(window->height), 0);
  16
  17         hv_store(hv, "statusbar_lines", 15, newSViv(window->statusbar_lines), 0);
  18 }
  19
  20 static void perl_text_buffer_fill_hash(HV *hv, TEXT_BUFFER_REC *buffer)
  21 {
  22         hv_store(hv, "first_line", 10, plain_bless(buffer->first_line, "Irssi::TextUI::Line"), 0);
  23         hv_store(hv, "lines_count", 11, newSViv(buffer->lines_count), 0);
  24         hv_store(hv, "cur_line", 8, plain_bless(buffer->cur_line, "Irssi::TextUI::Line"), 0);
  25         hv_store(hv, "last_eol", 8, newSViv(buffer->last_eol), 0);
  26 }
  27
  28 static void perl_text_buffer_view_fill_hash(HV *hv, TEXT_BUFFER_VIEW_REC *view)
  29 {
  30         hv_store(hv, "buffer", 6, plain_bless(view->buffer, "Irssi::TextUI::TextBuffer"), 0);
  31         hv_store(hv, "width", 5, newSViv(view->width), 0);
  32         hv_store(hv, "height", 6, newSViv(view->height), 0);
  33
  34         hv_store(hv, "default_indent", 14, newSViv(view->default_indent), 0);
  35         hv_store(hv, "longword_noindent", 17, newSViv(view->longword_noindent), 0);
  36         hv_store(hv, "scroll", 6, newSViv(view->scroll), 0);
  37
  38         hv_store(hv, "ypos", 4, newSViv(view->ypos), 0);
  39
  40         hv_store(hv, "startline", 9, plain_bless(view->startline, "Irssi::TextUI::Line"), 0);
  41         hv_store(hv, "subline", 7, newSViv(view->subline), 0);
  42
  43         hv_store(hv, "bottom_startline", 16, plain_bless(view->bottom_startline, "Irssi::TextUI::Line"), 0);
  44         hv_store(hv, "bottom_subline", 14, newSViv(view->bottom_subline), 0);
  45
  46         hv_store(hv, "empty_linecount", 15, newSViv(view->empty_linecount), 0);
  47         hv_store(hv, "bottom", 6, newSViv(view->bottom), 0);
  48 }
  49
  50 static void perl_line_fill_hash(HV *hv, LINE_REC *line)
  51 {
  52         hv_store(hv, "refcount", 8, newSViv(line->refcount), 0);
  53         hv_store(hv, "info", 4, plain_bless(&line->info, "Irssi::TextUI::LineInfo"), 0);
  54 }
  55
  56 static void perl_line_cache_fill_hash(HV *hv, LINE_CACHE_REC *cache)
  57 {
  58         hv_store(hv, "last_access", 11, newSViv(cache->last_access), 0);
  59         hv_store(hv, "count", 5, newSViv(cache->count), 0);
  60         /*LINE_CACHE_SUB_REC lines[1];*/
  61 }
  62
  63 static void perl_line_info_fill_hash(HV *hv, LINE_INFO_REC *info)
  64 {
  65         hv_store(hv, "level", 5, newSViv(info->level), 0);
  66         hv_store(hv, "time", 4, newSViv(info->time), 0);
  67 }
  68
  69 static void perl_statusbar_item_fill_hash(HV *hv, SBAR_ITEM_REC *item)
  70 {
  71         hv_store(hv, "min_size", 8, newSViv(item->min_size), 0);
  72         hv_store(hv, "max_size", 8, newSViv(item->max_size), 0);
  73         hv_store(hv, "xpos", 4, newSViv(item->xpos), 0);
  74         hv_store(hv, "size", 4, newSViv(item->size), 0);
  75         if (item->bar->parent_window != NULL)
  76                 hv_store(hv, "window", 6, plain_bless(item->bar->parent_window->active, "Irssi::UI::Window"), 0);
  77 }
  78
  79 static PLAIN_OBJECT_INIT_REC textui_plains[] = {
  80         { "Irssi::TextUI::MainWindow", (PERL_OBJECT_FUNC) perl_main_window_fill_hash },
  81         { "Irssi::TextUI::TextBuffer", (PERL_OBJECT_FUNC) perl_text_buffer_fill_hash },
  82         { "Irssi::TextUI::TextBufferView", (PERL_OBJECT_FUNC) perl_text_buffer_view_fill_hash },
  83         { "Irssi::TextUI::Line", (PERL_OBJECT_FUNC) perl_line_fill_hash },
  84         { "Irssi::TextUI::LineCache", (PERL_OBJECT_FUNC) perl_line_cache_fill_hash },
  85         { "Irssi::TextUI::LineInfo", (PERL_OBJECT_FUNC) perl_line_info_fill_hash },
  86         { "Irssi::TextUI::StatusbarItem", (PERL_OBJECT_FUNC) perl_statusbar_item_fill_hash },
  87
  88         { NULL, NULL }
  89 };
  90
  91 MODULE = Irssi::TextUI  PACKAGE = Irssi::TextUI
  92
  93 PROTOTYPES: ENABLE
  94
  95 void
  96 init()
  97 CODE:
  98         if (initialized) return;
  99         perl_api_version_check("Irssi::TextUI");
 100         initialized = TRUE;
 101
 102         irssi_add_plains(textui_plains);
 103         perl_statusbar_init();
 104
 105 void
 106 deinit()
 107 CODE:
 108         if (!initialized) return;
 109         perl_statusbar_deinit();
 110         initialized = FALSE;
 111
 112 MODULE = Irssi::TextUI PACKAGE = Irssi
 113
 114 void
 115 gui_printtext(xpos, ypos, str)
 116         int xpos
 117         int ypos
 118         char *str
 119
 120 MODULE = Irssi::TextUI PACKAGE = Irssi::UI::Window
 121
 122 void
 123 gui_printtext_after(window, prev, level, str)
 124         Irssi::UI::Window window
 125         Irssi::TextUI::Line prev
 126         int level
 127         char *str
 128 PREINIT:
 129         TEXT_DEST_REC dest;
 130 CODE:
 131         format_create_dest(&dest, NULL, NULL, level, window);
 132         gui_printtext_after(&dest, prev, str);
 133
 134 Irssi::TextUI::Line
 135 last_line_insert(window)
 136         Irssi::UI::Window window
 137 CODE:
 138         RETVAL = WINDOW_GUI(window)->insert_after;
 139 OUTPUT:
 140         RETVAL
 141
 142 MODULE = Irssi::TextUI PACKAGE = Irssi::UI::Server
 143
 144 void
 145 gui_printtext_after(server, target, prev, level, str)
 146         Irssi::Server server
 147         char *target
 148         Irssi::TextUI::Line prev
 149         int level
 150         char *str
 151 PREINIT:
 152         TEXT_DEST_REC dest;
 153 CODE:
 154         format_create_dest(&dest, server, target, level, NULL);
 155         gui_printtext_after(&dest, prev, str);
 156
 157 BOOT:
 158         irssi_boot(TextUI__Statusbar);
 159         irssi_boot(TextUI__TextBuffer);
 160         irssi_boot(TextUI__TextBufferView);
 161
 162 void
 163 term_refresh_freeze()
 164
 165 void
 166 term_refresh_thaw()