1 |
TYPEMAP |
2 |
|
3 |
B::OP T_OP_OBJ |
4 |
B::UNOP T_OP_OBJ |
5 |
B::BINOP T_OP_OBJ |
6 |
B::LOGOP T_OP_OBJ |
7 |
B::LISTOP T_OP_OBJ |
8 |
B::PMOP T_OP_OBJ |
9 |
B::SVOP T_OP_OBJ |
10 |
B::PADOP T_OP_OBJ |
11 |
B::PVOP T_OP_OBJ |
12 |
B::LOOP T_OP_OBJ |
13 |
B::COP T_OP_OBJ |
14 |
|
15 |
B::SV T_SV_OBJ |
16 |
B::PV T_SV_OBJ |
17 |
B::IV T_SV_OBJ |
18 |
B::NV T_SV_OBJ |
19 |
B::PVMG T_SV_OBJ |
20 |
B::PVLV T_SV_OBJ |
21 |
B::BM T_SV_OBJ |
22 |
B::RV T_SV_OBJ |
23 |
B::GV T_SV_OBJ |
24 |
B::CV T_SV_OBJ |
25 |
B::HV T_SV_OBJ |
26 |
B::AV T_SV_OBJ |
27 |
B::IO T_SV_OBJ |
28 |
B::FM T_SV_OBJ |
29 |
|
30 |
B::MAGIC T_MG_OBJ |
31 |
SSize_t T_IV |
32 |
STRLEN T_UV |
33 |
PADOFFSET T_UV |
34 |
|
35 |
B::HE T_HE_OBJ |
36 |
B::RHE T_RHE_OBJ |
37 |
|
38 |
INPUT |
39 |
T_OP_OBJ |
40 |
if (SvROK($arg)) { |
41 |
IV tmp = SvIV((SV*)SvRV($arg)); |
42 |
$var = INT2PTR($type,tmp); |
43 |
} |
44 |
else |
45 |
croak(\"$var is not a reference\") |
46 |
|
47 |
T_SV_OBJ |
48 |
if (SvROK($arg)) { |
49 |
IV tmp = SvIV((SV*)SvRV($arg)); |
50 |
$var = INT2PTR($type,tmp); |
51 |
} |
52 |
else |
53 |
croak(\"$var is not a reference\") |
54 |
|
55 |
T_MG_OBJ |
56 |
if (SvROK($arg)) { |
57 |
IV tmp = SvIV((SV*)SvRV($arg)); |
58 |
$var = INT2PTR($type,tmp); |
59 |
} |
60 |
else |
61 |
croak(\"$var is not a reference\") |
62 |
|
63 |
T_HE_OBJ |
64 |
if (SvROK($arg)) { |
65 |
IV tmp = SvIV((SV*)SvRV($arg)); |
66 |
$var = INT2PTR($type,tmp); |
67 |
} |
68 |
else |
69 |
croak(\"$var is not a reference\") |
70 |
|
71 |
T_RHE_OBJ |
72 |
if (SvROK($arg)) { |
73 |
IV tmp = SvIV((SV*)SvRV($arg)); |
74 |
$var = INT2PTR($type,tmp); |
75 |
} |
76 |
else |
77 |
croak(\"$var is not a reference\") |
78 |
|
79 |
OUTPUT |
80 |
T_OP_OBJ |
81 |
sv_setiv(newSVrv($arg, cc_opclassname(aTHX_ (OP*)$var)), PTR2IV($var)); |
82 |
|
83 |
T_SV_OBJ |
84 |
make_sv_object(aTHX_ ($arg), (SV*)($var)); |
85 |
|
86 |
|
87 |
T_MG_OBJ |
88 |
sv_setiv(newSVrv($arg, "B::MAGIC"), PTR2IV($var)); |
89 |
|
90 |
T_HE_OBJ |
91 |
sv_setiv(newSVrv($arg, "B::HE"), PTR2IV($var)); |
92 |
|
93 |
T_RHE_OBJ |
94 |
sv_setiv(newSVrv($arg, "B::RHE"), PTR2IV($var)); |