cse2410spring2014_team2

/*

 * This file was generated automatically by ExtUtils::ParseXS version 3.18 from the

 * contents of XMLNode.xs. Do not edit this file, edit XMLNode.xs instead.

 *

 *    ANY CHANGES MADE HERE WILL BE LOST!

 *

 */

#line 1 "XMLNode.xs"

#include "module.h"

#line 13 "XMLNode.c"

#ifndef PERL_UNUSED_VAR

#  define PERL_UNUSED_VAR(var) if (0) var = var

#endif

#ifndef dVAR

#  define dVAR                dNOOP

#endif

/* This stuff is not part of the API! You have been warned. */

#ifndef PERL_VERSION_DECIMAL

#  define PERL_VERSION_DECIMAL(r,v,s) (r*1000000 + v*1000 + s)

#endif

#ifndef PERL_DECIMAL_VERSION

#  define PERL_DECIMAL_VERSION \

          PERL_VERSION_DECIMAL(PERL_REVISION,PERL_VERSION,PERL_SUBVERSION)

#endif

#ifndef PERL_VERSION_GE

#  define PERL_VERSION_GE(r,v,s) \

          (PERL_DECIMAL_VERSION >= PERL_VERSION_DECIMAL(r,v,s))

#endif

#ifndef PERL_VERSION_LE

#  define PERL_VERSION_LE(r,v,s) \

          (PERL_DECIMAL_VERSION <= PERL_VERSION_DECIMAL(r,v,s))

#endif

/* XS_INTERNAL is the explicit static-linkage variant of the default

 * XS macro.

 *

 * XS_EXTERNAL is the same as XS_INTERNAL except it does not include

 * "STATIC", ie. it exports XSUB symbols. You probably don't want that

 * for anything but the BOOT XSUB.

 *

 * See XSUB.h in core!

 */

/* TODO: This might be compatible further back than 5.10.0. */

#if PERL_VERSION_GE(5, 10, 0) && PERL_VERSION_LE(5, 15, 1)

#  undef XS_EXTERNAL

#  undef XS_INTERNAL

#  if defined(__CYGWIN__) && defined(USE_DYNAMIC_LOADING)

#    define XS_EXTERNAL(name) __declspec(dllexport) XSPROTO(name)

#    define XS_INTERNAL(name) STATIC XSPROTO(name)

#  endif

#  if defined(__SYMBIAN32__)

#    define XS_EXTERNAL(name) EXPORT_C XSPROTO(name)

#    define XS_INTERNAL(name) EXPORT_C STATIC XSPROTO(name)

#  endif

#  ifndef XS_EXTERNAL

#    if defined(HASATTRIBUTE_UNUSED) && !defined(__cplusplus)

#      define XS_EXTERNAL(name) void name(pTHX_ CV* cv __attribute__unused__)

#      define XS_INTERNAL(name) STATIC void name(pTHX_ CV* cv __attribute__unused__)

#    else

#      ifdef __cplusplus

#        define XS_EXTERNAL(name) extern "C" XSPROTO(name)

#        define XS_INTERNAL(name) static XSPROTO(name)

#      else

#        define XS_EXTERNAL(name) XSPROTO(name)

#        define XS_INTERNAL(name) STATIC XSPROTO(name)

#      endif

#    endif

#  endif

#endif

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

/* The XS_EXTERNAL macro is used for functions that must not be static

 * like the boot XSUB of a module. If perl didn't have an XS_EXTERNAL

 * macro defined, the best we can do is assume XS is the same.

 * Dito for XS_INTERNAL.

 */

#ifndef XS_EXTERNAL

#  define XS_EXTERNAL(name) XS(name)

#endif

#ifndef XS_INTERNAL

#  define XS_INTERNAL(name) XS(name)

#endif

/* Now, finally, after all this mess, we want an ExtUtils::ParseXS

 * internal macro that we're free to redefine for varying linkage due

 * to the EXPORT_XSUB_SYMBOLS XS keyword. This is internal, use

 * XS_EXTERNAL(name) or XS_INTERNAL(name) in your code if you need to!

 */

#undef XS_EUPXS

#if defined(PERL_EUPXS_ALWAYS_EXPORT)

#  define XS_EUPXS(name) XS_EXTERNAL(name)

#else

   /* default to internal */

#  define XS_EUPXS(name) XS_INTERNAL(name)

#endif

#ifndef PERL_ARGS_ASSERT_CROAK_XS_USAGE

#define PERL_ARGS_ASSERT_CROAK_XS_USAGE assert(cv); assert(params)

/* prototype to pass -Wmissing-prototypes */

STATIC void

