File Coverage

xs/main_xsgen.cc

Criterion	Covered	Total	%
statement	563	774	72.7
branch	404	1270	31.8
condition			n/a
subroutine			n/a
pod			n/a
total	967	2044	47.3

/*
 * This file was generated automatically by ExtUtils::ParseXS version 3.34 from the
 * contents of main.xs. Do not edit this file, edit main.xs instead.
 *
 *    ANY CHANGES MADE HERE WILL BE LOST!
 *
 */

#line 1 "xs/main.xs"
#include
#include
#include
#include
#include

using namespace xs;
using namespace xs::uri;
using namespace panda::uri;
using panda::string;
using panda::string_view;

static std::unordered_map uri_class_map;
static Sv::payload_marker_t data_marker;

struct XsUriData {
    XsUriData () : query_cache_rev(0) {}

    void sync_query_hash (const URI* uri) {
        Hash hash;
        if (query_cache) {
            hash = query_cache.value();
            hash.clear();
        } else {
            hash = Hash::create();
            query_cache = Ref::create(hash);
        }

        auto end = uri->query().cend();
        for (auto it = uri->query().cbegin(); it != end; ++it) hash.store(it->first, Simple(it->second));

        query_cache_rev = uri->query().rev;
    }

    Ref query_hash (const URI* uri) {
        if (!query_cache || query_cache_rev != uri->query().rev) sync_query_hash(uri);
        return query_cache;
    }

private:
    Ref      query_cache;
    uint32_t query_cache_rev;
};

static void register_perl_scheme (const string& scheme, const string_view& perl_class) {
    uri_class_map[scheme] = Stash(perl_class);
}

Stash xs::uri::get_perl_class (const URI* uri) {
    auto it = uri_class_map.find(uri->scheme());
    if (it == uri_class_map.end()) return Stash();
    else return it->second;
}

void xs::uri::data_attach (Sv& sv) {
    void* data = new XsUriData();
    Object(sv).payload_attach(data, &data_marker);
}

static int data_free (pTHX_ SV*, MAGIC* mg) {
    auto data = (XsUriData*)mg->mg_ptr;
    delete data;
    return 0;
}

static XsUriData* data_get (SV* sv) {
    return (XsUriData*)Object(sv).payload(&data_marker).ptr;
}

static void add_param (URI* uri, const string& key, const Scalar& val, bool replace = false) {
    if (val.is_array_ref()) {
        Array arr = val;
        if (replace) uri->query().erase(key);
        auto end = arr.end();
        for (auto it = arr.begin(); it != end; ++it) {
            if (!*it) continue;
            uri->query().emplace(key, xs::in(*it));
        }
    }
    else if (replace) uri->param(key, xs::in(val));
    else uri->query().emplace(key, xs::in(val));
}

static void hash2query (Hash& hash, Query* query) {
    auto end = hash.end();
    for (auto it = hash.begin(); it != end; ++it) {
        string key(it->key());
        auto val = it->value();
        if (val.is_array_ref()) {
            Array arr = val;
            auto end = arr.end();
            for (auto it = arr.begin(); it != end; ++it) {
                if (!*it) continue;
                query->emplace(key, xs::in(*it));
            }
        }
        else query->emplace(key, xs::in(val));
    }
}

static void add_query_hash (URI* uri, Hash& hash, bool replace = false) {
    if (replace) {
        Query query;
        hash2query(hash, &query);
        uri->query(query);
    }
    else {
        auto end = hash.end();
        for (auto it = hash.begin(); it != end; ++it) add_param(uri, string(it->key()), it->value());
    }
}

static void add_query_args (URI* uri, SV** sp, I32 items, bool replace = false) {
    if (items == 1) {
        if (SvROK(*sp)) {
            Hash hash = *sp;
            if (hash) add_query_hash(uri, hash, replace);
        }
        else if (replace) uri->query(xs::in(*sp));
        else              uri->add_query(xs::in(*sp));
    }
    else {
        SV** spe = sp + items;
        for (; sp < spe; sp += 2) add_param(uri, xs::in(*sp), *(sp+1), replace);
    }
}

#line 138 "xs/main_xsgen.cc"
#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(const CV *const cv, const char *const params);

STATIC void
S_croak_xs_usage(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_nocontext("Usage: %s::%s(%s)", hvname, gvname, params);
        else
	    Perl_croak_nocontext("Usage: %s(%s)", gvname, params);
    } else {
        /* Pants. I don't think that it should be possible to get here. */
	Perl_croak_nocontext("Usage: CODE(0x%" UVxf ")(%s)", PTR2UV(cv), params);
    }
}
#undef  PERL_ARGS_ASSERT_CROAK_XS_USAGE

#define croak_xs_usage        S_croak_xs_usage

#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) */

#if PERL_VERSION_LE(5, 21, 5)
#  define newXS_deffile(a,b) Perl_newXS(aTHX_ a,b,file)
#else
#  define newXS_deffile(a,b) Perl_newXS_deffile(aTHX_ a,b)
#endif

#line 282 "xs/main_xsgen.cc"


XS_EUPXS(XS_URI__XS_uri) { xs::throw_guard(cv, [=]()
{
    dVAR; dXSARGS;
    if (items < 0 || items > 2)
       croak_xs_usage(cv,  "url= string(), flags= 0");
    {
	URIx	RETVAL;
	string	url;
	int	flags;

	if (items < 1)
	    url = string();
	else {
  { STRLEN __url_len;
    const char* __url_buf = SvPV(ST(0), __url_len);
    url.assign(__url_buf, __url_len); }
;
	}

	if (items < 2)
	    flags = 0;
	else {
	    flags = (int)SvIV(ST(1))
;
	}
#line 140 "xs/main.xs"
    xs::Sv PROTO; PERL_UNUSED_VAR(PROTO);
    RETVAL = URI::create(url, flags);
#line 313 "xs/main_xsgen.cc"
	{
	    SV * RETVALSV;
	    RETVALSV = xs::out(RETVAL, PROTO).detach();
	    RETVALSV = sv_2mortal(RETVALSV);
	    ST(0) = RETVALSV;
	}
    }
    XSRETURN(1);
}); }



XS_EUPXS(XS_URI__XS_register_scheme) { xs::throw_guard(cv, [=]()
{
    dVAR; dXSARGS;
    if (items != 2)
       croak_xs_usage(cv,  "scheme, perl_class");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
	string	scheme;
	string_view	perl_class;

  { STRLEN __scheme_len;
    const char* __scheme_buf = SvPV(ST(0), __scheme_len);
    scheme.assign(__scheme_buf, __scheme_len); }
;

  { STRLEN __perl_class_len;
    const char* __perl_class_buf = SvPV(ST(1), __perl_class_len);
    perl_class = decltype(perl_class)(__perl_class_buf, __perl_class_len); }
;
#line 144 "xs/main.xs"
    register_perl_scheme(scheme, perl_class);
#line 348 "xs/main_xsgen.cc"
	PUTBACK;
	return;
    }
}); }



XS_EUPXS(XS_URI__XS_bench_parse) { xs::throw_guard(cv, [=]()
{
    dVAR; dXSARGS;
    if (items < 1 || items > 2)
       croak_xs_usage(cv,  "str, flags= 0");
    {
	uint64_t	RETVAL;
	dXSTARG;
	string	str;
	int	flags;

  { STRLEN __str_len;
    const char* __str_buf = SvPV(ST(0), __str_len);
    str.assign(__str_buf, __str_len); }
;

	if (items < 2)
	    flags = 0;
	else {
	    flags = (int)SvIV(ST(1))
;
	}
#line 148 "xs/main.xs"
    RETVAL = 0;
    for (int i = 0; i < 1000; ++i) {
        URI u(str, flags);
        RETVAL += u.path().length();
    }
#line 384 "xs/main_xsgen.cc"
	XSprePUSH; PUSHu((UV)RETVAL);
    }
    XSRETURN(1);
}); }



