Moved fe_perl module to use Irssi::UI .. this breaks several scripts that

use UI-specific code, but simply adding the "use Irssi::UI;" after use
Irssi; should work. make install now removes libfe_perl.* files from global
module directory, but if you have it somewhere else you should manually
remove it.


git-svn-id: http://svn.irssi.org/repos/irssi/trunk@1582 dbcabf3a-b0e7-0310-adc4-f8d773084564

1 files changed, 277 insertions, 0 deletions

diff --git a/src/perl/ui/Window.xs b/src/perl/ui/Window.xs
new file mode 100644
index 00000000..cbee5a82
--- /dev/null
+++ b/src/perl/ui/Window.xs
@@ -0,0 +1,277 @@
+MODULE = Irssi::UI  PACKAGE = Irssi
+
+void
+windows()
+PREINIT:
+	GSList *tmp;
+PPCODE:
+	for (tmp = windows; tmp != NULL; tmp = tmp->next) {
+		XPUSHs(sv_2mortal(plain_bless(tmp->data, "Irssi::UI::Window")));
+	}
+
+
+Irssi::UI::Window
+active_win()
+CODE:
+	RETVAL = active_win;
+OUTPUT:
+	RETVAL
+
+Irssi::Server
+active_server()
+CODE:
+	RETVAL = active_win->active_server;
+OUTPUT:
+	RETVAL
+
+void
+print(str, level=MSGLEVEL_CLIENTNOTICE)
+	char *str
+        int level;
+CODE:
+	printtext_string(NULL, NULL, level, str);
+
+void
+command(cmd)
+	char *cmd
+CODE:
+	perl_command(cmd, active_win->active_server, active_win->active);
+
+Irssi::UI::Window
+window_find_name(name)
+	char *name
+
+Irssi::UI::Window
+window_find_refnum(refnum)
+	int refnum
+
+int
+window_refnum_prev(refnum, wrap)
+	int refnum
+	int wrap
+
+int
+window_refnum_next(refnum, wrap)
+	int refnum
+	int wrap
+
+int
+windows_refnum_last()
+
+Irssi::UI::Window
+window_find_level(level)
+	int level
+CODE:
+	RETVAL = window_find_level(NULL, level);
+OUTPUT:
+	RETVAL
+
+Irssi::UI::Window
+window_find_item(name)
+	char *name
+CODE:
+	RETVAL = window_find_item(NULL, name);
+OUTPUT:
+	RETVAL
+
+Irssi::UI::Window
+window_find_closest(name, level)
+	char *name
+	int level
+CODE:
+	RETVAL = window_find_closest(NULL, name, level);
+OUTPUT:
+	RETVAL
+
+Irssi::Windowitem
+window_item_find(name)
+	char *name
+CODE:
+	RETVAL = window_item_find(NULL, name);
+OUTPUT:
+	RETVAL
+
+
+#*******************************
+MODULE = Irssi::UI  PACKAGE = Irssi::Server
+#*******************************
+
+void
+command(server, cmd)
+	Irssi::Server server
+	char *cmd
+CODE:
+	perl_command(cmd, server, active_win->active);
+
+void
+print(server, channel, str, level)
+	Irssi::Server server
+	char *channel
+	char *str
+	int level
+CODE:
+	printtext_string(server, channel, level, str);
+
+Irssi::Windowitem
+window_item_find(server, name)
+	Irssi::Server server
+	char *name
+
+Irssi::UI::Window
+window_find_item(server, name)
+	Irssi::Server server
+	char *name
+
+Irssi::UI::Window
+window_find_level(server, level)
+	Irssi::Server server
+	int level
+
+Irssi::UI::Window
+window_find_closest(server, name, level)
+	Irssi::Server server
+	char *name
+	int level
+
+
+#*******************************
+MODULE = Irssi::UI  PACKAGE = Irssi::UI::Window  PREFIX=window_
+#*******************************
+
+void
+items(window)
+	Irssi::UI::Window window
+PREINIT:
+	GSList *tmp;
+PPCODE:
+	for (tmp = window->items; tmp != NULL; tmp = tmp->next) {
+                CHANNEL_REC *rec = tmp->data;
+
+		XPUSHs(sv_2mortal(irssi_bless(rec)));
+	}
+
+void
+print(window, str, level=MSGLEVEL_CLIENTNOTICE)
+	Irssi::UI::Window window
+	char *str
+        int level;
+CODE:
+	printtext_window(window, level, str);
+
+void
+command(window, cmd)
+	Irssi::UI::Window window
+	char *cmd
+CODE:
+	perl_command(cmd, window->active_server, window->active);
+
+void
+window_item_add(window, item, automatic)
+	Irssi::UI::Window window
+	Irssi::Windowitem item
+	int automatic
+
+void
+window_item_remove(item)
+	Irssi::Windowitem item
+
+void
+window_item_destroy(item)
+	Irssi::Windowitem item
+
+void
+window_item_prev(window)
+	Irssi::UI::Window window
+
+void
+window_item_next(window)
+	Irssi::UI::Window window
+
+void
+window_destroy(window)
+	Irssi::UI::Window window
+
+void
+window_set_active(window)
+	Irssi::UI::Window window
+
+void
+window_change_server(window, server)
+	Irssi::UI::Window window
+	Irssi::Server server
+
+void
+window_set_refnum(window, refnum)
+	Irssi::UI::Window window
+	int refnum
+
+void
+window_set_name(window, name)
+	Irssi::UI::Window window
+	char *name
+
+void
+window_set_level(window, level)
+	Irssi::UI::Window window
+	int level
+
+char *
+window_get_active_name(window)
+	Irssi::UI::Window window
+
+Irssi::Windowitem
+window_item_find(window, server, name)
+	Irssi::UI::Window window
+	Irssi::Server server
+	char *name
+CODE:
+	RETVAL = window_item_find_window(window, server, name);
+OUTPUT:
+	RETVAL
+
+#*******************************
+MODULE = Irssi::UI  PACKAGE = Irssi::Windowitem  PREFIX = window_item_
+#*******************************
+
+void
+print(item, str, level=MSGLEVEL_CLIENTNOTICE)
+	Irssi::Windowitem item
+	int level
+	char *str
+CODE:
+	printtext_string(item->server, item->name, level, str);
+
+void
+command(item, cmd)
+	Irssi::Windowitem item
+	char *cmd
+CODE:
+	perl_command(cmd, item->server, item);
+
+Irssi::UI::Window
+window_create(item, automatic)
+	Irssi::Windowitem item
+	int automatic
+
+Irssi::UI::Window
+window(item)
+	Irssi::Windowitem item
+CODE:
+	RETVAL = window_item_window(item);
+OUTPUT:
+	RETVAL
+
+void
+window_item_change_server(item, server)
+	Irssi::Windowitem item
+	Irssi::Server server
+
+int
+window_item_is_active(item)
+	Irssi::Windowitem item
+
+void
+window_item_set_active(item)
+	Irssi::Windowitem item
+CODE:
+	window_item_set_active(window_item_window(item), item);