Adding upstream version 1.4.5.upstream/1.4.5upstream

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

1 files changed, 59 insertions, 0 deletions

diff --git a/src/perl/common/Rawlog.xs b/src/perl/common/Rawlog.xs
new file mode 100644
index 0000000..3c946c7
--- /dev/null
+++ b/src/perl/common/Rawlog.xs
@@ -0,0 +1,59 @@
+#define PERL_NO_GET_CONTEXT
+#include "module.h"
+
+MODULE = Irssi::Rawlog  PACKAGE = Irssi
+PROTOTYPES: ENABLE
+
+void
+rawlog_set_size(lines)
+	int lines
+
+Irssi::Rawlog
+rawlog_create()
+
+#*******************************
+MODULE = Irssi::Rawlog  PACKAGE = Irssi::Rawlog  PREFIX = rawlog_
+#*******************************
+
+void
+rawlog_get_lines(rawlog)
+	Irssi::Rawlog rawlog
+PREINIT:
+	GList *tmp;
+PPCODE:
+	for (tmp = rawlog->lines->head; tmp != NULL; tmp = tmp->next) {
+		XPUSHs(sv_2mortal(new_pv(tmp->data)));
+	}
+
+void
+rawlog_destroy(rawlog)
+	Irssi::Rawlog rawlog
+
+void
+rawlog_input(rawlog, str)
+	Irssi::Rawlog rawlog
+	char *str
+
+void
+rawlog_output(rawlog, str)
+	Irssi::Rawlog rawlog
+	char *str
+
+void
+rawlog_redirect(rawlog, str)
+	Irssi::Rawlog rawlog
+	char *str
+
+void
+rawlog_open(rawlog, fname)
+	Irssi::Rawlog rawlog
+	char *fname
+
+void
+rawlog_close(rawlog)
+	Irssi::Rawlog rawlog
+
+void
+rawlog_save(rawlog, fname)
+	Irssi::Rawlog rawlog
+	char *fname