XS_EUPXS(XS_URI__XS_test_parse) { xs::throw_guard(cv, [=]()
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "str");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
	string	str;

  { STRLEN __str_len;
    const char* __str_buf = SvPV(ST(0), __str_len);
    str.assign(__str_buf, __str_len); }
;
#line 156 "xs/main.xs"
    auto uri = URI(str);
    printf("scheme=%s\n", uri.scheme().c_str());
    printf("userinfo=%s\n", uri.user_info().c_str());
    printf("host=%s\n", uri.host().c_str());
    printf("port=%d\n", uri.port());
    printf("path=%s\n", uri.path().c_str());
    printf("query=%s\n", uri.raw_query().c_str());
    printf("fragment=%s\n", uri.fragment().c_str());
#line 415 "xs/main_xsgen.cc"
	PUTBACK;
	return;
    }
}); }



XS_EUPXS(XS_URI__XS_bench_parse_query) { xs::throw_guard(cv, [=]()
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "str");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
	string	str;

  { STRLEN __str_len;
    const char* __str_buf = SvPV(ST(0), __str_len);
    str.assign(__str_buf, __str_len); }
;
#line 167 "xs/main.xs"
    URI u;
    for (int i = 0; i < 1000; ++i) {
        u.query_string(str);
        u.query();
    }
#line 443 "xs/main_xsgen.cc"
	PUTBACK;
	return;
    }
}); }



XS_EUPXS(XS_URI__XS_bench_encode_uri_component) { xs::throw_guard(cv, [=]()
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "str");
    {
	uint64_t	RETVAL;
	dXSTARG;
	string_view	str;

  { STRLEN __str_len;
    const char* __str_buf = SvPV(ST(0), __str_len);
    str = decltype(str)(__str_buf, __str_len); }
;
#line 175 "xs/main.xs"
    RETVAL = 0;
    char dest[str.length() * 3];
    for (int i = 0; i < 1000; ++i) {
        encode_uri_component(str, dest);
    }
#line 471 "xs/main_xsgen.cc"
	XSprePUSH; PUSHu((UV)RETVAL);
    }
    XSRETURN(1);
}); }



XS_EUPXS(XS_URI__XS_bench_decode_uri_component) { xs::throw_guard(cv, [=]()
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "str");
    {
	uint64_t	RETVAL;
	dXSTARG;
	string_view	str;

  { STRLEN __str_len;
    const char* __str_buf = SvPV(ST(0), __str_len);
    str = decltype(str)(__str_buf, __str_len); }
;
#line 183 "xs/main.xs"
    RETVAL = 0;
    char dest[str.length()];
    for (int i = 0; i < 1000; ++i) {
        decode_uri_component(str, dest);
    }
#line 499 "xs/main_xsgen.cc"
	XSprePUSH; PUSHu((UV)RETVAL);
    }
    XSRETURN(1);
}); }


/* INCLUDE:  Including 'encode.xsi' from 'main.xs' */


/* INCLUDE:  Including 'URI.xsi' from 'encode.xsi' */


/* INCLUDE:  Including 'schemas.xsi' from 'URI.xsi' */


/* INCLUDE:  Including 'cloning.xsi' from 'schemas.xsi' */



XS_EUPXS(XS_URI__XS_HOOK_CLONE) { xs::throw_guard(cv, [=]()
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "THIS");
    {
	URISP	RETVAL;
	URI*	THIS = xs::in(ST(0)); if (!SvOK(ST(0))) throw "undef not allowed as THIS";
;
#line 5 "xs/cloning.xsi"
    xs::Sv PROTO; PERL_UNUSED_VAR(PROTO);
    PROTO = Object(ST(0)).stash();
    if (dynamic_cast(THIS)) RETVAL = URI::create(*THIS);
    else                                RETVAL = make_backref(*THIS);
#line 533 "xs/main_xsgen.cc"
	{
	    SV * RETVALSV;
	    RETVALSV = xs::out(RETVAL, PROTO).detach();
	    RETVALSV = sv_2mortal(RETVALSV);
	    ST(0) = RETVALSV;
	}
    }
    XSRETURN(1);
}); }



XS_EUPXS(XS_URI__XS_STORABLE_freeze) { xs::throw_guard(cv, [=]()
{
    dVAR; dXSARGS;
    if (items != 2)
       croak_xs_usage(cv,  "THIS, bool");
    {
	string	RETVAL;
	dXSTARG;
	URI*	THIS = xs::in(ST(0)); if (!SvOK(ST(0))) throw "undef not allowed as THIS";
;
#line 11 "xs/cloning.xsi"
    RETVAL = THIS->to_string();
    if (dynamic_cast(THIS)) RETVAL += '1';
    else RETVAL += '0';
#line 560 "xs/main_xsgen.cc"
	XSprePUSH; PUSHp(RETVAL.data(), RETVAL.length());
    }
    XSRETURN(1);
}); }



XS_EUPXS(XS_URI__XS_STORABLE_attach) { xs::throw_guard(cv, [=]()
{
    dVAR; dXSARGS;
    if (items != 3)
       croak_xs_usage(cv,  "CLASS, bool, serialized");
    {
	URISP	RETVAL;
	SV*	CLASS = ST(0)
;
	SV*	serialized = ST(2)
;
#line 17 "xs/cloning.xsi"
    xs::Sv PROTO; PERL_UNUSED_VAR(PROTO);
    STRLEN len;
    char* p = SvPV(serialized, len);
    len--;
    char ctrl = p[len];
    p[len] = 0;
    if (ctrl == '1') RETVAL = URI::create(string(p, len));
    else             RETVAL = make_backref(string(p, len));
    PROTO = CLASS;
#line 589 "xs/main_xsgen.cc"
	{
	    SV * RETVALSV;
	    RETVALSV = xs::out(RETVAL, PROTO).detach();
	    RETVALSV = sv_2mortal(RETVALSV);
	    ST(0) = RETVALSV;
	}
    }
    XSRETURN(1);
}); }



XS_EUPXS(XS_URI__XS_TO_JSON) { xs::throw_guard(cv, [=]()
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "THIS");
    {
	string	RETVAL;
	dXSTARG;
	URI*	THIS = xs::in(ST(0)); if (!SvOK(ST(0))) throw "undef not allowed as THIS";
;
#line 28 "xs/cloning.xsi"
    RETVAL = THIS->to_string();
#line 614 "xs/main_xsgen.cc"
	XSprePUSH; PUSHp(RETVAL.data(), RETVAL.length());
    }
    XSRETURN(1);
}); }


/* INCLUDE: Returning to 'schemas.xsi' from 'cloning.xsi' */



XS_EUPXS(XS_URI__XS__http_new) { xs::throw_guard(cv, [=]()
{
    dVAR; dXSARGS;
    if (items < 1)
       croak_xs_usage(cv,  "CLASS, url= string(), ...");
    {
	URI::http *	RETVAL;
	SV*	CLASS = ST(0)
;
	string	url;

	if (items < 2)
	    url = string();
	else {
  { STRLEN __url_len;
    const char* __url_buf = SvPV(ST(1), __url_len);
    url.assign(__url_buf, __url_len); }
;
	}
#line 11 "xs/schemas.xsi"
    xs::Sv PROTO; PERL_UNUSED_VAR(PROTO);
    PROTO = CLASS;
    RETVAL = make_backref(url);
    add_query_args(RETVAL, MARK+3, items-2);
#line 649 "xs/main_xsgen.cc"
	{
	    SV * RETVALSV;
	    RETVALSV = xs::out(RETVAL, PROTO).detach();
	    RETVALSV = sv_2mortal(RETVALSV);
	    ST(0) = RETVALSV;
	}
    }
    XSRETURN(1);
}); }



