1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
|
#
# /*
# * *********** 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));
|
