From d9b6bb152a0ccdf5c862980e2f6b6daf806f5bdf Mon Sep 17 00:00:00 2001
From: Timo Sirainen <cras@irssi.org>
Date: Thu, 25 Oct 2001 18:17:21 +0000
Subject: [PATCH] Added flags option for Irssi::UI::Theme::format_expand().

git-svn-id: http://svn.irssi.org/repos/irssi/trunk@1921 dbcabf3a-b0e7-0310-adc4-f8d773084564
---
 src/perl/ui/Themes.xs | 33 ++++++++++++++++++++++++++++++++-
 1 file changed, 32 insertions(+), 1 deletion(-)

diff --git a/src/perl/ui/Themes.xs b/src/perl/ui/Themes.xs
index aa05354c..cb5407ff 100644
--- a/src/perl/ui/Themes.xs
+++ b/src/perl/ui/Themes.xs
@@ -61,6 +61,27 @@ CODE:
 OUTPUT:
 	RETVAL
 
+int
+EXPAND_FLAG_IGNORE_REPLACES()
+CODE:
+	RETVAL = EXPAND_FLAG_IGNORE_REPLACES;
+OUTPUT:
+	RETVAL
+
+int
+EXPAND_FLAG_IGNORE_EMPTY()
+CODE:
+	RETVAL = EXPAND_FLAG_IGNORE_EMPTY;
+OUTPUT:
+	RETVAL
+
+int
+EXPAND_FLAG_RECURSIVE_MASK()
+CODE:
+	RETVAL = EXPAND_FLAG_RECURSIVE_MASK;
+OUTPUT:
+	RETVAL
+
 void
 theme_register(formats)
 	SV *formats
@@ -187,6 +208,16 @@ MODULE = Irssi::UI::Themes  PACKAGE = Irssi::UI::Theme  PREFIX = theme_
 #*******************************
 
 char *
-theme_format_expand(theme, format)
+theme_format_expand(theme, format, flags=0)
 	Irssi::UI::Theme theme
 	char *format
+        int flags
+CODE:
+	if (flags == 0) {
+		RETVAL = theme_format_expand(theme, format);
+	} else {
+		RETVAL = theme_format_expand_data(theme, (const char **) &format, 'n', 'n',
+						  NULL, NULL, EXPAND_FLAG_ROOT | flags);
+	}
+OUTPUT:
+	RETVAL