File Coverage

XLog_xsgen.cc

Criterion	Covered	Total	%
statement	369	435	84.8
branch	253	624	40.5
condition			n/a
subroutine			n/a
pod			n/a
total	622	1059	58.7

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

#line 1 "XLog.xs"
#include
#include

using namespace xs;
using namespace panda;
using namespace panda::log;

#line 18 "XLog_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 162 "XLog_xsgen.cc"

/* INCLUDE:  Including 'xs/XLog.xsi' from 'XLog.xs' */

#include "util.h"
using namespace xs::xlog;
struct PerlObjectFormatter : IFormatter, Backref {
    string format (std::string& msg, const Info& i) const override {
        if (!is_perl_thread()) throw std::logic_error("can't call pure-perl formatting callback: log() called from perl-foreign thread");
        Object o = xs::out(this);
        auto ret = o.call("format", xs::out(msg), xs::out(i.level), xs::out(i.module->name()), xs::out(i.file), xs::out(i.line), xs::out(i.func));
        return xs::in(ret);
    }

    ~PerlObjectFormatter () { Backref::dtor(); }
};
struct PerlObjectLogger : ILogger, Backref {
    void log_format (std::string& msg, const Info& i, const IFormatter& fmt) override {
        if (!is_perl_thread()) throw std::logic_error("can't call pure-perl logging callback: log() called from perl-foreign thread");
        Object o = xs::out(this);
        auto sub = o.method("log_format");
        if (!sub) return ILogger::log_format(msg, i, fmt);
        sub.call(o.ref(), xs::out(msg), xs::out(i.level), xs::out(i.module->name()), xs::out(i.file), xs::out(i.line), xs::out(i.func), xs::out(&fmt));
    }

    void log (const string& msg, const Info& info) override {
        if (!is_perl_thread()) throw std::logic_error("can't call pure-perl logging callback: log() called from perl-foreign thread");
        Object o = xs::out(this);
        o.call("log", xs::out(msg), xs::out(info.level));
    }

    ~PerlObjectLogger () { Backref::dtor(); }
};
namespace xs {
    template  struct Typemap : Typemap {};
    template  struct Typemap : Typemap {};
}
#undef  PANDA_LOG_CODE_POINT
#define PANDA_LOG_CODE_POINT make_code_point()
static inline CV* get_context_sub () {
    int depth = 0;
    auto ctx = caller_cx(depth, nullptr);
    while (ctx) {
        if (CxTYPE(ctx) == CXt_SUB) return ctx->blk_sub.cv;
        ctx = caller_cx(++depth, nullptr);
    }
    return nullptr;
}
static inline CodePoint make_code_point () {
    auto cop = PL_curcop;

    string_view func;
    auto cv = get_context_sub();
    if (cv) {
        GV* gv = CvGV(cv);
        if (gv) func = string_view(GvNAME(gv), GvNAMELEN(gv));
    }

    return CodePoint{CopFILE(cop), CopLINE(cop), func};
}
static inline Sv format_args (SV** args, int items) {
    if (!items) return Simple(default_message);
    if (items == 1) {
        Sv arg(args[0]);
        if (arg.is_simple()) { return arg; }
        else                 { return Simple(SvPV_nolen(args[0]));  }
    }
    STRLEN patlen;
    auto pat = SvPV(args[0], patlen);
    auto ret = Simple::create(patlen * 1.5);
    bool stub = false;
    sv_vcatpvfn(ret, pat, patlen, nullptr, args + 1, items - 1, &stub);
    return ret;
}
static inline void peep_args (SV**& args, I32& items, const Module*& module, Sub& sub) {
    if (items && SvROK(args[0])) {
        auto first = SvRV(args[0]);
        if (has_module(first)) {
            module = xs::in(first);
            ++args;
            --items;
        }
        else if (SvTYPE(first) == SVt_PVCV) {
            if (items > 1) throw exception("no arguments should follow subref when logging");
            sub = first;
        }
    }

    if (!module) module = resolve_module(0); // auto detect module by namespace
}
template
void forward(Log&& log, SV**& args, I32& items, Sub& sub) {
    Simple msg;
    if (sub) {
        Sv ret = sub.call();
        SV* sv = ret;
        msg = format_args(&sv, 1);
    }
    else  {
        msg = format_args(args, items);
    }
    log << msg.as_string();
}
static void xslog (Level level, SV** args, I32 items) {
    const Module* module = nullptr;
    Sub sub;
    peep_args(args, items, module, sub);
    panda_log(level, *module, [&]{ forward(log, args, items, sub); });
}