XS_EUPXS(XS_URI__XS__https_new) { xs::throw_guard(cv, [=]()
{
    dVAR; dXSARGS;
    if (items < 1)
       croak_xs_usage(cv,  "CLASS, url= string(), ...");
    {
	URI::https *	RETVAL;
	SV*	CLASS = ST(0)
;
	string	url;

	if (items < 2)
	    url = string();
	else {
  { STRLEN __url_len;
    const char* __url_buf = SvPV(ST(1), __url_len);
    url.assign(__url_buf, __url_len); }
;
	}
#line 27 "xs/schemas.xsi"
    xs::Sv PROTO; PERL_UNUSED_VAR(PROTO);
    PROTO = CLASS;
    RETVAL = make_backref(url);
    add_query_args(RETVAL, MARK+3, items-2);
#line 686 "xs/main_xsgen.cc"
	{
	    SV * RETVALSV;
	    RETVALSV = xs::out(RETVAL, PROTO).detach();
	    RETVALSV = sv_2mortal(RETVALSV);
	    ST(0) = RETVALSV;
	}
    }
    XSRETURN(1);
}); }



XS_EUPXS(XS_URI__XS__ws_new) { xs::throw_guard(cv, [=]()
{
    dVAR; dXSARGS;
    if (items < 1)
       croak_xs_usage(cv,  "CLASS, url= string(), ...");
    {
	URI::ws *	RETVAL;
	SV*	CLASS = ST(0)
;
	string	url;

	if (items < 2)
	    url = string();
	else {
  { STRLEN __url_len;
    const char* __url_buf = SvPV(ST(1), __url_len);
    url.assign(__url_buf, __url_len); }
;
	}
#line 43 "xs/schemas.xsi"
    xs::Sv PROTO; PERL_UNUSED_VAR(PROTO);
    PROTO = CLASS;
    RETVAL = make_backref(url);
    add_query_args(RETVAL, MARK+3, items-2);
#line 723 "xs/main_xsgen.cc"
	{
	    SV * RETVALSV;
	    RETVALSV = xs::out(RETVAL, PROTO).detach();
	    RETVALSV = sv_2mortal(RETVALSV);
	    ST(0) = RETVALSV;
	}
    }
    XSRETURN(1);
}); }



XS_EUPXS(XS_URI__XS__wss_new) { xs::throw_guard(cv, [=]()
{
    dVAR; dXSARGS;
    if (items < 1)
       croak_xs_usage(cv,  "CLASS, url= string(), ...");
    {
	URI::wss *	RETVAL;
	SV*	CLASS = ST(0)
;
	string	url;

	if (items < 2)
	    url = string();
	else {
  { STRLEN __url_len;
    const char* __url_buf = SvPV(ST(1), __url_len);
    url.assign(__url_buf, __url_len); }
;
	}
#line 59 "xs/schemas.xsi"
    xs::Sv PROTO; PERL_UNUSED_VAR(PROTO);
    PROTO = CLASS;
    RETVAL = make_backref(url);
    add_query_args(RETVAL, MARK+3, items-2);
#line 760 "xs/main_xsgen.cc"
	{
	    SV * RETVALSV;
	    RETVALSV = xs::out(RETVAL, PROTO).detach();
	    RETVALSV = sv_2mortal(RETVALSV);
	    ST(0) = RETVALSV;
	}
    }
    XSRETURN(1);
}); }



XS_EUPXS(XS_URI__XS__ftp_new) { xs::throw_guard(cv, [=]()
{
    dVAR; dXSARGS;
    if (items < 1 || items > 3)
       croak_xs_usage(cv,  "CLASS, url= string(), flags= 0");
    {
	URI::ftp *	RETVAL;
	SV*	CLASS = ST(0)
;
	string	url;
	int	flags;

	if (items < 2)
	    url = string();
	else {
  { STRLEN __url_len;
    const char* __url_buf = SvPV(ST(1), __url_len);
    url.assign(__url_buf, __url_len); }
;
	}

	if (items < 3)
	    flags = 0;
	else {
	    flags = (int)SvIV(ST(2))
;
	}
#line 75 "xs/schemas.xsi"
    xs::Sv PROTO; PERL_UNUSED_VAR(PROTO);
    PROTO = CLASS;
    RETVAL = make_backref(url, flags);
#line 804 "xs/main_xsgen.cc"
	{
	    SV * RETVALSV;
	    RETVALSV = xs::out(RETVAL, PROTO).detach();
	    RETVALSV = sv_2mortal(RETVALSV);
	    ST(0) = RETVALSV;
	}
    }
    XSRETURN(1);
}); }



XS_EUPXS(XS_URI__XS__socks_new) { xs::throw_guard(cv, [=]()
{
    dVAR; dXSARGS;
    if (items < 1 || items > 3)
       croak_xs_usage(cv,  "CLASS, url= string(), flags= 0");
    {
	URI::socks *	RETVAL;
	SV*	CLASS = ST(0)
;
	string	url;
	int	flags;

	if (items < 2)
	    url = string();
	else {
  { STRLEN __url_len;
    const char* __url_buf = SvPV(ST(1), __url_len);
    url.assign(__url_buf, __url_len); }
;
	}

	if (items < 3)
	    flags = 0;
	else {
	    flags = (int)SvIV(ST(2))
;
	}
#line 90 "xs/schemas.xsi"
    xs::Sv PROTO; PERL_UNUSED_VAR(PROTO);
    PROTO = CLASS;
    RETVAL = make_backref(url, flags);
#line 848 "xs/main_xsgen.cc"
	{
	    SV * RETVALSV;
	    RETVALSV = xs::out(RETVAL, PROTO).detach();
	    RETVALSV = sv_2mortal(RETVALSV);
	    ST(0) = RETVALSV;
	}
    }
    XSRETURN(1);
}); }



XS_EUPXS(XS_URI__XS__ssh_new) { xs::throw_guard(cv, [=]()
{
    dVAR; dXSARGS;
    if (items < 1 || items > 3)
       croak_xs_usage(cv,  "CLASS, url= string(), flags= 0");
    {
	URI::ssh *	RETVAL;
	SV*	CLASS = ST(0)
;
	string	url;
	int	flags;

	if (items < 2)
	    url = string();
	else {
  { STRLEN __url_len;
    const char* __url_buf = SvPV(ST(1), __url_len);
    url.assign(__url_buf, __url_len); }
;
	}

	if (items < 3)
	    flags = 0;
	else {
	    flags = (int)SvIV(ST(2))
;
	}
#line 105 "xs/schemas.xsi"
    xs::Sv PROTO; PERL_UNUSED_VAR(PROTO);
    PROTO = CLASS;
    RETVAL = make_backref(url, flags);
#line 892 "xs/main_xsgen.cc"
	{
	    SV * RETVALSV;
	    RETVALSV = xs::out(RETVAL, PROTO).detach();
	    RETVALSV = sv_2mortal(RETVALSV);
	    ST(0) = RETVALSV;
	}
    }
    XSRETURN(1);
}); }



XS_EUPXS(XS_URI__XS__telnet_new) { xs::throw_guard(cv, [=]()
{
    dVAR; dXSARGS;
    if (items < 1 || items > 3)
       croak_xs_usage(cv,  "CLASS, url= string(), flags= 0");
    {
	URI::telnet *	RETVAL;
	SV*	CLASS = ST(0)
;
	string	url;
	int	flags;

	if (items < 2)
	    url = string();
	else {
  { STRLEN __url_len;
    const char* __url_buf = SvPV(ST(1), __url_len);
    url.assign(__url_buf, __url_len); }
;
	}

	if (items < 3)
	    flags = 0;
	else {
	    flags = (int)SvIV(ST(2))
;
	}
#line 120 "xs/schemas.xsi"
    xs::Sv PROTO; PERL_UNUSED_VAR(PROTO);
    PROTO = CLASS;
    RETVAL = make_backref(url, flags);
#line 936 "xs/main_xsgen.cc"
	{
	    SV * RETVALSV;
	    RETVALSV = xs::out(RETVAL, PROTO).detach();
	    RETVALSV = sv_2mortal(RETVALSV);
	    ST(0) = RETVALSV;
	}
    }
    XSRETURN(1);
}); }



