Adding upstream version 1.4.5.upstream/1.4.5upstream

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>

1 files changed, 115 insertions, 0 deletions

diff --git a/src/perl/textui/TextBufferView.xs b/src/perl/textui/TextBufferView.xs
new file mode 100644
index 0000000..e4cfe67
--- /dev/null
+++ b/src/perl/textui/TextBufferView.xs
@@ -0,0 +1,115 @@
+#define PERL_NO_GET_CONTEXT
+#include "module.h"
+#include "wrapper_buffer_line.h"
+
+MODULE = Irssi::TextUI::TextBufferView  PACKAGE = Irssi::TextUI::TextBuffer  PREFIX = textbuffer_
+PROTOTYPES: ENABLE
+
+#*******************************
+MODULE = Irssi::TextUI::TextBufferView  PACKAGE = Irssi::TextUI::TextBufferView  PREFIX = textbuffer_view_
+#*******************************
+
+void
+textbuffer_view_set_default_indent(view, default_indent, longword_noindent)
+	Irssi::TextUI::TextBufferView view
+	int default_indent
+	int longword_noindent
+CODE:
+	textbuffer_view_set_default_indent(view, default_indent, longword_noindent, NULL);
+
+void
+textbuffer_view_set_hidden_level(view, level)
+        Irssi::TextUI::TextBufferView view
+        int level
+
+void
+textbuffer_view_set_scroll(view, scroll)
+	Irssi::TextUI::TextBufferView view
+	int scroll
+
+void
+textbuffer_view_clear(view)
+	Irssi::TextUI::TextBufferView view
+
+Irssi::TextUI::Line
+textbuffer_view_get_lines(view)
+	Irssi::TextUI::TextBufferView view
+CODE:
+	RETVAL = perl_wrap_buffer_line(view->buffer, textbuffer_view_get_lines(view));
+OUTPUT:
+	RETVAL
+
+void
+textbuffer_view_scroll(view, lines)
+	Irssi::TextUI::TextBufferView view
+	int lines
+
+void
+textbuffer_view_scroll_line(view, line)
+	Irssi::TextUI::TextBufferView view
+	Irssi::TextUI::Line line
+CODE:
+	textbuffer_view_scroll_line(view, Line(line));
+
+Irssi::TextUI::LineCache
+textbuffer_view_get_line_cache(view, line)
+	Irssi::TextUI::TextBufferView view
+	Irssi::TextUI::Line line
+CODE:
+	RETVAL = textbuffer_view_get_line_cache(view, Line(line));
+OUTPUT:
+	RETVAL
+
+void
+textbuffer_view_remove_line(view, line)
+	Irssi::TextUI::TextBufferView view
+	Irssi::TextUI::Line line
+CODE:
+	textbuffer_view_remove_line(view, Line(line));
+
+void
+textbuffer_view_remove_all_lines(view)
+	Irssi::TextUI::TextBufferView view
+
+void
+textbuffer_view_remove_lines_by_level(view, level)
+        Irssi::TextUI::TextBufferView view
+        int level
+
+void
+textbuffer_view_set_bookmark(view, name, line)
+	Irssi::TextUI::TextBufferView view
+	char *name
+	Irssi::TextUI::Line line
+CODE:
+	textbuffer_view_set_bookmark(view, name, Line(line));
+
+void
+textbuffer_view_set_bookmark_bottom(view, name)
+	Irssi::TextUI::TextBufferView view
+	char *name
+
+Irssi::TextUI::Line
+textbuffer_view_get_bookmark(view, name)
+	Irssi::TextUI::TextBufferView view
+	char *name
+CODE:
+	RETVAL = perl_wrap_buffer_line(view->buffer, textbuffer_view_get_bookmark(view, name));
+OUTPUT:
+	RETVAL
+
+void
+textbuffer_view_redraw(view)
+	Irssi::TextUI::TextBufferView view
+
+#*******************************
+MODULE = Irssi::TextUI::TextBufferView  PACKAGE = Irssi::UI::Window
+#*******************************
+
+Irssi::TextUI::TextBufferView
+view(window)
+	Irssi::UI::Window window
+CODE:
+	RETVAL = WINDOW_GUI(window)->view;
+OUTPUT:
+	RETVAL