1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
|
#include "module.h"
static int magic_free_text_dest(SV *sv, MAGIC *mg)
{
TEXT_DEST_REC *dest = (TEXT_DEST_REC *) mg->mg_ptr;
g_free((char *) dest->target);
g_free(dest);
mg->mg_ptr = NULL;
return 0;
}
static MGVTBL vtbl_free_text_dest =
{
NULL, NULL, NULL, NULL, magic_free_text_dest
};
MODULE = Irssi::UI::Formats PACKAGE = Irssi::UI::Window
PROTOTYPES: ENABLE
int
format_get_length(str)
char *str
int
format_real_length(str, len)
char *str
int len
char *
strip_codes(input)
char *input
void
format_get_text(window, module, server, target, formatnum, ...)
Irssi::UI::Window window
char *module
Irssi::Server server
char *target
int formatnum
PREINIT:
TEXT_DEST_REC dest;
THEME_REC *theme;
char **charargs;
char *ret;
int n;
PPCODE:
charargs = g_new0(char *, items-5+1);
for (n = 5; n < items; n++) {
charargs[n-5] = (char *)SvPV(ST(n), PL_na);
}
format_create_dest(&dest, server, target, 0, window);
theme = window_get_theme(dest.window);
ret = format_get_text_theme_charargs(theme, module, &dest, formatnum, charargs);
g_free(charargs);
XPUSHs(sv_2mortal(new_pv(ret)));
g_free_not_null(ret);
MODULE = Irssi::UI::Formats PACKAGE = Irssi
void
format_create_dest(server, target=NULL, level=MSGLEVEL_CLIENTNOTICE, window=NULL)
Irssi::Server server
char *target
int level
Irssi::UI::Window window
PREINIT:
TEXT_DEST_REC *dest;
SV *sv;
PPCODE:
dest = g_new0(TEXT_DEST_REC, 1);
format_create_dest(dest, server, g_strdup(target), level, window);
sv = plain_bless(dest, "Irssi::UI::TextDest");
XPUSHs(sv_2mortal(sv));
sv = *hv_fetch(hvref(sv), "_irssi", 6, 0);
sv_magic(sv, NULL, '~', NULL, 0);
SvMAGIC(sv)->mg_private = 0x1551; /* HF */
SvMAGIC(sv)->mg_virtual = &vtbl_free_text_dest;
SvMAGIC(sv)->mg_ptr = (char *) dest;
MODULE = Irssi::UI::Formats PACKAGE = Irssi::UI::TextDest
void
print(dest, str)
Irssi::UI::TextDest dest
char *str
CODE:
printtext_dest(dest, str);
|
