diff options
| author | Timo Sirainen <cras@irssi.org> | 2001-10-25 18:17:21 +0000 |
|---|---|---|
| committer | cras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564> | 2001-10-25 18:17:21 +0000 |
| commit | d9b6bb152a0ccdf5c862980e2f6b6daf806f5bdf (patch) | |
| tree | 1187935c10a18defae880ed77f2c879e4772233d /src/perl/ui | |
| parent | 39b66ab883391acb0763098409053b2a7bc4ba29 (diff) | |
| download | irssi-d9b6bb152a0ccdf5c862980e2f6b6daf806f5bdf.zip | |
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
Diffstat (limited to 'src/perl/ui')
| -rw-r--r-- | src/perl/ui/Themes.xs | 33 |
1 files changed, 32 insertions, 1 deletions
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 |