File Coverage

t/lib/MyTest.xs.cc

Criterion	Covered	Total	%
statement	47	147	31.9
branch	27	248	10.8
condition			n/a
subroutine			n/a
pod			n/a
total	74	395	18.7

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

#line 1 "t/lib/MyTest.xs"
#include
#include

using namespace xs;
using namespace panda::time;
using panda::string;

#ifdef _WIN32
#  define SYSTIMEGM(x)    _mkgmtime(x)
#  define SYSTIMELOCAL(x) mktime(x)
#else
#  define SYSTIMEGM(x)    timegm(x)
#  define SYSTIMELOCAL(x) timelocal(x)
#endif

#line 26 "t/lib/MyTest.xs.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 170 "t/lib/MyTest.xs.cc"


XS_EUPXS(XS_MyTest_systimegm) { xs::throw_guard(aTHX_ cv, [=]()
{
    dVAR; dXSARGS;
    dXSI32;
    if (items < 6 || items > 7)
       croak_xs_usage(cv,  "sec, min, hour, mday, mon, year, isdst= -1");
    {
	time_t	RETVAL;
	dXSTARG;
	int64_t	sec = (int64_t)SvIV(ST(0))
;
	int64_t	min = (int64_t)SvIV(ST(1))
;
	int64_t	hour = (int64_t)SvIV(ST(2))
;
	int64_t	mday = (int64_t)SvIV(ST(3))
;
	int64_t	mon = (int64_t)SvIV(ST(4))
;
	int64_t	year = (int64_t)SvIV(ST(5))
;
	int64_t	isdst;

	if (items < 7)
	    isdst = -1;
	else {
	    isdst = (int64_t)SvIV(ST(6))
;
	}
#line 20 "t/lib/MyTest.xs"
    struct tm date;
    date.tm_sec   = sec;
    date.tm_min   = min;
    date.tm_hour  = hour;
    date.tm_mday  = mday;
    date.tm_mon   = mon;
    date.tm_year  = year;
    date.tm_isdst = isdst;
    if (ix == 0) RETVAL = SYSTIMEGM(&date);
    else RETVAL = SYSTIMELOCAL(&date);
#line 213 "t/lib/MyTest.xs.cc"
	XSprePUSH; PUSHi((IV)RETVAL);
    }
    XSRETURN(1);
}); }



XS_EUPXS(XS_MyTest_strftime) { xs::throw_guard(aTHX_ cv, [=]()
{
    dVAR; dXSARGS;
    if (items != 2)
       croak_xs_usage(cv,  "fmt, epoch");
    {
	const char *	RETVAL;
	dXSTARG;
	const char*	fmt = (const char *)SvPV_nolen(ST(0))
;
	time_t	epoch = (time_t)SvIV(ST(1))
;
#line 33 "t/lib/MyTest.xs"
    char buf[100];
    datetime date;
    localtime(epoch, &date);
    auto sz = strftime(buf, sizeof(buf), fmt, &date);
    if (!sz) croak("should not happen");
    RETVAL = buf;
#line 240 "t/lib/MyTest.xs.cc"
	sv_setpv(TARG, RETVAL); XSprePUSH; PUSHTARG;
    }
    XSRETURN(1);
}); }

#ifndef _WIN32
#define XSubPPtmpAAAA 1



