The data contained in this repository can be downloaded to your computer using one of several clients.
Please see the documentation of your version control software client for more information.

Please select the desired protocol below to get the URL.

This URL has Read-Only access.

Statistics
| Branch: | Revision:

main_repo / libpurple / plugins / perl / common / AccountOpts.c @ a274da4f

History | View | Annotate | Download (20.7 KB)

1
/*
2
 * This file was generated automatically by ExtUtils::ParseXS version 3.18 from the
3
 * contents of AccountOpts.xs. Do not edit this file, edit AccountOpts.xs instead.
4
 *
5
 *    ANY CHANGES MADE HERE WILL BE LOST!
6
 *
7
 */
8

    
9
#line 1 "AccountOpts.xs"
10
#include "module.h"
11

    
12
#line 13 "AccountOpts.c"
13
#ifndef PERL_UNUSED_VAR
14
#  define PERL_UNUSED_VAR(var) if (0) var = var
15
#endif
16

    
17
#ifndef dVAR
18
#  define dVAR                dNOOP
19
#endif
20

    
21

    
22
/* This stuff is not part of the API! You have been warned. */
23
#ifndef PERL_VERSION_DECIMAL
24
#  define PERL_VERSION_DECIMAL(r,v,s) (r*1000000 + v*1000 + s)
25
#endif
26
#ifndef PERL_DECIMAL_VERSION
27
#  define PERL_DECIMAL_VERSION \
28
          PERL_VERSION_DECIMAL(PERL_REVISION,PERL_VERSION,PERL_SUBVERSION)
29
#endif
30
#ifndef PERL_VERSION_GE
31
#  define PERL_VERSION_GE(r,v,s) \
32
          (PERL_DECIMAL_VERSION >= PERL_VERSION_DECIMAL(r,v,s))
33
#endif
34
#ifndef PERL_VERSION_LE
35
#  define PERL_VERSION_LE(r,v,s) \
36
          (PERL_DECIMAL_VERSION <= PERL_VERSION_DECIMAL(r,v,s))
37
#endif
38

    
39
/* XS_INTERNAL is the explicit static-linkage variant of the default
40
 * XS macro.
41
 *
42
 * XS_EXTERNAL is the same as XS_INTERNAL except it does not include
43
 * "STATIC", ie. it exports XSUB symbols. You probably don't want that
44
 * for anything but the BOOT XSUB.
45
 *
46
 * See XSUB.h in core!
47
 */
48

    
49

    
50
/* TODO: This might be compatible further back than 5.10.0. */
51
#if PERL_VERSION_GE(5, 10, 0) && PERL_VERSION_LE(5, 15, 1)
52
#  undef XS_EXTERNAL
53
#  undef XS_INTERNAL
54
#  if defined(__CYGWIN__) && defined(USE_DYNAMIC_LOADING)
55
#    define XS_EXTERNAL(name) __declspec(dllexport) XSPROTO(name)
56
#    define XS_INTERNAL(name) STATIC XSPROTO(name)
57
#  endif
58
#  if defined(__SYMBIAN32__)
59
#    define XS_EXTERNAL(name) EXPORT_C XSPROTO(name)
60
#    define XS_INTERNAL(name) EXPORT_C STATIC XSPROTO(name)
61
#  endif
62
#  ifndef XS_EXTERNAL
63
#    if defined(HASATTRIBUTE_UNUSED) && !defined(__cplusplus)
64
#      define XS_EXTERNAL(name) void name(pTHX_ CV* cv __attribute__unused__)
65
#      define XS_INTERNAL(name) STATIC void name(pTHX_ CV* cv __attribute__unused__)
66
#    else
67
#      ifdef __cplusplus
68
#        define XS_EXTERNAL(name) extern "C" XSPROTO(name)
69
#        define XS_INTERNAL(name) static XSPROTO(name)
70
#      else
71
#        define XS_EXTERNAL(name) XSPROTO(name)
72
#        define XS_INTERNAL(name) STATIC XSPROTO(name)
73
#      endif
74
#    endif
75
#  endif
76
#endif
77

    
78
/* perl >= 5.10.0 && perl <= 5.15.1 */
79

    
80

    
81
/* The XS_EXTERNAL macro is used for functions that must not be static
82
 * like the boot XSUB of a module. If perl didn't have an XS_EXTERNAL
83
 * macro defined, the best we can do is assume XS is the same.
84
 * Dito for XS_INTERNAL.
85
 */
