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

#include <EXTERN.h>
#include <perl.h>
#include <XSUB.h>
#define U8 U8
#include "encode.h"
#include "euc2k_t.h"
#include "raw_t.h"
#include "sjis2k_t.h"

static void
Encode_XSEncoding(pTHX_ encode_t *enc)
{
 dSP;
 HV *stash = gv_stashpv("Encode::XS", TRUE);
 SV *sv    = sv_bless(newRV_noinc(newSViv(PTR2IV(enc))),stash);
 int i = 0;
 PUSHMARK(sp);
 XPUSHs(sv);
 while (enc->name[i])
  {
   const char *name = enc->name[i++];
   XPUSHs(sv_2mortal(newSVpvn(name,strlen(name))));
  }
 PUTBACK;
 call_pv("Encode::define_encoding",G_DISCARD);
 SvREFCNT_dec(sv);
}

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

#ifdef __cplusplus
extern "C"
#endif
XS(boot_Encode__JIS2K); /* prototype to pass -Wmissing-prototypes */
XS(boot_Encode__JIS2K)
{
#ifdef dVAR
    dVAR; dXSARGS;
#else
    dXSARGS;
#endif

    PERL_UNUSED_VAR(cv); /* -W */
    PERL_UNUSED_VAR(items); /* -W */
    XS_VERSION_BOOTCHECK ;


    /* Initialisation Section */

{
#include "euc2k_t.exh"
#include "raw_t.exh"
#include "sjis2k_t.exh"
}


    /* End of Initialisation Section */

    XSRETURN_YES;
}