Created SILC Runtime Toolkit git repository Part I.

[runtime.git] / apps / irssi / src / perl / textui / TextUI.xs

diff --git a/apps/irssi/src/perl/textui/TextUI.xs b/apps/irssi/src/perl/textui/TextUI.xs
deleted file mode 100644 (file)
index a958e20..0000000
--- a/apps/irssi/src/perl/textui/TextUI.xs
+++ /dev/null
@@ -1,166 +0,0 @@
-#include "module.h"
-
-void perl_statusbar_init(void);
-void perl_statusbar_deinit(void);
-
-static int initialized = FALSE;
-
-static void perl_main_window_fill_hash(HV *hv, MAIN_WINDOW_REC *window)
-{
-       hv_store(hv, "active", 6, plain_bless(window->active, "Irssi::UI::Window"), 0);
-
-       hv_store(hv, "first_line", 10, newSViv(window->first_line), 0);
-       hv_store(hv, "last_line", 9, newSViv(window->last_line), 0);
-       hv_store(hv, "width", 5, newSViv(window->width), 0);
-       hv_store(hv, "height", 6, newSViv(window->height), 0);
-
-       hv_store(hv, "statusbar_lines", 15, newSViv(window->statusbar_lines), 0);
-}
-
-static void perl_text_buffer_fill_hash(HV *hv, TEXT_BUFFER_REC *buffer)
-{
-       hv_store(hv, "first_line", 10, plain_bless(buffer->first_line, "Irssi::TextUI::Line"), 0);
-       hv_store(hv, "lines_count", 11, newSViv(buffer->lines_count), 0);
-       hv_store(hv, "cur_line", 8, plain_bless(buffer->cur_line, "Irssi::TextUI::Line"), 0);
-       hv_store(hv, "last_eol", 8, newSViv(buffer->last_eol), 0);
-}
-
-static void perl_text_buffer_view_fill_hash(HV *hv, TEXT_BUFFER_VIEW_REC *view)
-{
-       hv_store(hv, "buffer", 6, plain_bless(view->buffer, "Irssi::TextUI::TextBuffer"), 0);
-       hv_store(hv, "width", 5, newSViv(view->width), 0);
-       hv_store(hv, "height", 6, newSViv(view->height), 0);
-
-       hv_store(hv, "default_indent", 14, newSViv(view->default_indent), 0);
-       hv_store(hv, "longword_noindent", 17, newSViv(view->longword_noindent), 0);
-       hv_store(hv, "scroll", 6, newSViv(view->scroll), 0);
-
-       hv_store(hv, "ypos", 4, newSViv(view->ypos), 0);
-
-       hv_store(hv, "startline", 9, plain_bless(view->startline, "Irssi::TextUI::Line"), 0);
-       hv_store(hv, "subline", 7, newSViv(view->subline), 0);
-
-       hv_store(hv, "bottom_startline", 16, plain_bless(view->bottom_startline, "Irssi::TextUI::Line"), 0);
-       hv_store(hv, "bottom_subline", 14, newSViv(view->bottom_subline), 0);
-
-       hv_store(hv, "empty_linecount", 15, newSViv(view->empty_linecount), 0);
-       hv_store(hv, "bottom", 6, newSViv(view->bottom), 0);
-}
-
-static void perl_line_fill_hash(HV *hv, LINE_REC *line)
-{
-       hv_store(hv, "refcount", 8, newSViv(line->refcount), 0);
-       hv_store(hv, "info", 4, plain_bless(&line->info, "Irssi::TextUI::LineInfo"), 0);
-}
-
-static void perl_line_cache_fill_hash(HV *hv, LINE_CACHE_REC *cache)
-{
-       hv_store(hv, "last_access", 11, newSViv(cache->last_access), 0);
-       hv_store(hv, "count", 5, newSViv(cache->count), 0);
-       /*LINE_CACHE_SUB_REC lines[1];*/
-}
-
-static void perl_line_info_fill_hash(HV *hv, LINE_INFO_REC *info)
-{
-       hv_store(hv, "level", 5, newSViv(info->level), 0);
-       hv_store(hv, "time", 4, newSViv(info->time), 0);
-}
-
-static void perl_statusbar_item_fill_hash(HV *hv, SBAR_ITEM_REC *item)
-{
-       hv_store(hv, "min_size", 8, newSViv(item->min_size), 0);
-       hv_store(hv, "max_size", 8, newSViv(item->max_size), 0);
-       hv_store(hv, "xpos", 4, newSViv(item->xpos), 0);
-       hv_store(hv, "size", 4, newSViv(item->size), 0);
-       if (item->bar->parent_window != NULL)
-               hv_store(hv, "window", 6, plain_bless(item->bar->parent_window->active, "Irssi::UI::Window"), 0);
-}
-
-static PLAIN_OBJECT_INIT_REC textui_plains[] = {
-       { "Irssi::TextUI::MainWindow", (PERL_OBJECT_FUNC) perl_main_window_fill_hash },
-       { "Irssi::TextUI::TextBuffer", (PERL_OBJECT_FUNC) perl_text_buffer_fill_hash },
-       { "Irssi::TextUI::TextBufferView", (PERL_OBJECT_FUNC) perl_text_buffer_view_fill_hash },
-       { "Irssi::TextUI::Line", (PERL_OBJECT_FUNC) perl_line_fill_hash },
-       { "Irssi::TextUI::LineCache", (PERL_OBJECT_FUNC) perl_line_cache_fill_hash },
-       { "Irssi::TextUI::LineInfo", (PERL_OBJECT_FUNC) perl_line_info_fill_hash },
-       { "Irssi::TextUI::StatusbarItem", (PERL_OBJECT_FUNC) perl_statusbar_item_fill_hash },
-
-       { NULL, NULL }
-};
-
-MODULE = Irssi::TextUI  PACKAGE = Irssi::TextUI
-
-PROTOTYPES: ENABLE
-
-void
-init()
-CODE:
-       if (initialized) return;
-       perl_api_version_check("Irssi::TextUI");
-       initialized = TRUE;
-
-        irssi_add_plains(textui_plains);
-        perl_statusbar_init();
-
-void
-deinit()
-CODE:
-       if (!initialized) return;
-        perl_statusbar_deinit();
-       initialized = FALSE;
-
-MODULE = Irssi::TextUI PACKAGE = Irssi
-
-void
-gui_printtext(xpos, ypos, str)
-       int xpos
-       int ypos
-       char *str
-
-MODULE = Irssi::TextUI PACKAGE = Irssi::UI::Window
-
-void
-gui_printtext_after(window, prev, level, str)
-       Irssi::UI::Window window
-       Irssi::TextUI::Line prev
-       int level
-       char *str
-PREINIT:
-       TEXT_DEST_REC dest;
-CODE:
-       format_create_dest(&dest, NULL, NULL, level, window);
-       gui_printtext_after(&dest, prev, str);
-
-Irssi::TextUI::Line
-last_line_insert(window)
-       Irssi::UI::Window window
-CODE:
-       RETVAL = WINDOW_GUI(window)->insert_after;
-OUTPUT:
-       RETVAL
-
-MODULE = Irssi::TextUI PACKAGE = Irssi::UI::Server
-
-void
-gui_printtext_after(server, target, prev, level, str)
-       Irssi::Server server
-       char *target
-       Irssi::TextUI::Line prev
-       int level
-       char *str
-PREINIT:
-       TEXT_DEST_REC dest;
-CODE:
-       format_create_dest(&dest, server, target, level, NULL);
-       gui_printtext_after(&dest, prev, str);
-
-BOOT:
-       irssi_boot(TextUI__Statusbar);
-       irssi_boot(TextUI__TextBuffer);
-       irssi_boot(TextUI__TextBufferView);
-
-void
-term_refresh_freeze()
-
-void
-term_refresh_thaw()