zynk/irssi
2
0
Fork 0
mirror of https://github.com/irssi/irssi.git synced 2026-08-08 19:30:15 +02:00
Code Issues Projects Releases Packages Wiki Activity

add format_string_expand to Perl

Browse source
This commit is contained in:
Ailin Nemui 2021-03-13 21:51:01 +01:00
commit 25ad30d5e4
1 changed files with 10 additions and 0 deletions
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 char *str
int len 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 void
strip_codes(input) strip_codes(input)
char *input char *input