86
#ifndef XS_EXTERNAL
87
#  define XS_EXTERNAL(name) XS(name)
88
#endif
89
#ifndef XS_INTERNAL
90
#  define XS_INTERNAL(name) XS(name)
91
#endif
92

    
93
/* Now, finally, after all this mess, we want an ExtUtils::ParseXS
94
 * internal macro that we're free to redefine for varying linkage due
95
 * to the EXPORT_XSUB_SYMBOLS XS keyword. This is internal, use
96
 * XS_EXTERNAL(name) or XS_INTERNAL(name) in your code if you need to!
97
 */
98

    
99
#undef XS_EUPXS
100
#if defined(PERL_EUPXS_ALWAYS_EXPORT)
101
#  define XS_EUPXS(name) XS_EXTERNAL(name)
102
#else
103
   /* default to internal */
104
#  define XS_EUPXS(name) XS_INTERNAL(name)
105
#endif
106

    
107
#ifndef PERL_ARGS_ASSERT_CROAK_XS_USAGE
108
#define PERL_ARGS_ASSERT_CROAK_XS_USAGE assert(cv); assert(params)
109

    
110
/* prototype to pass -Wmissing-prototypes */
111
STATIC void
112
S_croak_xs_usage(pTHX_ const CV *const cv, const char *const params);
113

    
114
STATIC void
115
S_croak_xs_usage(pTHX_ const CV *const cv, const char *const params)
116
{
117
    const GV *const gv = CvGV(cv);
118

    
119
    PERL_ARGS_ASSERT_CROAK_XS_USAGE;
120

    
121
    if (gv) {
122
        const char *const gvname = GvNAME(gv);
123
        const HV *const stash = GvSTASH(gv);
124
        const char *const hvname = stash ? HvNAME(stash) : NULL;
125

    
126
        if (hvname)
127
            Perl_croak(aTHX_ "Usage: %s::%s(%s)", hvname, gvname, params);
128
        else
129
            Perl_croak(aTHX_ "Usage: %s(%s)", gvname, params);
130
    } else {
131
        /* Pants. I don't think that it should be possible to get here. */
132
        Perl_croak(aTHX_ "Usage: CODE(0x%"UVxf")(%s)", PTR2UV(cv), params);
133
    }
134
}
135
#undef  PERL_ARGS_ASSERT_CROAK_XS_USAGE
136

    
137
#ifdef PERL_IMPLICIT_CONTEXT
138
#define croak_xs_usage(a,b)    S_croak_xs_usage(aTHX_ a,b)
139
#else
140
#define croak_xs_usage        S_croak_xs_usage
141
#endif
142

    
143
#endif
144

    
145
/* NOTE: the prototype of newXSproto() is different in versions of perls,
146
 * so we define a portable version of newXSproto()
147
 */
