diff --git a/src/perl/textui/TextBufferView.xs b/src/perl/textui/TextBufferView.xs index 37efc856..27ddfa7f 100644 --- a/src/perl/textui/TextBufferView.xs +++ b/src/perl/textui/TextBufferView.xs @@ -1,56 +1,5 @@ #include "module.h" -static char *default_indent_func; - -static int perl_indent_func(TEXT_BUFFER_VIEW_REC *view, - LINE_REC *line, int ypos) -{ - dSP; - int retcount, ret; - - ENTER; - SAVETMPS; - - PUSHMARK(SP); - XPUSHs(sv_2mortal(plain_bless(view, "Irssi::TextUI::TextBufferView"))); - XPUSHs(sv_2mortal(plain_bless(line, "Irssi::TextUI::Line"))); - XPUSHs(sv_2mortal(newSViv(ypos))); - PUTBACK; - - retcount = perl_call_pv(default_indent_func, G_EVAL|G_DISCARD); - SPAGAIN; - - ret = 0; - if (SvTRUE(ERRSV)) { - STRLEN n_a; - char *package; - - package = perl_function_get_package(default_indent_func); - signal_emit("script error", 2, - perl_script_find_package(package), - SvPV(ERRSV, n_a)); - g_free(package); - } else if (retcount > 0) { - ret = POPi; - } - - PUTBACK; - FREETMPS; - LEAVE; - - return ret; -} - -void perl_textbuffer_view_init(void) -{ - default_indent_func = NULL; -} - -void perl_textbuffer_view_deinit(void) -{ - g_free_not_null(default_indent_func); -} - MODULE = Irssi::TextUI::TextBufferView PACKAGE = Irssi::TextUI::TextBuffer PREFIX = textbuffer_ PROTOTYPES: ENABLE @@ -61,14 +10,6 @@ textbuffer_view_create(buffer, width, height, scroll) int height int scroll -void -gui_windows_set_default_indent_func(func) - char *func -CODE: - g_free_not_null(default_indent_func); - default_indent_func = g_strdup(func); - gui_windows_set_default_indent_func(perl_indent_func); - #******************************* MODULE = Irssi::TextUI::TextBufferView PACKAGE = Irssi::TextUI::TextBufferView PREFIX = textbuffer_view_ #******************************* diff --git a/src/perl/textui/TextUI.xs b/src/perl/textui/TextUI.xs index 9ebd2c6b..c92da84a 100644 --- a/src/perl/textui/TextUI.xs +++ b/src/perl/textui/TextUI.xs @@ -96,13 +96,11 @@ CODE: irssi_add_plains(textui_plains); perl_statusbar_init(); - perl_textbuffer_view_init(); void deinit() CODE: perl_statusbar_deinit(); - perl_textbuffer_view_deinit(); MODULE = Irssi::TextUI PACKAGE = Irssi