S_croak_xs_usage(pTHX_ const CV *const cv, const char *const params);

STATIC void

S_croak_xs_usage(pTHX_ const CV *const cv, const char *const params)

{

    const GV *const gv = CvGV(cv);

    PERL_ARGS_ASSERT_CROAK_XS_USAGE;

    if (gv) {

        const char *const gvname = GvNAME(gv);

        const HV *const stash = GvSTASH(gv);

        const char *const hvname = stash ? HvNAME(stash) : NULL;

        if (hvname)

            Perl_croak(aTHX_ "Usage: %s::%s(%s)", hvname, gvname, params);

        else

            Perl_croak(aTHX_ "Usage: %s(%s)", gvname, params);

    } else {

        /* Pants. I don't think that it should be possible to get here. */

        Perl_croak(aTHX_ "Usage: CODE(0x%"UVxf")(%s)", PTR2UV(cv), params);

    }

}

#undef  PERL_ARGS_ASSERT_CROAK_XS_USAGE

#ifdef PERL_IMPLICIT_CONTEXT

#define croak_xs_usage(a,b)    S_croak_xs_usage(aTHX_ a,b)

#else

#define croak_xs_usage        S_croak_xs_usage

#endif

#endif

/* NOTE: the prototype of newXSproto() is different in versions of perls,

 * so we define a portable version of newXSproto()

 */

#ifdef newXS_flags

#define newXSproto_portable(name, c_impl, file, proto) newXS_flags(name, c_impl, file, proto, 0)

#else

#define newXSproto_portable(name, c_impl, file, proto) (PL_Sv=(SV*)newXS(name, c_impl, file), sv_setpv(PL_Sv, proto), (CV*)PL_Sv)

#endif /* !defined(newXS_flags) */

#line 155 "XMLNode.c"

XS_EUPXS(XS_Purple__XMLNode_copy); /* prototype to pass -Wmissing-prototypes */

XS_EUPXS(XS_Purple__XMLNode_copy)

{

    dVAR; dXSARGS;

    if (items != 1)

       croak_xs_usage(cv,  "src");

    {

        Purple__XMLNode        src = purple_perl_ref_object(ST(0))

;

        Purple__XMLNode        RETVAL;

        RETVAL = xmlnode_copy(src);

        ST(0) = purple_perl_bless_object(RETVAL, "Purple::XMLNode");

        sv_2mortal(ST(0));

    }

    XSRETURN(1);

}

XS_EUPXS(XS_Purple__XMLNode_free); /* prototype to pass -Wmissing-prototypes */

XS_EUPXS(XS_Purple__XMLNode_free)

{

    dVAR; dXSARGS;

    if (items != 1)

       croak_xs_usage(cv,  "node");

    {

        Purple__XMLNode        node = purple_perl_ref_object(ST(0))

;

        xmlnode_free(node);

    }

    XSRETURN_EMPTY;

}

XS_EUPXS(XS_Purple__XMLNode_from_str); /* prototype to pass -Wmissing-prototypes */

XS_EUPXS(XS_Purple__XMLNode_from_str)

{

    dVAR; dXSARGS;

    if (items != 1)

       croak_xs_usage(cv,  "str");

    {

        Purple__XMLNode        RETVAL;

        STRLEN        STRLEN_length_of_str;

        gssize        XSauto_length_of_str;

        const char *        str = (const char *)SvPV(ST(0), STRLEN_length_of_str);

        XSauto_length_of_str = STRLEN_length_of_str;

        RETVAL = xmlnode_from_str(str, XSauto_length_of_str);

        ST(0) = purple_perl_bless_object(RETVAL, "Purple::XMLNode");

        sv_2mortal(ST(0));

    }

    XSRETURN(1);

}

XS_EUPXS(XS_Purple__XMLNode_get_name); /* prototype to pass -Wmissing-prototypes */

XS_EUPXS(XS_Purple__XMLNode_get_name)

{

    dVAR; dXSARGS;

    if (items != 1)

       croak_xs_usage(cv,  "node");

    {

        Purple__XMLNode        node = purple_perl_ref_object(ST(0))

;

        const char *        RETVAL;

        dXSTARG;

#line 22 "XMLNode.xs"

        RETVAL = node->name;

#line 227 "XMLNode.c"

        sv_setpv(TARG, RETVAL); XSprePUSH; PUSHTARG;

    }

    XSRETURN(1);

}

XS_EUPXS(XS_Purple__XMLNode_get_attrib); /* prototype to pass -Wmissing-prototypes */

XS_EUPXS(XS_Purple__XMLNode_get_attrib)