XS_EUPXS(XS_XLog_set_level) { xs::throw_guard(cv, [=]()
{
    dVAR; dXSARGS;
    if (items < 1 || items > 2)
       croak_xs_usage(cv,  "level, module= {}");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
	Level	level = xs::in(ST(0));
;
	string_view	module;

	if (items < 2)
	    module = {};
	else {
  { STRLEN __module_len;
    const char* __module_buf = SvPV(ST(1), __module_len);
    module = decltype(module)(__module_buf, __module_len); }
;
	}
#line 148 "./xs/XLog.xsi"
        set_level(level, module);
#line 295 "XLog_xsgen.cc"
	PUTBACK;
	return;
    }
}); }



XS_EUPXS(XS_XLog_set_logger) { xs::throw_guard(cv, [=]()
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "logger");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
	ILoggerSP	logger = xs::in(ST(0));
;
#line 150 "./xs/XLog.xsi"
        set_logger(logger);
#line 315 "XLog_xsgen.cc"
	PUTBACK;
	return;
    }
}); }



XS_EUPXS(XS_XLog_set_formatter) { xs::throw_guard(cv, [=]()
{
    dVAR; dXSARGS;
    dXSI32;
    if (items != 1)
       croak_xs_usage(cv,  "fmt");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
	IFormatterSP	fmt = xs::in(ST(0));
;
#line 153 "./xs/XLog.xsi"
    (void)ix;
    set_formatter(fmt);
#line 337 "XLog_xsgen.cc"
	PUTBACK;
	return;
    }
}); }



XS_EUPXS(XS_XLog_get_logger) { xs::throw_guard(cv, [=]()
{
    dVAR; dXSARGS;
    if (items != 0)
       croak_xs_usage(cv,  "");
    {
	ILoggerSP	RETVAL;
#line 157 "./xs/XLog.xsi"
    xs::Sv PROTO; PERL_UNUSED_VAR(PROTO);
        RETVAL = get_logger();
#line 355 "XLog_xsgen.cc"
	{
	    SV * RETVALSV;
	    RETVALSV = xs::out(RETVAL, PROTO).detach();
	    RETVALSV = sv_2mortal(RETVALSV);
	    ST(0) = RETVALSV;
	}
    }
    XSRETURN(1);
}); }



XS_EUPXS(XS_XLog_get_formatter) { xs::throw_guard(cv, [=]()
{
    dVAR; dXSARGS;
    if (items != 0)
       croak_xs_usage(cv,  "");
    {
	IFormatterSP	RETVAL;
#line 159 "./xs/XLog.xsi"
    xs::Sv PROTO; PERL_UNUSED_VAR(PROTO);
        RETVAL = get_formatter();
#line 378 "XLog_xsgen.cc"
	{
	    SV * RETVALSV;
	    RETVALSV = xs::out(RETVAL, PROTO).detach();
	    RETVALSV = sv_2mortal(RETVALSV);
	    ST(0) = RETVALSV;
	}
    }
    XSRETURN(1);
}); }



