… | |
… | |
9 | uint8 T_UV |
9 | uint8 T_UV |
10 | |
10 | |
11 | faceidx T_INT |
11 | faceidx T_INT |
12 | animidx T_INT |
12 | animidx T_INT |
13 | |
13 | |
14 | shstr T_PV |
14 | shstr T_SHSTR |
15 | const shstr T_PV |
15 | const shstr T_SHSTR |
|
|
16 | shstr_tmp T_SHSTR |
|
|
17 | const shstr_tmp T_SHSTR |
16 | |
18 | |
17 | object * T_CF_OBJ |
19 | object * T_CF_OBJ |
18 | partylist * T_CF_OBJ |
20 | partylist * T_CF_OBJ |
19 | archetype * T_CF_OBJ |
21 | archetype * T_CF_OBJ |
20 | maptile * T_CF_OBJ |
22 | maptile * T_CF_OBJ |
… | |
… | |
70 | $var = SvPVbyte_nolen ($arg) |
72 | $var = SvPVbyte_nolen ($arg) |
71 | |
73 | |
72 | T_CF_UTF8 |
74 | T_CF_UTF8 |
73 | $var = SvPVutf8_nolen ($arg) |
75 | $var = SvPVutf8_nolen ($arg) |
74 | |
76 | |
|
|
77 | T_SHSTR |
|
|
78 | $var = shstr (SvPVutf8_nolen ($arg)) |
|
|
79 | |
75 | OUTPUT |
80 | OUTPUT |
76 | |
81 | |
77 | T_VAL64 |
82 | T_VAL64 |
78 | $arg = newSVval64 ($var); |
83 | $arg = newSVval64 ($var); |
79 | |
84 | |
… | |
… | |
94 | { |
99 | { |
95 | sv_setpv ($arg, $var); |
100 | sv_setpv ($arg, $var); |
96 | SvUTF8_on ($arg); |
101 | SvUTF8_on ($arg); |
97 | } |
102 | } |
98 | |
103 | |
|
|
104 | T_SHSTR |
|
|
105 | if ($var) |
|
|
106 | { |
|
|
107 | sv_setpv ($arg, $var); |
|
|
108 | SvUTF8_on ($arg); |
|
|
109 | } |
|
|
110 | |