{

    dVAR; dXSARGS;

    if (items != 2)

       croak_xs_usage(cv,  "node, attr");

    {

        Purple__XMLNode        node = purple_perl_ref_object(ST(0))

;

        const char *        attr = (const char *)SvPV_nolen(ST(1))

;

        const char *        RETVAL;

        dXSTARG;

        RETVAL = xmlnode_get_attrib(node, attr);

        sv_setpv(TARG, RETVAL); XSprePUSH; PUSHTARG;

    }

    XSRETURN(1);

}

XS_EUPXS(XS_Purple__XMLNode_get_child); /* prototype to pass -Wmissing-prototypes */

XS_EUPXS(XS_Purple__XMLNode_get_child)

{

    dVAR; dXSARGS;

    if (items != 2)

       croak_xs_usage(cv,  "parent, name");

    {

        Purple__XMLNode        parent = purple_perl_ref_object(ST(0))

;

        const char *        name = (const char *)SvPV_nolen(ST(1))

;

#line 36 "XMLNode.xs"

        xmlnode *tmp;

#line 268 "XMLNode.c"

        Purple__XMLNode        RETVAL;

#line 38 "XMLNode.xs"

        if (!name || *name == '\0') {

                tmp = parent->child;

                while (tmp && tmp->type != XMLNODE_TYPE_TAG)

                        tmp = tmp->next;

                RETVAL = tmp;

        } else

                RETVAL = xmlnode_get_child(parent, name);

#line 278 "XMLNode.c"

        ST(0) = purple_perl_bless_object(RETVAL, "Purple::XMLNode");

        sv_2mortal(ST(0));

    }

    XSRETURN(1);

}

XS_EUPXS(XS_Purple__XMLNode_get_child_with_namespace); /* prototype to pass -Wmissing-prototypes */

XS_EUPXS(XS_Purple__XMLNode_get_child_with_namespace)

{

    dVAR; dXSARGS;

    if (items != 3)

       croak_xs_usage(cv,  "parent, name, xmlns");

    {

        Purple__XMLNode        parent = purple_perl_ref_object(ST(0))

;

        const char *        name = (const char *)SvPV_nolen(ST(1))

;

        const char *        xmlns = (const char *)SvPV_nolen(ST(2))

;

        Purple__XMLNode        RETVAL;

        RETVAL = xmlnode_get_child_with_namespace(parent, name, xmlns);

        ST(0) = purple_perl_bless_object(RETVAL, "Purple::XMLNode");

        sv_2mortal(ST(0));

    }

    XSRETURN(1);

}

XS_EUPXS(XS_Purple__XMLNode_get_data); /* prototype to pass -Wmissing-prototypes */

XS_EUPXS(XS_Purple__XMLNode_get_data)

{

    dVAR; dXSARGS;

    if (items != 1)

       croak_xs_usage(cv,  "node");

    {

        Purple__XMLNode        node = purple_perl_ref_object(ST(0))

;

        gchar_own *        RETVAL;

        RETVAL = xmlnode_get_data(node);

        ST(0) = sv_newmortal();

        /* used when we can directly own the returned string. */

        /* we have to copy in the case when perl's malloc != gtk's malloc,

         * so best copy all the time. */

        sv_setpv ((SV*)ST(0), RETVAL);

        SvUTF8_on (ST(0));

        g_free (RETVAL);

    }

    XSRETURN(1);

}

XS_EUPXS(XS_Purple__XMLNode_get_next); /* prototype to pass -Wmissing-prototypes */

XS_EUPXS(XS_Purple__XMLNode_get_next)

{

    dVAR; dXSARGS;

    if (items != 1)

       croak_xs_usage(cv,  "node");

    {

        Purple__XMLNode        node = purple_perl_ref_object(ST(0))

;

#line 62 "XMLNode.xs"

        xmlnode *tmp;

#line 344 "XMLNode.c"

        Purple__XMLNode        RETVAL;

#line 64 "XMLNode.xs"

        tmp = node->next;

        while (tmp && tmp->type != XMLNODE_TYPE_TAG)

                tmp = tmp->next;

        RETVAL = tmp;

#line 351 "XMLNode.c"

        ST(0) = purple_perl_bless_object(RETVAL, "Purple::XMLNode");

        sv_2mortal(ST(0));

    }

    XSRETURN(1);

}

XS_EUPXS(XS_Purple__XMLNode_get_next_twin); /* prototype to pass -Wmissing-prototypes */

XS_EUPXS(XS_Purple__XMLNode_get_next_twin)

