     1			/*
     2			 * This file was generated automatically by ExtUtils::ParseXS version 2.10 from the
     3			 * contents of KR.xs. Do not edit this file, edit KR.xs instead.
     4			 *
     5			 *	ANY CHANGES MADE HERE WILL BE LOST! 
     6			 *
     7			 */
     8			
     9			#include <EXTERN.h>
    10			#include <perl.h>
    11			#include <XSUB.h>
    12			#define U8 U8
    13			#include "encode.h"
    14			#include "ma_04_t.h"
    15			#include "ks_03_t.h"
    16			#include "jo_02_t.h"
    17			#include "eu_01_t.h"
    18			#include "cp_00_t.h"
    19			
    20			static void
    21			Encode_XSEncoding(pTHX_ encode_t *enc)
    22	          20    {
    23	          20     dSP;
    24	          20     HV *stash = gv_stashpv("Encode::XS", TRUE);
    25	          20     SV *sv    = sv_bless(newRV_noinc(newSViv(PTR2IV(enc))),stash);
    26	          20     int i = 0;
    27	          20     PUSHMARK(sp);
    28	          20     XPUSHs(sv);
    29	          40     while (enc->name[i])
    30			  {
    31	          20       const char *name = enc->name[i++];
    32	          20       XPUSHs(sv_2mortal(newSVpvn(name,strlen(name))));
    33			  }
    34	          20     PUTBACK;
    35	          20     call_pv("Encode::define_encoding",G_DISCARD);
    36	          20     SvREFCNT_dec(sv);
    37			}
    38			
    39			#ifndef PERL_UNUSED_VAR
    40			#  define PERL_UNUSED_VAR(var) if (0) var = var
    41			#endif
    42			
    43			#ifdef __cplusplus
    44			extern "C"
    45			#endif
    46			XS(boot_Encode__KR); /* prototype to pass -Wmissing-prototypes */
    47			XS(boot_Encode__KR)
    48	           4    {
    49	           4        dXSARGS;
    50			
    51	           4        PERL_UNUSED_VAR(cv); /* -W */
    52	           4        PERL_UNUSED_VAR(items); /* -W */
    53	           4        XS_VERSION_BOOTCHECK ;
    54			
    55			
    56			    /* Initialisation Section */
    57			
    58			{
    59			#include "ma_04_t.exh"
    60			#include "ks_03_t.exh"
    61			#include "jo_02_t.exh"
    62			#include "eu_01_t.exh"
    63			#include "cp_00_t.exh"
    64			}
    65			
    66			
    67			    /* End of Initialisation Section */
    68			
    69	           4        XSRETURN_YES;
    70			}
    71			