XS_EUPXS(XS_MyTest_test_gmtime) { xs::throw_guard(aTHX_ cv, [=]()
{
    dVAR; dXSARGS;
    dXSI32;
    if (items != 3)
       croak_xs_usage(cv,  "step, from, till");
    {
	bool	RETVAL;
	ptime_t	step = (ptime_t)SvIV(ST(0))
;
	ptime_t	from = (ptime_t)SvIV(ST(1))
;
	ptime_t	till = (ptime_t)SvIV(ST(2))
;
#line 44 "t/lib/MyTest.xs"
    datetime date1;
    struct tm date2;

    string tzname = ix == 0 ? string("GMT") : tzlocal()->name;
    char* hstr = getenv("HARNESS_ACTIVE");
    bool test = (hstr != NULL && strlen(hstr) > 0);

    static bool sranded = false;
    if (!sranded) { srand(time(NULL)); sranded = true; }

    bool isrand = false;
    ptime_t disperse, epoch;
    if (step == 0) {
        isrand = true;
        disperse = from;
        step = 1;
        from = 0;
    }

    int cnt = 0;
    for (ptime_t i = from; i < till; i += step) {
        cnt++;
        memset(&date1, 0, sizeof(date1));
        memset(&date2, 0, sizeof(date2));

        if (isrand) epoch = rand() % (2*disperse) - disperse;
        else epoch = i;
        time_t sys_epoch = (time_t) epoch;

        if (ix == 0) {
            gmtime(epoch, &date1);
            gmtime_r(&sys_epoch, &date2);
        } else {
            localtime(epoch, &date1);
            localtime_r(&sys_epoch, &date2);
        }

        if (cnt % 100000 == 0 && !test) printf("TESTED #%d, last %04i-%02i-%02i %02i:%02i:%02i (off:%ld, dst=%d, zone=%s)\n", cnt, date2.tm_year+1900, date2.tm_mon+1, date2.tm_mday, date2.tm_hour, date2.tm_min, date2.tm_sec, date2.tm_gmtoff, date2.tm_isdst, date2.tm_zone);

        if (date1.year != (date2.tm_year + 1900) || date1.mon != date2.tm_mon || date1.mday != date2.tm_mday ||
            date1.hour != date2.tm_hour || date1.min != date2.tm_min || date1.sec != date2.tm_sec ||
            date1.isdst != date2.tm_isdst || date1.gmtoff != date2.tm_gmtoff || strcmp(date1.zone, date2.tm_zone) != 0) {
            warn(
                "zone=%.*s, epoch=%lli, got %d-%02lld-%02lld %02lld:%02lld:%02lld %d %d %d %d %s, should be %d-%02d-%02d %02d:%02d:%02d %d %d %d %ld %s",
                (int)tzname.length(), tzname.data(), (long long)epoch,
                date1.year, (long long)date1.mon+1, (long long)date1.mday, (long long)date1.hour, (long long)date1.min, (long long)date1.sec,
                date1.wday, date1.yday, date1.isdst, date1.gmtoff, date1.zone,
                date2.tm_year+1900, date2.tm_mon+1, date2.tm_mday, date2.tm_hour, date2.tm_min, date2.tm_sec,
                date2.tm_wday, date2.tm_yday, date2.tm_isdst, date2.tm_gmtoff, date2.tm_zone
            );
            XSRETURN_UNDEF;
        }
    }

    if (!test) printf("TESTED %d TIMES\n", cnt);

    RETVAL = true;
#line 323 "t/lib/MyTest.xs.cc"
	ST(0) = boolSV(RETVAL);
    }
    XSRETURN(1);
}); }