{

    dVAR; dXSARGS;

    if (items != 1)

       croak_xs_usage(cv,  "node");

    {

        Purple__XMLNode        node = purple_perl_ref_object(ST(0))

;

        Purple__XMLNode        RETVAL;

        RETVAL = xmlnode_get_next_twin(node);

        ST(0) = purple_perl_bless_object(RETVAL, "Purple::XMLNode");

        sv_2mortal(ST(0));

    }

    XSRETURN(1);

}

XS_EUPXS(XS_Purple__XMLNode_insert_child); /* prototype to pass -Wmissing-prototypes */

XS_EUPXS(XS_Purple__XMLNode_insert_child)

{

    dVAR; dXSARGS;

    if (items != 2)

       croak_xs_usage(cv,  "parent, child");

    {

        Purple__XMLNode        parent = purple_perl_ref_object(ST(0))

;

        Purple__XMLNode        child = purple_perl_ref_object(ST(1))

;

        xmlnode_insert_child(parent, child);

    }

    XSRETURN_EMPTY;

}

XS_EUPXS(XS_Purple__XMLNode_insert_data); /* prototype to pass -Wmissing-prototypes */

XS_EUPXS(XS_Purple__XMLNode_insert_data)

{

    dVAR; dXSARGS;

    if (items != 3)

       croak_xs_usage(cv,  "node, data, size");

    {

        Purple__XMLNode        node = purple_perl_ref_object(ST(0))

;

        const char *        data = (const char *)SvPV_nolen(ST(1))

;

        gssize        size = (gssize)SvIV(ST(2))

;

        xmlnode_insert_data(node, data, size);

    }

    XSRETURN_EMPTY;

}

XS_EUPXS(XS_Purple__XMLNode_new); /* prototype to pass -Wmissing-prototypes */

XS_EUPXS(XS_Purple__XMLNode_new)

{

    dVAR; dXSARGS;

    if (items != 2)

       croak_xs_usage(cv,  "class, name");

    {

        const char *        name = (const char *)SvPV_nolen(ST(1))

;

        Purple__XMLNode        RETVAL;

        RETVAL = xmlnode_new(name);

        ST(0) = purple_perl_bless_object(RETVAL, "Purple::XMLNode");

        sv_2mortal(ST(0));

    }

    XSRETURN(1);

}

XS_EUPXS(XS_Purple__XMLNode_new_child); /* prototype to pass -Wmissing-prototypes */

XS_EUPXS(XS_Purple__XMLNode_new_child)

{

    dVAR; dXSARGS;

    if (items != 2)

       croak_xs_usage(cv,  "parent, name");

    {

        Purple__XMLNode        parent = purple_perl_ref_object(ST(0))

;

        const char *        name = (const char *)SvPV_nolen(ST(1))

;

        Purple__XMLNode        RETVAL;

        RETVAL = xmlnode_new_child(parent, name);

        ST(0) = purple_perl_bless_object(RETVAL, "Purple::XMLNode");

        sv_2mortal(ST(0));

    }

    XSRETURN(1);

}

XS_EUPXS(XS_Purple__XMLNode_remove_attrib); /* prototype to pass -Wmissing-prototypes */

XS_EUPXS(XS_Purple__XMLNode_remove_attrib)

{

    dVAR; dXSARGS;

    if (items != 2)

       croak_xs_usage(cv,  "node, attr");

    {

        Purple__XMLNode        node = purple_perl_ref_object(ST(0))

;

        const char *        attr = (const char *)SvPV_nolen(ST(1))

;

        xmlnode_remove_attrib(node, attr);

    }

    XSRETURN_EMPTY;

}

XS_EUPXS(XS_Purple__XMLNode_set_attrib); /* prototype to pass -Wmissing-prototypes */

XS_EUPXS(XS_Purple__XMLNode_set_attrib)

{

    dVAR; dXSARGS;

    if (items != 3)

       croak_xs_usage(cv,  "node, attr, value");

    {

        Purple__XMLNode        node = purple_perl_ref_object(ST(0))

;

        const char *        attr = (const char *)SvPV_nolen(ST(1))

;

        const char *        value = (const char *)SvPV_nolen(ST(2))

;

        xmlnode_set_attrib(node, attr, value);

    }

    XSRETURN_EMPTY;

}

XS_EUPXS(XS_Purple__XMLNode_to_formatted_str); /* prototype to pass -Wmissing-prototypes */

XS_EUPXS(XS_Purple__XMLNode_to_formatted_str)