XS_EUPXS(XS_URI__XS__sftp_new) { xs::throw_guard(cv, [=]()
{
    dVAR; dXSARGS;
    if (items < 1 || items > 3)
       croak_xs_usage(cv,  "CLASS, url= string(), flags= 0");
    {
	URI::sftp *	RETVAL;
	SV*	CLASS = ST(0)
;
	string	url;
	int	flags;

	if (items < 2)
	    url = string();
	else {
  { STRLEN __url_len;
    const char* __url_buf = SvPV(ST(1), __url_len);
    url.assign(__url_buf, __url_len); }
;
	}

	if (items < 3)
	    flags = 0;
	else {
	    flags = (int)SvIV(ST(2))
;
	}
#line 135 "xs/schemas.xsi"
    xs::Sv PROTO; PERL_UNUSED_VAR(PROTO);
    PROTO = CLASS;
    RETVAL = make_backref(url, flags);
#line 980 "xs/main_xsgen.cc"
	{
	    SV * RETVALSV;
	    RETVALSV = xs::out(RETVAL, PROTO).detach();
	    RETVALSV = sv_2mortal(RETVALSV);
	    ST(0) = RETVALSV;
	}
    }
    XSRETURN(1);
}); }


/* INCLUDE: Returning to 'URI.xsi' from 'schemas.xsi' */

static U32 uxs_hashval;


XS_EUPXS(XS_URI__XS_new) { xs::throw_guard(cv, [=]()
{
    dVAR; dXSARGS;
    if (items < 1 || items > 3)
       croak_xs_usage(cv,  "CLASS, url= string(), flags= 0");
    {
	URI *	RETVAL;
	SV*	CLASS = ST(0)
;
	string	url;
	int	flags;

	if (items < 2)
	    url = string();
	else {
  { STRLEN __url_len;
    const char* __url_buf = SvPV(ST(1), __url_len);
    url.assign(__url_buf, __url_len); }
;
	}

	if (items < 3)
	    flags = 0;
	else {
	    flags = (int)SvIV(ST(2))
;
	}
#line 25 "xs/URI.xsi"
    xs::Sv PROTO; PERL_UNUSED_VAR(PROTO);
    PROTO = CLASS;
    PROTO = CLASS;
    RETVAL = make_backref(url, flags);
#line 1029 "xs/main_xsgen.cc"
	{
	    SV * RETVALSV;
	    RETVALSV = xs::out(RETVAL, PROTO).detach();
	    RETVALSV = sv_2mortal(RETVALSV);
	    ST(0) = RETVALSV;
	}
    }
    XSRETURN(1);
}); }



XS_EUPXS(XS_URI__XS_url) { xs::throw_guard(cv, [=]()
{
    dVAR; dXSARGS;
    if (items < 1 || items > 3)
       croak_xs_usage(cv,  "THIS, newval= NULL, flags= 0");
    {
	string	RETVAL;
	dXSTARG;
	URI*	THIS = xs::in(ST(0)); if (!SvOK(ST(0))) throw "undef not allowed as THIS";
;
	SV*	newval;
	int	flags;

	if (items < 2)
	    newval = NULL;
	else {
	    newval = ST(1)
;
	}

	if (items < 3)
	    flags = 0;
	else {
	    flags = (int)SvIV(ST(2))
;
	}
#line 30 "xs/URI.xsi"
    if (newval) {
        THIS->assign(SvOK(newval) ? xs::in(newval) : "", flags);
        XSRETURN_UNDEF;
    }
    RETVAL = THIS->to_string();
#line 1074 "xs/main_xsgen.cc"
	XSprePUSH; PUSHp(RETVAL.data(), RETVAL.length());
    }
    XSRETURN(1);
}); }



XS_EUPXS(XS_URI__XS_scheme) { xs::throw_guard(cv, [=]()
{
    dVAR; dXSARGS;
    dXSI32;
    if (items < 1 || items > 2)
       croak_xs_usage(cv,  "THIS, newval= NULL");
    {
	string	RETVAL;
	dXSTARG;
	URI*	THIS = xs::in(ST(0)); if (!SvOK(ST(0))) throw "undef not allowed as THIS";
;
	SV*	newval;

	if (items < 2)
	    newval = NULL;
	else {
	    newval = ST(1)
;
	}
#line 38 "xs/URI.xsi"
    if (newval) {
        THIS->scheme(SvOK(newval) ? xs::in(newval) : "");
        XSRETURN_UNDEF;
    }
    RETVAL = THIS->scheme();
    PERL_UNUSED_VAR(ix);
#line 1108 "xs/main_xsgen.cc"
	XSprePUSH; PUSHp(RETVAL.data(), RETVAL.length());
    }
    XSRETURN(1);
}); }



XS_EUPXS(XS_URI__XS_user_info) { xs::throw_guard(cv, [=]()
{
    dVAR; dXSARGS;
    if (items < 1 || items > 2)
       croak_xs_usage(cv,  "THIS, newval= NULL");
    {
	string	RETVAL;
	dXSTARG;
	URI*	THIS = xs::in(ST(0)); if (!SvOK(ST(0))) throw "undef not allowed as THIS";
;
	SV*	newval;

	if (items < 2)
	    newval = NULL;
	else {
	    newval = ST(1)
;
	}
#line 47 "xs/URI.xsi"
    if (newval) {
        THIS->user_info(SvOK(newval) ? xs::in(newval) : "");
        XSRETURN_UNDEF;
    }
    RETVAL = THIS->user_info();
#line 1140 "xs/main_xsgen.cc"
	XSprePUSH; PUSHp(RETVAL.data(), RETVAL.length());
    }
    XSRETURN(1);
}); }



XS_EUPXS(XS_URI__XS_host) { xs::throw_guard(cv, [=]()
{
    dVAR; dXSARGS;
    if (items < 1 || items > 2)
       croak_xs_usage(cv,  "THIS, newval= NULL");
    {
	string	RETVAL;
	dXSTARG;
	URI*	THIS = xs::in(ST(0)); if (!SvOK(ST(0))) throw "undef not allowed as THIS";
;
	SV*	newval;

	if (items < 2)
	    newval = NULL;
	else {
	    newval = ST(1)
;
	}
#line 55 "xs/URI.xsi"
    if (newval) {
        THIS->host(SvOK(newval) ? xs::in(newval) : "");
        XSRETURN_UNDEF;
    }
    RETVAL = THIS->host();
#line 1172 "xs/main_xsgen.cc"
	XSprePUSH; PUSHp(RETVAL.data(), RETVAL.length());
    }
    XSRETURN(1);
}); }



XS_EUPXS(XS_URI__XS_port) { xs::throw_guard(cv, [=]()
{
    dVAR; dXSARGS;
    if (items < 1 || items > 2)
       croak_xs_usage(cv,  "THIS, newval= NULL");
    {
	int	RETVAL;
	dXSTARG;
	URI*	THIS = xs::in(ST(0)); if (!SvOK(ST(0))) throw "undef not allowed as THIS";
;
	SV*	newval;

	if (items < 2)
	    newval = NULL;
	else {
	    newval = ST(1)
;
	}
#line 63 "xs/URI.xsi"
    if (newval) {
        THIS->port(SvIV(newval));
        XSRETURN_UNDEF;
    }
    RETVAL = THIS->port();
#line 1204 "xs/main_xsgen.cc"
	XSprePUSH; PUSHi((IV)RETVAL);
    }
    XSRETURN(1);
}); }



XS_EUPXS(XS_URI__XS_path) { xs::throw_guard(cv, [=]()
{
    dVAR; dXSARGS;
    if (items < 1 || items > 2)
       croak_xs_usage(cv,  "THIS, newval= NULL");
    {
	string	RETVAL;
	dXSTARG;
	URI*	THIS = xs::in(ST(0)); if (!SvOK(ST(0))) throw "undef not allowed as THIS";
;
	SV*	newval;

	if (items < 2)
	    newval = NULL;
	else {
	    newval = ST(1)
;
	}
#line 71 "xs/URI.xsi"
    if (newval) {
        THIS->path(SvOK(newval) ? xs::in(newval) : "");
        XSRETURN_UNDEF;
    }
    RETVAL = THIS->path();
#line 1236 "xs/main_xsgen.cc"
	XSprePUSH; PUSHp(RETVAL.data(), RETVAL.length());
    }
    XSRETURN(1);
}); }



