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

Didn't I already commit these? .. added format_get_text(),

Browse source 
gui_printtext_after(), last_line_insert() and fixed a few memleaks.


git-svn-id: http://svn.irssi.org/repos/irssi/trunk@2040 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Timo Sirainen 2001-11-17 00:25:20 +00:00 • committed by cras
commit 00423151f9
4 changed files with 75 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

28
src/perl/ui/Formats.xs Normal file
View file

@ -0,0 +1,28 @@
#include "module.h"
MODULE = Irssi::UI::Formats PACKAGE = Irssi::UI::Window
PROTOTYPES: ENABLE
void
format_get_text(window, module, server, target, formatnum, ...)
Irssi::UI::Window window
char *module
Irssi::Server server
char *target
int formatnum
PREINIT:
char **charargs;
char *ret;
int n;
STRLEN n_a;
PPCODE:
charargs = g_new0(char *, items-5+1);
charargs[items-5] = NULL;
for (n = 5; n < items; n++) {
charargs[n-5] = (char *)SvPV(ST(n), n_a);
}
ret = format_get_text(module, window, server, target, formatnum, charargs);
g_free(charargs);
XPUSHs(sv_2mortal(new_pv(ret)));
g_free_not_null(ret);

16
src/perl/ui/Themes.xs
View file

@ -207,17 +207,19 @@ CODE:
MODULE = Irssi::UI::Themes PACKAGE = Irssi::UI::Theme PREFIX = theme_
#*******************************
char *
void
theme_format_expand(theme, format, flags=0)
Irssi::UI::Theme theme
char *format
int flags
CODE:
PREINIT:
char *ret;
PPCODE:
if (flags == 0) {
RETVAL = theme_format_expand(theme, format);
ret = theme_format_expand(theme, format);
} else {
RETVAL = theme_format_expand_data(theme, (const char **) &format, 'n', 'n',
NULL, NULL, EXPAND_FLAG_ROOT | flags);
ret = theme_format_expand_data(theme, (const char **) &format, 'n', 'n',
NULL, NULL, EXPAND_FLAG_ROOT | flags);
}
OUTPUT:
RETVAL
XPUSHs(sv_2mortal(new_pv(ret)));
g_free_not_null(ret);

1
src/perl/ui/UI.xs
View file

@ -87,5 +87,6 @@ CODE:
perl_themes_deinit();
BOOT:
irssi_boot(UI__Formats);
irssi_boot(UI__Themes);
irssi_boot(UI__Window);