From 99e9ab582fc0e2da20c9be3ffb6d4a1a26665190 Mon Sep 17 00:00:00 2001
From: Timo Sirainen <cras@irssi.org>
Date: Fri, 1 Jun 2001 17:53:14 +0000
Subject: added Irssi::parse_special()

git-svn-id: http://svn.irssi.org/repos/irssi/trunk@1529 dbcabf3a-b0e7-0310-adc4-f8d773084564
---
 src/perl/common/Core.xs  | 40 ++++++++++++++++++++++++++++++++++++++++
 src/perl/common/module.h |  1 +
 2 files changed, 41 insertions(+)

diff --git a/src/perl/common/Core.xs b/src/perl/common/Core.xs
index a225d09a..ea078b57 100644
--- a/src/perl/common/Core.xs
+++ b/src/perl/common/Core.xs
@@ -348,3 +348,43 @@ pidwait_add(pid)
 void 
 pidwait_remove(pid)
 	int pid
+
+char *
+parse_special(cmd, data="", flags=0)
+	char *cmd
+	char *data
+	int flags
+CODE:
+	RETVAL = parse_special_string(cmd, NULL, NULL, data, NULL, flags);
+OUTPUT:
+	RETVAL
+
+#*******************************
+MODULE = Irssi	PACKAGE = Irssi::Server
+#*******************************
+
+char *
+parse_special(server, cmd, data="", flags=0)
+	Irssi::Server server
+	char *cmd
+	char *data
+	int flags
+CODE:
+	RETVAL = parse_special_string(cmd, server, NULL, data, NULL, flags);
+OUTPUT:
+	RETVAL
+
+#*******************************
+MODULE = Irssi	PACKAGE = Irssi::Windowitem
+#*******************************
+
+char *
+parse_special(item, cmd, data="", flags=0)
+	Irssi::Windowitem item
+	char *cmd
+	char *data
+	int flags
+CODE:
+	RETVAL = parse_special_string(cmd, item->server, item, data, NULL, flags);
+OUTPUT:
+	RETVAL
diff --git a/src/perl/common/module.h b/src/perl/common/module.h
index 11a60fe7..23cbad63 100644
--- a/src/perl/common/module.h
+++ b/src/perl/common/module.h
@@ -14,6 +14,7 @@
 #include "ignore.h"
 #include "settings.h"
 #include "masks.h"
+#include "special-vars.h"
 
 #include "chatnets.h"
 #include "servers.h"
-- 
cgit v1.2.3