XS_EUPXS(XS_XLog_get_module) { xs::throw_guard(cv, [=]()
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "name");
    {
	Module *	RETVAL;
	string_view	name;

  { STRLEN __name_len;
    const char* __name_buf = SvPV(ST(0), __name_len);
    name = decltype(name)(__name_buf, __name_len); }
;
#line 161 "./xs/XLog.xsi"
    xs::Sv PROTO; PERL_UNUSED_VAR(PROTO);
        RETVAL = get_module(name);
#line 407 "XLog_xsgen.cc"
	{
	    SV * RETVALSV;
	    RETVALSV = xs::out(RETVAL, PROTO).detach();
	    RETVALSV = sv_2mortal(RETVALSV);
	    ST(0) = RETVALSV;
	}
    }
    XSRETURN(1);
}); }



XS_EUPXS(XS_XLog_log) { xs::throw_guard(cv, [=]()
{
    dVAR; dXSARGS;
    if (items < 1)
       croak_xs_usage(cv,  "level, ...");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
	Level	level = xs::in(ST(0));
;
#line 164 "./xs/XLog.xsi"
    xslog(level, &ST(1), items-1);
    if (!(PL_op->op_spare & 1)) xlog::optimize();
#line 433 "XLog_xsgen.cc"
	PUTBACK;
	return;
    }
}); }



XS_EUPXS(XS_XLog_resolve_module) { xs::throw_guard(cv, [=]()
{
    dVAR; dXSARGS;
    if (items < 0 || items > 1)
       croak_xs_usage(cv,  "depth= 0");
    {
	Module *	RETVAL;
	size_t	depth;

	if (items < 1)
	    depth = 0;
	else {
	    depth = (size_t)SvUV(ST(0))
;
	}
#line 169 "./xs/XLog.xsi"
    xs::Sv PROTO; PERL_UNUSED_VAR(PROTO);
    RETVAL = resolve_module(depth);
#line 459 "XLog_xsgen.cc"
	{
	    SV * RETVALSV;
	    RETVALSV = xs::out(RETVAL, PROTO).detach();
	    RETVALSV = sv_2mortal(RETVALSV);
	    ST(0) = RETVALSV;
	}
    }
    XSRETURN(1);
}); }



XS_EUPXS(XS_XLog___logXXX) { xs::throw_guard(cv, [=]()
{
    dVAR; dXSARGS;
    dXSI32;
    PERL_UNUSED_VAR(cv); /* -W */
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
#line 173 "./xs/XLog.xsi"
    Level level = Level((int)Level::VerboseDebug + ix);
    xslog(level, &ST(0), items);
    if (!(PL_op->op_spare & 1)) xlog::optimize(level);
#line 484 "XLog_xsgen.cc"
	PUTBACK;
	return;
    }
}); }


/* INCLUDE: Returning to 'XLog.xs' from 'xs/XLog.xsi' */


/* INCLUDE:  Including 'xs/Logger.xsi' from 'XLog.xs' */



XS_EUPXS(XS_XLog__Logger_new) { xs::throw_guard(cv, [=]()
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "CLASS");
    {
	PerlObjectLogger *	RETVAL;
	SV*	CLASS = ST(0)
;
#line 9 "./xs/Logger.xsi"
    xs::Sv PROTO; PERL_UNUSED_VAR(PROTO);
    PROTO = CLASS;
    PROTO = Stash::from_name(CLASS).bless(Hash::create());
    RETVAL = new PerlObjectLogger();
#line 512 "XLog_xsgen.cc"
	{
	    SV * RETVALSV;
	    RETVALSV = xs::out(RETVAL, PROTO).detach();
	    RETVALSV = sv_2mortal(RETVALSV);
	    ST(0) = RETVALSV;
	}
    }
    XSRETURN(1);
}); }


/* INCLUDE: Returning to 'XLog.xs' from 'xs/Logger.xsi' */


/* INCLUDE:  Including 'xs/Formatter.xsi' from 'XLog.xs' */