XS_EUPXS(XS_MyTest_test_timegm) { xs::throw_guard(aTHX_ cv, [=]()
{
    dVAR; dXSARGS;
    dXSI32;
    if (items != 3)
       croak_xs_usage(cv,  "step, from, till");
    {
	bool	RETVAL;
	ptime_t	step = (ptime_t)SvIV(ST(0))
;
	ptime_t	from = (ptime_t)SvIV(ST(1))
;
	ptime_t	till = (ptime_t)SvIV(ST(2))
;
#line 104 "t/lib/MyTest.xs"
    datetime date1;
    struct tm date2;

    char* hstr = getenv("HARNESS_ACTIVE");
    bool test = (hstr != NULL && strlen(hstr) > 0);

    static bool sranded = false;
    if (!sranded) { srand(time(NULL)); sranded = true; }

    bool isrand = false;
    ptime_t disperce_years;
    if (step == 0) {
        isrand = true;
        step = 1;
        disperce_years = from;
        if (disperce_years > 200) disperce_years = 200;
        from = 0;
    }

    int cnt = 0;
    for (ptime_t i = from; step > 0 ? (i < till) : (i > till); i += step) {
        cnt++;
        bzero(&date1, sizeof(date1));
        bzero(&date2, sizeof(date2));

        if (isrand) {
            if (ix == 0) {
                int rnum = rand();
                date1.sec = rnum % 10000 - 5000;
                rnum /= 1000;
                date1.min = rnum % 10000 - 5000;
                rnum /= 1000;
                date1.hour = rnum % 100 - 50;
                rnum = rand();
                date1.mday = rnum % 100 - 50;
                rnum /= 100;
                date1.mon = rnum % 100 - 50;
                rnum /= 100;
                date1.year = rnum % 200 + 1910;
            } else { // dont test denormalized values (LINUX has bugs with them + when using leap seconds zone, our normalization may differ with OS)
                int rnum = rand();
                date1.sec = rnum % 60;
                rnum /= 1000;
                date1.min = rnum % 60;
                rnum /= 1000;
                date1.hour = rnum % 24;
                rnum = rand();
                date1.mday = rnum % 31 + 1;
                rnum /= 100;
                date1.mon = rnum % 11;
                rnum /= 100;
                date1.year = rnum % disperce_years + 1910;
            }
        }
        else {
            if (ix == 0) gmtime(i, &date1);
            else localtime(i, &date1);
        }

        if (ix == 1) date1.isdst = -1;
        dt2tm(date2, date1);

        datetime copy1 = date1;
        struct tm copy2 = date2;

        ptime_t mytime;
        time_t truetime;
        if (ix == 0) {
            truetime = timegm(&date2);
            if (isrand) mytime = timegm(&date1); // need normalization
            else mytime = timegml(&date1);
        } else {
            mytime = timelocal(&date1);
            truetime = timelocal(&date2);
        }

        if (cnt % 100000 == 0 && !test) printf("TESTED #%d, last %04d-%02d-%02d %02d:%02d:%02d\n", cnt, date2.tm_year+1900, date2.tm_mon+1, date2.tm_mday, date2.tm_hour, date2.tm_min, date2.tm_sec);

        bool same_ymdhms = (date1.year != (date2.tm_year + 1900) || date1.mon != date2.tm_mon || date1.mday != date2.tm_mday || date1.hour != date2.tm_hour || date1.min != date2.tm_min || date1.sec != date2.tm_sec) ? false : true;
        bool same_zone = (date1.isdst != date2.tm_isdst || date1.gmtoff != date2.tm_gmtoff || strcmp(date1.zone, date2.tm_zone) != 0) ? false : true;
        bool same_date = same_ymdhms && same_zone;

        if (mytime != truetime || !same_date) {
            if (truetime == -1) continue; // OS cannot handle such dates

            if (same_ymdhms && ix == 1) { // if ambiguity, OS may return unpredicted results. Lets handle that.
                datetime tmpdate = date1;
                tmpdate.isdst = 1;
                mytime = timelocal(&tmpdate);
                if (mytime == truetime) continue;
            }

            warn(
                "MY: epoch=%lli (%04d/%02lld/%02lld %02lld:%02lld:%02lld %4s %d) from %04d/%02lld/%02lld %02lld:%02lld:%02lld DST=%d (%.*s)",
                (long long)mytime,
                date1.year, (long long)date1.mon+1, (long long)date1.mday, (long long)date1.hour, (long long)date1.min, (long long)date1.sec,
                date1.zone, date1.gmtoff,
                copy1.year, (long long)copy1.mon+1, (long long)copy1.mday, (long long)copy1.hour, (long long)copy1.min, (long long)copy1.sec,
                copy1.isdst, (int)tzlocal()->name.length(), tzlocal()->name.data()
            );
            warn(
                "OS: epoch=%li (%04d/%02d/%02d %02d:%02d:%02d %4s %ld) from %04d/%02d/%02d %02d:%02d:%02d DST=%d (%.*s)",
                truetime, date2.tm_year+1900, date2.tm_mon+1, date2.tm_mday, date2.tm_hour, date2.tm_min, date2.tm_sec, date2.tm_zone, date2.tm_gmtoff,
                copy2.tm_year+1900, copy2.tm_mon+1, copy2.tm_mday, copy2.tm_hour, copy2.tm_min, copy2.tm_sec, copy2.tm_isdst, (int)tzlocal()->name.length(), tzlocal()->name.data()
            );
            warn("diff is %lli", (long long)(mytime - truetime));
            XSRETURN_UNDEF;
        }
    }

    if (!test) printf("TESTED %d TIMES\n", cnt);

    RETVAL = true;
#line 459 "t/lib/MyTest.xs.cc"
	ST(0) = boolSV(RETVAL);
    }
    XSRETURN(1);
}); }



