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
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
|
#include "module.h"
MODULE = Purple::Log PACKAGE = Purple::Log PREFIX = purple_log_
PROTOTYPES: ENABLE
BOOT:
{
HV *type_stash = gv_stashpv("Purple::Log::Type", 1);
HV *flags_stash = gv_stashpv("Purple::Log:ReadFlags::", 1);
static const constiv *civ, type_const_iv[] = {
#define const_iv(name) {#name, (IV)PURPLE_LOG_##name}
const_iv(IM),
const_iv(CHAT),
const_iv(SYSTEM),
};
static const constiv flags_const_iv[] = {
#undef const_iv
#define const_iv(name) {#name, (IV)PURPLE_LOG_READ_##name}
const_iv(NO_NEWLINE),
};
for (civ = type_const_iv + sizeof(type_const_iv) / sizeof(type_const_iv[0]); civ-- > type_const_iv; )
newCONSTSUB(type_stash, (char *)civ->name, newSViv(civ->iv));
for (civ = flags_const_iv + sizeof(flags_const_iv) / sizeof(flags_const_iv[0]); civ-- > flags_const_iv; )
newCONSTSUB(flags_stash, (char *)civ->name, newSViv(civ->iv));
}
int
purple_log_common_sizer(log)
Purple::Log log
void
purple_log_common_writer(log, ext)
Purple::Log log
const char *ext
gint
purple_log_compare(y, z)
gconstpointer y
gconstpointer z
void
purple_log_free(log)
Purple::Log log
gchar_own *
purple_log_get_log_dir(type, name, account)
Purple::LogType type
const char *name
Purple::Account account
void
purple_log_get_log_sets()
PREINIT:
GHashTable *l;
PPCODE:
l = purple_log_get_log_sets();
XPUSHs(sv_2mortal(purple_perl_bless_object(l, "GHashTable")));
void
purple_log_get_logs(type, name, account)
Purple::LogType type
const char *name
Purple::Account account
PREINIT:
GList *l, *ll;
PPCODE:
ll = purple_log_get_logs(type, name, account);
for (l = ll; l != NULL; l = l->next) {
XPUSHs(sv_2mortal(purple_perl_bless_object(l->data, "Purple::Log")));
}
/* We can free the list here but the script needs to free the
* Purple::Log 'objects' itself. */
g_list_free(ll);
int
purple_log_get_size(log)
Purple::Log log
void
purple_log_get_system_logs(account)
Purple::Account account
PREINIT:
GList *l, *ll;
PPCODE:
ll = purple_log_get_system_logs(account);
for (l = ll; l != NULL; l = l->next) {
XPUSHs(sv_2mortal(purple_perl_bless_object(l->data, "Purple::Log")));
}
/* We can free the list here but the script needs to free the
* Purple::Log 'objects' itself. */
g_list_free(ll);
int
purple_log_get_total_size(type, name, account)
Purple::LogType type
const char *name
Purple::Account account
void
purple_log_init()
void
purple_log_logger_free(logger)
Purple::Log::Logger logger
void
purple_log_logger_get_options()
PREINIT:
GList *l, *ll;
PPCODE:
/* This might want to be massaged to a hash, since that's essentially
* what the key/value list is emulating. */
for (l = ll = purple_log_logger_get_options(); l != NULL; l = l->next) {
XPUSHs(sv_2mortal(newSVpv(l->data, 0)));
}
g_list_free(ll);
gchar_own *
purple_log_read(log, flags)
Purple::Log log
Purple::Log::ReadFlags flags
gint
purple_log_set_compare(y, z)
gconstpointer y
gconstpointer z
|