XS_EUPXS(XS_XLog__Formatter_new) { xs::throw_guard(cv, [=]()
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "CLASS");
    {
	PerlObjectFormatter *	RETVAL;
	SV*	CLASS = ST(0)
;
#line 5 "./xs/Formatter.xsi"
    xs::Sv PROTO; PERL_UNUSED_VAR(PROTO);
    PROTO = CLASS;
    PROTO = Stash::from_name(CLASS).bless(Hash::create());
    RETVAL = new PerlObjectFormatter();
#line 545 "XLog_xsgen.cc"
	{
	    SV * RETVALSV;
	    RETVALSV = xs::out(RETVAL, PROTO).detach();
	    RETVALSV = sv_2mortal(RETVALSV);
	    ST(0) = RETVALSV;
	}
    }
    XSRETURN(1);
}); }

static const char* DECORATOR_KEY = "_decorator";
// let it be only script basename, without file
static string decorate_default(const char* name) {
    string in(name);
    auto pos = in.find_last_of("/\\");
    if (pos == string::npos) {
        return in;
    }
    return in.substr(pos + 1);
}
static xs::Sv::payload_marker_t spy_$0_marker{};
static int spy_$0(pTHX_ SV* sv, MAGIC* mg) {
    if (mg->mg_virtual == &spy_$0_marker) {
        Stash stash("XLog::Formatter::Pattern");
        auto decorator = stash.sub(DECORATOR_KEY);
        string $0;
        if (decorator) {
            auto decorated = decorator.call(sv);
            $0 = SvPV_nolen(decorated);
        }
        else {
            $0 = decorate_default(SvPV_nolen(sv));
        }
        set_program_name($0);
    }
    return 0;
}


XS_EUPXS(XS_XLog__Formatter__Pattern_new) { xs::throw_guard(cv, [=]()
{
    dVAR; dXSARGS;
    if (items != 2)
       croak_xs_usage(cv,  "CLASS, fmt");
    {
	IFormatter *	RETVAL;
	SV*	CLASS = ST(0)
;
	string_view	fmt;

  { STRLEN __fmt_len;
    const char* __fmt_buf = SvPV(ST(1), __fmt_len);
    fmt = decltype(fmt)(__fmt_buf, __fmt_len); }
;
#line 67 "./xs/Formatter.xsi"
    xs::Sv PROTO; PERL_UNUSED_VAR(PROTO);
    PROTO = CLASS;
    RETVAL = new PatternFormatter(fmt);
#line 604 "XLog_xsgen.cc"
	{
	    SV * RETVALSV;
	    RETVALSV = xs::out(RETVAL, PROTO).detach();
	    RETVALSV = sv_2mortal(RETVALSV);
	    ST(0) = RETVALSV;
	}
    }
    XSRETURN(1);
}); }



XS_EUPXS(XS_XLog__Formatter__Pattern_set_program_decorator) { xs::throw_guard(cv, [=]()
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "callback");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
	Sub    callback = ST(0);
    if (!callback && SvOK(ST(0))) throw "arg is not a 'Sub' reference"
;
#line 70 "./xs/Formatter.xsi"
    Stash stash("XLog::Formatter::Pattern");
    stash.store(DECORATOR_KEY, callback);
#line 631 "XLog_xsgen.cc"
	PUTBACK;
	return;
    }
}); }


/* INCLUDE: Returning to 'XLog.xs' from 'xs/Formatter.xsi' */


/* INCLUDE:  Including 'xs/Module.xsi' from 'XLog.xs' */