XS_EUPXS(XS_URI__XS_path_info) { xs::throw_guard(cv, [=]()
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "THIS");
    {
	string	RETVAL;
	dXSTARG;
	URI*	THIS = xs::in(ST(0)); if (!SvOK(ST(0))) throw "undef not allowed as THIS";
;
#line 78 "xs/URI.xsi"
        RETVAL = THIS->path_info();
#line 1256 "xs/main_xsgen.cc"
	XSprePUSH; PUSHp(RETVAL.data(), RETVAL.length());
    }
    XSRETURN(1);
}); }



XS_EUPXS(XS_URI__XS_query_string) { xs::throw_guard(cv, [=]()
{
    dVAR; dXSARGS;
    if (items < 1 || items > 2)
       croak_xs_usage(cv,  "THIS, newval= NULL");
    {
	string	RETVAL;
	dXSTARG;
	URI*	THIS = xs::in(ST(0)); if (!SvOK(ST(0))) throw "undef not allowed as THIS";
;
	SV*	newval;

	if (items < 2)
	    newval = NULL;
	else {
	    newval = ST(1)
;
	}
#line 81 "xs/URI.xsi"
    if (newval) {
        THIS->query_string(SvOK(newval) ? xs::in(newval) : "");
        XSRETURN_UNDEF;
    }
    RETVAL = THIS->query_string();
#line 1288 "xs/main_xsgen.cc"
	XSprePUSH; PUSHp(RETVAL.data(), RETVAL.length());
    }
    XSRETURN(1);
}); }



XS_EUPXS(XS_URI__XS_raw_query) { xs::throw_guard(cv, [=]()
{
    dVAR; dXSARGS;
    if (items < 1 || items > 2)
       croak_xs_usage(cv,  "THIS, newval= NULL");
    {
	string	RETVAL;
	dXSTARG;
	URI*	THIS = xs::in(ST(0)); if (!SvOK(ST(0))) throw "undef not allowed as THIS";
;
	SV*	newval;

	if (items < 2)
	    newval = NULL;
	else {
	    newval = ST(1)
;
	}
#line 89 "xs/URI.xsi"
    if (newval) {
        THIS->raw_query(SvOK(newval) ? xs::in(newval) : "");
        XSRETURN_UNDEF;
    }
    RETVAL = THIS->raw_query();
#line 1320 "xs/main_xsgen.cc"
	XSprePUSH; PUSHp(RETVAL.data(), RETVAL.length());
    }
    XSRETURN(1);
}); }



XS_EUPXS(XS_URI__XS_query) { xs::throw_guard(cv, [=]()
{
    dVAR; dXSARGS;
    if (items < 1)
       croak_xs_usage(cv,  "THIS, ...");
    {
	Ref	RETVAL;
	URI*	THIS = xs::in(ST(0)); if (!SvOK(ST(0))) throw "undef not allowed as THIS";
;
#line 97 "xs/URI.xsi"
    if (items > 1) {
        add_query_args(THIS, MARK+2, items-1, true);
        XSRETURN_UNDEF;
    }
    auto data = data_get(ST(0));
    RETVAL = data->query_hash(THIS);
#line 1344 "xs/main_xsgen.cc"
	{
	    SV * RETVALSV;
    RETVALSV = NULL;
    if (!RETVAL) XSRETURN_UNDEF;
    RETVALSV = RETVAL.detach();
	    RETVALSV = sv_2mortal(RETVALSV);
	    ST(0) = RETVALSV;
	}
    }
    XSRETURN(1);
}); }



XS_EUPXS(XS_URI__XS_add_query) { xs::throw_guard(cv, [=]()
{
    dVAR; dXSARGS;
    if (items < 1)
       croak_xs_usage(cv,  "THIS, ...");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
	URI*	THIS = xs::in(ST(0)); if (!SvOK(ST(0))) throw "undef not allowed as THIS";
;
#line 106 "xs/URI.xsi"
    add_query_args(THIS, MARK+2, items-1);
#line 1371 "xs/main_xsgen.cc"
	PUTBACK;
	return;
    }
}); }



XS_EUPXS(XS_URI__XS_param) { xs::throw_guard(cv, [=]()
{
    dVAR; dXSARGS;
    dXSI32;
    if (items < 2 || items > 3)
       croak_xs_usage(cv,  "THIS, name, val= NULL");
    {
	string	RETVAL;
	dXSTARG;
	URI*	THIS = xs::in(ST(0)); if (!SvOK(ST(0))) throw "undef not allowed as THIS";
;
	string_view	name;
	SV*	val;

  { STRLEN __name_len;
    const char* __name_buf = SvPV(ST(1), __name_len);
    name = decltype(name)(__name_buf, __name_len); }
;

	if (items < 3)
	    val = NULL;
	else {
	    val = ST(2)
;
	}
#line 110 "xs/URI.xsi"
    if (val) {
        add_param(THIS, string(name), val, true);
        XSRETURN_UNDEF;
    }
    if (ix == 0) { // param method
        auto it = THIS->query().find(name);
        if (it == THIS->query().cend()) XSRETURN_UNDEF;
        RETVAL = it->second;
    } else { // multiparam method
        size_t nvals = THIS->query().count(name);
        switch (nvals) {
            case 0:
                XSRETURN_EMPTY; break;
            case 1:
                RETVAL = THIS->query().find(name)->second; break;
            default:
                SP -= items;
                EXTEND(SP, (int)nvals);
                const auto& query = THIS->query();
                auto pair = query.equal_range(name);
                for (auto it = pair.first; it != pair.second; ++it) mPUSHp(it->second.data(), it->second.length());
                XSRETURN(nvals);
        }
    }
#line 1429 "xs/main_xsgen.cc"
	XSprePUSH; PUSHp(RETVAL.data(), RETVAL.length());
    }
    XSRETURN(1);
}); }



XS_EUPXS(XS_URI__XS_nparam) { xs::throw_guard(cv, [=]()
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "THIS");
    {
	int	RETVAL;
	dXSTARG;
	URI*	THIS = xs::in(ST(0)); if (!SvOK(ST(0))) throw "undef not allowed as THIS";
;
#line 137 "xs/URI.xsi"
    RETVAL = THIS->query().size();
#line 1449 "xs/main_xsgen.cc"
	XSprePUSH; PUSHi((IV)RETVAL);
    }
    XSRETURN(1);
}); }



XS_EUPXS(XS_URI__XS_remove_param) { xs::throw_guard(cv, [=]()
{
    dVAR; dXSARGS;
    if (items != 2)
       croak_xs_usage(cv,  "THIS, name");
    {
	size_t	RETVAL;
	dXSTARG;
	URI*	THIS = xs::in(ST(0)); if (!SvOK(ST(0))) throw "undef not allowed as THIS";
;
	string	name;

  { STRLEN __name_len;
    const char* __name_buf = SvPV(ST(1), __name_len);
    name.assign(__name_buf, __name_len); }
;
#line 141 "xs/URI.xsi"
    RETVAL = THIS->query().erase(name);
#line 1475 "xs/main_xsgen.cc"
	XSprePUSH; PUSHu((UV)RETVAL);
    }
    XSRETURN(1);
}); }