XS_EUPXS(XS_MyTest_gmtime_bench) { xs::throw_guard(aTHX_ cv, [=]()
{
    dVAR; dXSARGS;
    dXSI32;
    if (items != 1)
       croak_xs_usage(cv,  "epoch");
    {
	Array	RETVAL;
	ptime_t	epoch = (ptime_t)SvIV(ST(0))
;
#line 220 "t/lib/MyTest.xs"
    datetime date;
    ptime_t max_epoch = epoch + 10000;
    if      (ix == 0) while(epoch++ < max_epoch) gmtime(epoch, &date);
    else if (ix == 1) while(epoch++ < max_epoch) localtime(epoch, &date);

    RETVAL = Array::create();
    RETVAL.push(Simple(date.sec));
    RETVAL.push(Simple(date.min));
    RETVAL.push(Simple(date.hour));
    RETVAL.push(Simple(date.mday));
    RETVAL.push(Simple(date.mon));
    RETVAL.push(Simple(date.year));
    RETVAL.push(Simple(date.wday));
    RETVAL.push(Simple(date.yday));
    RETVAL.push(Simple(date.isdst));
    RETVAL.push(Simple(date.gmtoff));
    RETVAL.push(Simple(date.zone));
#line 495 "t/lib/MyTest.xs.cc"
	{
	    SV * RETVALSV;
    RETVALSV = NULL;
    if (!RETVAL) XSRETURN_UNDEF;
    RETVALSV = newRV_noinc(RETVAL.detach());
	    RETVALSV = sv_2mortal(RETVALSV);
	    ST(0) = RETVALSV;
	}
    }
    XSRETURN(1);
}); }



XS_EUPXS(XS_MyTest_posix_gmtime_bench) { xs::throw_guard(aTHX_ cv, [=]()
{
    dVAR; dXSARGS;
    dXSI32;
    if (items != 1)
       croak_xs_usage(cv,  "epoch");
    {
	Array	RETVAL;
	time_t	epoch = (time_t)SvIV(ST(0))
;
#line 240 "t/lib/MyTest.xs"
    struct tm date;
    time_t max_epoch = epoch + 10000;
    if      (ix == 0) while(epoch++ < max_epoch) gmtime_r(&epoch, &date);
    else if (ix == 1) while(epoch++ < max_epoch) localtime_r(&epoch, &date);

    RETVAL = Array::create();
    RETVAL.push(Simple(date.tm_sec));
    RETVAL.push(Simple(date.tm_min));
    RETVAL.push(Simple(date.tm_hour));
    RETVAL.push(Simple(date.tm_mday));
    RETVAL.push(Simple(date.tm_mon));
    RETVAL.push(Simple(date.tm_year));
    RETVAL.push(Simple(date.tm_wday));
    RETVAL.push(Simple(date.tm_yday));
    RETVAL.push(Simple(date.tm_isdst));
    RETVAL.push(Simple(date.tm_gmtoff));
    RETVAL.push(Simple(date.tm_zone));
#line 538 "t/lib/MyTest.xs.cc"
	{
	    SV * RETVALSV;
    RETVALSV = NULL;
    if (!RETVAL) XSRETURN_UNDEF;
    RETVALSV = newRV_noinc(RETVAL.detach());
	    RETVALSV = sv_2mortal(RETVALSV);
	    ST(0) = RETVALSV;
	}
    }
    XSRETURN(1);
}); }



XS_EUPXS(XS_MyTest_timegm_bench) { xs::throw_guard(aTHX_ cv, [=]()
{
    dVAR; dXSARGS;
    dXSI32;
    if (items != 6)
       croak_xs_usage(cv,  "sec, min, hour, mday, mon, year");
    {
	ptime_t	RETVAL;
	dXSTARG;
	ptime_t	sec = (ptime_t)SvIV(ST(0))
;
	ptime_t	min = (ptime_t)SvIV(ST(1))
;
	ptime_t	hour = (ptime_t)SvIV(ST(2))
;
	ptime_t	mday = (ptime_t)SvIV(ST(3))
;
	ptime_t	mon = (ptime_t)SvIV(ST(4))
;
	ptime_t	year = (ptime_t)SvIV(ST(5))
;
#line 260 "t/lib/MyTest.xs"
    datetime date;
    date.sec = sec;
    date.min = min;
    date.hour = hour;
    date.mday = mday;
    date.mon = mon;
    date.year = year;
    date.isdst = -1;

    int i = 0;
    int cnt = 10000;
    RETVAL = 0;

    if      (ix == 0) while (i++ < cnt) RETVAL += timegm(&date);
    else if (ix == 1) while (i++ < cnt) RETVAL += timegml(&date);
    else if (ix == 2) while (i++ < cnt) RETVAL += timelocal(&date);
    else if (ix == 3) while (i++ < cnt) RETVAL += timelocall(&date);
#line 592 "t/lib/MyTest.xs.cc"
	XSprePUSH; PUSHi((IV)RETVAL);
    }
    XSRETURN(1);
}); }