{

    dVAR; dXSARGS;

    if (items != 1)

       croak_xs_usage(cv,  "node");

    {

        Purple__XMLNode        node = purple_perl_ref_object(ST(0))

;

        gchar_own *        RETVAL;

#line 112 "XMLNode.xs"

        RETVAL = xmlnode_to_formatted_str(node, NULL);

#line 506 "XMLNode.c"

        ST(0) = sv_newmortal();

        /* used when we can directly own the returned string. */

        /* we have to copy in the case when perl's malloc != gtk's malloc,

         * so best copy all the time. */

        sv_setpv ((SV*)ST(0), RETVAL);

        SvUTF8_on (ST(0));

        g_free (RETVAL);

    }

    XSRETURN(1);

}

XS_EUPXS(XS_Purple__XMLNode_to_str); /* prototype to pass -Wmissing-prototypes */

XS_EUPXS(XS_Purple__XMLNode_to_str)

{

    dVAR; dXSARGS;

    if (items != 1)

       croak_xs_usage(cv,  "node");

    {

        Purple__XMLNode        node = purple_perl_ref_object(ST(0))

;

        gchar_own *        RETVAL;

#line 120 "XMLNode.xs"

        RETVAL = xmlnode_to_str(node, NULL);

#line 531 "XMLNode.c"

        ST(0) = sv_newmortal();

        /* used when we can directly own the returned string. */

        /* we have to copy in the case when perl's malloc != gtk's malloc,

         * so best copy all the time. */

        sv_setpv ((SV*)ST(0), RETVAL);

        SvUTF8_on (ST(0));

        g_free (RETVAL);

    }

    XSRETURN(1);

}

#ifdef __cplusplus

extern "C"

#endif

XS_EXTERNAL(boot_Purple__XMLNode); /* prototype to pass -Wmissing-prototypes */

XS_EXTERNAL(boot_Purple__XMLNode)

{

    dVAR; dXSARGS;

#if (PERL_REVISION == 5 && PERL_VERSION < 9)

    char* file = __FILE__;

#else

    const char* file = __FILE__;

#endif

    PERL_UNUSED_VAR(cv); /* -W */

    PERL_UNUSED_VAR(items); /* -W */

#ifdef XS_APIVERSION_BOOTCHECK

    XS_APIVERSION_BOOTCHECK;

#endif

    XS_VERSION_BOOTCHECK;

        (void)newXSproto_portable("Purple::XMLNode::copy", XS_Purple__XMLNode_copy, file, "$");

        (void)newXSproto_portable("Purple::XMLNode::free", XS_Purple__XMLNode_free, file, "$");

        (void)newXSproto_portable("Purple::XMLNode::from_str", XS_Purple__XMLNode_from_str, file, "$");

        (void)newXSproto_portable("Purple::XMLNode::get_name", XS_Purple__XMLNode_get_name, file, "$");

        (void)newXSproto_portable("Purple::XMLNode::get_attrib", XS_Purple__XMLNode_get_attrib, file, "$$");

        (void)newXSproto_portable("Purple::XMLNode::get_child", XS_Purple__XMLNode_get_child, file, "$$");

        (void)newXSproto_portable("Purple::XMLNode::get_child_with_namespace", XS_Purple__XMLNode_get_child_with_namespace, file, "$$$");

        (void)newXSproto_portable("Purple::XMLNode::get_data", XS_Purple__XMLNode_get_data, file, "$");

        (void)newXSproto_portable("Purple::XMLNode::get_next", XS_Purple__XMLNode_get_next, file, "$");

        (void)newXSproto_portable("Purple::XMLNode::get_next_twin", XS_Purple__XMLNode_get_next_twin, file, "$");

        (void)newXSproto_portable("Purple::XMLNode::insert_child", XS_Purple__XMLNode_insert_child, file, "$$");

        (void)newXSproto_portable("Purple::XMLNode::insert_data", XS_Purple__XMLNode_insert_data, file, "$$$");

        (void)newXSproto_portable("Purple::XMLNode::new", XS_Purple__XMLNode_new, file, "$$");

        (void)newXSproto_portable("Purple::XMLNode::new_child", XS_Purple__XMLNode_new_child, file, "$$");

        (void)newXSproto_portable("Purple::XMLNode::remove_attrib", XS_Purple__XMLNode_remove_attrib, file, "$$");

        (void)newXSproto_portable("Purple::XMLNode::set_attrib", XS_Purple__XMLNode_set_attrib, file, "$$$");

        (void)newXSproto_portable("Purple::XMLNode::to_formatted_str", XS_Purple__XMLNode_to_formatted_str, file, "$");

        (void)newXSproto_portable("Purple::XMLNode::to_str", XS_Purple__XMLNode_to_str, file, "$");

#if (PERL_REVISION == 5 && PERL_VERSION >= 9)

  if (PL_unitcheckav)

       call_list(PL_scopestack_ix, PL_unitcheckav);

#endif

    XSRETURN_YES;

}