XS_EUPXS(XS_XLog__Module_new) { xs::throw_guard(cv, [=]()
{
    dVAR; dXSARGS;
    if (items < 2 || items > 4)
       croak_xs_usage(cv,  "cls, name, arg1= {}, arg2= {}");
    {
	Sv	RETVAL;
	SV*	cls = ST(0)
;
	string	name;
	Sv	arg1;
	Sv	arg2;

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

	if (items < 3)
	    arg1 = {};
	else {
    arg1 = ST(2)
;
	}

	if (items < 4)
	    arg2 = {};
	else {
    arg2 = ST(3)
;
	}
#line 7 "./xs/Module.xsi"
    --items;
    Module* module;
    if (items == 1) {
        module = new Module(name);
    }
    else if (items == 2) {
        if (!arg1.defined() || arg1.is_object_ref()) module = new Module(name, xs::in(arg1));
        else                                         module = new Module(name, xs::in(arg1));
    } else {
        module = new Module(name, xs::in(arg1), xs::in(arg2));
    }

    // Module* has non-owning ptr typemap. In case of creating object from perl we must switch to "owning" behaviour
    // so we need to hook sv destruction and delete the object if we created it in this method.
    static Sv::payload_marker_t module_dtor_marker;
    module_dtor_marker.svt_free = [](pTHX_ SV*, MAGIC* mg) {
        delete (Module*)mg->mg_ptr;
        return 0;
    };

    Object o = xs::out(module, cls);
    o.payload_attach(module, &module_dtor_marker);

    RETVAL = o.ref();
#line 701 "XLog_xsgen.cc"
	{
	    SV * RETVALSV;
    RETVALSV = NULL;
    if (!RETVAL) XSRETURN_UNDEF;
    if (RETVAL.is_scalar()) RETVALSV = RETVAL.detach();
    else switch (RETVAL.type()) {
	    case SVt_PVAV: XSRETURN(xs::Array(RETVAL.get()).push_on_stack(MARK));
	    case SVt_PVHV: XSRETURN(xs::Hash(RETVAL.get()).push_on_stack(MARK));
	    case SVt_PVCV:
	    case SVt_PVIO:
		RETVALSV = newRV_noinc(RETVAL.detach());
		break;
	    default: throw "unknown type of Sv to return";
    }
	    RETVALSV = sv_2mortal(RETVALSV);
	    ST(0) = RETVALSV;
	}
    }
    XSRETURN(1);
}); }



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



XS_EUPXS(XS_XLog__Module_level) { xs::throw_guard(cv, [=]()
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "THIS");
    {
	Level	RETVAL;
	Module*	THIS = xs::in(ST(0)); if (!SvOK(ST(0))) throw "undef not allowed as THIS";
;
#line 35 "./xs/Module.xsi"
    xs::Sv PROTO; PERL_UNUSED_VAR(PROTO);
        RETVAL = THIS->level();
#line 757 "XLog_xsgen.cc"
	{
	    SV * RETVALSV;
	    RETVALSV = xs::out(RETVAL, PROTO).detach();
	    RETVALSV = sv_2mortal(RETVALSV);
	    ST(0) = RETVALSV;
	}
    }
    XSRETURN(1);
}); }



XS_EUPXS(XS_XLog__Module_passthrough) { xs::throw_guard(cv, [=]()
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "THIS");
    {
	bool	RETVAL;
	Module*	THIS = xs::in(ST(0)); if (!SvOK(ST(0))) throw "undef not allowed as THIS";
;
#line 37 "./xs/Module.xsi"
        RETVAL = THIS->passthrough();
#line 781 "XLog_xsgen.cc"
	ST(0) = boolSV(RETVAL);
    }
    XSRETURN(1);
}); }



XS_EUPXS(XS_XLog__Module_set_level) { xs::throw_guard(cv, [=]()
{
    dVAR; dXSARGS;
    if (items != 2)
       croak_xs_usage(cv,  "THIS, level");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
	Module*	THIS = xs::in(ST(0)); if (!SvOK(ST(0))) throw "undef not allowed as THIS";
;
	Level	level = xs::in(ST(1));
;
#line 39 "./xs/Module.xsi"
        THIS->set_level(level);
#line 803 "XLog_xsgen.cc"
	PUTBACK;
	return;
    }
}); }



XS_EUPXS(XS_XLog__Module_set_logger) { xs::throw_guard(cv, [=]()
{
    dVAR; dXSARGS;
    if (items < 2 || items > 3)
       croak_xs_usage(cv,  "THIS, logger, passthrough= false");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
	Module*	THIS = xs::in(ST(0)); if (!SvOK(ST(0))) throw "undef not allowed as THIS";
;
	ILoggerSP	logger = xs::in(ST(1));
;
	bool	passthrough;

	if (items < 3)
	    passthrough = false;
	else {
	    passthrough = (bool)SvTRUE(ST(2))
;
	}
#line 41 "./xs/Module.xsi"
        THIS->set_logger(logger, passthrough);
#line 833 "XLog_xsgen.cc"
	PUTBACK;
	return;
    }
}); }



