# 
# /*
#  * *********** WARNING **************
#  * This file generated by Embperl::WrapXS/0.01
#  * Any changes made here will be lost
#  * ***********************************
#  * 1. /opt/perlt5.6.1/lib/site_perl/5.6.1/ExtUtils/XSBuilder/WrapXS.pm:37
#  * 2. /opt/perlt5.6.1/lib/site_perl/5.6.1/ExtUtils/XSBuilder/WrapXS.pm:1814
#  * 3. xsbuilder/xs_generate.pl:6
#  */
# 

Embperl::Component::Param	T_MAGICHASH_SV
signed int	T_IV
Embperl::Req::Param	T_MAGICHASH_SV
Embperl::Thread	T_MAGICHASH_SV
Apache::Server	T_PTROBJ
const pid_t *	T_IV
Embperl::App	T_MAGICHASH_SV
Embperl::Component	T_MAGICHASH_SV
Embperl::Component::Config	T_MAGICHASH_SV
Embperl::Syntax	T_MAGICHASH_SV
Embperl::Component::Output	T_MAGICHASH_SV
Embperl::CacheItem	T_MAGICHASH_SV
Embperl::Req	T_MAGICHASH_SV
Embperl::Req::Config	T_MAGICHASH_SV
const gid_t *	T_IV
unsigned long	T_UV
const off_t *	T_IV
pid_t	T_IV
const size_t *	T_IV
Apache	T_PTROBJ
Embperl::App::Config	T_MAGICHASH_SV
void *	T_PTR
const clock_t *	T_IV
unsigned char *	T_PV
clock_t *	T_IV
tPhase	T_IV
long	T_IV
char const *	T_PV
uid_t *	T_IV
uid_t	T_IV
char *	T_PV
HV *	T_HVREF
clock_t	T_IV
const void *	T_PTR
gid_t	T_IV
CV *	T_SVPTR
const unsigned char *	T_PV
unsigned char	T_U_CHAR
bool	T_IV
time_t	T_NV
I32	T_IV
size_t	T_IV
const time_t *	T_NV
const char *	T_PV
SV *	T_SVPTR
tRepeatLevel	T_IV
time_t *	T_NV
SV	T_SV
char	T_CHAR
const uid_t *	T_IV
pid_t *	T_IV
AV *	T_AVREF
gid_t *	T_IV
off_t	T_IV
off_t *	T_IV
long int	T_IV
tNode	T_IV
void	T_VOID
int	T_IV
tIndex	T_IV
unsigned int	T_UV
const unsigned char	T_U_CHAR
unsigned	T_UV
STRLEN	T_IV
const char	T_CHAR

INPUT
T_SVPTR
        $var = epxs_sv2_SVPTR($arg)

T_MAGICHASH_SV
    {
    MAGIC * mg ;
    if (mg = mg_find (SvRV($arg), '~'))
        $var = *(($type *)(mg -> mg_ptr)) ;
    else
        croak (\"$var is not of type $type\") ;
    }


T_AVREF
        $var = epxs_sv2_AVREF($arg)

T_HVREF
        $var = epxs_sv2_HVREF($arg)


OUTPUT
T_SVPTR
        $arg = SvREFCNT_inc (epxs_SVPTR_2obj($var)) ;

T_MAGICHASH_SV
    if ($var -> _perlsv) $arg = $var -> _perlsv ; else $arg = &sv_undef ;

T_AVREF
        $arg = SvREFCNT_inc (epxs_AVREF_2obj($var)) ;

T_HVREF
        $arg = SvREFCNT_inc (epxs_HVREF_2obj($var)) ;

