Bug Summary

File:perl/common/Core.c
Location:line 61, column 32
Description:Dereference of null pointer.

Annotated Source Code

1/*
2 * This file was generated automatically by ExtUtils::ParseXS version 2.19 from the
3 * contents of Core.xs. Do not edit this file, edit Core.xs instead.
4 *
5 * ANY CHANGES MADE HERE WILL BE LOST!
6 *
7 */
8
9#line 1 "Core.xs"
10#include "module.h"
11#include "irssi-version.h"
12#include "core.h"
13
14#include "pidwait.h"
15#include "session.h"
16
17#define DEFAULT_COMMAND_CATEGORY"Perl scripts' commands" "Perl scripts' commands"
18
19static void perl_signal_add_hash(int priority, SV *sv)
20{
21 HV *hv;
22 HE *he;
23 I32 len;
24
25 if (!is_hvref(sv)((sv) && ((sv)->sv_flags & 0x00080000) &&
((XRV*) (sv)->sv_any)->xrv_rv && (((svtype)(((
(XRV*) (sv)->sv_any)->xrv_rv)->sv_flags & 0xff))
== SVt_PVHV)))
26 croakPerl_croak("Usage: Irssi::signal_add(hash)");
27
28 hv = hvref(sv)(((sv) && ((sv)->sv_flags & 0x00080000) &&
((XRV*) (sv)->sv_any)->xrv_rv && (((svtype)(((
(XRV*) (sv)->sv_any)->xrv_rv)->sv_flags & 0xff))
== SVt_PVHV)) ? (HV *)((XRV*) (sv)->sv_any)->xrv_rv : (
(void *)0));
29 hv_iterinitPerl_hv_iterinit(hv);
30 while ((he = hv_iternext(hv)Perl_hv_iternext_flags(hv, 0)) != NULL((void *)0))
31 perl_signal_add_full(hv_iterkeyPerl_hv_iterkey(he, &len), HeVAL(he)(he)->hent_val, priority);
32}
33
34static void perl_command_bind_add_hash(int priority, SV *sv, char *category)
35{
36 HV *hv;
37 HE *he;
38 I32 len;
39
40 hv = hvref(sv)(((sv) && ((sv)->sv_flags & 0x00080000) &&
((XRV*) (sv)->sv_any)->xrv_rv && (((svtype)(((
(XRV*) (sv)->sv_any)->xrv_rv)->sv_flags & 0xff))
== SVt_PVHV)) ? (HV *)((XRV*) (sv)->sv_any)->xrv_rv : (
(void *)0));
41 hv_iterinitPerl_hv_iterinit(hv);
42 while ((he = hv_iternext(hv)Perl_hv_iternext_flags(hv, 0)) != NULL((void *)0))
43 perl_command_bind_to(hv_iterkeyPerl_hv_iterkey(he, &len), category, HeVAL(he)(he)->hent_val, priority);
44}
45
46static void handle_command_bind(int priority, int items, SV *p0, SV *p1, SV *p2)
47{
48 char *category;
49 int hash;
50
51 hash = items > 0 && is_hvref(p0)((p0) && ((p0)->sv_flags & 0x00080000) &&
((XRV*) (p0)->sv_any)->xrv_rv && (((svtype)(((
(XRV*) (p0)->sv_any)->xrv_rv)->sv_flags & 0xff))
== SVt_PVHV));
52 if (!hash) {
[1] Taking true branch
53 if (items < 2 || items > 3)
[2] Taking false branch
54 croakPerl_croak("Usage: Irssi::command_bind(signal, func, category)");
55 } else if (items > 2)
56 croakPerl_croak("Usage: Irssi::command_bind(signals_hash, category)");
57
58 if (!hash) {
[3] Taking true branch
59 category = items < 3 ? DEFAULT_COMMAND_CATEGORY"Perl scripts' commands" :
[4] '?' condition evaluates to true
60 (char *)SvPV(p2, PL_na)(((p2)->sv_flags & (0x00040000)) == 0x00040000 ? ((PL_na
= ((XPV*) (p2)->sv_any)->xpv_cur), ((XPV*) (p2)->sv_any
)->xpv_pv) : Perl_sv_2pv_flags(p2, &PL_na, 2));
61 perl_command_bind_to((char *)SvPV(p0, PL_na)(((p0)->sv_flags & (0x00040000)) == 0x00040000 ? ((PL_na
= ((XPV*) (p0)->sv_any)->xpv_cur), ((XPV*) (p0)->sv_any
)->xpv_pv) : Perl_sv_2pv_flags(p0, &PL_na, 2)), category, p1, priority);
[5] Dereference of null pointer
62 } else {
63 category = items < 2 ? DEFAULT_COMMAND_CATEGORY"Perl scripts' commands" :
64 (char *)SvPV(p1, PL_na)(((p1)->sv_flags & (0x00040000)) == 0x00040000 ? ((PL_na
= ((XPV*) (p1)->sv_any)->xpv_cur), ((XPV*) (p1)->sv_any
)->xpv_pv) : Perl_sv_2pv_flags(p1, &PL_na, 2));
65 perl_command_bind_add_hash(priority, p0, category);
66 }
67}
68
69static void add_tuple(gpointer key_, gpointer value_, gpointer user_data)
70{
71 HV *hash = user_data;
72 char *key = key_;
73 char *value = value_;
74 hv_store(hash, key, strlen(key), new_pv(value), 0)((SV**) Perl_hv_common_key_len((hash), (key), (strlen(key)), (
0x04|0x20), ((Perl_newSVpv((value) == ((void *)0) ? "" : (value
), (value) == ((void *)0) ? 0 : strlen(value)))), (0)));
75}
76
77static void wrap_signal_emit(void *signal, void **p) {
78 signal_emit(signal, 6, p[0], p[1], p[2], p[3], p[4], p[5]);
79}
80
81static void wrap_signal_continue(void *dummy, void **p) {
82 (void)dummy;
83 signal_continue(6, p[0], p[1], p[2], p[3], p[4], p[5]);
84}
85
86#ifndef PERL_UNUSED_VAR
87# define PERL_UNUSED_VAR(var)((void)var) if (0) var = var
88#endif
89
90#line 91 "Core.c"
91
92XS(XS_Irssi_signal_emit)void XS_Irssi_signal_emit( CV* cv __attribute__((unused))); /* prototype to pass -Wmissing-prototypes */
93XS(XS_Irssi_signal_emit)void XS_Irssi_signal_emit( CV* cv __attribute__((unused)))
94{
95#ifdef dVAR
96 dVAR; dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
97#else
98 dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
99#endif
100 if (items < 1)
101 Perl_croak(aTHX_ "Usage: %s(%s)", "Irssi::signal_emit", "signal, ...");
102 PERL_UNUSED_VAR(cv)((void)cv); /* -W */
103 {
104 char * signal = (char *)SvPV_nolen(ST(0))(((PL_stack_base[ax + (0)])->sv_flags & (0x00040000)) ==
0x00040000 ? ((XPV*) (PL_stack_base[ax + (0)])->sv_any)->
xpv_pv : Perl_sv_2pv_flags(PL_stack_base[ax + (0)], 0, 2));
105#line 84 "Core.xs"
106 int signal_id;
107 SV *args[SIGNAL_MAX_ARGUMENTS6];
108 int n, used;
109
110 signal_id = signal_get_uniq_id(signal)module_get_uniq_id_str("signals", signal);
111 used = items - 1;
112 if (used > SIGNAL_MAX_ARGUMENTS6) {
113 used = SIGNAL_MAX_ARGUMENTS6;
114 }
115 for (n = 0; n < used; ++n) {
116 args[n] = ST(n + 1)PL_stack_base[ax + (n + 1)];
117 }
118 perl_signal_args_to_c(wrap_signal_emit, signal, signal_id, args, used);
119#line 120 "Core.c"
120 }
121 XSRETURN_EMPTY(void)( { (void)( { const IV tmpXSoff = (0); PL_stack_sp = PL_stack_base
+ ax + (tmpXSoff - 1); return; } ); } );
122}
123
124
125XS(XS_Irssi_signal_continue)void XS_Irssi_signal_continue( CV* cv __attribute__((unused))
); /* prototype to pass -Wmissing-prototypes */
126XS(XS_Irssi_signal_continue)void XS_Irssi_signal_continue( CV* cv __attribute__((unused))
)
127{
128#ifdef dVAR
129 dVAR; dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
130#else
131 dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
132#endif
133 PERL_UNUSED_VAR(cv)((void)cv); /* -W */
134 {
135#line 101 "Core.xs"
136 SV *args[SIGNAL_MAX_ARGUMENTS6];
137 int n, used;
138
139 used = items;
140 if (used > SIGNAL_MAX_ARGUMENTS6) {
141 used = SIGNAL_MAX_ARGUMENTS6;
142 }
143 for (n = 0; n < used; ++n) {
144 args[n] = ST(n)PL_stack_base[ax + (n)];
145 }
146 perl_signal_args_to_c(wrap_signal_continue, NULL((void *)0), signal_get_emitted_id(), args, used);
147#line 148 "Core.c"
148 }
149 XSRETURN_EMPTY(void)( { (void)( { const IV tmpXSoff = (0); PL_stack_sp = PL_stack_base
+ ax + (tmpXSoff - 1); return; } ); } );
150}
151
152
153XS(XS_Irssi_signal_add)void XS_Irssi_signal_add( CV* cv __attribute__((unused))); /* prototype to pass -Wmissing-prototypes */
154XS(XS_Irssi_signal_add)void XS_Irssi_signal_add( CV* cv __attribute__((unused)))
155{
156#ifdef dVAR
157 dVAR; dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
158#else
159 dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
160#endif
161 PERL_UNUSED_VAR(cv)((void)cv); /* -W */
162 {
163#line 116 "Core.xs"
164 if (items != 1 && items != 2)
165 croakPerl_croak("Usage: Irssi::signal_add(signal, func)");
166 if (items == 2)
167 perl_signal_add_full((char *)SvPV(ST(0),PL_na)(((PL_stack_base[ax + (0)])->sv_flags & (0x00040000)) ==
0x00040000 ? ((PL_na = ((XPV*) (PL_stack_base[ax + (0)])->
sv_any)->xpv_cur), ((XPV*) (PL_stack_base[ax + (0)])->sv_any
)->xpv_pv) : Perl_sv_2pv_flags(PL_stack_base[ax + (0)], &
PL_na, 2)), ST(1)PL_stack_base[ax + (1)],
168 SIGNAL_PRIORITY_DEFAULT0);
169 else
170 perl_signal_add_hash(SIGNAL_PRIORITY_DEFAULT0, ST(0)PL_stack_base[ax + (0)]);
171#line 172 "Core.c"
172 }
173 XSRETURN_EMPTY(void)( { (void)( { const IV tmpXSoff = (0); PL_stack_sp = PL_stack_base
+ ax + (tmpXSoff - 1); return; } ); } );
174}
175
176
177XS(XS_Irssi_signal_add_first)void XS_Irssi_signal_add_first( CV* cv __attribute__((unused)
)); /* prototype to pass -Wmissing-prototypes */
178XS(XS_Irssi_signal_add_first)void XS_Irssi_signal_add_first( CV* cv __attribute__((unused)
))
179{
180#ifdef dVAR
181 dVAR; dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
182#else
183 dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
184#endif
185 PERL_UNUSED_VAR(cv)((void)cv); /* -W */
186 {
187#line 127 "Core.xs"
188 if (items != 1 && items != 2)
189 croakPerl_croak("Usage: Irssi::signal_add_first(signal, func)");
190 if (items == 2)
191 perl_signal_add_full((char *)SvPV(ST(0),PL_na)(((PL_stack_base[ax + (0)])->sv_flags & (0x00040000)) ==
0x00040000 ? ((PL_na = ((XPV*) (PL_stack_base[ax + (0)])->
sv_any)->xpv_cur), ((XPV*) (PL_stack_base[ax + (0)])->sv_any
)->xpv_pv) : Perl_sv_2pv_flags(PL_stack_base[ax + (0)], &
PL_na, 2)), ST(1)PL_stack_base[ax + (1)],
192 SIGNAL_PRIORITY_HIGH-100);
193 else
194 perl_signal_add_hash(SIGNAL_PRIORITY_HIGH-100, ST(0)PL_stack_base[ax + (0)]);
195#line 196 "Core.c"
196 }
197 XSRETURN_EMPTY(void)( { (void)( { const IV tmpXSoff = (0); PL_stack_sp = PL_stack_base
+ ax + (tmpXSoff - 1); return; } ); } );
198}
199
200
201XS(XS_Irssi_signal_add_last)void XS_Irssi_signal_add_last( CV* cv __attribute__((unused))
); /* prototype to pass -Wmissing-prototypes */
202XS(XS_Irssi_signal_add_last)void XS_Irssi_signal_add_last( CV* cv __attribute__((unused))
)
203{
204#ifdef dVAR
205 dVAR; dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
206#else
207 dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
208#endif
209 PERL_UNUSED_VAR(cv)((void)cv); /* -W */
210 {
211#line 138 "Core.xs"
212 if (items != 1 && items != 2)
213 croakPerl_croak("Usage: Irssi::signal_add_last(signal, func)");
214 if (items == 2)
215 perl_signal_add_full((char *)SvPV(ST(0),PL_na)(((PL_stack_base[ax + (0)])->sv_flags & (0x00040000)) ==
0x00040000 ? ((PL_na = ((XPV*) (PL_stack_base[ax + (0)])->
sv_any)->xpv_cur), ((XPV*) (PL_stack_base[ax + (0)])->sv_any
)->xpv_pv) : Perl_sv_2pv_flags(PL_stack_base[ax + (0)], &
PL_na, 2)), ST(1)PL_stack_base[ax + (1)],
216 SIGNAL_PRIORITY_LOW100);
217 else
218 perl_signal_add_hash(SIGNAL_PRIORITY_LOW100, ST(0)PL_stack_base[ax + (0)]);
219#line 220 "Core.c"
220 }
221 XSRETURN_EMPTY(void)( { (void)( { const IV tmpXSoff = (0); PL_stack_sp = PL_stack_base
+ ax + (tmpXSoff - 1); return; } ); } );
222}
223
224
225XS(XS_Irssi_signal_add_priority)void XS_Irssi_signal_add_priority( CV* cv __attribute__((unused
))); /* prototype to pass -Wmissing-prototypes */
226XS(XS_Irssi_signal_add_priority)void XS_Irssi_signal_add_priority( CV* cv __attribute__((unused
)))
227{
228#ifdef dVAR
229 dVAR; dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
230#else
231 dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
232#endif
233 PERL_UNUSED_VAR(cv)((void)cv); /* -W */
234 {
235#line 149 "Core.xs"
236 if (items != 2 && items != 3)
237 croakPerl_croak("Usage: Irssi::signal_add_priority(signal, func, priority)");
238 if (items == 3)
239 perl_signal_add_full((char *)SvPV(ST(0),PL_na)(((PL_stack_base[ax + (0)])->sv_flags & (0x00040000)) ==
0x00040000 ? ((PL_na = ((XPV*) (PL_stack_base[ax + (0)])->
sv_any)->xpv_cur), ((XPV*) (PL_stack_base[ax + (0)])->sv_any
)->xpv_pv) : Perl_sv_2pv_flags(PL_stack_base[ax + (0)], &
PL_na, 2)), ST(1)PL_stack_base[ax + (1)], SvIV(ST(2))(((PL_stack_base[ax + (2)])->sv_flags & 0x00010000) ? (
(XPVIV*) (PL_stack_base[ax + (2)])->sv_any)->xiv_iv : Perl_sv_2iv_flags
(PL_stack_base[ax + (2)], 2)));
240 else
241 perl_signal_add_hash(SvIV(ST(0))(((PL_stack_base[ax + (0)])->sv_flags & 0x00010000) ? (
(XPVIV*) (PL_stack_base[ax + (0)])->sv_any)->xiv_iv : Perl_sv_2iv_flags
(PL_stack_base[ax + (0)], 2)), ST(1)PL_stack_base[ax + (1)]);
242#line 243 "Core.c"
243 }
244 XSRETURN_EMPTY(void)( { (void)( { const IV tmpXSoff = (0); PL_stack_sp = PL_stack_base
+ ax + (tmpXSoff - 1); return; } ); } );
245}
246
247
248XS(XS_Irssi_signal_register)void XS_Irssi_signal_register( CV* cv __attribute__((unused))
); /* prototype to pass -Wmissing-prototypes */
249XS(XS_Irssi_signal_register)void XS_Irssi_signal_register( CV* cv __attribute__((unused))
)
250{
251#ifdef dVAR
252 dVAR; dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
253#else
254 dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
255#endif
256 PERL_UNUSED_VAR(cv)((void)cv); /* -W */
257 {
258#line 159 "Core.xs"
259 HV *hv;
260 HE *he;
261 I32 len, pos;
262 const char *arr[7];
263#line 264 "Core.c"
264#line 164 "Core.xs"
265 if (items != 1 || !is_hvref(ST(0))((PL_stack_base[ax + (0)]) && ((PL_stack_base[ax + (0
)])->sv_flags & 0x00080000) && ((XRV*) (PL_stack_base
[ax + (0)])->sv_any)->xrv_rv && (((svtype)((((XRV
*) (PL_stack_base[ax + (0)])->sv_any)->xrv_rv)->sv_flags
& 0xff)) == SVt_PVHV)))
266 croakPerl_croak("Usage: Irssi::signal_register(hash)");
267
268 hv = hvref(ST(0))(((PL_stack_base[ax + (0)]) && ((PL_stack_base[ax + (
0)])->sv_flags & 0x00080000) && ((XRV*) (PL_stack_base
[ax + (0)])->sv_any)->xrv_rv && (((svtype)((((XRV
*) (PL_stack_base[ax + (0)])->sv_any)->xrv_rv)->sv_flags
& 0xff)) == SVt_PVHV)) ? (HV *)((XRV*) (PL_stack_base[ax
+ (0)])->sv_any)->xrv_rv : ((void *)0));
269 hv_iterinitPerl_hv_iterinit(hv);
270 while ((he = hv_iternext(hv)Perl_hv_iternext_flags(hv, 0)) != NULL((void *)0)) {
271 const char *key = hv_iterkeyPerl_hv_iterkey(he, &len);
272 SV *val = HeVAL(he)(he)->hent_val;
273 AV *av;
274
275 if (!SvROK(val)((val)->sv_flags & 0x00080000) || SvTYPE(SvRV(val))((svtype)((((XRV*) (val)->sv_any)->xrv_rv)->sv_flags
& 0xff)) != SVt_PVAV)
276 croakPerl_croak("not array reference");
277
278 av = (AV *) SvRV(val)((XRV*) (val)->sv_any)->xrv_rv;
279 len = av_lenPerl_av_len(av)+1;
280 if (len > 6) len = 6;
281 for (pos = 0; pos < len; pos++) {
282 SV **val = av_fetchPerl_av_fetch(av, pos, 0);
283 arr[pos] = SvPV(*val, PL_na)(((*val)->sv_flags & (0x00040000)) == 0x00040000 ? ((PL_na
= ((XPV*) (*val)->sv_any)->xpv_cur), ((XPV*) (*val)->
sv_any)->xpv_pv) : Perl_sv_2pv_flags(*val, &PL_na, 2));
284 }
285 arr[pos] = NULL((void *)0);
286 perl_signal_register(key, arr);
287 }
288#line 289 "Core.c"
289 }
290 XSRETURN_EMPTY(void)( { (void)( { const IV tmpXSoff = (0); PL_stack_sp = PL_stack_base
+ ax + (tmpXSoff - 1); return; } ); } );
291}
292
293
294XS(XS_Irssi_SIGNAL_PRIORITY_LOW)void XS_Irssi_SIGNAL_PRIORITY_LOW( CV* cv __attribute__((unused
))); /* prototype to pass -Wmissing-prototypes */
295XS(XS_Irssi_SIGNAL_PRIORITY_LOW)void XS_Irssi_SIGNAL_PRIORITY_LOW( CV* cv __attribute__((unused
)))
296{
297#ifdef dVAR
298 dVAR; dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
299#else
300 dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
301#endif
302 if (items != 0)
303 Perl_croak(aTHX_ "Usage: %s(%s)", "Irssi::SIGNAL_PRIORITY_LOW", "");
304 PERL_UNUSED_VAR(cv)((void)cv); /* -W */
305 {
306 int RETVAL;
307 dXSTARGSV * const targ = ((PL_op->op_private & 32) ? (PL_curpad
[PL_op->op_targ]) : Perl_sv_newmortal());
308#line 192 "Core.xs"
309 RETVAL = SIGNAL_PRIORITY_LOW100;
310#line 311 "Core.c"
311 XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)(void)( { Perl_sv_setiv(targ, (IV)((IV)RETVAL)); (void)( { (void
)( { if (((targ)->sv_flags & 0x00004000)) Perl_mg_set(
targ); } ); (*++sp = (targ)); } ); } );
312 }
313 XSRETURN(1)(void)( { const IV tmpXSoff = (1); PL_stack_sp = PL_stack_base
+ ax + (tmpXSoff - 1); return; } );
314}
315
316
317XS(XS_Irssi_SIGNAL_PRIORITY_DEFAULT)void XS_Irssi_SIGNAL_PRIORITY_DEFAULT( CV* cv __attribute__((
unused))); /* prototype to pass -Wmissing-prototypes */
318XS(XS_Irssi_SIGNAL_PRIORITY_DEFAULT)void XS_Irssi_SIGNAL_PRIORITY_DEFAULT( CV* cv __attribute__((
unused)))
319{
320#ifdef dVAR
321 dVAR; dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
322#else
323 dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
324#endif
325 if (items != 0)
326 Perl_croak(aTHX_ "Usage: %s(%s)", "Irssi::SIGNAL_PRIORITY_DEFAULT", "");
327 PERL_UNUSED_VAR(cv)((void)cv); /* -W */
328 {
329 int RETVAL;
330 dXSTARGSV * const targ = ((PL_op->op_private & 32) ? (PL_curpad
[PL_op->op_targ]) : Perl_sv_newmortal());
331#line 199 "Core.xs"
332 RETVAL = SIGNAL_PRIORITY_DEFAULT0;
333#line 334 "Core.c"
334 XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)(void)( { Perl_sv_setiv(targ, (IV)((IV)RETVAL)); (void)( { (void
)( { if (((targ)->sv_flags & 0x00004000)) Perl_mg_set(
targ); } ); (*++sp = (targ)); } ); } );
335 }
336 XSRETURN(1)(void)( { const IV tmpXSoff = (1); PL_stack_sp = PL_stack_base
+ ax + (tmpXSoff - 1); return; } );
337}
338
339
340XS(XS_Irssi_SIGNAL_PRIORITY_HIGH)void XS_Irssi_SIGNAL_PRIORITY_HIGH( CV* cv __attribute__((unused
))); /* prototype to pass -Wmissing-prototypes */
341XS(XS_Irssi_SIGNAL_PRIORITY_HIGH)void XS_Irssi_SIGNAL_PRIORITY_HIGH( CV* cv __attribute__((unused
)))
342{
343#ifdef dVAR
344 dVAR; dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
345#else
346 dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
347#endif
348 if (items != 0)
349 Perl_croak(aTHX_ "Usage: %s(%s)", "Irssi::SIGNAL_PRIORITY_HIGH", "");
350 PERL_UNUSED_VAR(cv)((void)cv); /* -W */
351 {
352 int RETVAL;
353 dXSTARGSV * const targ = ((PL_op->op_private & 32) ? (PL_curpad
[PL_op->op_targ]) : Perl_sv_newmortal());
354#line 206 "Core.xs"
355 RETVAL = SIGNAL_PRIORITY_HIGH-100;
356#line 357 "Core.c"
357 XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)(void)( { Perl_sv_setiv(targ, (IV)((IV)RETVAL)); (void)( { (void
)( { if (((targ)->sv_flags & 0x00004000)) Perl_mg_set(
targ); } ); (*++sp = (targ)); } ); } );
358 }
359 XSRETURN(1)(void)( { const IV tmpXSoff = (1); PL_stack_sp = PL_stack_base
+ ax + (tmpXSoff - 1); return; } );
360}
361
362
363XS(XS_Irssi_signal_remove)void XS_Irssi_signal_remove( CV* cv __attribute__((unused))); /* prototype to pass -Wmissing-prototypes */
364XS(XS_Irssi_signal_remove)void XS_Irssi_signal_remove( CV* cv __attribute__((unused)))
365{
366#ifdef dVAR
367 dVAR; dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
368#else
369 dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
370#endif
371 if (items != 2)
372 Perl_croak(aTHX_ "Usage: %s(%s)", "Irssi::signal_remove", "signal, func");
373 PERL_UNUSED_VAR(cv)((void)cv); /* -W */
374 {
375 char * signal = (char *)SvPV_nolen(ST(0))(((PL_stack_base[ax + (0)])->sv_flags & (0x00040000)) ==
0x00040000 ? ((XPV*) (PL_stack_base[ax + (0)])->sv_any)->
xpv_pv : Perl_sv_2pv_flags(PL_stack_base[ax + (0)], 0, 2));
376 SV * func = ST(1)PL_stack_base[ax + (1)];
377#line 215 "Core.xs"
378 perl_signal_remove(signal, func);
379#line 380 "Core.c"
380 }
381 XSRETURN_EMPTY(void)( { (void)( { const IV tmpXSoff = (0); PL_stack_sp = PL_stack_base
+ ax + (tmpXSoff - 1); return; } ); } );
382}
383
384
385XS(XS_Irssi_signal_stop)void XS_Irssi_signal_stop( CV* cv __attribute__((unused))); /* prototype to pass -Wmissing-prototypes */
386XS(XS_Irssi_signal_stop)void XS_Irssi_signal_stop( CV* cv __attribute__((unused)))
387{
388#ifdef dVAR
389 dVAR; dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
390#else
391 dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
392#endif
393 if (items != 0)
394 Perl_croak(aTHX_ "Usage: %s(%s)", "Irssi::signal_stop", "");
395 PERL_UNUSED_VAR(cv)((void)cv); /* -W */
396 {
397
398 signal_stop();
399 }
400 XSRETURN_EMPTY(void)( { (void)( { const IV tmpXSoff = (0); PL_stack_sp = PL_stack_base
+ ax + (tmpXSoff - 1); return; } ); } );
401}
402
403
404XS(XS_Irssi_signal_stop_by_name)void XS_Irssi_signal_stop_by_name( CV* cv __attribute__((unused
))); /* prototype to pass -Wmissing-prototypes */
405XS(XS_Irssi_signal_stop_by_name)void XS_Irssi_signal_stop_by_name( CV* cv __attribute__((unused
)))
406{
407#ifdef dVAR
408 dVAR; dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
409#else
410 dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
411#endif
412 if (items != 1)
413 Perl_croak(aTHX_ "Usage: %s(%s)", "Irssi::signal_stop_by_name", "signal");
414 PERL_UNUSED_VAR(cv)((void)cv); /* -W */
415 {
416 char * signal = (char *)SvPV_nolen(ST(0))(((PL_stack_base[ax + (0)])->sv_flags & (0x00040000)) ==
0x00040000 ? ((XPV*) (PL_stack_base[ax + (0)])->sv_any)->
xpv_pv : Perl_sv_2pv_flags(PL_stack_base[ax + (0)], 0, 2));
417
418 signal_stop_by_name(signal);
419 }
420 XSRETURN_EMPTY(void)( { (void)( { const IV tmpXSoff = (0); PL_stack_sp = PL_stack_base
+ ax + (tmpXSoff - 1); return; } ); } );
421}
422
423
424XS(XS_Irssi_signal_get_emitted)void XS_Irssi_signal_get_emitted( CV* cv __attribute__((unused
))); /* prototype to pass -Wmissing-prototypes */
425XS(XS_Irssi_signal_get_emitted)void XS_Irssi_signal_get_emitted( CV* cv __attribute__((unused
)))
426{
427#ifdef dVAR
428 dVAR; dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
429#else
430 dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
431#endif
432 if (items != 0)
433 Perl_croak(aTHX_ "Usage: %s(%s)", "Irssi::signal_get_emitted", "");
434 PERL_UNUSED_VAR(cv)((void)cv); /* -W */
435 {
436 char * RETVAL;
437 dXSTARGSV * const targ = ((PL_op->op_private & 32) ? (PL_curpad
[PL_op->op_targ]) : Perl_sv_newmortal());
438#line 227 "Core.xs"
439 RETVAL = (char *) signal_get_emitted();
440#line 441 "Core.c"
441 sv_setpvPerl_sv_setpv(TARGtarg, RETVAL); XSprePUSH(sp = PL_stack_base + ax - 1); PUSHTARG(void)( { (void)( { if (((targ)->sv_flags & 0x00004000
)) Perl_mg_set(targ); } ); (*++sp = (targ)); } );
442 }
443 XSRETURN(1)(void)( { const IV tmpXSoff = (1); PL_stack_sp = PL_stack_base
+ ax + (tmpXSoff - 1); return; } );
444}
445
446
447XS(XS_Irssi_signal_get_emitted_id)void XS_Irssi_signal_get_emitted_id( CV* cv __attribute__((unused
))); /* prototype to pass -Wmissing-prototypes */
448XS(XS_Irssi_signal_get_emitted_id)void XS_Irssi_signal_get_emitted_id( CV* cv __attribute__((unused
)))
449{
450#ifdef dVAR
451 dVAR; dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
452#else
453 dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
454#endif
455 if (items != 0)
456 Perl_croak(aTHX_ "Usage: %s(%s)", "Irssi::signal_get_emitted_id", "");
457 PERL_UNUSED_VAR(cv)((void)cv); /* -W */
458 {
459 int RETVAL;
460 dXSTARGSV * const targ = ((PL_op->op_private & 32) ? (PL_curpad
[PL_op->op_targ]) : Perl_sv_newmortal());
461
462 RETVAL = signal_get_emitted_id();
463 XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)(void)( { Perl_sv_setiv(targ, (IV)((IV)RETVAL)); (void)( { (void
)( { if (((targ)->sv_flags & 0x00004000)) Perl_mg_set(
targ); } ); (*++sp = (targ)); } ); } );
464 }
465 XSRETURN(1)(void)( { const IV tmpXSoff = (1); PL_stack_sp = PL_stack_base
+ ax + (tmpXSoff - 1); return; } );
466}
467
468
469XS(XS_Irssi_timeout_add)void XS_Irssi_timeout_add( CV* cv __attribute__((unused))); /* prototype to pass -Wmissing-prototypes */
470XS(XS_Irssi_timeout_add)void XS_Irssi_timeout_add( CV* cv __attribute__((unused)))
471{
472#ifdef dVAR
473 dVAR; dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
474#else
475 dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
476#endif
477 if (items != 3)
478 Perl_croak(aTHX_ "Usage: %s(%s)", "Irssi::timeout_add", "msecs, func, data");
479 PERL_UNUSED_VAR(cv)((void)cv); /* -W */
480 {
481 int msecs = (int)SvIV(ST(0))(((PL_stack_base[ax + (0)])->sv_flags & 0x00010000) ? (
(XPVIV*) (PL_stack_base[ax + (0)])->sv_any)->xiv_iv : Perl_sv_2iv_flags
(PL_stack_base[ax + (0)], 2));
482 SV * func = ST(1)PL_stack_base[ax + (1)];
483 SV * data = ST(2)PL_stack_base[ax + (2)];
484 int RETVAL;
485 dXSTARGSV * const targ = ((PL_op->op_private & 32) ? (PL_curpad
[PL_op->op_targ]) : Perl_sv_newmortal());
486#line 240 "Core.xs"
487 if (msecs < 10) {
488 croakPerl_croak("Irssi::timeout() : msecs must be >= 10");
489 RETVAL = -1;
490 } else {
491 RETVAL = perl_timeout_add(msecs, func, data, FALSE(0));
492 }
493#line 494 "Core.c"
494 XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)(void)( { Perl_sv_setiv(targ, (IV)((IV)RETVAL)); (void)( { (void
)( { if (((targ)->sv_flags & 0x00004000)) Perl_mg_set(
targ); } ); (*++sp = (targ)); } ); } );
495 }
496 XSRETURN(1)(void)( { const IV tmpXSoff = (1); PL_stack_sp = PL_stack_base
+ ax + (tmpXSoff - 1); return; } );
497}
498
499
500XS(XS_Irssi_timeout_add_once)void XS_Irssi_timeout_add_once( CV* cv __attribute__((unused)
)); /* prototype to pass -Wmissing-prototypes */
501XS(XS_Irssi_timeout_add_once)void XS_Irssi_timeout_add_once( CV* cv __attribute__((unused)
))
502{
503#ifdef dVAR
504 dVAR; dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
505#else
506 dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
507#endif
508 if (items != 3)
509 Perl_croak(aTHX_ "Usage: %s(%s)", "Irssi::timeout_add_once", "msecs, func, data");
510 PERL_UNUSED_VAR(cv)((void)cv); /* -W */
511 {
512 int msecs = (int)SvIV(ST(0))(((PL_stack_base[ax + (0)])->sv_flags & 0x00010000) ? (
(XPVIV*) (PL_stack_base[ax + (0)])->sv_any)->xiv_iv : Perl_sv_2iv_flags
(PL_stack_base[ax + (0)], 2));
513 SV * func = ST(1)PL_stack_base[ax + (1)];
514 SV * data = ST(2)PL_stack_base[ax + (2)];
515 int RETVAL;
516 dXSTARGSV * const targ = ((PL_op->op_private & 32) ? (PL_curpad
[PL_op->op_targ]) : Perl_sv_newmortal());
517#line 255 "Core.xs"
518 if (msecs < 10) {
519 croakPerl_croak("Irssi::timeout_once() : msecs must be >= 10");
520 RETVAL = -1;
521 } else {
522 RETVAL = perl_timeout_add(msecs, func, data, TRUE(1));
523 }
524#line 525 "Core.c"
525 XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)(void)( { Perl_sv_setiv(targ, (IV)((IV)RETVAL)); (void)( { (void
)( { if (((targ)->sv_flags & 0x00004000)) Perl_mg_set(
targ); } ); (*++sp = (targ)); } ); } );
526 }
527 XSRETURN(1)(void)( { const IV tmpXSoff = (1); PL_stack_sp = PL_stack_base
+ ax + (tmpXSoff - 1); return; } );
528}
529
530
531XS(XS_Irssi_timeout_remove)void XS_Irssi_timeout_remove( CV* cv __attribute__((unused))); /* prototype to pass -Wmissing-prototypes */
532XS(XS_Irssi_timeout_remove)void XS_Irssi_timeout_remove( CV* cv __attribute__((unused)))
533{
534#ifdef dVAR
535 dVAR; dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
536#else
537 dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
538#endif
539 if (items != 1)
540 Perl_croak(aTHX_ "Usage: %s(%s)", "Irssi::timeout_remove", "tag");
541 PERL_UNUSED_VAR(cv)((void)cv); /* -W */
542 {
543 int tag = (int)SvIV(ST(0))(((PL_stack_base[ax + (0)])->sv_flags & 0x00010000) ? (
(XPVIV*) (PL_stack_base[ax + (0)])->sv_any)->xiv_iv : Perl_sv_2iv_flags
(PL_stack_base[ax + (0)], 2));
544#line 268 "Core.xs"
545 perl_source_remove(tag);
546#line 547 "Core.c"
547 }
548 XSRETURN_EMPTY(void)( { (void)( { const IV tmpXSoff = (0); PL_stack_sp = PL_stack_base
+ ax + (tmpXSoff - 1); return; } ); } );
549}
550
551
552XS(XS_Irssi_INPUT_READ)void XS_Irssi_INPUT_READ( CV* cv __attribute__((unused))); /* prototype to pass -Wmissing-prototypes */
553XS(XS_Irssi_INPUT_READ)void XS_Irssi_INPUT_READ( CV* cv __attribute__((unused)))
554{
555#ifdef dVAR
556 dVAR; dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
557#else
558 dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
559#endif
560 if (items != 0)
561 Perl_croak(aTHX_ "Usage: %s(%s)", "Irssi::INPUT_READ", "");
562 PERL_UNUSED_VAR(cv)((void)cv); /* -W */
563 {
564 int RETVAL;
565 dXSTARGSV * const targ = ((PL_op->op_private & 32) ? (PL_curpad
[PL_op->op_targ]) : Perl_sv_newmortal());
566#line 274 "Core.xs"
567 RETVAL = G_INPUT_READ(1 << 0);
568#line 569 "Core.c"
569 XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)(void)( { Perl_sv_setiv(targ, (IV)((IV)RETVAL)); (void)( { (void
)( { if (((targ)->sv_flags & 0x00004000)) Perl_mg_set(
targ); } ); (*++sp = (targ)); } ); } );
570 }
571 XSRETURN(1)(void)( { const IV tmpXSoff = (1); PL_stack_sp = PL_stack_base
+ ax + (tmpXSoff - 1); return; } );
572}
573
574
575XS(XS_Irssi_INPUT_WRITE)void XS_Irssi_INPUT_WRITE( CV* cv __attribute__((unused))); /* prototype to pass -Wmissing-prototypes */
576XS(XS_Irssi_INPUT_WRITE)void XS_Irssi_INPUT_WRITE( CV* cv __attribute__((unused)))
577{
578#ifdef dVAR
579 dVAR; dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
580#else
581 dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
582#endif
583 if (items != 0)
584 Perl_croak(aTHX_ "Usage: %s(%s)", "Irssi::INPUT_WRITE", "");
585 PERL_UNUSED_VAR(cv)((void)cv); /* -W */
586 {
587 int RETVAL;
588 dXSTARGSV * const targ = ((PL_op->op_private & 32) ? (PL_curpad
[PL_op->op_targ]) : Perl_sv_newmortal());
589#line 281 "Core.xs"
590 RETVAL = G_INPUT_WRITE(1 << 1);
591#line 592 "Core.c"
592 XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)(void)( { Perl_sv_setiv(targ, (IV)((IV)RETVAL)); (void)( { (void
)( { if (((targ)->sv_flags & 0x00004000)) Perl_mg_set(
targ); } ); (*++sp = (targ)); } ); } );
593 }
594 XSRETURN(1)(void)( { const IV tmpXSoff = (1); PL_stack_sp = PL_stack_base
+ ax + (tmpXSoff - 1); return; } );
595}
596
597
598XS(XS_Irssi_input_add)void XS_Irssi_input_add( CV* cv __attribute__((unused))); /* prototype to pass -Wmissing-prototypes */
599XS(XS_Irssi_input_add)void XS_Irssi_input_add( CV* cv __attribute__((unused)))
600{
601#ifdef dVAR
602 dVAR; dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
603#else
604 dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
605#endif
606 if (items != 4)
607 Perl_croak(aTHX_ "Usage: %s(%s)", "Irssi::input_add", "source, condition, func, data");
608 PERL_UNUSED_VAR(cv)((void)cv); /* -W */
609 {
610 int source = (int)SvIV(ST(0))(((PL_stack_base[ax + (0)])->sv_flags & 0x00010000) ? (
(XPVIV*) (PL_stack_base[ax + (0)])->sv_any)->xiv_iv : Perl_sv_2iv_flags
(PL_stack_base[ax + (0)], 2));
611 int condition = (int)SvIV(ST(1))(((PL_stack_base[ax + (1)])->sv_flags & 0x00010000) ? (
(XPVIV*) (PL_stack_base[ax + (1)])->sv_any)->xiv_iv : Perl_sv_2iv_flags
(PL_stack_base[ax + (1)], 2));
612 SV * func = ST(2)PL_stack_base[ax + (2)];
613 SV * data = ST(3)PL_stack_base[ax + (3)];
614 int RETVAL;
615 dXSTARGSV * const targ = ((PL_op->op_private & 32) ? (PL_curpad
[PL_op->op_targ]) : Perl_sv_newmortal());
616#line 292 "Core.xs"
617 RETVAL = perl_input_add(source, condition, func, data, FALSE(0));
618#line 619 "Core.c"
619 XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)(void)( { Perl_sv_setiv(targ, (IV)((IV)RETVAL)); (void)( { (void
)( { if (((targ)->sv_flags & 0x00004000)) Perl_mg_set(
targ); } ); (*++sp = (targ)); } ); } );
620 }
621 XSRETURN(1)(void)( { const IV tmpXSoff = (1); PL_stack_sp = PL_stack_base
+ ax + (tmpXSoff - 1); return; } );
622}
623
624
625XS(XS_Irssi_input_remove)void XS_Irssi_input_remove( CV* cv __attribute__((unused))); /* prototype to pass -Wmissing-prototypes */
626XS(XS_Irssi_input_remove)void XS_Irssi_input_remove( CV* cv __attribute__((unused)))
627{
628#ifdef dVAR
629 dVAR; dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
630#else
631 dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
632#endif
633 if (items != 1)
634 Perl_croak(aTHX_ "Usage: %s(%s)", "Irssi::input_remove", "tag");
635 PERL_UNUSED_VAR(cv)((void)cv); /* -W */
636 {
637 int tag = (int)SvIV(ST(0))(((PL_stack_base[ax + (0)])->sv_flags & 0x00010000) ? (
(XPVIV*) (PL_stack_base[ax + (0)])->sv_any)->xiv_iv : Perl_sv_2iv_flags
(PL_stack_base[ax + (0)], 2));
638#line 300 "Core.xs"
639 perl_source_remove(tag);
640#line 641 "Core.c"
641 }
642 XSRETURN_EMPTY(void)( { (void)( { const IV tmpXSoff = (0); PL_stack_sp = PL_stack_base
+ ax + (tmpXSoff - 1); return; } ); } );
643}
644
645
646XS(XS_Irssi_MSGLEVEL_CRAP)void XS_Irssi_MSGLEVEL_CRAP( CV* cv __attribute__((unused))); /* prototype to pass -Wmissing-prototypes */
647XS(XS_Irssi_MSGLEVEL_CRAP)void XS_Irssi_MSGLEVEL_CRAP( CV* cv __attribute__((unused)))
648{
649#ifdef dVAR
650 dVAR; dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
651#else
652 dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
653#endif
654 if (items != 0)
655 Perl_croak(aTHX_ "Usage: %s(%s)", "Irssi::MSGLEVEL_CRAP", "");
656 PERL_UNUSED_VAR(cv)((void)cv); /* -W */
657 {
658 int RETVAL;
659 dXSTARGSV * const targ = ((PL_op->op_private & 32) ? (PL_curpad
[PL_op->op_targ]) : Perl_sv_newmortal());
660#line 306 "Core.xs"
661 RETVAL = MSGLEVEL_CRAP;
662#line 663 "Core.c"
663 XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)(void)( { Perl_sv_setiv(targ, (IV)((IV)RETVAL)); (void)( { (void
)( { if (((targ)->sv_flags & 0x00004000)) Perl_mg_set(
targ); } ); (*++sp = (targ)); } ); } );
664 }
665 XSRETURN(1)(void)( { const IV tmpXSoff = (1); PL_stack_sp = PL_stack_base
+ ax + (tmpXSoff - 1); return; } );
666}
667
668
669XS(XS_Irssi_MSGLEVEL_MSGS)void XS_Irssi_MSGLEVEL_MSGS( CV* cv __attribute__((unused))); /* prototype to pass -Wmissing-prototypes */
670XS(XS_Irssi_MSGLEVEL_MSGS)void XS_Irssi_MSGLEVEL_MSGS( CV* cv __attribute__((unused)))
671{
672#ifdef dVAR
673 dVAR; dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
674#else
675 dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
676#endif
677 if (items != 0)
678 Perl_croak(aTHX_ "Usage: %s(%s)", "Irssi::MSGLEVEL_MSGS", "");
679 PERL_UNUSED_VAR(cv)((void)cv); /* -W */
680 {
681 int RETVAL;
682 dXSTARGSV * const targ = ((PL_op->op_private & 32) ? (PL_curpad
[PL_op->op_targ]) : Perl_sv_newmortal());
683#line 313 "Core.xs"
684 RETVAL = MSGLEVEL_MSGS;
685#line 686 "Core.c"
686 XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)(void)( { Perl_sv_setiv(targ, (IV)((IV)RETVAL)); (void)( { (void
)( { if (((targ)->sv_flags & 0x00004000)) Perl_mg_set(
targ); } ); (*++sp = (targ)); } ); } );
687 }
688 XSRETURN(1)(void)( { const IV tmpXSoff = (1); PL_stack_sp = PL_stack_base
+ ax + (tmpXSoff - 1); return; } );
689}
690
691
692XS(XS_Irssi_MSGLEVEL_PUBLIC)void XS_Irssi_MSGLEVEL_PUBLIC( CV* cv __attribute__((unused))
); /* prototype to pass -Wmissing-prototypes */
693XS(XS_Irssi_MSGLEVEL_PUBLIC)void XS_Irssi_MSGLEVEL_PUBLIC( CV* cv __attribute__((unused))
)
694{
695#ifdef dVAR
696 dVAR; dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
697#else
698 dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
699#endif
700 if (items != 0)
701 Perl_croak(aTHX_ "Usage: %s(%s)", "Irssi::MSGLEVEL_PUBLIC", "");
702 PERL_UNUSED_VAR(cv)((void)cv); /* -W */
703 {
704 int RETVAL;
705 dXSTARGSV * const targ = ((PL_op->op_private & 32) ? (PL_curpad
[PL_op->op_targ]) : Perl_sv_newmortal());
706#line 320 "Core.xs"
707 RETVAL = MSGLEVEL_PUBLIC;
708#line 709 "Core.c"
709 XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)(void)( { Perl_sv_setiv(targ, (IV)((IV)RETVAL)); (void)( { (void
)( { if (((targ)->sv_flags & 0x00004000)) Perl_mg_set(
targ); } ); (*++sp = (targ)); } ); } );
710 }
711 XSRETURN(1)(void)( { const IV tmpXSoff = (1); PL_stack_sp = PL_stack_base
+ ax + (tmpXSoff - 1); return; } );
712}
713
714
715XS(XS_Irssi_MSGLEVEL_NOTICES)void XS_Irssi_MSGLEVEL_NOTICES( CV* cv __attribute__((unused)
)); /* prototype to pass -Wmissing-prototypes */
716XS(XS_Irssi_MSGLEVEL_NOTICES)void XS_Irssi_MSGLEVEL_NOTICES( CV* cv __attribute__((unused)
))
717{
718#ifdef dVAR
719 dVAR; dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
720#else
721 dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
722#endif
723 if (items != 0)
724 Perl_croak(aTHX_ "Usage: %s(%s)", "Irssi::MSGLEVEL_NOTICES", "");
725 PERL_UNUSED_VAR(cv)((void)cv); /* -W */
726 {
727 int RETVAL;
728 dXSTARGSV * const targ = ((PL_op->op_private & 32) ? (PL_curpad
[PL_op->op_targ]) : Perl_sv_newmortal());
729#line 327 "Core.xs"
730 RETVAL = MSGLEVEL_NOTICES;
731#line 732 "Core.c"
732 XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)(void)( { Perl_sv_setiv(targ, (IV)((IV)RETVAL)); (void)( { (void
)( { if (((targ)->sv_flags & 0x00004000)) Perl_mg_set(
targ); } ); (*++sp = (targ)); } ); } );
733 }
734 XSRETURN(1)(void)( { const IV tmpXSoff = (1); PL_stack_sp = PL_stack_base
+ ax + (tmpXSoff - 1); return; } );
735}
736
737
738XS(XS_Irssi_MSGLEVEL_SNOTES)void XS_Irssi_MSGLEVEL_SNOTES( CV* cv __attribute__((unused))
); /* prototype to pass -Wmissing-prototypes */
739XS(XS_Irssi_MSGLEVEL_SNOTES)void XS_Irssi_MSGLEVEL_SNOTES( CV* cv __attribute__((unused))
)
740{
741#ifdef dVAR
742 dVAR; dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
743#else
744 dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
745#endif
746 if (items != 0)
747 Perl_croak(aTHX_ "Usage: %s(%s)", "Irssi::MSGLEVEL_SNOTES", "");
748 PERL_UNUSED_VAR(cv)((void)cv); /* -W */
749 {
750 int RETVAL;
751 dXSTARGSV * const targ = ((PL_op->op_private & 32) ? (PL_curpad
[PL_op->op_targ]) : Perl_sv_newmortal());
752#line 334 "Core.xs"
753 RETVAL = MSGLEVEL_SNOTES;
754#line 755 "Core.c"
755 XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)(void)( { Perl_sv_setiv(targ, (IV)((IV)RETVAL)); (void)( { (void
)( { if (((targ)->sv_flags & 0x00004000)) Perl_mg_set(
targ); } ); (*++sp = (targ)); } ); } );
756 }
757 XSRETURN(1)(void)( { const IV tmpXSoff = (1); PL_stack_sp = PL_stack_base
+ ax + (tmpXSoff - 1); return; } );
758}
759
760
761XS(XS_Irssi_MSGLEVEL_CTCPS)void XS_Irssi_MSGLEVEL_CTCPS( CV* cv __attribute__((unused))); /* prototype to pass -Wmissing-prototypes */
762XS(XS_Irssi_MSGLEVEL_CTCPS)void XS_Irssi_MSGLEVEL_CTCPS( CV* cv __attribute__((unused)))
763{
764#ifdef dVAR
765 dVAR; dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
766#else
767 dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
768#endif
769 if (items != 0)
770 Perl_croak(aTHX_ "Usage: %s(%s)", "Irssi::MSGLEVEL_CTCPS", "");
771 PERL_UNUSED_VAR(cv)((void)cv); /* -W */
772 {
773 int RETVAL;
774 dXSTARGSV * const targ = ((PL_op->op_private & 32) ? (PL_curpad
[PL_op->op_targ]) : Perl_sv_newmortal());
775#line 341 "Core.xs"
776 RETVAL = MSGLEVEL_CTCPS;
777#line 778 "Core.c"
778 XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)(void)( { Perl_sv_setiv(targ, (IV)((IV)RETVAL)); (void)( { (void
)( { if (((targ)->sv_flags & 0x00004000)) Perl_mg_set(
targ); } ); (*++sp = (targ)); } ); } );
779 }
780 XSRETURN(1)(void)( { const IV tmpXSoff = (1); PL_stack_sp = PL_stack_base
+ ax + (tmpXSoff - 1); return; } );
781}
782
783
784XS(XS_Irssi_MSGLEVEL_ACTIONS)void XS_Irssi_MSGLEVEL_ACTIONS( CV* cv __attribute__((unused)
)); /* prototype to pass -Wmissing-prototypes */
785XS(XS_Irssi_MSGLEVEL_ACTIONS)void XS_Irssi_MSGLEVEL_ACTIONS( CV* cv __attribute__((unused)
))
786{
787#ifdef dVAR
788 dVAR; dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
789#else
790 dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
791#endif
792 if (items != 0)
793 Perl_croak(aTHX_ "Usage: %s(%s)", "Irssi::MSGLEVEL_ACTIONS", "");
794 PERL_UNUSED_VAR(cv)((void)cv); /* -W */
795 {
796 int RETVAL;
797 dXSTARGSV * const targ = ((PL_op->op_private & 32) ? (PL_curpad
[PL_op->op_targ]) : Perl_sv_newmortal());
798#line 348 "Core.xs"
799 RETVAL = MSGLEVEL_ACTIONS;
800#line 801 "Core.c"
801 XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)(void)( { Perl_sv_setiv(targ, (IV)((IV)RETVAL)); (void)( { (void
)( { if (((targ)->sv_flags & 0x00004000)) Perl_mg_set(
targ); } ); (*++sp = (targ)); } ); } );
802 }
803 XSRETURN(1)(void)( { const IV tmpXSoff = (1); PL_stack_sp = PL_stack_base
+ ax + (tmpXSoff - 1); return; } );
804}
805
806
807XS(XS_Irssi_MSGLEVEL_JOINS)void XS_Irssi_MSGLEVEL_JOINS( CV* cv __attribute__((unused))); /* prototype to pass -Wmissing-prototypes */
808XS(XS_Irssi_MSGLEVEL_JOINS)void XS_Irssi_MSGLEVEL_JOINS( CV* cv __attribute__((unused)))
809{
810#ifdef dVAR
811 dVAR; dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
812#else
813 dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
814#endif
815 if (items != 0)
816 Perl_croak(aTHX_ "Usage: %s(%s)", "Irssi::MSGLEVEL_JOINS", "");
817 PERL_UNUSED_VAR(cv)((void)cv); /* -W */
818 {
819 int RETVAL;
820 dXSTARGSV * const targ = ((PL_op->op_private & 32) ? (PL_curpad
[PL_op->op_targ]) : Perl_sv_newmortal());
821#line 355 "Core.xs"
822 RETVAL = MSGLEVEL_JOINS;
823#line 824 "Core.c"
824 XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)(void)( { Perl_sv_setiv(targ, (IV)((IV)RETVAL)); (void)( { (void
)( { if (((targ)->sv_flags & 0x00004000)) Perl_mg_set(
targ); } ); (*++sp = (targ)); } ); } );
825 }
826 XSRETURN(1)(void)( { const IV tmpXSoff = (1); PL_stack_sp = PL_stack_base
+ ax + (tmpXSoff - 1); return; } );
827}
828
829
830XS(XS_Irssi_MSGLEVEL_PARTS)void XS_Irssi_MSGLEVEL_PARTS( CV* cv __attribute__((unused))); /* prototype to pass -Wmissing-prototypes */
831XS(XS_Irssi_MSGLEVEL_PARTS)void XS_Irssi_MSGLEVEL_PARTS( CV* cv __attribute__((unused)))
832{
833#ifdef dVAR
834 dVAR; dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
835#else
836 dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
837#endif
838 if (items != 0)
839 Perl_croak(aTHX_ "Usage: %s(%s)", "Irssi::MSGLEVEL_PARTS", "");
840 PERL_UNUSED_VAR(cv)((void)cv); /* -W */
841 {
842 int RETVAL;
843 dXSTARGSV * const targ = ((PL_op->op_private & 32) ? (PL_curpad
[PL_op->op_targ]) : Perl_sv_newmortal());
844#line 362 "Core.xs"
845 RETVAL = MSGLEVEL_PARTS;
846#line 847 "Core.c"
847 XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)(void)( { Perl_sv_setiv(targ, (IV)((IV)RETVAL)); (void)( { (void
)( { if (((targ)->sv_flags & 0x00004000)) Perl_mg_set(
targ); } ); (*++sp = (targ)); } ); } );
848 }
849 XSRETURN(1)(void)( { const IV tmpXSoff = (1); PL_stack_sp = PL_stack_base
+ ax + (tmpXSoff - 1); return; } );
850}
851
852
853XS(XS_Irssi_MSGLEVEL_QUITS)void XS_Irssi_MSGLEVEL_QUITS( CV* cv __attribute__((unused))); /* prototype to pass -Wmissing-prototypes */
854XS(XS_Irssi_MSGLEVEL_QUITS)void XS_Irssi_MSGLEVEL_QUITS( CV* cv __attribute__((unused)))
855{
856#ifdef dVAR
857 dVAR; dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
858#else
859 dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
860#endif
861 if (items != 0)
862 Perl_croak(aTHX_ "Usage: %s(%s)", "Irssi::MSGLEVEL_QUITS", "");
863 PERL_UNUSED_VAR(cv)((void)cv); /* -W */
864 {
865 int RETVAL;
866 dXSTARGSV * const targ = ((PL_op->op_private & 32) ? (PL_curpad
[PL_op->op_targ]) : Perl_sv_newmortal());
867#line 369 "Core.xs"
868 RETVAL = MSGLEVEL_QUITS;
869#line 870 "Core.c"
870 XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)(void)( { Perl_sv_setiv(targ, (IV)((IV)RETVAL)); (void)( { (void
)( { if (((targ)->sv_flags & 0x00004000)) Perl_mg_set(
targ); } ); (*++sp = (targ)); } ); } );
871 }
872 XSRETURN(1)(void)( { const IV tmpXSoff = (1); PL_stack_sp = PL_stack_base
+ ax + (tmpXSoff - 1); return; } );
873}
874
875
876XS(XS_Irssi_MSGLEVEL_KICKS)void XS_Irssi_MSGLEVEL_KICKS( CV* cv __attribute__((unused))); /* prototype to pass -Wmissing-prototypes */
877XS(XS_Irssi_MSGLEVEL_KICKS)void XS_Irssi_MSGLEVEL_KICKS( CV* cv __attribute__((unused)))
878{
879#ifdef dVAR
880 dVAR; dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
881#else
882 dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
883#endif
884 if (items != 0)
885 Perl_croak(aTHX_ "Usage: %s(%s)", "Irssi::MSGLEVEL_KICKS", "");
886 PERL_UNUSED_VAR(cv)((void)cv); /* -W */
887 {
888 int RETVAL;
889 dXSTARGSV * const targ = ((PL_op->op_private & 32) ? (PL_curpad
[PL_op->op_targ]) : Perl_sv_newmortal());
890#line 376 "Core.xs"
891 RETVAL = MSGLEVEL_KICKS;
892#line 893 "Core.c"
893 XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)(void)( { Perl_sv_setiv(targ, (IV)((IV)RETVAL)); (void)( { (void
)( { if (((targ)->sv_flags & 0x00004000)) Perl_mg_set(
targ); } ); (*++sp = (targ)); } ); } );
894 }
895 XSRETURN(1)(void)( { const IV tmpXSoff = (1); PL_stack_sp = PL_stack_base
+ ax + (tmpXSoff - 1); return; } );
896}
897
898
899XS(XS_Irssi_MSGLEVEL_MODES)void XS_Irssi_MSGLEVEL_MODES( CV* cv __attribute__((unused))); /* prototype to pass -Wmissing-prototypes */
900XS(XS_Irssi_MSGLEVEL_MODES)void XS_Irssi_MSGLEVEL_MODES( CV* cv __attribute__((unused)))
901{
902#ifdef dVAR
903 dVAR; dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
904#else
905 dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
906#endif
907 if (items != 0)
908 Perl_croak(aTHX_ "Usage: %s(%s)", "Irssi::MSGLEVEL_MODES", "");
909 PERL_UNUSED_VAR(cv)((void)cv); /* -W */
910 {
911 int RETVAL;
912 dXSTARGSV * const targ = ((PL_op->op_private & 32) ? (PL_curpad
[PL_op->op_targ]) : Perl_sv_newmortal());
913#line 383 "Core.xs"
914 RETVAL = MSGLEVEL_MODES;
915#line 916 "Core.c"
916 XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)(void)( { Perl_sv_setiv(targ, (IV)((IV)RETVAL)); (void)( { (void
)( { if (((targ)->sv_flags & 0x00004000)) Perl_mg_set(
targ); } ); (*++sp = (targ)); } ); } );
917 }
918 XSRETURN(1)(void)( { const IV tmpXSoff = (1); PL_stack_sp = PL_stack_base
+ ax + (tmpXSoff - 1); return; } );
919}
920
921
922XS(XS_Irssi_MSGLEVEL_TOPICS)void XS_Irssi_MSGLEVEL_TOPICS( CV* cv __attribute__((unused))
); /* prototype to pass -Wmissing-prototypes */
923XS(XS_Irssi_MSGLEVEL_TOPICS)void XS_Irssi_MSGLEVEL_TOPICS( CV* cv __attribute__((unused))
)
924{
925#ifdef dVAR
926 dVAR; dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
927#else
928 dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
929#endif
930 if (items != 0)
931 Perl_croak(aTHX_ "Usage: %s(%s)", "Irssi::MSGLEVEL_TOPICS", "");
932 PERL_UNUSED_VAR(cv)((void)cv); /* -W */
933 {
934 int RETVAL;
935 dXSTARGSV * const targ = ((PL_op->op_private & 32) ? (PL_curpad
[PL_op->op_targ]) : Perl_sv_newmortal());
936#line 390 "Core.xs"
937 RETVAL = MSGLEVEL_TOPICS;
938#line 939 "Core.c"
939 XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)(void)( { Perl_sv_setiv(targ, (IV)((IV)RETVAL)); (void)( { (void
)( { if (((targ)->sv_flags & 0x00004000)) Perl_mg_set(
targ); } ); (*++sp = (targ)); } ); } );
940 }
941 XSRETURN(1)(void)( { const IV tmpXSoff = (1); PL_stack_sp = PL_stack_base
+ ax + (tmpXSoff - 1); return; } );
942}
943
944
945XS(XS_Irssi_MSGLEVEL_WALLOPS)void XS_Irssi_MSGLEVEL_WALLOPS( CV* cv __attribute__((unused)
)); /* prototype to pass -Wmissing-prototypes */
946XS(XS_Irssi_MSGLEVEL_WALLOPS)void XS_Irssi_MSGLEVEL_WALLOPS( CV* cv __attribute__((unused)
))
947{
948#ifdef dVAR
949 dVAR; dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
950#else
951 dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
952#endif
953 if (items != 0)
954 Perl_croak(aTHX_ "Usage: %s(%s)", "Irssi::MSGLEVEL_WALLOPS", "");
955 PERL_UNUSED_VAR(cv)((void)cv); /* -W */
956 {
957 int RETVAL;
958 dXSTARGSV * const targ = ((PL_op->op_private & 32) ? (PL_curpad
[PL_op->op_targ]) : Perl_sv_newmortal());
959#line 397 "Core.xs"
960 RETVAL = MSGLEVEL_WALLOPS;
961#line 962 "Core.c"
962 XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)(void)( { Perl_sv_setiv(targ, (IV)((IV)RETVAL)); (void)( { (void
)( { if (((targ)->sv_flags & 0x00004000)) Perl_mg_set(
targ); } ); (*++sp = (targ)); } ); } );
963 }
964 XSRETURN(1)(void)( { const IV tmpXSoff = (1); PL_stack_sp = PL_stack_base
+ ax + (tmpXSoff - 1); return; } );
965}
966
967
968XS(XS_Irssi_MSGLEVEL_INVITES)void XS_Irssi_MSGLEVEL_INVITES( CV* cv __attribute__((unused)
)); /* prototype to pass -Wmissing-prototypes */
969XS(XS_Irssi_MSGLEVEL_INVITES)void XS_Irssi_MSGLEVEL_INVITES( CV* cv __attribute__((unused)
))
970{
971#ifdef dVAR
972 dVAR; dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
973#else
974 dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
975#endif
976 if (items != 0)
977 Perl_croak(aTHX_ "Usage: %s(%s)", "Irssi::MSGLEVEL_INVITES", "");
978 PERL_UNUSED_VAR(cv)((void)cv); /* -W */
979 {
980 int RETVAL;
981 dXSTARGSV * const targ = ((PL_op->op_private & 32) ? (PL_curpad
[PL_op->op_targ]) : Perl_sv_newmortal());
982#line 404 "Core.xs"
983 RETVAL = MSGLEVEL_INVITES;
984#line 985 "Core.c"
985 XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)(void)( { Perl_sv_setiv(targ, (IV)((IV)RETVAL)); (void)( { (void
)( { if (((targ)->sv_flags & 0x00004000)) Perl_mg_set(
targ); } ); (*++sp = (targ)); } ); } );
986 }
987 XSRETURN(1)(void)( { const IV tmpXSoff = (1); PL_stack_sp = PL_stack_base
+ ax + (tmpXSoff - 1); return; } );
988}
989
990
991XS(XS_Irssi_MSGLEVEL_NICKS)void XS_Irssi_MSGLEVEL_NICKS( CV* cv __attribute__((unused))); /* prototype to pass -Wmissing-prototypes */
992XS(XS_Irssi_MSGLEVEL_NICKS)void XS_Irssi_MSGLEVEL_NICKS( CV* cv __attribute__((unused)))
993{
994#ifdef dVAR
995 dVAR; dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
996#else
997 dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
998#endif
999 if (items != 0)
1000 Perl_croak(aTHX_ "Usage: %s(%s)", "Irssi::MSGLEVEL_NICKS", "");
1001 PERL_UNUSED_VAR(cv)((void)cv); /* -W */
1002 {
1003 int RETVAL;
1004 dXSTARGSV * const targ = ((PL_op->op_private & 32) ? (PL_curpad
[PL_op->op_targ]) : Perl_sv_newmortal());
1005#line 411 "Core.xs"
1006 RETVAL = MSGLEVEL_NICKS;
1007#line 1008 "Core.c"
1008 XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)(void)( { Perl_sv_setiv(targ, (IV)((IV)RETVAL)); (void)( { (void
)( { if (((targ)->sv_flags & 0x00004000)) Perl_mg_set(
targ); } ); (*++sp = (targ)); } ); } );
1009 }
1010 XSRETURN(1)(void)( { const IV tmpXSoff = (1); PL_stack_sp = PL_stack_base
+ ax + (tmpXSoff - 1); return; } );
1011}
1012
1013
1014XS(XS_Irssi_MSGLEVEL_DCC)void XS_Irssi_MSGLEVEL_DCC( CV* cv __attribute__((unused))); /* prototype to pass -Wmissing-prototypes */
1015XS(XS_Irssi_MSGLEVEL_DCC)void XS_Irssi_MSGLEVEL_DCC( CV* cv __attribute__((unused)))
1016{
1017#ifdef dVAR
1018 dVAR; dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
1019#else
1020 dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
1021#endif
1022 if (items != 0)
1023 Perl_croak(aTHX_ "Usage: %s(%s)", "Irssi::MSGLEVEL_DCC", "");
1024 PERL_UNUSED_VAR(cv)((void)cv); /* -W */
1025 {
1026 int RETVAL;
1027 dXSTARGSV * const targ = ((PL_op->op_private & 32) ? (PL_curpad
[PL_op->op_targ]) : Perl_sv_newmortal());
1028#line 418 "Core.xs"
1029 RETVAL = MSGLEVEL_DCC;
1030#line 1031 "Core.c"
1031 XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)(void)( { Perl_sv_setiv(targ, (IV)((IV)RETVAL)); (void)( { (void
)( { if (((targ)->sv_flags & 0x00004000)) Perl_mg_set(
targ); } ); (*++sp = (targ)); } ); } );
1032 }
1033 XSRETURN(1)(void)( { const IV tmpXSoff = (1); PL_stack_sp = PL_stack_base
+ ax + (tmpXSoff - 1); return; } );
1034}
1035
1036
1037XS(XS_Irssi_MSGLEVEL_DCCMSGS)void XS_Irssi_MSGLEVEL_DCCMSGS( CV* cv __attribute__((unused)
)); /* prototype to pass -Wmissing-prototypes */
1038XS(XS_Irssi_MSGLEVEL_DCCMSGS)void XS_Irssi_MSGLEVEL_DCCMSGS( CV* cv __attribute__((unused)
))
1039{
1040#ifdef dVAR
1041 dVAR; dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
1042#else
1043 dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
1044#endif
1045 if (items != 0)
1046 Perl_croak(aTHX_ "Usage: %s(%s)", "Irssi::MSGLEVEL_DCCMSGS", "");
1047 PERL_UNUSED_VAR(cv)((void)cv); /* -W */
1048 {
1049 int RETVAL;
1050 dXSTARGSV * const targ = ((PL_op->op_private & 32) ? (PL_curpad
[PL_op->op_targ]) : Perl_sv_newmortal());
1051#line 425 "Core.xs"
1052 RETVAL = MSGLEVEL_DCCMSGS;
1053#line 1054 "Core.c"
1054 XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)(void)( { Perl_sv_setiv(targ, (IV)((IV)RETVAL)); (void)( { (void
)( { if (((targ)->sv_flags & 0x00004000)) Perl_mg_set(
targ); } ); (*++sp = (targ)); } ); } );
1055 }
1056 XSRETURN(1)(void)( { const IV tmpXSoff = (1); PL_stack_sp = PL_stack_base
+ ax + (tmpXSoff - 1); return; } );
1057}
1058
1059
1060XS(XS_Irssi_MSGLEVEL_CLIENTNOTICE)void XS_Irssi_MSGLEVEL_CLIENTNOTICE( CV* cv __attribute__((unused
))); /* prototype to pass -Wmissing-prototypes */
1061XS(XS_Irssi_MSGLEVEL_CLIENTNOTICE)void XS_Irssi_MSGLEVEL_CLIENTNOTICE( CV* cv __attribute__((unused
)))
1062{
1063#ifdef dVAR
1064 dVAR; dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
1065#else
1066 dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
1067#endif
1068 if (items != 0)
1069 Perl_croak(aTHX_ "Usage: %s(%s)", "Irssi::MSGLEVEL_CLIENTNOTICE", "");
1070 PERL_UNUSED_VAR(cv)((void)cv); /* -W */
1071 {
1072 int RETVAL;
1073 dXSTARGSV * const targ = ((PL_op->op_private & 32) ? (PL_curpad
[PL_op->op_targ]) : Perl_sv_newmortal());
1074#line 432 "Core.xs"
1075 RETVAL = MSGLEVEL_CLIENTNOTICE;
1076#line 1077 "Core.c"
1077 XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)(void)( { Perl_sv_setiv(targ, (IV)((IV)RETVAL)); (void)( { (void
)( { if (((targ)->sv_flags & 0x00004000)) Perl_mg_set(
targ); } ); (*++sp = (targ)); } ); } );
1078 }
1079 XSRETURN(1)(void)( { const IV tmpXSoff = (1); PL_stack_sp = PL_stack_base
+ ax + (tmpXSoff - 1); return; } );
1080}
1081
1082
1083XS(XS_Irssi_MSGLEVEL_CLIENTCRAP)void XS_Irssi_MSGLEVEL_CLIENTCRAP( CV* cv __attribute__((unused
))); /* prototype to pass -Wmissing-prototypes */
1084XS(XS_Irssi_MSGLEVEL_CLIENTCRAP)void XS_Irssi_MSGLEVEL_CLIENTCRAP( CV* cv __attribute__((unused
)))
1085{
1086#ifdef dVAR
1087 dVAR; dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
1088#else
1089 dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
1090#endif
1091 if (items != 0)
1092 Perl_croak(aTHX_ "Usage: %s(%s)", "Irssi::MSGLEVEL_CLIENTCRAP", "");
1093 PERL_UNUSED_VAR(cv)((void)cv); /* -W */
1094 {
1095 int RETVAL;
1096 dXSTARGSV * const targ = ((PL_op->op_private & 32) ? (PL_curpad
[PL_op->op_targ]) : Perl_sv_newmortal());
1097#line 439 "Core.xs"
1098 RETVAL = MSGLEVEL_CLIENTCRAP;
1099#line 1100 "Core.c"
1100 XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)(void)( { Perl_sv_setiv(targ, (IV)((IV)RETVAL)); (void)( { (void
)( { if (((targ)->sv_flags & 0x00004000)) Perl_mg_set(
targ); } ); (*++sp = (targ)); } ); } );
1101 }
1102 XSRETURN(1)(void)( { const IV tmpXSoff = (1); PL_stack_sp = PL_stack_base
+ ax + (tmpXSoff - 1); return; } );
1103}
1104
1105
1106XS(XS_Irssi_MSGLEVEL_CLIENTERROR)void XS_Irssi_MSGLEVEL_CLIENTERROR( CV* cv __attribute__((unused
))); /* prototype to pass -Wmissing-prototypes */
1107XS(XS_Irssi_MSGLEVEL_CLIENTERROR)void XS_Irssi_MSGLEVEL_CLIENTERROR( CV* cv __attribute__((unused
)))
1108{
1109#ifdef dVAR
1110 dVAR; dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
1111#else
1112 dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
1113#endif
1114 if (items != 0)
1115 Perl_croak(aTHX_ "Usage: %s(%s)", "Irssi::MSGLEVEL_CLIENTERROR", "");
1116 PERL_UNUSED_VAR(cv)((void)cv); /* -W */
1117 {
1118 int RETVAL;
1119 dXSTARGSV * const targ = ((PL_op->op_private & 32) ? (PL_curpad
[PL_op->op_targ]) : Perl_sv_newmortal());
1120#line 446 "Core.xs"
1121 RETVAL = MSGLEVEL_CLIENTERROR;
1122#line 1123 "Core.c"
1123 XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)(void)( { Perl_sv_setiv(targ, (IV)((IV)RETVAL)); (void)( { (void
)( { if (((targ)->sv_flags & 0x00004000)) Perl_mg_set(
targ); } ); (*++sp = (targ)); } ); } );
1124 }
1125 XSRETURN(1)(void)( { const IV tmpXSoff = (1); PL_stack_sp = PL_stack_base
+ ax + (tmpXSoff - 1); return; } );
1126}
1127
1128
1129XS(XS_Irssi_MSGLEVEL_HILIGHT)void XS_Irssi_MSGLEVEL_HILIGHT( CV* cv __attribute__((unused)
)); /* prototype to pass -Wmissing-prototypes */
1130XS(XS_Irssi_MSGLEVEL_HILIGHT)void XS_Irssi_MSGLEVEL_HILIGHT( CV* cv __attribute__((unused)
))
1131{
1132#ifdef dVAR
1133 dVAR; dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
1134#else
1135 dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
1136#endif
1137 if (items != 0)
1138 Perl_croak(aTHX_ "Usage: %s(%s)", "Irssi::MSGLEVEL_HILIGHT", "");
1139 PERL_UNUSED_VAR(cv)((void)cv); /* -W */
1140 {
1141 int RETVAL;
1142 dXSTARGSV * const targ = ((PL_op->op_private & 32) ? (PL_curpad
[PL_op->op_targ]) : Perl_sv_newmortal());
1143#line 453 "Core.xs"
1144 RETVAL = MSGLEVEL_HILIGHT;
1145#line 1146 "Core.c"
1146 XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)(void)( { Perl_sv_setiv(targ, (IV)((IV)RETVAL)); (void)( { (void
)( { if (((targ)->sv_flags & 0x00004000)) Perl_mg_set(
targ); } ); (*++sp = (targ)); } ); } );
1147 }
1148 XSRETURN(1)(void)( { const IV tmpXSoff = (1); PL_stack_sp = PL_stack_base
+ ax + (tmpXSoff - 1); return; } );
1149}
1150
1151
1152XS(XS_Irssi_MSGLEVEL_ALL)void XS_Irssi_MSGLEVEL_ALL( CV* cv __attribute__((unused))); /* prototype to pass -Wmissing-prototypes */
1153XS(XS_Irssi_MSGLEVEL_ALL)void XS_Irssi_MSGLEVEL_ALL( CV* cv __attribute__((unused)))
1154{
1155#ifdef dVAR
1156 dVAR; dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
1157#else
1158 dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
1159#endif
1160 if (items != 0)
1161 Perl_croak(aTHX_ "Usage: %s(%s)", "Irssi::MSGLEVEL_ALL", "");
1162 PERL_UNUSED_VAR(cv)((void)cv); /* -W */
1163 {
1164 int RETVAL;
1165 dXSTARGSV * const targ = ((PL_op->op_private & 32) ? (PL_curpad
[PL_op->op_targ]) : Perl_sv_newmortal());
1166#line 460 "Core.xs"
1167 RETVAL = MSGLEVEL_ALL;
1168#line 1169 "Core.c"
1169 XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)(void)( { Perl_sv_setiv(targ, (IV)((IV)RETVAL)); (void)( { (void
)( { if (((targ)->sv_flags & 0x00004000)) Perl_mg_set(
targ); } ); (*++sp = (targ)); } ); } );
1170 }
1171 XSRETURN(1)(void)( { const IV tmpXSoff = (1); PL_stack_sp = PL_stack_base
+ ax + (tmpXSoff - 1); return; } );
1172}
1173
1174
1175XS(XS_Irssi_MSGLEVEL_NOHILIGHT)void XS_Irssi_MSGLEVEL_NOHILIGHT( CV* cv __attribute__((unused
))); /* prototype to pass -Wmissing-prototypes */
1176XS(XS_Irssi_MSGLEVEL_NOHILIGHT)void XS_Irssi_MSGLEVEL_NOHILIGHT( CV* cv __attribute__((unused
)))
1177{
1178#ifdef dVAR
1179 dVAR; dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
1180#else
1181 dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
1182#endif
1183 if (items != 0)
1184 Perl_croak(aTHX_ "Usage: %s(%s)", "Irssi::MSGLEVEL_NOHILIGHT", "");
1185 PERL_UNUSED_VAR(cv)((void)cv); /* -W */
1186 {
1187 int RETVAL;
1188 dXSTARGSV * const targ = ((PL_op->op_private & 32) ? (PL_curpad
[PL_op->op_targ]) : Perl_sv_newmortal());
1189#line 467 "Core.xs"
1190 RETVAL = MSGLEVEL_NOHILIGHT;
1191#line 1192 "Core.c"
1192 XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)(void)( { Perl_sv_setiv(targ, (IV)((IV)RETVAL)); (void)( { (void
)( { if (((targ)->sv_flags & 0x00004000)) Perl_mg_set(
targ); } ); (*++sp = (targ)); } ); } );
1193 }
1194 XSRETURN(1)(void)( { const IV tmpXSoff = (1); PL_stack_sp = PL_stack_base
+ ax + (tmpXSoff - 1); return; } );
1195}
1196
1197
1198XS(XS_Irssi_MSGLEVEL_NO_ACT)void XS_Irssi_MSGLEVEL_NO_ACT( CV* cv __attribute__((unused))
); /* prototype to pass -Wmissing-prototypes */
1199XS(XS_Irssi_MSGLEVEL_NO_ACT)void XS_Irssi_MSGLEVEL_NO_ACT( CV* cv __attribute__((unused))
)
1200{
1201#ifdef dVAR
1202 dVAR; dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
1203#else
1204 dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
1205#endif
1206 if (items != 0)
1207 Perl_croak(aTHX_ "Usage: %s(%s)", "Irssi::MSGLEVEL_NO_ACT", "");
1208 PERL_UNUSED_VAR(cv)((void)cv); /* -W */
1209 {
1210 int RETVAL;
1211 dXSTARGSV * const targ = ((PL_op->op_private & 32) ? (PL_curpad
[PL_op->op_targ]) : Perl_sv_newmortal());
1212#line 474 "Core.xs"
1213 RETVAL = MSGLEVEL_NO_ACT;
1214#line 1215 "Core.c"
1215 XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)(void)( { Perl_sv_setiv(targ, (IV)((IV)RETVAL)); (void)( { (void
)( { if (((targ)->sv_flags & 0x00004000)) Perl_mg_set(
targ); } ); (*++sp = (targ)); } ); } );
1216 }
1217 XSRETURN(1)(void)( { const IV tmpXSoff = (1); PL_stack_sp = PL_stack_base
+ ax + (tmpXSoff - 1); return; } );
1218}
1219
1220
1221XS(XS_Irssi_MSGLEVEL_NEVER)void XS_Irssi_MSGLEVEL_NEVER( CV* cv __attribute__((unused))); /* prototype to pass -Wmissing-prototypes */
1222XS(XS_Irssi_MSGLEVEL_NEVER)void XS_Irssi_MSGLEVEL_NEVER( CV* cv __attribute__((unused)))
1223{
1224#ifdef dVAR
1225 dVAR; dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
1226#else
1227 dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
1228#endif
1229 if (items != 0)
1230 Perl_croak(aTHX_ "Usage: %s(%s)", "Irssi::MSGLEVEL_NEVER", "");
1231 PERL_UNUSED_VAR(cv)((void)cv); /* -W */
1232 {
1233 int RETVAL;
1234 dXSTARGSV * const targ = ((PL_op->op_private & 32) ? (PL_curpad
[PL_op->op_targ]) : Perl_sv_newmortal());
1235#line 481 "Core.xs"
1236 RETVAL = MSGLEVEL_NEVER;
1237#line 1238 "Core.c"
1238 XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)(void)( { Perl_sv_setiv(targ, (IV)((IV)RETVAL)); (void)( { (void
)( { if (((targ)->sv_flags & 0x00004000)) Perl_mg_set(
targ); } ); (*++sp = (targ)); } ); } );
1239 }
1240 XSRETURN(1)(void)( { const IV tmpXSoff = (1); PL_stack_sp = PL_stack_base
+ ax + (tmpXSoff - 1); return; } );
1241}
1242
1243
1244XS(XS_Irssi_MSGLEVEL_LASTLOG)void XS_Irssi_MSGLEVEL_LASTLOG( CV* cv __attribute__((unused)
)); /* prototype to pass -Wmissing-prototypes */
1245XS(XS_Irssi_MSGLEVEL_LASTLOG)void XS_Irssi_MSGLEVEL_LASTLOG( CV* cv __attribute__((unused)
))
1246{
1247#ifdef dVAR
1248 dVAR; dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
1249#else
1250 dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
1251#endif
1252 if (items != 0)
1253 Perl_croak(aTHX_ "Usage: %s(%s)", "Irssi::MSGLEVEL_LASTLOG", "");
1254 PERL_UNUSED_VAR(cv)((void)cv); /* -W */
1255 {
1256 int RETVAL;
1257 dXSTARGSV * const targ = ((PL_op->op_private & 32) ? (PL_curpad
[PL_op->op_targ]) : Perl_sv_newmortal());
1258#line 488 "Core.xs"
1259 RETVAL = MSGLEVEL_LASTLOG;
1260#line 1261 "Core.c"
1261 XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)(void)( { Perl_sv_setiv(targ, (IV)((IV)RETVAL)); (void)( { (void
)( { if (((targ)->sv_flags & 0x00004000)) Perl_mg_set(
targ); } ); (*++sp = (targ)); } ); } );
1262 }
1263 XSRETURN(1)(void)( { const IV tmpXSoff = (1); PL_stack_sp = PL_stack_base
+ ax + (tmpXSoff - 1); return; } );
1264}
1265
1266
1267XS(XS_Irssi_level2bits)void XS_Irssi_level2bits( CV* cv __attribute__((unused))); /* prototype to pass -Wmissing-prototypes */
1268XS(XS_Irssi_level2bits)void XS_Irssi_level2bits( CV* cv __attribute__((unused)))
1269{
1270#ifdef dVAR
1271 dVAR; dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
1272#else
1273 dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
1274#endif
1275 if (items != 1)
1276 Perl_croak(aTHX_ "Usage: %s(%s)", "Irssi::level2bits", "str");
1277 PERL_UNUSED_VAR(cv)((void)cv); /* -W */
1278 {
1279 char * str = (char *)SvPV_nolen(ST(0))(((PL_stack_base[ax + (0)])->sv_flags & (0x00040000)) ==
0x00040000 ? ((XPV*) (PL_stack_base[ax + (0)])->sv_any)->
xpv_pv : Perl_sv_2pv_flags(PL_stack_base[ax + (0)], 0, 2));
1280 int RETVAL;
1281 dXSTARGSV * const targ = ((PL_op->op_private & 32) ? (PL_curpad
[PL_op->op_targ]) : Perl_sv_newmortal());
1282#line 496 "Core.xs"
1283 RETVAL = level2bits(str, NULL((void *)0));
1284#line 1285 "Core.c"
1285 XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)(void)( { Perl_sv_setiv(targ, (IV)((IV)RETVAL)); (void)( { (void
)( { if (((targ)->sv_flags & 0x00004000)) Perl_mg_set(
targ); } ); (*++sp = (targ)); } ); } );
1286 }
1287 XSRETURN(1)(void)( { const IV tmpXSoff = (1); PL_stack_sp = PL_stack_base
+ ax + (tmpXSoff - 1); return; } );
1288}
1289
1290
1291XS(XS_Irssi_bits2level)void XS_Irssi_bits2level( CV* cv __attribute__((unused))); /* prototype to pass -Wmissing-prototypes */
1292XS(XS_Irssi_bits2level)void XS_Irssi_bits2level( CV* cv __attribute__((unused)))
1293{
1294#ifdef dVAR
1295 dVAR; dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
1296#else
1297 dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
1298#endif
1299 if (items != 1)
1300 Perl_croak(aTHX_ "Usage: %s(%s)", "Irssi::bits2level", "bits");
1301 PERL_UNUSED_VAR(cv)((void)cv); /* -W */
1302 PERL_UNUSED_VAR(ax)((void)ax); /* -Wall */
1303 SPsp -= items;
1304 {
1305 int bits = (int)SvIV(ST(0))(((PL_stack_base[ax + (0)])->sv_flags & 0x00010000) ? (
(XPVIV*) (PL_stack_base[ax + (0)])->sv_any)->xiv_iv : Perl_sv_2iv_flags
(PL_stack_base[ax + (0)], 2));
1306#line 504 "Core.xs"
1307 char *ret;
1308#line 1309 "Core.c"
1309#line 506 "Core.xs"
1310 ret = bits2level(bits);
1311 XPUSHs(sv_2mortal(new_pv(ret)))(void)( { (void)( { if (PL_stack_max - sp < (int)(1)) { sp
= Perl_stack_grow(sp,sp, (int) (1)); } } ); (*++sp = (Perl_sv_2mortal
((Perl_newSVpv((ret) == ((void *)0) ? "" : (ret), (ret) == ((
void *)0) ? 0 : strlen(ret)))))); } );
1312 g_free(ret);
1313#line 1314 "Core.c"
1314 PUTBACKPL_stack_sp = sp;
1315 return;
1316 }
1317}
1318
1319
1320XS(XS_Irssi_combine_level)void XS_Irssi_combine_level( CV* cv __attribute__((unused))); /* prototype to pass -Wmissing-prototypes */
1321XS(XS_Irssi_combine_level)void XS_Irssi_combine_level( CV* cv __attribute__((unused)))
1322{
1323#ifdef dVAR
1324 dVAR; dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
1325#else
1326 dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
1327#endif
1328 if (items != 2)
1329 Perl_croak(aTHX_ "Usage: %s(%s)", "Irssi::combine_level", "level, str");
1330 PERL_UNUSED_VAR(cv)((void)cv); /* -W */
1331 {
1332 int level = (int)SvIV(ST(0))(((PL_stack_base[ax + (0)])->sv_flags & 0x00010000) ? (
(XPVIV*) (PL_stack_base[ax + (0)])->sv_any)->xiv_iv : Perl_sv_2iv_flags
(PL_stack_base[ax + (0)], 2));
1333 char * str = (char *)SvPV_nolen(ST(1))(((PL_stack_base[ax + (1)])->sv_flags & (0x00040000)) ==
0x00040000 ? ((XPV*) (PL_stack_base[ax + (1)])->sv_any)->
xpv_pv : Perl_sv_2pv_flags(PL_stack_base[ax + (1)], 0, 2));
1334 int RETVAL;
1335 dXSTARGSV * const targ = ((PL_op->op_private & 32) ? (PL_curpad
[PL_op->op_targ]) : Perl_sv_newmortal());
1336
1337 RETVAL = combine_level(level, str);
1338 XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)(void)( { Perl_sv_setiv(targ, (IV)((IV)RETVAL)); (void)( { (void
)( { if (((targ)->sv_flags & 0x00004000)) Perl_mg_set(
targ); } ); (*++sp = (targ)); } ); } );
1339 }
1340 XSRETURN(1)(void)( { const IV tmpXSoff = (1); PL_stack_sp = PL_stack_base
+ ax + (tmpXSoff - 1); return; } );
1341}
1342
1343
1344XS(XS_Irssi_command)void XS_Irssi_command( CV* cv __attribute__((unused))); /* prototype to pass -Wmissing-prototypes */
1345XS(XS_Irssi_command)void XS_Irssi_command( CV* cv __attribute__((unused)))
1346{
1347#ifdef dVAR
1348 dVAR; dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
1349#else
1350 dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
1351#endif
1352 if (items != 1)
1353 Perl_croak(aTHX_ "Usage: %s(%s)", "Irssi::command", "cmd");
1354 PERL_UNUSED_VAR(cv)((void)cv); /* -W */
1355 {
1356 char * cmd = (char *)SvPV_nolen(ST(0))(((PL_stack_base[ax + (0)])->sv_flags & (0x00040000)) ==
0x00040000 ? ((XPV*) (PL_stack_base[ax + (0)])->sv_any)->
xpv_pv : Perl_sv_2pv_flags(PL_stack_base[ax + (0)], 0, 2));
1357#line 519 "Core.xs"
1358 perl_command(cmd, NULL((void *)0), NULL((void *)0));
1359#line 1360 "Core.c"
1360 }
1361 XSRETURN_EMPTY(void)( { (void)( { const IV tmpXSoff = (0); PL_stack_sp = PL_stack_base
+ ax + (tmpXSoff - 1); return; } ); } );
1362}
1363
1364
1365XS(XS_Irssi_commands)void XS_Irssi_commands( CV* cv __attribute__((unused))); /* prototype to pass -Wmissing-prototypes */
1366XS(XS_Irssi_commands)void XS_Irssi_commands( CV* cv __attribute__((unused)))
1367{
1368#ifdef dVAR
1369 dVAR; dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
1370#else
1371 dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
1372#endif
1373 if (items != 0)
1374 Perl_croak(aTHX_ "Usage: %s(%s)", "Irssi::commands", "");
1375 PERL_UNUSED_VAR(cv)((void)cv); /* -W */
1376 PERL_UNUSED_VAR(ax)((void)ax); /* -Wall */
1377 SPsp -= items;
1378 {
1379#line 524 "Core.xs"
1380 GSList *tmp;
1381#line 1382 "Core.c"
1382#line 526 "Core.xs"
1383 for (tmp = commands; tmp != NULL((void *)0); tmp = tmp->next) {
1384 XPUSHs(sv_2mortal(plain_bless(tmp->data, "Irssi::Command")))(void)( { (void)( { if (PL_stack_max - sp < (int)(1)) { sp
= Perl_stack_grow(sp,sp, (int) (1)); } } ); (*++sp = (Perl_sv_2mortal
(((tmp->data) == ((void *)0) ? &PL_sv_undef : irssi_bless_plain
("Irssi::Command", tmp->data))))); } );
1385 }
1386#line 1387 "Core.c"
1387 PUTBACKPL_stack_sp = sp;
1388 return;
1389 }
1390}
1391
1392
1393XS(XS_Irssi_command_bind_first)void XS_Irssi_command_bind_first( CV* cv __attribute__((unused
))); /* prototype to pass -Wmissing-prototypes */
1394XS(XS_Irssi_command_bind_first)void XS_Irssi_command_bind_first( CV* cv __attribute__((unused
)))
1395{
1396#ifdef dVAR
1397 dVAR; dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
1398#else
1399 dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
1400#endif
1401 PERL_UNUSED_VAR(cv)((void)cv); /* -W */
1402 {
1403#line 533 "Core.xs"
1404 handle_command_bind(SIGNAL_PRIORITY_HIGH-100, items, ST(0)PL_stack_base[ax + (0)], ST(1)PL_stack_base[ax + (1)], ST(2)PL_stack_base[ax + (2)]);
1405#line 1406 "Core.c"
1406 }
1407 XSRETURN_EMPTY(void)( { (void)( { const IV tmpXSoff = (0); PL_stack_sp = PL_stack_base
+ ax + (tmpXSoff - 1); return; } ); } );
1408}
1409
1410
1411XS(XS_Irssi_command_bind)void XS_Irssi_command_bind( CV* cv __attribute__((unused))); /* prototype to pass -Wmissing-prototypes */
1412XS(XS_Irssi_command_bind)void XS_Irssi_command_bind( CV* cv __attribute__((unused)))
1413{
1414#ifdef dVAR
1415 dVAR; dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
1416#else
1417 dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
1418#endif
1419 PERL_UNUSED_VAR(cv)((void)cv); /* -W */
1420 {
1421#line 538 "Core.xs"
1422 handle_command_bind(SIGNAL_PRIORITY_DEFAULT0, items, ST(0)PL_stack_base[ax + (0)], ST(1)PL_stack_base[ax + (1)], ST(2)PL_stack_base[ax + (2)]);
1423#line 1424 "Core.c"
1424 }
1425 XSRETURN_EMPTY(void)( { (void)( { const IV tmpXSoff = (0); PL_stack_sp = PL_stack_base
+ ax + (tmpXSoff - 1); return; } ); } );
1426}
1427
1428
1429XS(XS_Irssi_command_bind_last)void XS_Irssi_command_bind_last( CV* cv __attribute__((unused
))); /* prototype to pass -Wmissing-prototypes */
1430XS(XS_Irssi_command_bind_last)void XS_Irssi_command_bind_last( CV* cv __attribute__((unused
)))
1431{
1432#ifdef dVAR
1433 dVAR; dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
1434#else
1435 dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
1436#endif
1437 PERL_UNUSED_VAR(cv)((void)cv); /* -W */
1438 {
1439#line 543 "Core.xs"
1440 handle_command_bind(SIGNAL_PRIORITY_LOW100, items, ST(0)PL_stack_base[ax + (0)], ST(1)PL_stack_base[ax + (1)], ST(2)PL_stack_base[ax + (2)]);
1441#line 1442 "Core.c"
1442 }
1443 XSRETURN_EMPTY(void)( { (void)( { const IV tmpXSoff = (0); PL_stack_sp = PL_stack_base
+ ax + (tmpXSoff - 1); return; } ); } );
1444}
1445
1446
1447XS(XS_Irssi_command_runsub)void XS_Irssi_command_runsub( CV* cv __attribute__((unused))); /* prototype to pass -Wmissing-prototypes */
1448XS(XS_Irssi_command_runsub)void XS_Irssi_command_runsub( CV* cv __attribute__((unused)))
1449{
1450#ifdef dVAR
1451 dVAR; dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
1452#else
1453 dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
1454#endif
1455 if (items != 4)
1456 Perl_croak(aTHX_ "Usage: %s(%s)", "Irssi::command_runsub", "cmd, data, server, item");
1457 PERL_UNUSED_VAR(cv)((void)cv); /* -W */
1458 {
1459 char * cmd = (char *)SvPV_nolen(ST(0))(((PL_stack_base[ax + (0)])->sv_flags & (0x00040000)) ==
0x00040000 ? ((XPV*) (PL_stack_base[ax + (0)])->sv_any)->
xpv_pv : Perl_sv_2pv_flags(PL_stack_base[ax + (0)], 0, 2));
1460 char * data = (char *)SvPV_nolen(ST(1))(((PL_stack_base[ax + (1)])->sv_flags & (0x00040000)) ==
0x00040000 ? ((XPV*) (PL_stack_base[ax + (1)])->sv_any)->
xpv_pv : Perl_sv_2pv_flags(PL_stack_base[ax + (1)], 0, 2));
1461 Irssi__Server server = irssi_ref_object(ST(2)PL_stack_base[ax + (2)]);
1462 Irssi__Windowitem item = irssi_ref_object(ST(3)PL_stack_base[ax + (3)]);
1463#line 552 "Core.xs"
1464 perl_command_runsub(cmd, data, server, item);
1465#line 1466 "Core.c"
1466 }
1467 XSRETURN_EMPTY(void)( { (void)( { const IV tmpXSoff = (0); PL_stack_sp = PL_stack_base
+ ax + (tmpXSoff - 1); return; } ); } );
1468}
1469
1470
1471XS(XS_Irssi_command_unbind)void XS_Irssi_command_unbind( CV* cv __attribute__((unused))); /* prototype to pass -Wmissing-prototypes */
1472XS(XS_Irssi_command_unbind)void XS_Irssi_command_unbind( CV* cv __attribute__((unused)))
1473{
1474#ifdef dVAR
1475 dVAR; dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
1476#else
1477 dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
1478#endif
1479 if (items != 2)
1480 Perl_croak(aTHX_ "Usage: %s(%s)", "Irssi::command_unbind", "cmd, func");
1481 PERL_UNUSED_VAR(cv)((void)cv); /* -W */
1482 {
1483 char * cmd = (char *)SvPV_nolen(ST(0))(((PL_stack_base[ax + (0)])->sv_flags & (0x00040000)) ==
0x00040000 ? ((XPV*) (PL_stack_base[ax + (0)])->sv_any)->
xpv_pv : Perl_sv_2pv_flags(PL_stack_base[ax + (0)], 0, 2));
1484 SV * func = ST(1)PL_stack_base[ax + (1)];
1485#line 559 "Core.xs"
1486 perl_command_unbind(cmd, func);
1487#line 1488 "Core.c"
1488 }
1489 XSRETURN_EMPTY(void)( { (void)( { const IV tmpXSoff = (0); PL_stack_sp = PL_stack_base
+ ax + (tmpXSoff - 1); return; } ); } );
1490}
1491
1492
1493XS(XS_Irssi_command_set_options)void XS_Irssi_command_set_options( CV* cv __attribute__((unused
))); /* prototype to pass -Wmissing-prototypes */
1494XS(XS_Irssi_command_set_options)void XS_Irssi_command_set_options( CV* cv __attribute__((unused
)))
1495{
1496#ifdef dVAR
1497 dVAR; dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
1498#else
1499 dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
1500#endif
1501 if (items != 2)
1502 Perl_croak(aTHX_ "Usage: %s(%s)", "Irssi::command_set_options", "cmd, options");
1503 PERL_UNUSED_VAR(cv)((void)cv); /* -W */
1504 {
1505 char * cmd = (char *)SvPV_nolen(ST(0))(((PL_stack_base[ax + (0)])->sv_flags & (0x00040000)) ==
0x00040000 ? ((XPV*) (PL_stack_base[ax + (0)])->sv_any)->
xpv_pv : Perl_sv_2pv_flags(PL_stack_base[ax + (0)], 0, 2));
1506 char * options = (char *)SvPV_nolen(ST(1))(((PL_stack_base[ax + (1)])->sv_flags & (0x00040000)) ==
0x00040000 ? ((XPV*) (PL_stack_base[ax + (1)])->sv_any)->
xpv_pv : Perl_sv_2pv_flags(PL_stack_base[ax + (1)], 0, 2));
1507
1508 command_set_options(cmd, options)command_set_options_module("perl/core", cmd, options);
1509 }
1510 XSRETURN_EMPTY(void)( { (void)( { const IV tmpXSoff = (0); PL_stack_sp = PL_stack_base
+ ax + (tmpXSoff - 1); return; } ); } );
1511}
1512
1513
1514XS(XS_Irssi_command_parse_options)void XS_Irssi_command_parse_options( CV* cv __attribute__((unused
))); /* prototype to pass -Wmissing-prototypes */
1515XS(XS_Irssi_command_parse_options)void XS_Irssi_command_parse_options( CV* cv __attribute__((unused
)))
1516{
1517#ifdef dVAR
1518 dVAR; dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
1519#else
1520 dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
1521#endif
1522 if (items != 2)
1523 Perl_croak(aTHX_ "Usage: %s(%s)", "Irssi::command_parse_options", "cmd, data");
1524 PERL_UNUSED_VAR(cv)((void)cv); /* -W */
1525 PERL_UNUSED_VAR(ax)((void)ax); /* -Wall */
1526 SPsp -= items;
1527 {
1528 char * cmd = (char *)SvPV_nolen(ST(0))(((PL_stack_base[ax + (0)])->sv_flags & (0x00040000)) ==
0x00040000 ? ((XPV*) (PL_stack_base[ax + (0)])->sv_any)->
xpv_pv : Perl_sv_2pv_flags(PL_stack_base[ax + (0)], 0, 2));
1529 char * data = (char *)SvPV_nolen(ST(1))(((PL_stack_base[ax + (1)])->sv_flags & (0x00040000)) ==
0x00040000 ? ((XPV*) (PL_stack_base[ax + (1)])->sv_any)->
xpv_pv : Perl_sv_2pv_flags(PL_stack_base[ax + (1)], 0, 2));
1530#line 571 "Core.xs"
1531 HV *hash;
1532 GHashTable *optlist;
1533 void *free_arg;
1534 char *ptr;
1535#line 1536 "Core.c"
1536#line 576 "Core.xs"
1537 if (cmd_get_params(data, &free_arg, 1 | PARAM_FLAG_OPTIONS0x00004000 | PARAM_FLAG_GETREST0x00002000,
1538 cmd, &optlist, &ptr)) {
1539 hash = newHVPerl_newHV();
1540 g_hash_table_foreach(optlist, add_tuple, hash);
1541 XPUSHs(sv_2mortal(newRV_noinc((SV*)hash)))(void)( { (void)( { if (PL_stack_max - sp < (int)(1)) { sp
= Perl_stack_grow(sp,sp, (int) (1)); } } ); (*++sp = (Perl_sv_2mortal
(Perl_newRV_noinc((SV*)hash)))); } );
1542 XPUSHs(sv_2mortal(new_pv(ptr)))(void)( { (void)( { if (PL_stack_max - sp < (int)(1)) { sp
= Perl_stack_grow(sp,sp, (int) (1)); } } ); (*++sp = (Perl_sv_2mortal
((Perl_newSVpv((ptr) == ((void *)0) ? "" : (ptr), (ptr) == ((
void *)0) ? 0 : strlen(ptr)))))); } );
1543 cmd_params_free(free_arg);
1544 } else {
1545 XPUSHs(&PL_sv_undef)(void)( { (void)( { if (PL_stack_max - sp < (int)(1)) { sp
= Perl_stack_grow(sp,sp, (int) (1)); } } ); (*++sp = (&PL_sv_undef
)); } );
1546 XPUSHs(&PL_sv_undef)(void)( { (void)( { if (PL_stack_max - sp < (int)(1)) { sp
= Perl_stack_grow(sp,sp, (int) (1)); } } ); (*++sp = (&PL_sv_undef
)); } );
1547 }
1548#line 1549 "Core.c"
1549 PUTBACKPL_stack_sp = sp;
1550 return;
1551 }
1552}
1553
1554
1555XS(XS_Irssi_pidwait_add)void XS_Irssi_pidwait_add( CV* cv __attribute__((unused))); /* prototype to pass -Wmissing-prototypes */
1556XS(XS_Irssi_pidwait_add)void XS_Irssi_pidwait_add( CV* cv __attribute__((unused)))
1557{
1558#ifdef dVAR
1559 dVAR; dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
1560#else
1561 dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
1562#endif
1563 if (items != 1)
1564 Perl_croak(aTHX_ "Usage: %s(%s)", "Irssi::pidwait_add", "pid");
1565 PERL_UNUSED_VAR(cv)((void)cv); /* -W */
1566 {
1567 int pid = (int)SvIV(ST(0))(((PL_stack_base[ax + (0)])->sv_flags & 0x00010000) ? (
(XPVIV*) (PL_stack_base[ax + (0)])->sv_any)->xiv_iv : Perl_sv_2iv_flags
(PL_stack_base[ax + (0)], 2));
1568
1569 pidwait_add(pid);
1570 }
1571 XSRETURN_EMPTY(void)( { (void)( { const IV tmpXSoff = (0); PL_stack_sp = PL_stack_base
+ ax + (tmpXSoff - 1); return; } ); } );
1572}
1573
1574
1575XS(XS_Irssi_pidwait_remove)void XS_Irssi_pidwait_remove( CV* cv __attribute__((unused))); /* prototype to pass -Wmissing-prototypes */
1576XS(XS_Irssi_pidwait_remove)void XS_Irssi_pidwait_remove( CV* cv __attribute__((unused)))
1577{
1578#ifdef dVAR
1579 dVAR; dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
1580#else
1581 dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
1582#endif
1583 if (items != 1)
1584 Perl_croak(aTHX_ "Usage: %s(%s)", "Irssi::pidwait_remove", "pid");
1585 PERL_UNUSED_VAR(cv)((void)cv); /* -W */
1586 {
1587 int pid = (int)SvIV(ST(0))(((PL_stack_base[ax + (0)])->sv_flags & 0x00010000) ? (
(XPVIV*) (PL_stack_base[ax + (0)])->sv_any)->xiv_iv : Perl_sv_2iv_flags
(PL_stack_base[ax + (0)], 2));
1588
1589 pidwait_remove(pid);
1590 }
1591 XSRETURN_EMPTY(void)( { (void)( { const IV tmpXSoff = (0); PL_stack_sp = PL_stack_base
+ ax + (tmpXSoff - 1); return; } ); } );
1592}
1593
1594
1595XS(XS_Irssi_parse_special)void XS_Irssi_parse_special( CV* cv __attribute__((unused))); /* prototype to pass -Wmissing-prototypes */
1596XS(XS_Irssi_parse_special)void XS_Irssi_parse_special( CV* cv __attribute__((unused)))
1597{
1598#ifdef dVAR
1599 dVAR; dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
1600#else
1601 dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
1602#endif
1603 if (items < 1 || items > 3)
1604 Perl_croak(aTHX_ "Usage: %s(%s)", "Irssi::parse_special", "cmd, data=\"\", flags=0");
1605 PERL_UNUSED_VAR(cv)((void)cv); /* -W */
1606 PERL_UNUSED_VAR(ax)((void)ax); /* -Wall */
1607 SPsp -= items;
1608 {
1609 char * cmd = (char *)SvPV_nolen(ST(0))(((PL_stack_base[ax + (0)])->sv_flags & (0x00040000)) ==
0x00040000 ? ((XPV*) (PL_stack_base[ax + (0)])->sv_any)->
xpv_pv : Perl_sv_2pv_flags(PL_stack_base[ax + (0)], 0, 2));
1610 char * data;
1611 int flags;
1612#line 602 "Core.xs"
1613 char *ret;
1614#line 1615 "Core.c"
1615
1616 if (items < 2)
1617 data = "";
1618 else {
1619 data = (char *)SvPV_nolen(ST(1))(((PL_stack_base[ax + (1)])->sv_flags & (0x00040000)) ==
0x00040000 ? ((XPV*) (PL_stack_base[ax + (1)])->sv_any)->
xpv_pv : Perl_sv_2pv_flags(PL_stack_base[ax + (1)], 0, 2));
1620 }
1621
1622 if (items < 3)
1623 flags = 0;
1624 else {
1625 flags = (int)SvIV(ST(2))(((PL_stack_base[ax + (2)])->sv_flags & 0x00010000) ? (
(XPVIV*) (PL_stack_base[ax + (2)])->sv_any)->xiv_iv : Perl_sv_2iv_flags
(PL_stack_base[ax + (2)], 2));
1626 }
1627#line 604 "Core.xs"
1628 ret = parse_special_string(cmd, NULL((void *)0), NULL((void *)0), data, NULL((void *)0), flags);
1629 XPUSHs(sv_2mortal(new_pv(ret)))(void)( { (void)( { if (PL_stack_max - sp < (int)(1)) { sp
= Perl_stack_grow(sp,sp, (int) (1)); } } ); (*++sp = (Perl_sv_2mortal
((Perl_newSVpv((ret) == ((void *)0) ? "" : (ret), (ret) == ((
void *)0) ? 0 : strlen(ret)))))); } );
1630 g_free_not_null(ret)g_free(ret);
1631#line 1632 "Core.c"
1632 PUTBACKPL_stack_sp = sp;
1633 return;
1634 }
1635}
1636
1637
1638XS(XS_Irssi_get_irssi_dir)void XS_Irssi_get_irssi_dir( CV* cv __attribute__((unused))); /* prototype to pass -Wmissing-prototypes */
1639XS(XS_Irssi_get_irssi_dir)void XS_Irssi_get_irssi_dir( CV* cv __attribute__((unused)))
1640{
1641#ifdef dVAR
1642 dVAR; dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
1643#else
1644 dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
1645#endif
1646 if (items != 0)
1647 Perl_croak(aTHX_ "Usage: %s(%s)", "Irssi::get_irssi_dir", "");
1648 PERL_UNUSED_VAR(cv)((void)cv); /* -W */
1649 {
1650 char * RETVAL;
1651 dXSTARGSV * const targ = ((PL_op->op_private & 32) ? (PL_curpad
[PL_op->op_targ]) : Perl_sv_newmortal());
1652#line 611 "Core.xs"
1653 RETVAL = (char *) get_irssi_dir();
1654#line 1655 "Core.c"
1655 sv_setpvPerl_sv_setpv(TARGtarg, RETVAL); XSprePUSH(sp = PL_stack_base + ax - 1); PUSHTARG(void)( { (void)( { if (((targ)->sv_flags & 0x00004000
)) Perl_mg_set(targ); } ); (*++sp = (targ)); } );
1656 }
1657 XSRETURN(1)(void)( { const IV tmpXSoff = (1); PL_stack_sp = PL_stack_base
+ ax + (tmpXSoff - 1); return; } );
1658}
1659
1660
1661XS(XS_Irssi_get_irssi_config)void XS_Irssi_get_irssi_config( CV* cv __attribute__((unused)
)); /* prototype to pass -Wmissing-prototypes */
1662XS(XS_Irssi_get_irssi_config)void XS_Irssi_get_irssi_config( CV* cv __attribute__((unused)
))
1663{
1664#ifdef dVAR
1665 dVAR; dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
1666#else
1667 dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
1668#endif
1669 if (items != 0)
1670 Perl_croak(aTHX_ "Usage: %s(%s)", "Irssi::get_irssi_config", "");
1671 PERL_UNUSED_VAR(cv)((void)cv); /* -W */
1672 {
1673 char * RETVAL;
1674 dXSTARGSV * const targ = ((PL_op->op_private & 32) ? (PL_curpad
[PL_op->op_targ]) : Perl_sv_newmortal());
1675#line 618 "Core.xs"
1676 RETVAL = (char *) get_irssi_config();
1677#line 1678 "Core.c"
1678 sv_setpvPerl_sv_setpv(TARGtarg, RETVAL); XSprePUSH(sp = PL_stack_base + ax - 1); PUSHTARG(void)( { (void)( { if (((targ)->sv_flags & 0x00004000
)) Perl_mg_set(targ); } ); (*++sp = (targ)); } );
1679 }
1680 XSRETURN(1)(void)( { const IV tmpXSoff = (1); PL_stack_sp = PL_stack_base
+ ax + (tmpXSoff - 1); return; } );
1681}
1682
1683
1684XS(XS_Irssi_get_irssi_binary)void XS_Irssi_get_irssi_binary( CV* cv __attribute__((unused)
)); /* prototype to pass -Wmissing-prototypes */
1685XS(XS_Irssi_get_irssi_binary)void XS_Irssi_get_irssi_binary( CV* cv __attribute__((unused)
))
1686{
1687#ifdef dVAR
1688 dVAR; dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
1689#else
1690 dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
1691#endif
1692 if (items != 0)
1693 Perl_croak(aTHX_ "Usage: %s(%s)", "Irssi::get_irssi_binary", "");
1694 PERL_UNUSED_VAR(cv)((void)cv); /* -W */
1695 {
1696 char * RETVAL;
1697 dXSTARGSV * const targ = ((PL_op->op_private & 32) ? (PL_curpad
[PL_op->op_targ]) : Perl_sv_newmortal());
1698#line 625 "Core.xs"
1699 RETVAL = irssi_binary;
1700#line 1701 "Core.c"
1701 sv_setpvPerl_sv_setpv(TARGtarg, RETVAL); XSprePUSH(sp = PL_stack_base + ax - 1); PUSHTARG(void)( { (void)( { if (((targ)->sv_flags & 0x00004000
)) Perl_mg_set(targ); } ); (*++sp = (targ)); } );
1702 }
1703 XSRETURN(1)(void)( { const IV tmpXSoff = (1); PL_stack_sp = PL_stack_base
+ ax + (tmpXSoff - 1); return; } );
1704}
1705
1706
1707XS(XS_Irssi_version)void XS_Irssi_version( CV* cv __attribute__((unused))); /* prototype to pass -Wmissing-prototypes */
1708XS(XS_Irssi_version)void XS_Irssi_version( CV* cv __attribute__((unused)))
1709{
1710#ifdef dVAR
1711 dVAR; dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
1712#else
1713 dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
1714#endif
1715 if (items != 0)
1716 Perl_croak(aTHX_ "Usage: %s(%s)", "Irssi::version", "");
1717 PERL_UNUSED_VAR(cv)((void)cv); /* -W */
1718 {
1719#line 632 "Core.xs"
1720 char version[100];
1721#line 1722 "Core.c"
1722 char * RETVAL;
1723 dXSTARGSV * const targ = ((PL_op->op_private & 32) ? (PL_curpad
[PL_op->op_targ]) : Perl_sv_newmortal());
1724#line 634 "Core.xs"
1725 g_snprintf(version, sizeof(version), "%d.%04d",
1726 IRSSI_VERSION_DATE20090227, IRSSI_VERSION_TIME1532);
1727 RETVAL = version;
1728#line 1729 "Core.c"
1729 sv_setpvPerl_sv_setpv(TARGtarg, RETVAL); XSprePUSH(sp = PL_stack_base + ax - 1); PUSHTARG(void)( { (void)( { if (((targ)->sv_flags & 0x00004000
)) Perl_mg_set(targ); } ); (*++sp = (targ)); } );
1730 }
1731 XSRETURN(1)(void)( { const IV tmpXSoff = (1); PL_stack_sp = PL_stack_base
+ ax + (tmpXSoff - 1); return; } );
1732}
1733
1734
1735XS(XS_Irssi_get_gui)void XS_Irssi_get_gui( CV* cv __attribute__((unused))); /* prototype to pass -Wmissing-prototypes */
1736XS(XS_Irssi_get_gui)void XS_Irssi_get_gui( CV* cv __attribute__((unused)))
1737{
1738#ifdef dVAR
1739 dVAR; dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
1740#else
1741 dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
1742#endif
1743 if (items != 0)
1744 Perl_croak(aTHX_ "Usage: %s(%s)", "Irssi::get_gui", "");
1745 PERL_UNUSED_VAR(cv)((void)cv); /* -W */
1746 {
1747 int RETVAL;
1748 dXSTARGSV * const targ = ((PL_op->op_private & 32) ? (PL_curpad
[PL_op->op_targ]) : Perl_sv_newmortal());
1749#line 643 "Core.xs"
1750 RETVAL = irssi_gui;
1751#line 1752 "Core.c"
1752 XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)(void)( { Perl_sv_setiv(targ, (IV)((IV)RETVAL)); (void)( { (void
)( { if (((targ)->sv_flags & 0x00004000)) Perl_mg_set(
targ); } ); (*++sp = (targ)); } ); } );
1753 }
1754 XSRETURN(1)(void)( { const IV tmpXSoff = (1); PL_stack_sp = PL_stack_base
+ ax + (tmpXSoff - 1); return; } );
1755}
1756
1757
1758XS(XS_Irssi_IRSSI_GUI_NONE)void XS_Irssi_IRSSI_GUI_NONE( CV* cv __attribute__((unused))); /* prototype to pass -Wmissing-prototypes */
1759XS(XS_Irssi_IRSSI_GUI_NONE)void XS_Irssi_IRSSI_GUI_NONE( CV* cv __attribute__((unused)))
1760{
1761#ifdef dVAR
1762 dVAR; dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
1763#else
1764 dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
1765#endif
1766 if (items != 0)
1767 Perl_croak(aTHX_ "Usage: %s(%s)", "Irssi::IRSSI_GUI_NONE", "");
1768 PERL_UNUSED_VAR(cv)((void)cv); /* -W */
1769 {
1770 int RETVAL;
1771 dXSTARGSV * const targ = ((PL_op->op_private & 32) ? (PL_curpad
[PL_op->op_targ]) : Perl_sv_newmortal());
1772#line 650 "Core.xs"
1773 RETVAL = IRSSI_GUI_NONE0;
1774#line 1775 "Core.c"
1775 XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)(void)( { Perl_sv_setiv(targ, (IV)((IV)RETVAL)); (void)( { (void
)( { if (((targ)->sv_flags & 0x00004000)) Perl_mg_set(
targ); } ); (*++sp = (targ)); } ); } );
1776 }
1777 XSRETURN(1)(void)( { const IV tmpXSoff = (1); PL_stack_sp = PL_stack_base
+ ax + (tmpXSoff - 1); return; } );
1778}
1779
1780
1781XS(XS_Irssi_IRSSI_GUI_TEXT)void XS_Irssi_IRSSI_GUI_TEXT( CV* cv __attribute__((unused))); /* prototype to pass -Wmissing-prototypes */
1782XS(XS_Irssi_IRSSI_GUI_TEXT)void XS_Irssi_IRSSI_GUI_TEXT( CV* cv __attribute__((unused)))
1783{
1784#ifdef dVAR
1785 dVAR; dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
1786#else
1787 dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
1788#endif
1789 if (items != 0)
1790 Perl_croak(aTHX_ "Usage: %s(%s)", "Irssi::IRSSI_GUI_TEXT", "");
1791 PERL_UNUSED_VAR(cv)((void)cv); /* -W */
1792 {
1793 int RETVAL;
1794 dXSTARGSV * const targ = ((PL_op->op_private & 32) ? (PL_curpad
[PL_op->op_targ]) : Perl_sv_newmortal());
1795#line 657 "Core.xs"
1796 RETVAL = IRSSI_GUI_TEXT1;
1797#line 1798 "Core.c"
1798 XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)(void)( { Perl_sv_setiv(targ, (IV)((IV)RETVAL)); (void)( { (void
)( { if (((targ)->sv_flags & 0x00004000)) Perl_mg_set(
targ); } ); (*++sp = (targ)); } ); } );
1799 }
1800 XSRETURN(1)(void)( { const IV tmpXSoff = (1); PL_stack_sp = PL_stack_base
+ ax + (tmpXSoff - 1); return; } );
1801}
1802
1803
1804XS(XS_Irssi_IRSSI_GUI_GTK)void XS_Irssi_IRSSI_GUI_GTK( CV* cv __attribute__((unused))); /* prototype to pass -Wmissing-prototypes */
1805XS(XS_Irssi_IRSSI_GUI_GTK)void XS_Irssi_IRSSI_GUI_GTK( CV* cv __attribute__((unused)))
1806{
1807#ifdef dVAR
1808 dVAR; dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
1809#else
1810 dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
1811#endif
1812 if (items != 0)
1813 Perl_croak(aTHX_ "Usage: %s(%s)", "Irssi::IRSSI_GUI_GTK", "");
1814 PERL_UNUSED_VAR(cv)((void)cv); /* -W */
1815 {
1816 int RETVAL;
1817 dXSTARGSV * const targ = ((PL_op->op_private & 32) ? (PL_curpad
[PL_op->op_targ]) : Perl_sv_newmortal());
1818#line 664 "Core.xs"
1819 RETVAL = IRSSI_GUI_GTK2;
1820#line 1821 "Core.c"
1821 XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)(void)( { Perl_sv_setiv(targ, (IV)((IV)RETVAL)); (void)( { (void
)( { if (((targ)->sv_flags & 0x00004000)) Perl_mg_set(
targ); } ); (*++sp = (targ)); } ); } );
1822 }
1823 XSRETURN(1)(void)( { const IV tmpXSoff = (1); PL_stack_sp = PL_stack_base
+ ax + (tmpXSoff - 1); return; } );
1824}
1825
1826
1827XS(XS_Irssi_IRSSI_GUI_GNOME)void XS_Irssi_IRSSI_GUI_GNOME( CV* cv __attribute__((unused))
); /* prototype to pass -Wmissing-prototypes */
1828XS(XS_Irssi_IRSSI_GUI_GNOME)void XS_Irssi_IRSSI_GUI_GNOME( CV* cv __attribute__((unused))
)
1829{
1830#ifdef dVAR
1831 dVAR; dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
1832#else
1833 dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
1834#endif
1835 if (items != 0)
1836 Perl_croak(aTHX_ "Usage: %s(%s)", "Irssi::IRSSI_GUI_GNOME", "");
1837 PERL_UNUSED_VAR(cv)((void)cv); /* -W */
1838 {
1839 int RETVAL;
1840 dXSTARGSV * const targ = ((PL_op->op_private & 32) ? (PL_curpad
[PL_op->op_targ]) : Perl_sv_newmortal());
1841#line 671 "Core.xs"
1842 RETVAL = IRSSI_GUI_GNOME3;
1843#line 1844 "Core.c"
1844 XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)(void)( { Perl_sv_setiv(targ, (IV)((IV)RETVAL)); (void)( { (void
)( { if (((targ)->sv_flags & 0x00004000)) Perl_mg_set(
targ); } ); (*++sp = (targ)); } ); } );
1845 }
1846 XSRETURN(1)(void)( { const IV tmpXSoff = (1); PL_stack_sp = PL_stack_base
+ ax + (tmpXSoff - 1); return; } );
1847}
1848
1849
1850XS(XS_Irssi_IRSSI_GUI_QT)void XS_Irssi_IRSSI_GUI_QT( CV* cv __attribute__((unused))); /* prototype to pass -Wmissing-prototypes */
1851XS(XS_Irssi_IRSSI_GUI_QT)void XS_Irssi_IRSSI_GUI_QT( CV* cv __attribute__((unused)))
1852{
1853#ifdef dVAR
1854 dVAR; dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
1855#else
1856 dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
1857#endif
1858 if (items != 0)
1859 Perl_croak(aTHX_ "Usage: %s(%s)", "Irssi::IRSSI_GUI_QT", "");
1860 PERL_UNUSED_VAR(cv)((void)cv); /* -W */
1861 {
1862 int RETVAL;
1863 dXSTARGSV * const targ = ((PL_op->op_private & 32) ? (PL_curpad
[PL_op->op_targ]) : Perl_sv_newmortal());
1864#line 678 "Core.xs"
1865 RETVAL = IRSSI_GUI_QT4;
1866#line 1867 "Core.c"
1867 XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)(void)( { Perl_sv_setiv(targ, (IV)((IV)RETVAL)); (void)( { (void
)( { if (((targ)->sv_flags & 0x00004000)) Perl_mg_set(
targ); } ); (*++sp = (targ)); } ); } );
1868 }
1869 XSRETURN(1)(void)( { const IV tmpXSoff = (1); PL_stack_sp = PL_stack_base
+ ax + (tmpXSoff - 1); return; } );
1870}
1871
1872
1873XS(XS_Irssi_IRSSI_GUI_KDE)void XS_Irssi_IRSSI_GUI_KDE( CV* cv __attribute__((unused))); /* prototype to pass -Wmissing-prototypes */
1874XS(XS_Irssi_IRSSI_GUI_KDE)void XS_Irssi_IRSSI_GUI_KDE( CV* cv __attribute__((unused)))
1875{
1876#ifdef dVAR
1877 dVAR; dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
1878#else
1879 dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
1880#endif
1881 if (items != 0)
1882 Perl_croak(aTHX_ "Usage: %s(%s)", "Irssi::IRSSI_GUI_KDE", "");
1883 PERL_UNUSED_VAR(cv)((void)cv); /* -W */
1884 {
1885 int RETVAL;
1886 dXSTARGSV * const targ = ((PL_op->op_private & 32) ? (PL_curpad
[PL_op->op_targ]) : Perl_sv_newmortal());
1887#line 685 "Core.xs"
1888 RETVAL = IRSSI_GUI_KDE5;
1889#line 1890 "Core.c"
1890 XSprePUSH(sp = PL_stack_base + ax - 1); PUSHi((IV)RETVAL)(void)( { Perl_sv_setiv(targ, (IV)((IV)RETVAL)); (void)( { (void
)( { if (((targ)->sv_flags & 0x00004000)) Perl_mg_set(
targ); } ); (*++sp = (targ)); } ); } );
1891 }
1892 XSRETURN(1)(void)( { const IV tmpXSoff = (1); PL_stack_sp = PL_stack_base
+ ax + (tmpXSoff - 1); return; } );
1893}
1894
1895
1896XS(XS_Irssi__Server_parse_special)void XS_Irssi__Server_parse_special( CV* cv __attribute__((unused
))); /* prototype to pass -Wmissing-prototypes */
1897XS(XS_Irssi__Server_parse_special)void XS_Irssi__Server_parse_special( CV* cv __attribute__((unused
)))
1898{
1899#ifdef dVAR
1900 dVAR; dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
1901#else
1902 dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
1903#endif
1904 if (items < 2 || items > 4)
1905 Perl_croak(aTHX_ "Usage: %s(%s)", "Irssi::Server::parse_special", "server, cmd, data=\"\", flags=0");
1906 PERL_UNUSED_VAR(cv)((void)cv); /* -W */
1907 PERL_UNUSED_VAR(ax)((void)ax); /* -Wall */
1908 SPsp -= items;
1909 {
1910 Irssi__Server server = irssi_ref_object(ST(0)PL_stack_base[ax + (0)]);
1911 char * cmd = (char *)SvPV_nolen(ST(1))(((PL_stack_base[ax + (1)])->sv_flags & (0x00040000)) ==
0x00040000 ? ((XPV*) (PL_stack_base[ax + (1)])->sv_any)->
xpv_pv : Perl_sv_2pv_flags(PL_stack_base[ax + (1)], 0, 2));
1912 char * data;
1913 int flags;
1914#line 700 "Core.xs"
1915 char *ret;
1916#line 1917 "Core.c"
1917
1918 if (items < 3)
1919 data = "";
1920 else {
1921 data = (char *)SvPV_nolen(ST(2))(((PL_stack_base[ax + (2)])->sv_flags & (0x00040000)) ==
0x00040000 ? ((XPV*) (PL_stack_base[ax + (2)])->sv_any)->
xpv_pv : Perl_sv_2pv_flags(PL_stack_base[ax + (2)], 0, 2));
1922 }
1923
1924 if (items < 4)
1925 flags = 0;
1926 else {
1927 flags = (int)SvIV(ST(3))(((PL_stack_base[ax + (3)])->sv_flags & 0x00010000) ? (
(XPVIV*) (PL_stack_base[ax + (3)])->sv_any)->xiv_iv : Perl_sv_2iv_flags
(PL_stack_base[ax + (3)], 2));
1928 }
1929#line 702 "Core.xs"
1930 ret = parse_special_string(cmd, server, NULL((void *)0), data, NULL((void *)0), flags);
1931 XPUSHs(sv_2mortal(new_pv(ret)))(void)( { (void)( { if (PL_stack_max - sp < (int)(1)) { sp
= Perl_stack_grow(sp,sp, (int) (1)); } } ); (*++sp = (Perl_sv_2mortal
((Perl_newSVpv((ret) == ((void *)0) ? "" : (ret), (ret) == ((
void *)0) ? 0 : strlen(ret)))))); } );
1932 g_free_not_null(ret)g_free(ret);
1933#line 1934 "Core.c"
1934 PUTBACKPL_stack_sp = sp;
1935 return;
1936 }
1937}
1938
1939
1940XS(XS_Irssi__Server_command)void XS_Irssi__Server_command( CV* cv __attribute__((unused))
); /* prototype to pass -Wmissing-prototypes */
1941XS(XS_Irssi__Server_command)void XS_Irssi__Server_command( CV* cv __attribute__((unused))
)
1942{
1943#ifdef dVAR
1944 dVAR; dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
1945#else
1946 dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
1947#endif
1948 if (items != 2)
1949 Perl_croak(aTHX_ "Usage: %s(%s)", "Irssi::Server::command", "server, cmd");
1950 PERL_UNUSED_VAR(cv)((void)cv); /* -W */
1951 {
1952 Irssi__Server server = irssi_ref_object(ST(0)PL_stack_base[ax + (0)]);
1953 char * cmd = (char *)SvPV_nolen(ST(1))(((PL_stack_base[ax + (1)])->sv_flags & (0x00040000)) ==
0x00040000 ? ((XPV*) (PL_stack_base[ax + (1)])->sv_any)->
xpv_pv : Perl_sv_2pv_flags(PL_stack_base[ax + (1)], 0, 2));
1954#line 711 "Core.xs"
1955 perl_command(cmd, server, NULL((void *)0));
1956#line 1957 "Core.c"
1957 }
1958 XSRETURN_EMPTY(void)( { (void)( { const IV tmpXSoff = (0); PL_stack_sp = PL_stack_base
+ ax + (tmpXSoff - 1); return; } ); } );
1959}
1960
1961
1962XS(XS_Irssi__Windowitem_parse_special)void XS_Irssi__Windowitem_parse_special( CV* cv __attribute__
((unused))); /* prototype to pass -Wmissing-prototypes */
1963XS(XS_Irssi__Windowitem_parse_special)void XS_Irssi__Windowitem_parse_special( CV* cv __attribute__
((unused)))
1964{
1965#ifdef dVAR
1966 dVAR; dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
1967#else
1968 dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
1969#endif
1970 if (items < 2 || items > 4)
1971 Perl_croak(aTHX_ "Usage: %s(%s)", "Irssi::Windowitem::parse_special", "item, cmd, data=\"\", flags=0");
1972 PERL_UNUSED_VAR(cv)((void)cv); /* -W */
1973 PERL_UNUSED_VAR(ax)((void)ax); /* -Wall */
1974 SPsp -= items;
1975 {
1976 Irssi__Windowitem item = irssi_ref_object(ST(0)PL_stack_base[ax + (0)]);
1977 char * cmd = (char *)SvPV_nolen(ST(1))(((PL_stack_base[ax + (1)])->sv_flags & (0x00040000)) ==
0x00040000 ? ((XPV*) (PL_stack_base[ax + (1)])->sv_any)->
xpv_pv : Perl_sv_2pv_flags(PL_stack_base[ax + (1)], 0, 2));
1978 char * data;
1979 int flags;
1980#line 725 "Core.xs"
1981 char *ret;
1982#line 1983 "Core.c"
1983
1984 if (items < 3)
1985 data = "";
1986 else {
1987 data = (char *)SvPV_nolen(ST(2))(((PL_stack_base[ax + (2)])->sv_flags & (0x00040000)) ==
0x00040000 ? ((XPV*) (PL_stack_base[ax + (2)])->sv_any)->
xpv_pv : Perl_sv_2pv_flags(PL_stack_base[ax + (2)], 0, 2));
1988 }
1989
1990 if (items < 4)
1991 flags = 0;
1992 else {
1993 flags = (int)SvIV(ST(3))(((PL_stack_base[ax + (3)])->sv_flags & 0x00010000) ? (
(XPVIV*) (PL_stack_base[ax + (3)])->sv_any)->xiv_iv : Perl_sv_2iv_flags
(PL_stack_base[ax + (3)], 2));
1994 }
1995#line 727 "Core.xs"
1996 ret = parse_special_string(cmd, item->server, item, data, NULL((void *)0), flags);
1997 XPUSHs(sv_2mortal(new_pv(ret)))(void)( { (void)( { if (PL_stack_max - sp < (int)(1)) { sp
= Perl_stack_grow(sp,sp, (int) (1)); } } ); (*++sp = (Perl_sv_2mortal
((Perl_newSVpv((ret) == ((void *)0) ? "" : (ret), (ret) == ((
void *)0) ? 0 : strlen(ret)))))); } );
1998 g_free_not_null(ret)g_free(ret);
1999#line 2000 "Core.c"
2000 PUTBACKPL_stack_sp = sp;
2001 return;
2002 }
2003}
2004
2005
2006XS(XS_Irssi__Windowitem_command)void XS_Irssi__Windowitem_command( CV* cv __attribute__((unused
))); /* prototype to pass -Wmissing-prototypes */
2007XS(XS_Irssi__Windowitem_command)void XS_Irssi__Windowitem_command( CV* cv __attribute__((unused
)))
2008{
2009#ifdef dVAR
2010 dVAR; dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
2011#else
2012 dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
2013#endif
2014 if (items != 2)
2015 Perl_croak(aTHX_ "Usage: %s(%s)", "Irssi::Windowitem::command", "item, cmd");
2016 PERL_UNUSED_VAR(cv)((void)cv); /* -W */
2017 {
2018 Irssi__Windowitem item = irssi_ref_object(ST(0)PL_stack_base[ax + (0)]);
2019 char * cmd = (char *)SvPV_nolen(ST(1))(((PL_stack_base[ax + (1)])->sv_flags & (0x00040000)) ==
0x00040000 ? ((XPV*) (PL_stack_base[ax + (1)])->sv_any)->
xpv_pv : Perl_sv_2pv_flags(PL_stack_base[ax + (1)], 0, 2));
2020#line 736 "Core.xs"
2021 perl_command(cmd, item->server, item);
2022#line 2023 "Core.c"
2023 }
2024 XSRETURN_EMPTY(void)( { (void)( { const IV tmpXSoff = (0); PL_stack_sp = PL_stack_base
+ ax + (tmpXSoff - 1); return; } ); } );
2025}
2026
2027#ifdef __cplusplus
2028extern "C"
2029#endif
2030XS(boot_Irssi__Core)void boot_Irssi__Core( CV* cv __attribute__((unused))); /* prototype to pass -Wmissing-prototypes */
2031XS(boot_Irssi__Core)void boot_Irssi__Core( CV* cv __attribute__((unused)))
2032{
2033#ifdef dVAR
2034 dVAR; dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
2035#else
2036 dXSARGSSV **sp = PL_stack_sp; I32 ax = (*PL_markstack_ptr--); register
SV **mark = PL_stack_base + ax++; I32 items = (I32)(sp - mark
);
2037#endif
2038 char* file = __FILE__"Core.c";
2039
2040 PERL_UNUSED_VAR(cv)((void)cv); /* -W */
2041 PERL_UNUSED_VAR(items)((void)items); /* -W */
2042 XS_VERSION_BOOTCHECK(void)( { SV *_sv; const char *vn = ((void *)0), *module = ((
(PL_stack_base[ax + (0)])->sv_flags & (0x00040000)) ==
0x00040000 ? ((const char*) (0 + ((XPV*) (PL_stack_base[ax +
(0)])->sv_any)->xpv_pv)) : Perl_sv_2pv_flags(PL_stack_base
[ax + (0)], 0, 2|32)); if (items >= 2) _sv = PL_stack_base
[ax + (1)]; else { _sv = Perl_get_sv(Perl_form( "%s::%s", module
, vn = "XS_VERSION"), (0)); if (!_sv || !((_sv)->sv_flags &
(0x00010000|0x00020000|0x00040000|0x00080000| 0x01000000|0x02000000
|0x04000000))) _sv = Perl_get_sv(Perl_form( "%s::%s", module,
vn = "VERSION"), (0)); } if (_sv && (!((_sv)->sv_flags
& (0x00010000|0x00020000|0x00040000|0x00080000| 0x01000000
|0x02000000|0x04000000)) || (strcmp("0.9",(((_sv)->sv_flags
& (0x00040000)) == 0x00040000 ? ((const char*) (0 + ((XPV
*) (_sv)->sv_any)->xpv_pv)) : Perl_sv_2pv_flags(_sv, 0,
2|32)))))) Perl_croak( "%s object version %s does not match %s%s%s%s %"
"_", module, "0.9", vn ? "$" : "", vn ? module : "", vn ? "::"
: "", vn ? vn : "bootstrap parameter", _sv); } ) ;
2043
2044 newXSproto("Irssi::signal_emit", XS_Irssi_signal_emit, file, "$;@")Perl_newXS_flags("Irssi::signal_emit",XS_Irssi_signal_emit,file
,"$;@",0);
2045 newXSproto("Irssi::signal_continue", XS_Irssi_signal_continue, file, ";@")Perl_newXS_flags("Irssi::signal_continue",XS_Irssi_signal_continue
,file,";@",0);
2046 newXSproto("Irssi::signal_add", XS_Irssi_signal_add, file, ";@")Perl_newXS_flags("Irssi::signal_add",XS_Irssi_signal_add,file
,";@",0);
2047 newXSproto("Irssi::signal_add_first", XS_Irssi_signal_add_first, file, ";@")Perl_newXS_flags("Irssi::signal_add_first",XS_Irssi_signal_add_first
,file,";@",0);
2048 newXSproto("Irssi::signal_add_last", XS_Irssi_signal_add_last, file, ";@")Perl_newXS_flags("Irssi::signal_add_last",XS_Irssi_signal_add_last
,file,";@",0);
2049 newXSproto("Irssi::signal_add_priority", XS_Irssi_signal_add_priority, file, ";@")Perl_newXS_flags("Irssi::signal_add_priority",XS_Irssi_signal_add_priority
,file,";@",0);
2050 newXSproto("Irssi::signal_register", XS_Irssi_signal_register, file, ";@")Perl_newXS_flags("Irssi::signal_register",XS_Irssi_signal_register
,file,";@",0);
2051 newXSproto("Irssi::SIGNAL_PRIORITY_LOW", XS_Irssi_SIGNAL_PRIORITY_LOW, file, "")Perl_newXS_flags("Irssi::SIGNAL_PRIORITY_LOW",XS_Irssi_SIGNAL_PRIORITY_LOW
,file,"",0);
2052 newXSproto("Irssi::SIGNAL_PRIORITY_DEFAULT", XS_Irssi_SIGNAL_PRIORITY_DEFAULT, file, "")Perl_newXS_flags("Irssi::SIGNAL_PRIORITY_DEFAULT",XS_Irssi_SIGNAL_PRIORITY_DEFAULT
,file,"",0);
2053 newXSproto("Irssi::SIGNAL_PRIORITY_HIGH", XS_Irssi_SIGNAL_PRIORITY_HIGH, file, "")Perl_newXS_flags("Irssi::SIGNAL_PRIORITY_HIGH",XS_Irssi_SIGNAL_PRIORITY_HIGH
,file,"",0);
2054 newXSproto("Irssi::signal_remove", XS_Irssi_signal_remove, file, "$$")Perl_newXS_flags("Irssi::signal_remove",XS_Irssi_signal_remove
,file,"$$",0);
2055 newXSproto("Irssi::signal_stop", XS_Irssi_signal_stop, file, "")Perl_newXS_flags("Irssi::signal_stop",XS_Irssi_signal_stop,file
,"",0);
2056 newXSproto("Irssi::signal_stop_by_name", XS_Irssi_signal_stop_by_name, file, "$")Perl_newXS_flags("Irssi::signal_stop_by_name",XS_Irssi_signal_stop_by_name
,file,"$",0);
2057 newXSproto("Irssi::signal_get_emitted", XS_Irssi_signal_get_emitted, file, "")Perl_newXS_flags("Irssi::signal_get_emitted",XS_Irssi_signal_get_emitted
,file,"",0);
2058 newXSproto("Irssi::signal_get_emitted_id", XS_Irssi_signal_get_emitted_id, file, "")Perl_newXS_flags("Irssi::signal_get_emitted_id",XS_Irssi_signal_get_emitted_id
,file,"",0);
2059 newXSproto("Irssi::timeout_add", XS_Irssi_timeout_add, file, "$$$")Perl_newXS_flags("Irssi::timeout_add",XS_Irssi_timeout_add,file
,"$$$",0);
2060 newXSproto("Irssi::timeout_add_once", XS_Irssi_timeout_add_once, file, "$$$")Perl_newXS_flags("Irssi::timeout_add_once",XS_Irssi_timeout_add_once
,file,"$$$",0);
2061 newXSproto("Irssi::timeout_remove", XS_Irssi_timeout_remove, file, "$")Perl_newXS_flags("Irssi::timeout_remove",XS_Irssi_timeout_remove
,file,"$",0);
2062 newXSproto("Irssi::INPUT_READ", XS_Irssi_INPUT_READ, file, "")Perl_newXS_flags("Irssi::INPUT_READ",XS_Irssi_INPUT_READ,file
,"",0);
2063 newXSproto("Irssi::INPUT_WRITE", XS_Irssi_INPUT_WRITE, file, "")Perl_newXS_flags("Irssi::INPUT_WRITE",XS_Irssi_INPUT_WRITE,file
,"",0);
2064 newXSproto("Irssi::input_add", XS_Irssi_input_add, file, "$$$$")Perl_newXS_flags("Irssi::input_add",XS_Irssi_input_add,file,"$$$$"
,0);
2065 newXSproto("Irssi::input_remove", XS_Irssi_input_remove, file, "$")Perl_newXS_flags("Irssi::input_remove",XS_Irssi_input_remove,
file,"$",0);
2066 newXSproto("Irssi::MSGLEVEL_CRAP", XS_Irssi_MSGLEVEL_CRAP, file, "")Perl_newXS_flags("Irssi::MSGLEVEL_CRAP",XS_Irssi_MSGLEVEL_CRAP
,file,"",0);
2067 newXSproto("Irssi::MSGLEVEL_MSGS", XS_Irssi_MSGLEVEL_MSGS, file, "")Perl_newXS_flags("Irssi::MSGLEVEL_MSGS",XS_Irssi_MSGLEVEL_MSGS
,file,"",0);
2068 newXSproto("Irssi::MSGLEVEL_PUBLIC", XS_Irssi_MSGLEVEL_PUBLIC, file, "")Perl_newXS_flags("Irssi::MSGLEVEL_PUBLIC",XS_Irssi_MSGLEVEL_PUBLIC
,file,"",0);
2069 newXSproto("Irssi::MSGLEVEL_NOTICES", XS_Irssi_MSGLEVEL_NOTICES, file, "")Perl_newXS_flags("Irssi::MSGLEVEL_NOTICES",XS_Irssi_MSGLEVEL_NOTICES
,file,"",0);
2070 newXSproto("Irssi::MSGLEVEL_SNOTES", XS_Irssi_MSGLEVEL_SNOTES, file, "")Perl_newXS_flags("Irssi::MSGLEVEL_SNOTES",XS_Irssi_MSGLEVEL_SNOTES
,file,"",0);
2071 newXSproto("Irssi::MSGLEVEL_CTCPS", XS_Irssi_MSGLEVEL_CTCPS, file, "")Perl_newXS_flags("Irssi::MSGLEVEL_CTCPS",XS_Irssi_MSGLEVEL_CTCPS
,file,"",0);
2072 newXSproto("Irssi::MSGLEVEL_ACTIONS", XS_Irssi_MSGLEVEL_ACTIONS, file, "")Perl_newXS_flags("Irssi::MSGLEVEL_ACTIONS",XS_Irssi_MSGLEVEL_ACTIONS
,file,"",0);
2073 newXSproto("Irssi::MSGLEVEL_JOINS", XS_Irssi_MSGLEVEL_JOINS, file, "")Perl_newXS_flags("Irssi::MSGLEVEL_JOINS",XS_Irssi_MSGLEVEL_JOINS
,file,"",0);
2074 newXSproto("Irssi::MSGLEVEL_PARTS", XS_Irssi_MSGLEVEL_PARTS, file, "")Perl_newXS_flags("Irssi::MSGLEVEL_PARTS",XS_Irssi_MSGLEVEL_PARTS
,file,"",0);
2075 newXSproto("Irssi::MSGLEVEL_QUITS", XS_Irssi_MSGLEVEL_QUITS, file, "")Perl_newXS_flags("Irssi::MSGLEVEL_QUITS",XS_Irssi_MSGLEVEL_QUITS
,file,"",0);
2076 newXSproto("Irssi::MSGLEVEL_KICKS", XS_Irssi_MSGLEVEL_KICKS, file, "")Perl_newXS_flags("Irssi::MSGLEVEL_KICKS",XS_Irssi_MSGLEVEL_KICKS
,file,"",0);
2077 newXSproto("Irssi::MSGLEVEL_MODES", XS_Irssi_MSGLEVEL_MODES, file, "")Perl_newXS_flags("Irssi::MSGLEVEL_MODES",XS_Irssi_MSGLEVEL_MODES
,file,"",0);
2078 newXSproto("Irssi::MSGLEVEL_TOPICS", XS_Irssi_MSGLEVEL_TOPICS, file, "")Perl_newXS_flags("Irssi::MSGLEVEL_TOPICS",XS_Irssi_MSGLEVEL_TOPICS
,file,"",0);
2079 newXSproto("Irssi::MSGLEVEL_WALLOPS", XS_Irssi_MSGLEVEL_WALLOPS, file, "")Perl_newXS_flags("Irssi::MSGLEVEL_WALLOPS",XS_Irssi_MSGLEVEL_WALLOPS
,file,"",0);
2080 newXSproto("Irssi::MSGLEVEL_INVITES", XS_Irssi_MSGLEVEL_INVITES, file, "")Perl_newXS_flags("Irssi::MSGLEVEL_INVITES",XS_Irssi_MSGLEVEL_INVITES
,file,"",0);
2081 newXSproto("Irssi::MSGLEVEL_NICKS", XS_Irssi_MSGLEVEL_NICKS, file, "")Perl_newXS_flags("Irssi::MSGLEVEL_NICKS",XS_Irssi_MSGLEVEL_NICKS
,file,"",0);
2082 newXSproto("Irssi::MSGLEVEL_DCC", XS_Irssi_MSGLEVEL_DCC, file, "")Perl_newXS_flags("Irssi::MSGLEVEL_DCC",XS_Irssi_MSGLEVEL_DCC,
file,"",0);
2083 newXSproto("Irssi::MSGLEVEL_DCCMSGS", XS_Irssi_MSGLEVEL_DCCMSGS, file, "")Perl_newXS_flags("Irssi::MSGLEVEL_DCCMSGS",XS_Irssi_MSGLEVEL_DCCMSGS
,file,"",0);
2084 newXSproto("Irssi::MSGLEVEL_CLIENTNOTICE", XS_Irssi_MSGLEVEL_CLIENTNOTICE, file, "")Perl_newXS_flags("Irssi::MSGLEVEL_CLIENTNOTICE",XS_Irssi_MSGLEVEL_CLIENTNOTICE
,file,"",0);
2085 newXSproto("Irssi::MSGLEVEL_CLIENTCRAP", XS_Irssi_MSGLEVEL_CLIENTCRAP, file, "")Perl_newXS_flags("Irssi::MSGLEVEL_CLIENTCRAP",XS_Irssi_MSGLEVEL_CLIENTCRAP
,file,"",0);
2086 newXSproto("Irssi::MSGLEVEL_CLIENTERROR", XS_Irssi_MSGLEVEL_CLIENTERROR, file, "")Perl_newXS_flags("Irssi::MSGLEVEL_CLIENTERROR",XS_Irssi_MSGLEVEL_CLIENTERROR
,file,"",0);
2087 newXSproto("Irssi::MSGLEVEL_HILIGHT", XS_Irssi_MSGLEVEL_HILIGHT, file, "")Perl_newXS_flags("Irssi::MSGLEVEL_HILIGHT",XS_Irssi_MSGLEVEL_HILIGHT
,file,"",0);
2088 newXSproto("Irssi::MSGLEVEL_ALL", XS_Irssi_MSGLEVEL_ALL, file, "")Perl_newXS_flags("Irssi::MSGLEVEL_ALL",XS_Irssi_MSGLEVEL_ALL,
file,"",0);
2089 newXSproto("Irssi::MSGLEVEL_NOHILIGHT", XS_Irssi_MSGLEVEL_NOHILIGHT, file, "")Perl_newXS_flags("Irssi::MSGLEVEL_NOHILIGHT",XS_Irssi_MSGLEVEL_NOHILIGHT
,file,"",0);
2090 newXSproto("Irssi::MSGLEVEL_NO_ACT", XS_Irssi_MSGLEVEL_NO_ACT, file, "")Perl_newXS_flags("Irssi::MSGLEVEL_NO_ACT",XS_Irssi_MSGLEVEL_NO_ACT
,file,"",0);
2091 newXSproto("Irssi::MSGLEVEL_NEVER", XS_Irssi_MSGLEVEL_NEVER, file, "")Perl_newXS_flags("Irssi::MSGLEVEL_NEVER",XS_Irssi_MSGLEVEL_NEVER
,file,"",0);
2092 newXSproto("Irssi::MSGLEVEL_LASTLOG", XS_Irssi_MSGLEVEL_LASTLOG, file, "")Perl_newXS_flags("Irssi::MSGLEVEL_LASTLOG",XS_Irssi_MSGLEVEL_LASTLOG
,file,"",0);
2093 newXSproto("Irssi::level2bits", XS_Irssi_level2bits, file, "$")Perl_newXS_flags("Irssi::level2bits",XS_Irssi_level2bits,file
,"$",0);
2094 newXSproto("Irssi::bits2level", XS_Irssi_bits2level, file, "$")Perl_newXS_flags("Irssi::bits2level",XS_Irssi_bits2level,file
,"$",0);
2095 newXSproto("Irssi::combine_level", XS_Irssi_combine_level, file, "$$")Perl_newXS_flags("Irssi::combine_level",XS_Irssi_combine_level
,file,"$$",0);
2096 newXSproto("Irssi::command", XS_Irssi_command, file, "$")Perl_newXS_flags("Irssi::command",XS_Irssi_command,file,"$",0
);
2097 newXSproto("Irssi::commands", XS_Irssi_commands, file, "")Perl_newXS_flags("Irssi::commands",XS_Irssi_commands,file,"",
0);
2098 newXSproto("Irssi::command_bind_first", XS_Irssi_command_bind_first, file, ";@")Perl_newXS_flags("Irssi::command_bind_first",XS_Irssi_command_bind_first
,file,";@",0);
2099 newXSproto("Irssi::command_bind", XS_Irssi_command_bind, file, ";@")Perl_newXS_flags("Irssi::command_bind",XS_Irssi_command_bind,
file,";@",0);
2100 newXSproto("Irssi::command_bind_last", XS_Irssi_command_bind_last, file, ";@")Perl_newXS_flags("Irssi::command_bind_last",XS_Irssi_command_bind_last
,file,";@",0);
2101 newXSproto("Irssi::command_runsub", XS_Irssi_command_runsub, file, "$$$$")Perl_newXS_flags("Irssi::command_runsub",XS_Irssi_command_runsub
,file,"$$$$",0);
2102 newXSproto("Irssi::command_unbind", XS_Irssi_command_unbind, file, "$$")Perl_newXS_flags("Irssi::command_unbind",XS_Irssi_command_unbind
,file,"$$",0);
2103 newXSproto("Irssi::command_set_options", XS_Irssi_command_set_options, file, "$$")Perl_newXS_flags("Irssi::command_set_options",XS_Irssi_command_set_options
,file,"$$",0);
2104 newXSproto("Irssi::command_parse_options", XS_Irssi_command_parse_options, file, "$$")Perl_newXS_flags("Irssi::command_parse_options",XS_Irssi_command_parse_options
,file,"$$",0);
2105 newXSproto("Irssi::pidwait_add", XS_Irssi_pidwait_add, file, "$")Perl_newXS_flags("Irssi::pidwait_add",XS_Irssi_pidwait_add,file
,"$",0);
2106 newXSproto("Irssi::pidwait_remove", XS_Irssi_pidwait_remove, file, "$")Perl_newXS_flags("Irssi::pidwait_remove",XS_Irssi_pidwait_remove
,file,"$",0);
2107 newXSproto("Irssi::parse_special", XS_Irssi_parse_special, file, "$;$$")Perl_newXS_flags("Irssi::parse_special",XS_Irssi_parse_special
,file,"$;$$",0);
2108 newXSproto("Irssi::get_irssi_dir", XS_Irssi_get_irssi_dir, file, "")Perl_newXS_flags("Irssi::get_irssi_dir",XS_Irssi_get_irssi_dir
,file,"",0);
2109 newXSproto("Irssi::get_irssi_config", XS_Irssi_get_irssi_config, file, "")Perl_newXS_flags("Irssi::get_irssi_config",XS_Irssi_get_irssi_config
,file,"",0);
2110 newXSproto("Irssi::get_irssi_binary", XS_Irssi_get_irssi_binary, file, "")Perl_newXS_flags("Irssi::get_irssi_binary",XS_Irssi_get_irssi_binary
,file,"",0);
2111 newXSproto("Irssi::version", XS_Irssi_version, file, "")Perl_newXS_flags("Irssi::version",XS_Irssi_version,file,"",0);
2112 newXSproto("Irssi::get_gui", XS_Irssi_get_gui, file, "")Perl_newXS_flags("Irssi::get_gui",XS_Irssi_get_gui,file,"",0);
2113 newXSproto("Irssi::IRSSI_GUI_NONE", XS_Irssi_IRSSI_GUI_NONE, file, "")Perl_newXS_flags("Irssi::IRSSI_GUI_NONE",XS_Irssi_IRSSI_GUI_NONE
,file,"",0);
2114 newXSproto("Irssi::IRSSI_GUI_TEXT", XS_Irssi_IRSSI_GUI_TEXT, file, "")Perl_newXS_flags("Irssi::IRSSI_GUI_TEXT",XS_Irssi_IRSSI_GUI_TEXT
,file,"",0);
2115 newXSproto("Irssi::IRSSI_GUI_GTK", XS_Irssi_IRSSI_GUI_GTK, file, "")Perl_newXS_flags("Irssi::IRSSI_GUI_GTK",XS_Irssi_IRSSI_GUI_GTK
,file,"",0);
2116 newXSproto("Irssi::IRSSI_GUI_GNOME", XS_Irssi_IRSSI_GUI_GNOME, file, "")Perl_newXS_flags("Irssi::IRSSI_GUI_GNOME",XS_Irssi_IRSSI_GUI_GNOME
,file,"",0);
2117 newXSproto("Irssi::IRSSI_GUI_QT", XS_Irssi_IRSSI_GUI_QT, file, "")Perl_newXS_flags("Irssi::IRSSI_GUI_QT",XS_Irssi_IRSSI_GUI_QT,
file,"",0);
2118 newXSproto("Irssi::IRSSI_GUI_KDE", XS_Irssi_IRSSI_GUI_KDE, file, "")Perl_newXS_flags("Irssi::IRSSI_GUI_KDE",XS_Irssi_IRSSI_GUI_KDE
,file,"",0);
2119 newXSproto("Irssi::Server::parse_special", XS_Irssi__Server_parse_special, file, "$$;$$")Perl_newXS_flags("Irssi::Server::parse_special",XS_Irssi__Server_parse_special
,file,"$$;$$",0);
2120 newXSproto("Irssi::Server::command", XS_Irssi__Server_command, file, "$$")Perl_newXS_flags("Irssi::Server::command",XS_Irssi__Server_command
,file,"$$",0);
2121 newXSproto("Irssi::Windowitem::parse_special", XS_Irssi__Windowitem_parse_special, file, "$$;$$")Perl_newXS_flags("Irssi::Windowitem::parse_special",XS_Irssi__Windowitem_parse_special
,file,"$$;$$",0);
2122 newXSproto("Irssi::Windowitem::command", XS_Irssi__Windowitem_command, file, "$$")Perl_newXS_flags("Irssi::Windowitem::command",XS_Irssi__Windowitem_command
,file,"$$",0);
2123 XSRETURN_YES(void)( { (PL_stack_base[ax + (0)] = &PL_sv_yes ); (void)
( { const IV tmpXSoff = (1); PL_stack_sp = PL_stack_base + ax
+ (tmpXSoff - 1); return; } ); } );
2124}
2125