# # /* # * *********** WARNING ************** # * This file generated by Embperl::WrapXS/2.0.0 # * Any changes made here will be lost # * *********************************** # * 1. /usr/lib/perl5/site_perl/5.16.0/ExtUtils/XSBuilder/WrapXS.pm:52 # * 2. /usr/lib/perl5/site_perl/5.16.0/ExtUtils/XSBuilder/WrapXS.pm:2068 # * 3. xsbuilder/xs_generate.pl:6 # */ # tNode T_IV Embperl::Thread T_MAGICHASH_SV tPhase T_IV Embperl::CacheItem T_MAGICHASH_SV Embperl::Req::Param T_MAGICHASH_SV Embperl::Req::Config T_MAGICHASH_SV unsigned T_UV Embperl::Req T_MAGICHASH_SV Embperl::App::Config T_MAGICHASH_SV Embperl::Component::Param T_MAGICHASH_SV SV T_SV unsigned int T_UV Apache T_PTROBJ Apache::Server T_PTROBJ Embperl::Component::Config T_MAGICHASH_SV const void * T_PTR char T_CHAR Embperl::App T_MAGICHASH_SV const off_t * T_IV Embperl::Syntax T_MAGICHASH_SV pid_t * T_IV Embperl::Component::Output T_MAGICHASH_SV char * T_PV AV * T_AVREF gid_t T_IV void * T_PTR int T_IV const size_t * T_IV const time_t * T_NV char const * T_PV unsigned long T_UV long int T_IV Embperl::Component T_MAGICHASH_SV I32 T_IV unsigned char T_U_CHAR time_t T_NV const char T_CHAR signed int T_IV off_t * T_IV bool T_IV const pid_t * T_IV uid_t * T_IV void T_VOID const uid_t * T_IV const unsigned char * T_PV time_t * T_NV uid_t T_IV const char * T_PV SV * T_SVPTR const clock_t * T_IV gid_t * T_IV STRLEN T_IV size_t T_IV tIndex T_IV off_t T_IV const gid_t * T_IV tRepeatLevel T_IV unsigned char * T_PV clock_t T_IV const unsigned char T_U_CHAR pid_t T_IV clock_t * T_IV long T_IV CV * T_SVPTR HV * T_HVREF INPUT T_PVnull $var = ($type)epxs_sv2_PVnull($arg) T_HVREF $var = epxs_sv2_HVREF($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_SVPTR $var = ($type)epxs_sv2_SVPTR($arg) T_AVREF $var = epxs_sv2_AVREF($arg) OUTPUT T_PVnull $arg = SvREFCNT_inc (epxs_PVnull_2obj($var)); T_HVREF $arg = SvREFCNT_inc (epxs_HVREF_2obj($var)); T_MAGICHASH_SV if ($var -> _perlsv) $arg = $var -> _perlsv ; else $arg = &sv_undef ; T_SVPTR $arg = SvREFCNT_inc (epxs_SVPTR_2obj($var)); T_AVREF $arg = SvREFCNT_inc (epxs_AVREF_2obj($var));