MOON
Server: Apache/2.2.21 (Unix) mod_ssl/2.2.21 OpenSSL/0.9.8e-fips-rhel5 mod_auth_passthrough/2.1 mod_bwlimited/1.4
System: Linux vps.panamaemb.org.sg 3.10.0-1160.80.1.vz7.191.4 #1 SMP Thu Dec 15 20:31:06 MSK 2022 x86_64
User: panama (500)
PHP: 5.2.17
Disabled: NONE
Upload Files
File: //installd/perl588installer/perl-5.8.8/ext/Encode/Byte/Byte.c
/*
 * This file was generated automatically by xsubpp version 1.9508 from the
 * contents of Byte.xs. Do not edit this file, edit Byte.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 "byte_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);
}

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

    XS_VERSION_BOOTCHECK ;


    /* Initialisation Section */

{
#include "byte_t.exh"
}


    /* End of Initialisation Section */

    XSRETURN_YES;
}