148
#ifdef newXS_flags
149
#define newXSproto_portable(name, c_impl, file, proto) newXS_flags(name, c_impl, file, proto, 0)
150
#else
151
#define newXSproto_portable(name, c_impl, file, proto) (PL_Sv=(SV*)newXS(name, c_impl, file), sv_setpv(PL_Sv, proto), (CV*)PL_Sv)
152
#endif /* !defined(newXS_flags) */
153

    
154
#line 155 "AccountOpts.c"
155

    
156
XS_EUPXS(XS_Purple__Account__Option_destroy); /* prototype to pass -Wmissing-prototypes */
157
XS_EUPXS(XS_Purple__Account__Option_destroy)
158
{
159
    dVAR; dXSARGS;
160
    if (items != 1)
161
       croak_xs_usage(cv,  "option");
162
    {
163
        Purple__Account__Option        option = purple_perl_ref_object(ST(0))
164
;
165

    
166
        purple_account_option_destroy(option);
167
    }
168
    XSRETURN_EMPTY;
169
}
170

    
171

    
172
XS_EUPXS(XS_Purple__Account__Option_get_default_string); /* prototype to pass -Wmissing-prototypes */
173
XS_EUPXS(XS_Purple__Account__Option_get_default_string)
174
{
175
    dVAR; dXSARGS;
176
    if (items != 1)
177
       croak_xs_usage(cv,  "option");
178
    {
179
        Purple__Account__Option        option = purple_perl_ref_object(ST(0))
180
;
181
        const char *        RETVAL;
182
        dXSTARG;
183

    
184
        RETVAL = purple_account_option_get_default_string(option);
185
        sv_setpv(TARG, RETVAL); XSprePUSH; PUSHTARG;
186
    }
187
    XSRETURN(1);
188
}
189

    
190

    
191
XS_EUPXS(XS_Purple__Account__Option_add_list_item); /* prototype to pass -Wmissing-prototypes */
192
XS_EUPXS(XS_Purple__Account__Option_add_list_item)
193
{
194
    dVAR; dXSARGS;
195
    if (items != 3)
196
       croak_xs_usage(cv,  "option, key, value");
197
    {
198
        Purple__Account__Option        option = purple_perl_ref_object(ST(0))
199
;
200
        const char *        key = (const char *)SvPV_nolen(ST(1))
201
;
202
        const char *        value = (const char *)SvPV_nolen(ST(2))
203
;
204

    
205
        purple_account_option_add_list_item(option, key, value);
206
    }
207
    XSRETURN_EMPTY;
208
}
209

    
210

    
211
XS_EUPXS(XS_Purple__Account__Option_set_default_string); /* prototype to pass -Wmissing-prototypes */
212
XS_EUPXS(XS_Purple__Account__Option_set_default_string)
213
{
214
    dVAR; dXSARGS;
215
    if (items != 2)
216
       croak_xs_usage(cv,  "option, value");
217
    {
218
        Purple__Account__Option        option = purple_perl_ref_object(ST(0))
219
;
220
        const char *        value = (const char *)SvPV_nolen(ST(1))
221
;
222

    
223
        purple_account_option_set_default_string(option, value);
224
    }
225
    XSRETURN_EMPTY;
226
}
227

    
228

    
229
XS_EUPXS(XS_Purple__Account__Option_set_default_int); /* prototype to pass -Wmissing-prototypes */
230
XS_EUPXS(XS_Purple__Account__Option_set_default_int)
231
{
232
    dVAR; dXSARGS;
233
    if (items != 2)
234
       croak_xs_usage(cv,  "option, value");
235
    {
236
        Purple__Account__Option        option = purple_perl_ref_object(ST(0))
237
;
238
        int        value = (int)SvIV(ST(1))
239
;
240

    
241
        purple_account_option_set_default_int(option, value);
242
    }
243
    XSRETURN_EMPTY;
244
}
245

    
246

    
247
XS_EUPXS(XS_Purple__Account__Option_set_default_bool); /* prototype to pass -Wmissing-prototypes */
248
XS_EUPXS(XS_Purple__Account__Option_set_default_bool)
249
{
250
    dVAR; dXSARGS;
251
    if (items != 2)
252
       croak_xs_usage(cv,  "option, value");
253
    {
254
        Purple__Account__Option        option = purple_perl_ref_object(ST(0))
255
;
256
        gboolean        value = (bool)SvTRUE(ST(1))
257
;
258

    
259
        purple_account_option_set_default_bool(option, value);
260
    }
261
    XSRETURN_EMPTY;
262
}
263

    
264

    
265
XS_EUPXS(XS_Purple__Account__Option_list_new); /* prototype to pass -Wmissing-prototypes */
266
XS_EUPXS(XS_Purple__Account__Option_list_new)
267
{
268
    dVAR; dXSARGS;
269
    if (items != 4)
270
       croak_xs_usage(cv,  "class, text, pref_name, values");
271
    {
272
        const char *        text = (const char *)SvPV_nolen(ST(1))
273
;
274
        const char *        pref_name = (const char *)SvPV_nolen(ST(2))
275
;
276
        SV *        values = ST(3)
277
;
278
#line 41 "AccountOpts.xs"
279
        GList *t_GL;
280
        int i, t_len;
281
#line 282 "AccountOpts.c"
282
        Purple__Account__Option        RETVAL;
283
#line 44 "AccountOpts.xs"
284
        t_GL = NULL;
285
        t_len = av_len((AV *)SvRV(values));
286

    
287
        for (i = 0; i <= t_len; i++)
288
                t_GL = g_list_append(t_GL, SvPVutf8_nolen(*av_fetch((AV *)SvRV(values), i, 0)));
289

    
290
        RETVAL  = purple_account_option_list_new(text, pref_name, t_GL);
291
#line 292 "AccountOpts.c"
292
        ST(0) = purple_perl_bless_object(RETVAL, "Purple::Account::Option");
293
        sv_2mortal(ST(0));
294
    }
295
    XSRETURN(1);
296
}
297

    
298

    
299
XS_EUPXS(XS_Purple__Account__Option_string_new); /* prototype to pass -Wmissing-prototypes */
300
XS_EUPXS(XS_Purple__Account__Option_string_new)
301
{
302
    dVAR; dXSARGS;
303
    if (items != 4)
304
       croak_xs_usage(cv,  "class, text, pref_name, default_value");
305
    {
306
        const char *        text = (const char *)SvPV_nolen(ST(1))
307
;
308
        const char *        pref_name = (const char *)SvPV_nolen(ST(2))
309
;
310
        const char *        default_value = (const char *)SvPV_nolen(ST(3))
311
;
312
        Purple__Account__Option        RETVAL;
313

    
314
        RETVAL = purple_account_option_string_new(text, pref_name, default_value);
315
        ST(0) = purple_perl_bless_object(RETVAL, "Purple::Account::Option");
316
        sv_2mortal(ST(0));
317
    }
318
    XSRETURN(1);
319
}
320

    
321

    
322
XS_EUPXS(XS_Purple__Account__Option_int_new); /* prototype to pass -Wmissing-prototypes */
323
XS_EUPXS(XS_Purple__Account__Option_int_new)
324
{
325
    dVAR; dXSARGS;
326
    if (items != 4)
327
       croak_xs_usage(cv,  "class, text, pref_name, default_value");
328
    {
329
        const char *        text = (const char *)SvPV_nolen(ST(1))
330
;
331
        const char *        pref_name = (const char *)SvPV_nolen(ST(2))
332
;
333
        gboolean        default_value = (bool)SvTRUE(ST(3))
334
;
335
        Purple__Account__Option        RETVAL;
336

    
337
        RETVAL = purple_account_option_int_new(text, pref_name, default_value);
338
        ST(0) = purple_perl_bless_object(RETVAL, "Purple::Account::Option");
339
        sv_2mortal(ST(0));
340
    }
341
    XSRETURN(1);
342
}
343

    
344

    
345
XS_EUPXS(XS_Purple__Account__Option_bool_new); /* prototype to pass -Wmissing-prototypes */
346
XS_EUPXS(XS_Purple__Account__Option_bool_new)
347
{
348
    dVAR; dXSARGS;
349
    if (items != 4)
350
       croak_xs_usage(cv,  "class, text, pref_name, default_value");
351
    {
352
        const char *        text = (const char *)SvPV_nolen(ST(1))
353
;
354
        const char *        pref_name = (const char *)SvPV_nolen(ST(2))
355
;
356
        gboolean        default_value = (bool)SvTRUE(ST(3))
357
;
358
        Purple__Account__Option        RETVAL;
359

    
360
        RETVAL = purple_account_option_bool_new(text, pref_name, default_value);
361
        ST(0) = purple_perl_bless_object(RETVAL, "Purple::Account::Option");
362
        sv_2mortal(ST(0));
363
    }
364
    XSRETURN(1);
365
}
366

    
367

    
368
XS_EUPXS(XS_Purple__Account__Option_new); /* prototype to pass -Wmissing-prototypes */
369
XS_EUPXS(XS_Purple__Account__Option_new)
370
{
371
    dVAR; dXSARGS;
372
    if (items != 4)
373
       croak_xs_usage(cv,  "class, type, text, pref_name");
374
    {
375
        Purple__PrefType        type = (Purple__PrefType)SvIV(ST(1))
376
;
377
        const char *        text = (const char *)SvPV_nolen(ST(2))
378
;
379
        const char *        pref_name = (const char *)SvPV_nolen(ST(3))
380
;
381
        Purple__Account__Option        RETVAL;
382

    
383
        RETVAL = purple_account_option_new(type, text, pref_name);
384
        ST(0) = purple_perl_bless_object(RETVAL, "Purple::Account::Option");
385
        sv_2mortal(ST(0));
386
    }
387
    XSRETURN(1);
388
}
389

    
390

    
391
XS_EUPXS(XS_Purple__Account__Option_get_list); /* prototype to pass -Wmissing-prototypes */
392
XS_EUPXS(XS_Purple__Account__Option_get_list)
393
{
394
    dVAR; dXSARGS;
395
    if (items != 1)
396
       croak_xs_usage(cv,  "option");
397
    PERL_UNUSED_VAR(ax); /* -Wall */
398
    SP -= items;
399
    {
400
        Purple__Account__Option        option = purple_perl_ref_object(ST(0))
401
;
402
#line 90 "AccountOpts.xs"
403
        GList *l;
404
#line 405 "AccountOpts.c"
405
#line 92 "AccountOpts.xs"
406
        for (l = purple_account_option_get_list(option); l != NULL; l = l->next) {
407
                /* XXX These are actually PurpleKeyValuePairs but we don't have a
408
                 * type for that and even if we did I don't think there's
409
                 * anything perl could do with them, so I'm just going to
410
                 * leave this as a Purple::ListEntry for now. */
411
                XPUSHs(sv_2mortal(purple_perl_bless_object(l->data, "Purple::ListEntry")));
412
        }
413
#line 414 "AccountOpts.c"
414
        PUTBACK;
415
        return;
416
    }
417
}
418

    
419

    
420
XS_EUPXS(XS_Purple__Account__Option_get_type); /* prototype to pass -Wmissing-prototypes */
421
XS_EUPXS(XS_Purple__Account__Option_get_type)
422
{
423
    dVAR; dXSARGS;
424
    if (items != 1)
425
       croak_xs_usage(cv,  "option");
426
    {
427
        Purple__Account__Option        option = purple_perl_ref_object(ST(0))
428
;
429
        Purple__PrefType        RETVAL;
430
        dXSTARG;
431

    
432
        RETVAL = purple_account_option_get_type(option);
433
        XSprePUSH; PUSHi((IV)RETVAL);
434
    }
435
    XSRETURN(1);
436
}
437

    
438

    
439
XS_EUPXS(XS_Purple__Account__Option_get_masked); /* prototype to pass -Wmissing-prototypes */
440
XS_EUPXS(XS_Purple__Account__Option_get_masked)
441
{
442
    dVAR; dXSARGS;
443
    if (items != 1)
444
       croak_xs_usage(cv,  "option");
445
    {
446
        Purple__Account__Option        option = purple_perl_ref_object(ST(0))
447
;
448
        gboolean        RETVAL;
449

    
450
        RETVAL = purple_account_option_get_masked(option);
451
        ST(0) = sv_newmortal();
452
        ST(0) = boolSV(RETVAL);
453
    }
454
    XSRETURN(1);
455
}
456

    
457

    
458
XS_EUPXS(XS_Purple__Account__Option_get_default_int); /* prototype to pass -Wmissing-prototypes */
459
XS_EUPXS(XS_Purple__Account__Option_get_default_int)
460
{
461
    dVAR; dXSARGS;
462
    if (items != 1)
463
       croak_xs_usage(cv,  "option");
464
    {
465
        Purple__Account__Option        option = purple_perl_ref_object(ST(0))
466
;
467
        int        RETVAL;
468
        dXSTARG;
469

    
470
        RETVAL = purple_account_option_get_default_int(option);
471
        XSprePUSH; PUSHi((IV)RETVAL);
472
    }
473
    XSRETURN(1);
474
}
475

    
476

    
477
XS_EUPXS(XS_Purple__Account__Option_get_default_bool); /* prototype to pass -Wmissing-prototypes */
478
XS_EUPXS(XS_Purple__Account__Option_get_default_bool)
479
{
480
    dVAR; dXSARGS;
481
    if (items != 1)
482
       croak_xs_usage(cv,  "option");
483
    {
484
        Purple__Account__Option        option = purple_perl_ref_object(ST(0))
485
;
486
        gboolean        RETVAL;
487

    
488
        RETVAL = purple_account_option_get_default_bool(option);
489
        ST(0) = sv_newmortal();
490
        ST(0) = boolSV(RETVAL);
491
    }
492
    XSRETURN(1);
493
}
494

    
495

    
496
XS_EUPXS(XS_Purple__Account__Option_get_setting); /* prototype to pass -Wmissing-prototypes */
497
XS_EUPXS(XS_Purple__Account__Option_get_setting)
498
{
499
    dVAR; dXSARGS;
500
    if (items != 1)
501
       croak_xs_usage(cv,  "option");
502
    {
503
        Purple__Account__Option        option = purple_perl_ref_object(ST(0))
504
;
505
        const char *        RETVAL;
506
        dXSTARG;
507

    
508
        RETVAL = purple_account_option_get_setting(option);
509
        sv_setpv(TARG, RETVAL); XSprePUSH; PUSHTARG;
510
    }
511
    XSRETURN(1);
512
}
513

    
514

    
515
XS_EUPXS(XS_Purple__Account__Option_get_text); /* prototype to pass -Wmissing-prototypes */
516
XS_EUPXS(XS_Purple__Account__Option_get_text)
517
{
518
    dVAR; dXSARGS;
519
    if (items != 1)
520
       croak_xs_usage(cv,  "option");
521
    {
522
        Purple__Account__Option        option = purple_perl_ref_object(ST(0))
523
;
524
        const char *        RETVAL;
525
        dXSTARG;
526

    
527
        RETVAL = purple_account_option_get_text(option);
528
        sv_setpv(TARG, RETVAL); XSprePUSH; PUSHTARG;
529
    }
530
    XSRETURN(1);
531
}
532

    
533

    
534
XS_EUPXS(XS_Purple__Account__Option_set_list); /* prototype to pass -Wmissing-prototypes */
535
XS_EUPXS(XS_Purple__Account__Option_set_list)
536
{
537
    dVAR; dXSARGS;
538
    if (items != 2)
539
       croak_xs_usage(cv,  "option, values");
540
    PERL_UNUSED_VAR(ax); /* -Wall */
541
    SP -= items;
542
    {
543
        Purple__Account__Option        option = purple_perl_ref_object(ST(0))
544
;
545
        SV *        values = ST(1)
546
;
547
#line 129 "AccountOpts.xs"
548
        GList *t_GL;
549
        int i, t_len;
550
#line 551 "AccountOpts.c"
551
#line 132 "AccountOpts.xs"
552
        t_GL = NULL;
553
        t_len = av_len((AV *)SvRV(values));
554

    
555
        for (i = 0; i <= t_len; i++)
556
                t_GL = g_list_append(t_GL, SvPVutf8_nolen(*av_fetch((AV *)SvRV(values), i, 0)));
557

    
558
        purple_account_option_set_list(option, t_GL);
559
#line 560 "AccountOpts.c"
560
        PUTBACK;
561
        return;
562
    }
563
}
564

    
565

    
566
XS_EUPXS(XS_Purple__Account__Option_set_masked); /* prototype to pass -Wmissing-prototypes */
567
XS_EUPXS(XS_Purple__Account__Option_set_masked)
568
{
569
    dVAR; dXSARGS;
570
    if (items != 2)
571
       croak_xs_usage(cv,  "option, masked");
572
    {
573
        Purple__Account__Option        option = purple_perl_ref_object(ST(0))
574
;
575
        gboolean        masked = (bool)SvTRUE(ST(1))
576
;
577

    
578
        purple_account_option_set_masked(option, masked);
579
    }
580
    XSRETURN_EMPTY;
581
}
582

    
583

    
584
XS_EUPXS(XS_Purple__Account__UserSplit_new); /* prototype to pass -Wmissing-prototypes */
585
XS_EUPXS(XS_Purple__Account__UserSplit_new)
586
{
587
    dVAR; dXSARGS;
588
    if (items != 4)
589
       croak_xs_usage(cv,  "class, text, default_value, sep");
590
    {
591
        const char *        text = (const char *)SvPV_nolen(ST(1))
592
;
593
        const char *        default_value = (const char *)SvPV_nolen(ST(2))
594
;
595
        char        sep = (char)*SvPV_nolen(ST(3))
596
;
597
        Purple__Account__UserSplit        RETVAL;
598

    
599
        RETVAL = purple_account_user_split_new(text, default_value, sep);
600
        ST(0) = purple_perl_bless_object(RETVAL, "Purple::Account::UserSplit");
601
        sv_2mortal(ST(0));
602
    }
603
    XSRETURN(1);
604
}
605

    
606

    
607
XS_EUPXS(XS_Purple__Account__UserSplit_get_separator); /* prototype to pass -Wmissing-prototypes */
608
XS_EUPXS(XS_Purple__Account__UserSplit_get_separator)
609
{
610
    dVAR; dXSARGS;
611
    if (items != 1)
612
       croak_xs_usage(cv,  "split");
613
    {
614
        Purple__Account__UserSplit        split = purple_perl_ref_object(ST(0))
615
;
616
        char        RETVAL;
617
        dXSTARG;
618

    
619
        RETVAL = purple_account_user_split_get_separator(split);
620
        XSprePUSH; PUSHp((char *)&RETVAL, 1);
621
    }
622
    XSRETURN(1);
623
}
624

    
625

    
626
XS_EUPXS(XS_Purple__Account__UserSplit_get_text); /* prototype to pass -Wmissing-prototypes */
627
XS_EUPXS(XS_Purple__Account__UserSplit_get_text)
628
{
629
    dVAR; dXSARGS;
630
    if (items != 1)
631
       croak_xs_usage(cv,  "split");
632
    {
633
        Purple__Account__UserSplit        split = purple_perl_ref_object(ST(0))
634
;
635
        const char *        RETVAL;
636
        dXSTARG;
637

    
638
        RETVAL = purple_account_user_split_get_text(split);
639
        sv_setpv(TARG, RETVAL); XSprePUSH; PUSHTARG;
640
    }
641
    XSRETURN(1);
642
}
643

    
644

    
645
XS_EUPXS(XS_Purple__Account__UserSplit_destroy); /* prototype to pass -Wmissing-prototypes */
646
XS_EUPXS(XS_Purple__Account__UserSplit_destroy)
647
{
648
    dVAR; dXSARGS;
649
    if (items != 1)
650
       croak_xs_usage(cv,  "split");
651
    {
652
        Purple__Account__UserSplit        split = purple_perl_ref_object(ST(0))
653
;
654

    
655
        purple_account_user_split_destroy(split);
656
    }
657
    XSRETURN_EMPTY;
658
}
659

    
660
#ifdef __cplusplus
661
extern "C"
662
#endif
663
XS_EXTERNAL(boot_Purple__Account__Option); /* prototype to pass -Wmissing-prototypes */
664
XS_EXTERNAL(boot_Purple__Account__Option)
665
{
666
    dVAR; dXSARGS;
667
#if (PERL_REVISION == 5 && PERL_VERSION < 9)
668
    char* file = __FILE__;
669
#else
670
    const char* file = __FILE__;
671
#endif
672

    
673
    PERL_UNUSED_VAR(cv); /* -W */
674
    PERL_UNUSED_VAR(items); /* -W */
675
#ifdef XS_APIVERSION_BOOTCHECK
676
    XS_APIVERSION_BOOTCHECK;
677
#endif
678
    XS_VERSION_BOOTCHECK;
679

    
680
        (void)newXSproto_portable("Purple::Account::Option::destroy", XS_Purple__Account__Option_destroy, file, "$");
681
        (void)newXSproto_portable("Purple::Account::Option::get_default_string", XS_Purple__Account__Option_get_default_string, file, "$");
682
        (void)newXSproto_portable("Purple::Account::Option::add_list_item", XS_Purple__Account__Option_add_list_item, file, "$$$");
683
        (void)newXSproto_portable("Purple::Account::Option::set_default_string", XS_Purple__Account__Option_set_default_string, file, "$$");
684
        (void)newXSproto_portable("Purple::Account::Option::set_default_int", XS_Purple__Account__Option_set_default_int, file, "$$");
685
        (void)newXSproto_portable("Purple::Account::Option::set_default_bool", XS_Purple__Account__Option_set_default_bool, file, "$$");
686
        (void)newXSproto_portable("Purple::Account::Option::list_new", XS_Purple__Account__Option_list_new, file, "$$$$");
687
        (void)newXSproto_portable("Purple::Account::Option::string_new", XS_Purple__Account__Option_string_new, file, "$$$$");
688
        (void)newXSproto_portable("Purple::Account::Option::int_new", XS_Purple__Account__Option_int_new, file, "$$$$");
689
        (void)newXSproto_portable("Purple::Account::Option::bool_new", XS_Purple__Account__Option_bool_new, file, "$$$$");
690
        (void)newXSproto_portable("Purple::Account::Option::new", XS_Purple__Account__Option_new, file, "$$$$");
691
        (void)newXSproto_portable("Purple::Account::Option::get_list", XS_Purple__Account__Option_get_list, file, "$");
692
        (void)newXSproto_portable("Purple::Account::Option::get_type", XS_Purple__Account__Option_get_type, file, "$");
693
        (void)newXSproto_portable("Purple::Account::Option::get_masked", XS_Purple__Account__Option_get_masked, file, "$");
694
        (void)newXSproto_portable("Purple::Account::Option::get_default_int", XS_Purple__Account__Option_get_default_int, file, "$");
695
        (void)newXSproto_portable("Purple::Account::Option::get_default_bool", XS_Purple__Account__Option_get_default_bool, file, "$");
696
        (void)newXSproto_portable("Purple::Account::Option::get_setting", XS_Purple__Account__Option_get_setting, file, "$");
697
        (void)newXSproto_portable("Purple::Account::Option::get_text", XS_Purple__Account__Option_get_text, file, "$");
698
        (void)newXSproto_portable("Purple::Account::Option::set_list", XS_Purple__Account__Option_set_list, file, "$$");
699
        (void)newXSproto_portable("Purple::Account::Option::set_masked", XS_Purple__Account__Option_set_masked, file, "$$");
700
        (void)newXSproto_portable("Purple::Account::UserSplit::new", XS_Purple__Account__UserSplit_new, file, "$$$$");
701
        (void)newXSproto_portable("Purple::Account::UserSplit::get_separator", XS_Purple__Account__UserSplit_get_separator, file, "$");
702
        (void)newXSproto_portable("Purple::Account::UserSplit::get_text", XS_Purple__Account__UserSplit_get_text, file, "$");
703
        (void)newXSproto_portable("Purple::Account::UserSplit::destroy", XS_Purple__Account__UserSplit_destroy, file, "$");
704
#if (PERL_REVISION == 5 && PERL_VERSION >= 9)
705
  if (PL_unitcheckav)
706
       call_list(PL_scopestack_ix, PL_unitcheckav);
707
#endif
708
    XSRETURN_YES;
709
}
710