aniani/irssi
1
0
Fork 0
mirror of https://github.com/irssi/irssi.git synced 2024-10-27 05:20:20 -04:00
Code

Removed unfinished code that was not supposed to go to cvs..

Browse Source 
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@1913 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Timo Sirainen 2001-10-24 23:12:55 +00:00 committed by cras
parent 2a75c88f99
commit bbd4b47306
2 changed files with 0 additions and 61 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

59
src/perl/textui/TextBufferView.xs
View File

@ -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_
#*******************************

2
src/perl/textui/TextUI.xs
View File

@ -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