XS_EUPXS(XS_XLog__Module_set_formatter) { xs::throw_guard(cv, [=]()
{
    dVAR; dXSARGS;
    if (items != 2)
       croak_xs_usage(cv,  "THIS, formatter");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;
    {
	Module*	THIS = xs::in(ST(0)); if (!SvOK(ST(0))) throw "undef not allowed as THIS";
;
	IFormatterSP	formatter = xs::in(ST(1));
;
#line 43 "./xs/Module.xsi"
        THIS->set_formatter(formatter);
#line 855 "XLog_xsgen.cc"
	PUTBACK;
	return;
    }
}); }



XS_EUPXS(XS_XLog__Module_get_logger) { xs::throw_guard(cv, [=]()
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "THIS");
    {
	ILoggerSP	RETVAL;
	Module*	THIS = xs::in(ST(0)); if (!SvOK(ST(0))) throw "undef not allowed as THIS";
;
#line 45 "./xs/Module.xsi"
    xs::Sv PROTO; PERL_UNUSED_VAR(PROTO);
        RETVAL = THIS->get_logger();
#line 875 "XLog_xsgen.cc"
	{
	    SV * RETVALSV;
	    RETVALSV = xs::out(RETVAL, PROTO).detach();
	    RETVALSV = sv_2mortal(RETVALSV);
	    ST(0) = RETVALSV;
	}
    }
    XSRETURN(1);
}); }



XS_EUPXS(XS_XLog__Module_get_formatter) { xs::throw_guard(cv, [=]()
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "THIS");
    {
	IFormatterSP	RETVAL;
	Module*	THIS = xs::in(ST(0)); if (!SvOK(ST(0))) throw "undef not allowed as THIS";
;
#line 47 "./xs/Module.xsi"
    xs::Sv PROTO; PERL_UNUSED_VAR(PROTO);
        RETVAL = THIS->get_formatter();
#line 900 "XLog_xsgen.cc"
	{
	    SV * RETVALSV;
	    RETVALSV = xs::out(RETVAL, PROTO).detach();
	    RETVALSV = sv_2mortal(RETVALSV);
	    ST(0) = RETVALSV;
	}
    }
    XSRETURN(1);
}); }


/* INCLUDE: Returning to 'XLog.xs' from 'xs/Module.xsi' */


/* INCLUDE:  Including 'xs/Console.xsi' from 'XLog.xs' */

#include
struct XSConsoleLogger : ConsoleLogger {
    using ConsoleLogger::ConsoleLogger;

    void log (const string& msg, const Info&) override {
        Io io = PL_defoutgv;
        if (!io) return;
        auto fp = io.ofp();
        if (!fp) return;
        PerlIO_write(fp, msg.data(), msg.length());
        PerlIO_write(fp, "\n", 1);
    }
};
namespace xs {
    template  struct Typemap : Typemap {
        static string package () { return "XLog::Console"; }
    };
    template <> struct Typemap : Typemap {};
}


XS_EUPXS(XS_XLog__Console_new) { xs::throw_guard(cv, [=]()
{
    dVAR; dXSARGS;
    if (items != 1)
       croak_xs_usage(cv,  "CLASS");
    {
	XSConsoleLogger *	RETVAL;
	SV*	CLASS = ST(0)
;
#line 31 "./xs/Console.xsi"
    xs::Sv PROTO; PERL_UNUSED_VAR(PROTO);
    PROTO = CLASS;
    RETVAL = new XSConsoleLogger();
#line 951 "XLog_xsgen.cc"
	{
	    SV * RETVALSV;
	    RETVALSV = xs::out(RETVAL, PROTO).detach();
	    RETVALSV = sv_2mortal(RETVALSV);
	    ST(0) = RETVALSV;
	}
    }
    XSRETURN(1);
}); }


