1			/*
     2			 * This file was generated automatically by ExtUtils::ParseXS version 2.10 from the
     3			 * contents of Symbol.xs. Do not edit this file, edit Symbol.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 "symbol_t.h"
    15			
    16			static void
    17			Encode_XSEncoding(pTHX_ encode_t *enc)
    18	           6    {
    19	           6     dSP;
    20	           6     HV *stash = gv_stashpv("Encode::XS", TRUE);
    21	           6     SV *sv    = sv_bless(newRV_noinc(newSViv(PTR2IV(enc))),stash);
    22	           6     int i = 0;
    23	           6     PUSHMARK(sp);
    24	           6     XPUSHs(sv);
    25	          12     while (enc->name[i])
    26			  {
    27	           6       const char *name = enc->name[i++];
    28	           6       XPUSHs(sv_2mortal(newSVpvn(name,strlen(name))));
    29			  }
    30	           6     PUTBACK;
    31	           6     call_pv("Encode::define_encoding",G_DISCARD);
    32	           6     SvREFCNT_dec(sv);
    33			}
    34			
    35			#ifndef PERL_UNUSED_VAR
    36			#  define PERL_UNUSED_VAR(var) if (0) var = var
    37			#endif
    38			
    39			#ifdef __cplusplus
    40			extern "C"
    41			#endif
    42			XS(boot_Encode__Symbol); /* prototype to pass -Wmissing-prototypes */
    43			XS(boot_Encode__Symbol)
    44	           1    {
    45	           1        dXSARGS;
    46			
    47	           1        PERL_UNUSED_VAR(cv); /* -W */
    48	           1        PERL_UNUSED_VAR(items); /* -W */
    49	           1        XS_VERSION_BOOTCHECK ;
    50			
    51			
    52			    /* Initialisation Section */
    53			
    54			{
    55			#include "symbol_t.exh"
    56			}
    57			
    58			
    59			    /* End of Initialisation Section */
    60			
    61	           1        XSRETURN_YES;
    62			}
    63