AlkantarClanX12
Your IP : 216.73.216.7
#define PERL_NO_GET_CONTEXT
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
#define NEED_sv_2pv_nolen_GLOBAL
/* for vutil.c */
#define NEED_my_snprintf
#define NEED_newRV_noinc
#define NEED_vnewSVpvf
#define NEED_newSVpvn_flags_GLOBAL
#define NEED_warner
#define NEED_ck_warner
#define NEED_croak_xs_usage
/* end vutil.c */
#include "ppport.h"
#include "vutil.h"
#include "vutil.c"
/* --------------------------------------------------
* $Revision: 2.5 $
* --------------------------------------------------*/
typedef SV *version_vxs;
#include "vxs.inc"
struct xsub_details {
const char *name;
XSUBADDR_t xsub;
#ifdef PERL_CORE
const char *proto; /* ignored */
#endif
};
static const struct xsub_details details[] = {
#define VXS_XSUB_DETAILS
#include "vxs.inc"
#undef VXS_XSUB_DETAILS
};
MODULE = version::vxs PACKAGE = version::vxs
PROTOTYPES: DISABLE
VERSIONCHECK: DISABLE
BOOT:
{
#if PERL_VERSION_LT(5,9,0)
char* file = __FILE__;
#else
const char* file = __FILE__;
#endif
const struct xsub_details *xsub = details;
const struct xsub_details *end
= details + sizeof(details) / sizeof(details[0]);
/* register the overloading (type 'A') magic */
PL_amagic_generation++;
do {
newXS((char*)xsub->name, xsub->xsub, file);
} while (++xsub < end);
}