XS_EUPXS(XS_MyTest_posix_timegm_bench) { xs::throw_guard(aTHX_ cv, [=]()
{
    dVAR; dXSARGS;
    dXSI32;
    if (items != 6)
       croak_xs_usage(cv,  "sec, min, hour, mday, mon, year");
    {
	time_t	RETVAL;
	dXSTARG;
	int64_t	sec = (int64_t)SvIV(ST(0))
;
	int64_t	min = (int64_t)SvIV(ST(1))
;
	int64_t	hour = (int64_t)SvIV(ST(2))
;
	int64_t	mday = (int64_t)SvIV(ST(3))
;
	int64_t	mon = (int64_t)SvIV(ST(4))
;
	int64_t	year = (int64_t)SvIV(ST(5))
;
#line 280 "t/lib/MyTest.xs"
    struct tm date;
    date.tm_sec = sec;
    date.tm_min = min;
    date.tm_hour = hour;
    date.tm_mday = mday;
    date.tm_mon = mon;
    date.tm_year = year-1900;
    date.tm_isdst = -1;

    int i = 0;
    int cnt = 10000;
    RETVAL = 0;

    if      (ix == 0) while (i++ < cnt) RETVAL += timegm(&date);
    else if (ix == 1) while (i++ < cnt) RETVAL += timelocal(&date);
#line 637 "t/lib/MyTest.xs.cc"
	XSprePUSH; PUSHi((IV)RETVAL);
    }
    XSRETURN(1);
}); }

#endif
#ifdef __cplusplus
extern "C"
#endif

XS_EXTERNAL(boot_MyTest) { xs::throw_guard(aTHX_ 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;

        cv = newXS_deffile("MyTest::systimegm", XS_MyTest_systimegm);
        XSANY.any_i32 = 0;
        cv = newXS_deffile("MyTest::systimelocal", XS_MyTest_systimegm);
        XSANY.any_i32 = 1;
        newXS_deffile("MyTest::strftime", XS_MyTest_strftime);
#if XSubPPtmpAAAA
        cv = newXS_deffile("MyTest::test_gmtime", XS_MyTest_test_gmtime);
        XSANY.any_i32 = 0;
        cv = newXS_deffile("MyTest::test_localtime", XS_MyTest_test_gmtime);
        XSANY.any_i32 = 1;
        cv = newXS_deffile("MyTest::test_timegm", XS_MyTest_test_timegm);
        XSANY.any_i32 = 0;
        cv = newXS_deffile("MyTest::test_timelocal", XS_MyTest_test_timegm);
        XSANY.any_i32 = 1;
        cv = newXS_deffile("MyTest::gmtime_bench", XS_MyTest_gmtime_bench);
        XSANY.any_i32 = 0;
        cv = newXS_deffile("MyTest::localtime_bench", XS_MyTest_gmtime_bench);
        XSANY.any_i32 = 1;
        cv = newXS_deffile("MyTest::posix_gmtime_bench", XS_MyTest_posix_gmtime_bench);
        XSANY.any_i32 = 0;
        cv = newXS_deffile("MyTest::posix_localtime_bench", XS_MyTest_posix_gmtime_bench);
        XSANY.any_i32 = 1;
        cv = newXS_deffile("MyTest::timegm_bench", XS_MyTest_timegm_bench);
        XSANY.any_i32 = 0;
        cv = newXS_deffile("MyTest::timegml_bench", XS_MyTest_timegm_bench);
        XSANY.any_i32 = 1;
        cv = newXS_deffile("MyTest::timelocal_bench", XS_MyTest_timegm_bench);
        XSANY.any_i32 = 2;
        cv = newXS_deffile("MyTest::timelocall_bench", XS_MyTest_timegm_bench);
        XSANY.any_i32 = 3;
        cv = newXS_deffile("MyTest::posix_timegm_bench", XS_MyTest_posix_timegm_bench);
        XSANY.any_i32 = 0;
        cv = newXS_deffile("MyTest::posix_timelocal_bench", XS_MyTest_posix_timegm_bench);
        XSANY.any_i32 = 1;
#endif
    }

    /* Initialisation Section */

#if XSubPPtmpAAAA
#endif
#line 716 "t/lib/MyTest.xs.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
}); }