XS_EUPXS(XS_URI__XS_fragment) { xs::throw_guard(cv, [=]()
{
    dVAR; dXSARGS;
    dXSI32;
    if (items < 1 || items > 2)
       croak_xs_usage(cv,  "THIS, newval= NULL");
    {
	string	RETVAL;
	dXSTARG;
	URI*	THIS = xs::in(ST(0)); if (!SvOK(ST(0))) throw "undef not allowed as THIS";
;
	SV*	newval;

	if (items < 2)
	    newval = NULL;
	else {
	    newval = ST(1)
;
	}
#line 145 "xs/URI.xsi"
    if (newval) {
        THIS->fragment(SvOK(newval) ? xs::in(newval) : "");
        XSRETURN_UNDEF;
    }
    RETVAL = THIS->fragment();
    PERL_UNUSED_VAR(ix);
#line 1509 "xs/main_xsgen.cc"
	XSprePUSH; PUSHp(RETVAL.data(), RETVAL.length());
    }
    XSRETURN(1);
}); }



XS_EUPXS(XS_URI__XS_location) { xs::throw_guard(cv, [=]()
{
    dVAR; dXSARGS;
    if (items < 1 || items > 2)
       croak_xs_usage(cv,  "THIS, newval= NULL");
    {
	string	RETVAL;
	dXSTARG;
	URI*	THIS = xs::in(ST(0)); if (!SvOK(ST(0))) throw "undef not allowed as THIS";
;
	SV*	newval;

	if (items < 2)
	    newval = NULL;
	else {
	    newval = ST(1)
;
	}
#line 154 "xs/URI.xsi"
    if (newval) {
        THIS->location(SvOK(newval) ? xs::in(newval) : "");
        XSRETURN_UNDEF;
    }
    RETVAL = THIS->location();
#line 1541 "xs/main_xsgen.cc"
	XSprePUSH; PUSHp(RETVAL.data(), RETVAL.length());
    }
    XSRETURN(1);
}); }



XS_EUPXS(XS_URI__XS_explicit_port) { xs::throw_guard(cv, [=]()
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "THIS");
    {
	uint16_t	RETVAL;
	dXSTARG;
	URI*	THIS = xs::in(ST(0)); if (!SvOK(ST(0))) throw "undef not allowed as THIS";
;
#line 161 "xs/URI.xsi"
        RETVAL = THIS->explicit_port();
#line 1561 "xs/main_xsgen.cc"
	XSprePUSH; PUSHu((UV)RETVAL);
    }
    XSRETURN(1);
}); }



XS_EUPXS(XS_URI__XS_default_port) { xs::throw_guard(cv, [=]()
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "THIS");
    {
	uint16_t	RETVAL;
	dXSTARG;
	URI*	THIS = xs::in(ST(0)); if (!SvOK(ST(0))) throw "undef not allowed as THIS";
;
#line 163 "xs/URI.xsi"
        RETVAL = THIS->default_port();
#line 1581 "xs/main_xsgen.cc"
	XSprePUSH; PUSHu((UV)RETVAL);
    }
    XSRETURN(1);
}); }



XS_EUPXS(XS_URI__XS_explicit_location) { xs::throw_guard(cv, [=]()
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "THIS");
    {
	string	RETVAL;
	dXSTARG;
	URI*	THIS = xs::in(ST(0)); if (!SvOK(ST(0))) throw "undef not allowed as THIS";
;
#line 165 "xs/URI.xsi"
        RETVAL = THIS->explicit_location();
#line 1601 "xs/main_xsgen.cc"
	XSprePUSH; PUSHp(RETVAL.data(), RETVAL.length());
    }
    XSRETURN(1);
}); }



XS_EUPXS(XS_URI__XS_relative) { xs::throw_guard(cv, [=]()
{
    dVAR; dXSARGS;
    dXSI32;
    if (items != 1)
       croak_xs_usage(cv,  "THIS");
    {
	string	RETVAL;
	dXSTARG;
	URI*	THIS = xs::in(ST(0)); if (!SvOK(ST(0))) throw "undef not allowed as THIS";
;
#line 168 "xs/URI.xsi"
    RETVAL = THIS->relative();
    PERL_UNUSED_VAR(ix);
#line 1623 "xs/main_xsgen.cc"
	XSprePUSH; PUSHp(RETVAL.data(), RETVAL.length());
    }
    XSRETURN(1);
}); }



XS_EUPXS(XS_URI__XS_to_string) { xs::throw_guard(cv, [=]()
{
    dVAR; dXSARGS;
    dXSI32;
    if (items < 1)
       croak_xs_usage(cv,  "THIS, ...");
    {
	string	RETVAL;
	dXSTARG;
	URI*	THIS = xs::in(ST(0)); if (!SvOK(ST(0))) throw "undef not allowed as THIS";
;
#line 173 "xs/URI.xsi"
    RETVAL = THIS->to_string();
    PERL_UNUSED_VAR(ix);
#line 1645 "xs/main_xsgen.cc"
	XSprePUSH; PUSHp(RETVAL.data(), RETVAL.length());
    }
    XSRETURN(1);
}); }



XS_EUPXS(XS_URI__XS_secure) { xs::throw_guard(cv, [=]()
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "THIS");
    {
	bool	RETVAL;
	URI*	THIS = xs::in(ST(0)); if (!SvOK(ST(0))) throw "undef not allowed as THIS";
;
#line 177 "xs/URI.xsi"
        RETVAL = THIS->secure();
#line 1664 "xs/main_xsgen.cc"
	ST(0) = boolSV(RETVAL);
    }
    XSRETURN(1);
}); }



XS_EUPXS(XS_URI__XS_set) { xs::throw_guard(cv, [=]()
{
    dVAR; dXSARGS;
    dXSI32;
    if (items < 2 || items > 3)
       croak_xs_usage(cv,  "THIS, source, flags= 0");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
	URI*	THIS = xs::in(ST(0)); if (!SvOK(ST(0))) throw "undef not allowed as THIS";
;
	Sv    source = ST(1)
;
	int	flags;

	if (items < 3)
	    flags = 0;
	else {
	    flags = (int)SvIV(ST(2))
;
	}
#line 180 "xs/URI.xsi"
    PERL_UNUSED_VAR(ix);
    if (source.is_string()) THIS->assign(xs::in(source), flags);
    else                    THIS->assign(*xs::in>(source));
#line 1697 "xs/main_xsgen.cc"
	PUTBACK;
	return;
    }
}); }



XS_EUPXS(XS_URI__XS_equals) { xs::throw_guard(cv, [=]()
{
    dVAR; dXSARGS;
    if (items < 2)
       croak_xs_usage(cv,  "THIS, other, ...");
    {
	bool	RETVAL;
	URI*	THIS = xs::in(ST(0)); if (!SvOK(ST(0))) throw "undef not allowed as THIS";
;
	Sv    other = ST(1)
;
#line 186 "xs/URI.xsi"
    if (other.is_string()) RETVAL = THIS->to_string() == xs::in(other);
    else {
        Object obj = other;
        if (obj && obj.stash().isa("URI::XS")) RETVAL = THIS->equals(*xs::in(obj));
        else                                   RETVAL = false;
    }
#line 1723 "xs/main_xsgen.cc"
	ST(0) = boolSV(RETVAL);
    }
    XSRETURN(1);
}); }



XS_EUPXS(XS_URI__XS_clone) { xs::throw_guard(cv, [=]()
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "THIS");
    {
	URISP	RETVAL;
	URI*	THIS = xs::in(ST(0)); if (!SvOK(ST(0))) throw "undef not allowed as THIS";
;
#line 195 "xs/URI.xsi"
    xs::Sv PROTO; PERL_UNUSED_VAR(PROTO);
    PROTO = Object(ST(0)).stash();
    if (dynamic_cast(THIS)) RETVAL = URI::create(*THIS);
    else                                RETVAL = new URI(*THIS);
#line 1745 "xs/main_xsgen.cc"
	{
	    SV * RETVALSV;
	    RETVALSV = xs::out(RETVAL, PROTO).detach();
	    RETVALSV = sv_2mortal(RETVALSV);
	    ST(0) = RETVALSV;
	}
    }
    XSRETURN(1);
}); }