/* INCLUDE: Returning to 'XLog.xs' from 'xs/Console.xsi' */


/* INCLUDE:  Including 'xs/Multi.xsi' from 'XLog.xs' */

#include
namespace xs {
    template <> struct Typemap : TypemapBase {
        static MultiLogger::Channel in (const Hash& h) {
            auto ret = MultiLogger::Channel(xs::in(h.fetch("logger")));
            Sv val;
            if ((val = h.fetch("min_level"))) ret.min_level = xs::in(val);
            if ((val = h.fetch("formatter"))) ret.formatter = xs::in(val);
            if ((val = h.fetch("format")) && val.defined()) {
                auto fmt = xs::in(val);
                if (fmt.length()) ret.formatter = new PatternFormatter(fmt);
            }
            return ret;
        }
    };

    template <> struct Typemap : Typemap {
        static string package () { return "XLog::Multi"; }
    };
}


XS_EUPXS(XS_XLog__Multi_new) { xs::throw_guard(cv, [=]()
{
    dVAR; dXSARGS;
    if (items != 2)
       croak_xs_usage(cv,  "CLASS, list");
    {
	MultiLogger *	RETVAL;
	SV*	CLASS = ST(0)
;
	MultiLogger::Channels	list = xs::in(ST(1));
;
#line 31 "./xs/Multi.xsi"
    xs::Sv PROTO; PERL_UNUSED_VAR(PROTO);
    PROTO = CLASS;
    RETVAL = new MultiLogger(list);
#line 1005 "XLog_xsgen.cc"
	{
	    SV * RETVALSV;
	    RETVALSV = xs::out(RETVAL, PROTO).detach();
	    RETVALSV = sv_2mortal(RETVALSV);
	    ST(0) = RETVALSV;
	}
    }
    XSRETURN(1);
}); }


/* INCLUDE: Returning to 'XLog.xs' from 'xs/Multi.xsi' */

#ifdef __cplusplus
extern "C"
#endif

