aniani/irssi
1
0
Fork 0
mirror of https://github.com/irssi/irssi.git synced 2024-11-03 04:27:19 -05:00
Code

add format_string_expand to Perl

Browse Source
This commit is contained in:
Ailin Nemui 2021-03-13 21:51:01 +01:00
parent 7d213da88a
commit 25ad30d5e4
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/perl/ui/Formats.xs
View File

@ -50,6 +50,16 @@ format_real_length(str, len)
char *str
int len
void
format_string_expand(str)
char *str
PREINIT:
char *ret;
PPCODE:
ret = format_string_expand(str, NULL);
XPUSHs(sv_2mortal(new_pv(ret)));
g_free(ret);
void
strip_codes(input)
char *input