XS_EUPXS(XS_URI__XS_path_segments) { xs::throw_guard(cv, [=]()
{
    dVAR; dXSARGS;
    if (items < 1)
       croak_xs_usage(cv,  "THIS, ...");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
	URI*	THIS = xs::in(ST(0)); if (!SvOK(ST(0))) throw "undef not allowed as THIS";
;
#line 201 "xs/URI.xsi"
    if (items > 1) {
        std::vector list;
        list.reserve(items-1);
        for (I32 i = 1; i < items; ++i) list.push_back(xs::in(ST(i)));
        THIS->path_segments(list.cbegin(), list.cend());
        XSRETURN_EMPTY;
    }
    const std::vector list = THIS->path_segments();
    EXTEND(SP, (int)list.size());
    for (auto it = list.begin(); it != list.end(); ++it) mPUSHp(it->data(), it->length());
#line 1779 "xs/main_xsgen.cc"
	PUTBACK;
	return;
    }
}); }



XS_EUPXS(XS_URI__XS_to_bool) { xs::throw_guard(cv, [=]()
{
    dVAR; dXSARGS;
    if (items < 1)
       croak_xs_usage(cv,  "THIS, ...");
    {
	bool	RETVAL;
	URI*	THIS = xs::in(ST(0)); if (!SvOK(ST(0))) throw "undef not allowed as THIS";
;
#line 214 "xs/URI.xsi"
    RETVAL = THIS->scheme().length() || THIS->host().length() || THIS->path().length() || THIS->query_string().length() ||
             THIS->fragment().length();
#line 1799 "xs/main_xsgen.cc"
	ST(0) = boolSV(RETVAL);
    }
    XSRETURN(1);
}); }



XS_EUPXS(XS_URI__XS_user) { xs::throw_guard(cv, [=]()
{
    dVAR; dXSARGS;
    if (items < 1 || items > 2)
       croak_xs_usage(cv,  "THIS, newval= NULL");
    {
	string	RETVAL;
	dXSTARG;
	URI*	THIS = xs::in(ST(0)); if (!SvOK(ST(0))) throw "undef not allowed as THIS";
;
	SV*	newval;

	if (items < 2)
	    newval = NULL;
	else {
	    newval = ST(1)
;
	}
#line 219 "xs/URI.xsi"
    if (newval) {
        THIS->user(xs::in(newval));
        XSRETURN_UNDEF;
    }
    RETVAL = THIS->user();
#line 1831 "xs/main_xsgen.cc"
	XSprePUSH; PUSHp(RETVAL.data(), RETVAL.length());
    }
    XSRETURN(1);
}); }



XS_EUPXS(XS_URI__XS_password) { xs::throw_guard(cv, [=]()
{
    dVAR; dXSARGS;
    if (items < 1 || items > 2)
       croak_xs_usage(cv,  "THIS, newval= NULL");
    {
	string	RETVAL;
	dXSTARG;
	URI*	THIS = xs::in(ST(0)); if (!SvOK(ST(0))) throw "undef not allowed as THIS";
;
	SV*	newval;

	if (items < 2)
	    newval = NULL;
	else {
	    newval = ST(1)
;
	}
#line 227 "xs/URI.xsi"
    if (newval) {
        THIS->password(xs::in(newval));
        XSRETURN_UNDEF;
    }
    RETVAL = THIS->password();
#line 1863 "xs/main_xsgen.cc"
	XSprePUSH; PUSHp(RETVAL.data(), RETVAL.length());
    }
    XSRETURN(1);
}); }


/* INCLUDE: Returning to 'encode.xsi' from 'URI.xsi' */



XS_EUPXS(XS_URI__XS_encode_uri_component) { xs::throw_guard(cv, [=]()
{
    dVAR; dXSARGS;
    dXSI32;
    if (items < 1 || items > 2)
       croak_xs_usage(cv,  "input, plus= false");
    {
	SV *	RETVAL;
	string_view	input;
	bool	plus;

  { STRLEN __input_len;
    const char* __input_buf = SvPV(ST(0), __input_len);
    input = decltype(input)(__input_buf, __input_len); }
;

	if (items < 2)
	    plus = false;
	else {
	    plus = (bool)SvTRUE(ST(1))
;
	}
#line 5 "xs/encode.xsi"
    RETVAL = newSV(input.length()*3 + 1);
    SvPOK_on(RETVAL);
    size_t rlen = encode_uri_component(input, SvPVX(RETVAL), plus ? URIComponent::query_param_plus : URIComponent::query_param);
    SvPVX(RETVAL)[rlen] = 0;
    SvCUR_set(RETVAL, rlen);
    PERL_UNUSED_VAR(ix);
#line 1903 "xs/main_xsgen.cc"
	RETVAL = sv_2mortal(RETVAL);
	ST(0) = RETVAL;
    }
    XSRETURN(1);
}); }



XS_EUPXS(XS_URI__XS_decode_uri_component) { xs::throw_guard(cv, [=]()
{
    dVAR; dXSARGS;
    dXSI32;
    if (items != 1)
       croak_xs_usage(cv,  "input");
    {
	SV *	RETVAL;
	string_view	input;

  { STRLEN __input_len;
    const char* __input_buf = SvPV(ST(0), __input_len);
    input = decltype(input)(__input_buf, __input_len); }
;
#line 14 "xs/encode.xsi"
    RETVAL = newSV(input.length()+1);
    SvPOK_on(RETVAL);
    size_t rlen = decode_uri_component(input, SvPVX(RETVAL));
    SvPVX(RETVAL)[rlen] = 0;
    SvCUR_set(RETVAL, rlen);
    PERL_UNUSED_VAR(ix);
#line 1933 "xs/main_xsgen.cc"
	RETVAL = sv_2mortal(RETVAL);
	ST(0) = RETVAL;
    }
    XSRETURN(1);
}); }


/* INCLUDE: Returning to 'main.xs' from 'encode.xsi' */

#ifdef __cplusplus
extern "C"
#endif