XS_EXTERNAL(boot_XLog) { 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

        newXS_deffile("XLog::set_level", XS_XLog_set_level);
        newXS_deffile("XLog::set_logger", XS_XLog_set_logger);
        cv = newXS_deffile("XLog::set_format", XS_XLog_set_formatter);
        XSANY.any_i32 = 1;
        cv = newXS_deffile("XLog::set_formatter", XS_XLog_set_formatter);
        XSANY.any_i32 = 0;
        newXS_deffile("XLog::get_logger", XS_XLog_get_logger);
        newXS_deffile("XLog::get_formatter", XS_XLog_get_formatter);
        newXS_deffile("XLog::get_module", XS_XLog_get_module);
        newXS_deffile("XLog::log", XS_XLog_log);
        newXS_deffile("XLog::resolve_module", XS_XLog_resolve_module);
        cv = newXS_deffile("XLog::__logXXX", XS_XLog___logXXX);
        XSANY.any_i32 = 0;
        cv = newXS_deffile("XLog::alert", XS_XLog___logXXX);
        XSANY.any_i32 = 7;
        cv = newXS_deffile("XLog::critical", XS_XLog___logXXX);
        XSANY.any_i32 = 6;
        cv = newXS_deffile("XLog::debug", XS_XLog___logXXX);
        XSANY.any_i32 = 1;
        cv = newXS_deffile("XLog::emergency", XS_XLog___logXXX);
        XSANY.any_i32 = 8;
        cv = newXS_deffile("XLog::error", XS_XLog___logXXX);
        XSANY.any_i32 = 5;
        cv = newXS_deffile("XLog::info", XS_XLog___logXXX);
        XSANY.any_i32 = 2;
        cv = newXS_deffile("XLog::notice", XS_XLog___logXXX);
        XSANY.any_i32 = 3;
        cv = newXS_deffile("XLog::verbose_debug", XS_XLog___logXXX);
        XSANY.any_i32 = 0;
        cv = newXS_deffile("XLog::warning", XS_XLog___logXXX);
        XSANY.any_i32 = 4;
        newXS_deffile("XLog::Logger::new", XS_XLog__Logger_new);
        newXS_deffile("XLog::Formatter::new", XS_XLog__Formatter_new);
        newXS_deffile("XLog::Formatter::Pattern::new", XS_XLog__Formatter__Pattern_new);
        newXS_deffile("XLog::Formatter::Pattern::set_program_decorator", XS_XLog__Formatter__Pattern_set_program_decorator);
        newXS_deffile("XLog::Module::new", XS_XLog__Module_new);
        newXS_deffile("XLog::Module::name", XS_XLog__Module_name);
        newXS_deffile("XLog::Module::level", XS_XLog__Module_level);
        newXS_deffile("XLog::Module::passthrough", XS_XLog__Module_passthrough);
        newXS_deffile("XLog::Module::set_level", XS_XLog__Module_set_level);
        newXS_deffile("XLog::Module::set_logger", XS_XLog__Module_set_logger);
        newXS_deffile("XLog::Module::set_formatter", XS_XLog__Module_set_formatter);
        newXS_deffile("XLog::Module::get_logger", XS_XLog__Module_get_logger);
        newXS_deffile("XLog::Module::get_formatter", XS_XLog__Module_get_formatter);
        newXS_deffile("XLog::Console::new", XS_XLog__Console_new);
        newXS_deffile("XLog::Multi::new", XS_XLog__Multi_new);

    /* Initialisation Section */

#line 121 "./xs/XLog.xsi"
    {
    Stash stash("XLog");

    xs::exp::create_constants(stash, {
        {"VERBOSE_DEBUG", (int)Level::VerboseDebug},
        {"DEBUG",         (int)Level::Debug},
        {"INFO",          (int)Level::Info},
        {"NOTICE",        (int)Level::Notice},
        {"WARNING",       (int)Level::Warning},
        {"ERROR",         (int)Level::Error},
        {"CRITICAL",      (int)Level::Critical},
        {"ALERT",         (int)Level::Alert},
        {"EMERGENCY",     (int)Level::Emergency},
    });

    auto root_module = xs::out(&::panda_log_module);
    root_module.readonly(1);
    stash.add_const_sub("default_format", xs::out(default_format));
    stash.add_const_sub("root", root_module);
    stash.store("root_module", root_module);

    xs::at_perl_destroy([]{
        if (dyn_cast(get_logger().get())) set_logger(nullptr);
        if (dyn_cast(get_formatter().get())) set_formatter(nullptr);
    });
    }

#line 4 "./xs/Logger.xsi"
    {
    Stash("XLog::Logger").inherit("XLog::ILogger");
    }

#line 45 "./xs/Formatter.xsi"
    {
    Stash("XLog::Formatter::Pattern").inherit("XLog::IFormatter");

    spy_$0_marker.svt_set = spy_$0;

    auto $0_sv = get_sv("0", 0);
    MAGIC* mg;
    Newx(mg, 1, MAGIC);
    mg->mg_moremagic = SvMAGIC($0_sv);
    SvMAGIC_set($0_sv, mg);
    mg->mg_virtual = const_cast(&spy_$0_marker);
    mg->mg_type = PERL_MAGIC_ext;
    mg->mg_len = 0;
    mg->mg_private = 0;
    mg->mg_flags = 0;
    mg->mg_ptr = NULL;
    mg->mg_obj = NULL;

    auto $0 = SvPV_nolen($0_sv);
    set_program_name(decorate_default($0));
    }

#line 27 "./xs/Console.xsi"
    {
    Stash("XLog::Console").inherit("XLog::ILogger");
    }

#line 27 "./xs/Multi.xsi"
    {
    Stash("XLog::Multi").inherit("XLog::ILogger");
    }

#line 1162 "XLog_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
}); }