XS_EXTERNAL(boot_URI__XS) { xs::throw_guard(cv, [=]() mutable
{
#if PERL_VERSION_LE(5, 21, 5)
    dVAR; dXSARGS;
#else
    dVAR; dXSBOOTARGSXSAPIVERCHK;
#endif
#if (PERL_REVISION == 5 && PERL_VERSION < 9)
    char* file = __FILE__;
#else
    const char* file = __FILE__;
#endif

    PERL_UNUSED_VAR(file);

    PERL_UNUSED_VAR(cv); /* -W */
    PERL_UNUSED_VAR(items); /* -W */
#if PERL_VERSION_LE(5, 21, 5)
    XS_VERSION_BOOTCHECK;
#  ifdef XS_APIVERSION_BOOTCHECK
    XS_APIVERSION_BOOTCHECK;
#  endif
#endif

    {
        CV * cv;

        newXS_deffile("URI::XS::uri", XS_URI__XS_uri);
        newXS_deffile("URI::XS::register_scheme", XS_URI__XS_register_scheme);
        newXS_deffile("URI::XS::bench_parse", XS_URI__XS_bench_parse);
        newXS_deffile("URI::XS::test_parse", XS_URI__XS_test_parse);
        newXS_deffile("URI::XS::bench_parse_query", XS_URI__XS_bench_parse_query);
        newXS_deffile("URI::XS::bench_encode_uri_component", XS_URI__XS_bench_encode_uri_component);
        newXS_deffile("URI::XS::bench_decode_uri_component", XS_URI__XS_bench_decode_uri_component);
        newXS_deffile("URI::XS::HOOK_CLONE", XS_URI__XS_HOOK_CLONE);
        newXS_deffile("URI::XS::STORABLE_freeze", XS_URI__XS_STORABLE_freeze);
        newXS_deffile("URI::XS::STORABLE_attach", XS_URI__XS_STORABLE_attach);
        newXS_deffile("URI::XS::TO_JSON", XS_URI__XS_TO_JSON);
        newXS_deffile("URI::XS::http::new", XS_URI__XS__http_new);
        newXS_deffile("URI::XS::https::new", XS_URI__XS__https_new);
        newXS_deffile("URI::XS::ws::new", XS_URI__XS__ws_new);
        newXS_deffile("URI::XS::wss::new", XS_URI__XS__wss_new);
        newXS_deffile("URI::XS::ftp::new", XS_URI__XS__ftp_new);
        newXS_deffile("URI::XS::socks::new", XS_URI__XS__socks_new);
        newXS_deffile("URI::XS::ssh::new", XS_URI__XS__ssh_new);
        newXS_deffile("URI::XS::telnet::new", XS_URI__XS__telnet_new);
        newXS_deffile("URI::XS::sftp::new", XS_URI__XS__sftp_new);
        newXS_deffile("URI::XS::new", XS_URI__XS_new);
        newXS_deffile("URI::XS::url", XS_URI__XS_url);
        cv = newXS_deffile("URI::XS::proto", XS_URI__XS_scheme);
        XSANY.any_i32 = 1;
        cv = newXS_deffile("URI::XS::protocol", XS_URI__XS_scheme);
        XSANY.any_i32 = 2;
        cv = newXS_deffile("URI::XS::scheme", XS_URI__XS_scheme);
        XSANY.any_i32 = 0;
        newXS_deffile("URI::XS::user_info", XS_URI__XS_user_info);
        newXS_deffile("URI::XS::host", XS_URI__XS_host);
        newXS_deffile("URI::XS::port", XS_URI__XS_port);
        newXS_deffile("URI::XS::path", XS_URI__XS_path);
        newXS_deffile("URI::XS::path_info", XS_URI__XS_path_info);
        newXS_deffile("URI::XS::query_string", XS_URI__XS_query_string);
        newXS_deffile("URI::XS::raw_query", XS_URI__XS_raw_query);
        newXS_deffile("URI::XS::query", XS_URI__XS_query);
        newXS_deffile("URI::XS::add_query", XS_URI__XS_add_query);
        cv = newXS_deffile("URI::XS::multiparam", XS_URI__XS_param);
        XSANY.any_i32 = 1;
        cv = newXS_deffile("URI::XS::param", XS_URI__XS_param);
        XSANY.any_i32 = 0;
        newXS_deffile("URI::XS::nparam", XS_URI__XS_nparam);
        newXS_deffile("URI::XS::remove_param", XS_URI__XS_remove_param);
        cv = newXS_deffile("URI::XS::fragment", XS_URI__XS_fragment);
        XSANY.any_i32 = 0;
        cv = newXS_deffile("URI::XS::hash", XS_URI__XS_fragment);
        XSANY.any_i32 = 1;
        newXS_deffile("URI::XS::location", XS_URI__XS_location);
        newXS_deffile("URI::XS::explicit_port", XS_URI__XS_explicit_port);
        newXS_deffile("URI::XS::default_port", XS_URI__XS_default_port);
        newXS_deffile("URI::XS::explicit_location", XS_URI__XS_explicit_location);
        cv = newXS_deffile("URI::XS::rel", XS_URI__XS_relative);
        XSANY.any_i32 = 1;
        cv = newXS_deffile("URI::XS::relative", XS_URI__XS_relative);
        XSANY.any_i32 = 0;
        cv = newXS_deffile("URI::XS::as_string", XS_URI__XS_to_string);
        XSANY.any_i32 = 1;
        cv = newXS_deffile("URI::XS::to_string", XS_URI__XS_to_string);
        XSANY.any_i32 = 0;
        newXS_deffile("URI::XS::secure", XS_URI__XS_secure);
        cv = newXS_deffile("URI::XS::assign", XS_URI__XS_set);
        XSANY.any_i32 = 1;
        cv = newXS_deffile("URI::XS::set", XS_URI__XS_set);
        XSANY.any_i32 = 0;
        newXS_deffile("URI::XS::equals", XS_URI__XS_equals);
        newXS_deffile("URI::XS::clone", XS_URI__XS_clone);
        newXS_deffile("URI::XS::path_segments", XS_URI__XS_path_segments);
        newXS_deffile("URI::XS::to_bool", XS_URI__XS_to_bool);
        newXS_deffile("URI::XS::user", XS_URI__XS_user);
        newXS_deffile("URI::XS::password", XS_URI__XS_password);
        cv = newXS_deffile("URI::XS::encodeURIComponent", XS_URI__XS_encode_uri_component);
        XSANY.any_i32 = 1;
        cv = newXS_deffile("URI::XS::encode_uri_component", XS_URI__XS_encode_uri_component);
        XSANY.any_i32 = 0;
        cv = newXS_deffile("URI::XS::decodeURIComponent", XS_URI__XS_decode_uri_component);
        XSANY.any_i32 = 1;
        cv = newXS_deffile("URI::XS::decode_uri_component", XS_URI__XS_decode_uri_component);
        XSANY.any_i32 = 0;
    }

    /* Initialisation Section */

#line 131 "xs/main.xs"
    {
    data_marker.svt_free = data_free;

    xs::at_perl_destroy([]{
        uri_class_map.clear();
    });
    }

#line 4 "xs/schemas.xsi"
    {
    Stash s("URI::XS::http", GV_ADD);
    s.inherit("URI::XS");
    register_perl_scheme("http", s.name());
    }

#line 20 "xs/schemas.xsi"
    {
    Stash s("URI::XS::https", GV_ADD);
    s.inherit("URI::XS::http");
    register_perl_scheme("https", s.name());
    }

#line 36 "xs/schemas.xsi"
    {
    Stash s("URI::XS::ws", GV_ADD);
    s.inherit("URI::XS");
    register_perl_scheme("ws", s.name());
    }

#line 52 "xs/schemas.xsi"
    {
    Stash s("URI::XS::wss", GV_ADD);
    s.inherit("URI::XS::ws");
    register_perl_scheme("wss", s.name());
    }

#line 68 "xs/schemas.xsi"
    {
    Stash s("URI::XS::ftp", GV_ADD);
    s.inherit("URI::XS");
    register_perl_scheme("ftp", s.name());
    }

#line 83 "xs/schemas.xsi"
    {
    Stash s("URI::XS::socks", GV_ADD);
    s.inherit("URI::XS");
    register_perl_scheme("socks5", s.name());
    }

#line 98 "xs/schemas.xsi"
    {
    Stash s("URI::XS::ssh", GV_ADD);
    s.inherit("URI::XS");
    register_perl_scheme("ssh", s.name());
    }

#line 113 "xs/schemas.xsi"
    {
    Stash s("URI::XS::telnet", GV_ADD);
    s.inherit("URI::XS");
    register_perl_scheme("telnet", s.name());
    }

#line 128 "xs/schemas.xsi"
    {
    Stash s("URI::XS::sftp", GV_ADD);
    s.inherit("URI::XS::ssh");
    register_perl_scheme("sftp", s.name());
    }

#line 8 "xs/URI.xsi"
    {
    Stash stash("URI::XS");
    PERL_HASH(uxs_hashval, "URI::XS", 7);

    xs::exp::create_constants(stash, {
        {"ALLOW_SUFFIX_REFERENCE", URI::Flags::allow_suffix_reference},
        {"QUERY_PARAM_SEMICOLON",  URI::Flags::query_param_semicolon},
        {"ALLOW_EXTENDED_CHARS",   URI::Flags::allow_extended_chars},

        // deprecated names
        {"ALLOW_LEADING_AUTHORITY", URI::Flags::allow_suffix_reference},
        {"PARAM_DELIM_SEMICOLON",   URI::Flags::query_param_semicolon},
    });
    xs::exp::autoexport(stash);
    }

#line 2145 "xs/main_xsgen.cc"

    /* End of Initialisation Section */

#if PERL_VERSION_LE(5, 21, 5)
#  if PERL_VERSION_GE(5, 9, 0)
    if (PL_unitcheckav)
        call_list(PL_scopestack_ix, PL_unitcheckav);
#  endif
    XSRETURN_YES;
#else
    Perl_xs_boot_epilog(aTHX_ ax);
#endif
}); }