| 1 | val64 T_VAL64 |
1 | val64 T_VAL64 |
| 2 | uint64 T_VAL64 |
2 | uint64 T_UVAL64 |
|
|
3 | sint16 T_INT |
|
|
4 | sint8 T_INT |
|
|
5 | faceidx T_INT |
|
|
6 | animidx T_INT |
| 3 | |
7 | |
| 4 | const object * T_OBJECT |
8 | shstr T_PV |
| 5 | object * T_OBJECT |
9 | const shstr T_PV |
| 6 | |
10 | |
|
|
11 | object * T_CF_OBJ |
| 7 | partylist * T_CF_OBJ |
12 | partylist * T_CF_OBJ |
| 8 | archetype * T_CF_OBJ |
13 | archetype * T_CF_OBJ |
| 9 | maptile * T_CF_OBJ |
14 | maptile * T_CF_OBJ |
| 10 | region * T_CF_OBJ |
15 | struct region * T_CF_OBJ |
| 11 | client_socket * T_CF_OBJ |
16 | region * T_CF_OBJ |
|
|
17 | client * T_CF_OBJ |
| 12 | player * T_CF_OBJ |
18 | player * T_CF_OBJ |
| 13 | living * T_CF_OBJ |
19 | living * T_CF_OBJ |
|
|
20 | attachable * T_CF_OBJ |
|
|
21 | treasurelist * T_CF_OBJ |
|
|
22 | std::string T_CF_OBJ |
|
|
23 | const std::string T_CF_OBJ |
|
|
24 | UUID T_CF_OBJ |
| 14 | |
25 | |
| 15 | Settings * T_SETTINGS |
26 | object_thawer * T_CF_OBJ |
|
|
27 | object_freezer * T_CF_OBJ |
| 16 | |
28 | |
|
|
29 | Settings * T_SETTINGS |
|
|
30 | |
| 17 | object_ornull * T_OBJECT_ORNULL |
31 | object_ornull * T_CF_OBJ_ORNULL |
| 18 | mapstruct_ornull * T_MAP_ORNULL |
32 | mapstruct_ornull * T_CF_OBJ_ORNULL |
|
|
33 | octet_string T_CF_OCTETS |
|
|
34 | utf8_string T_CF_UTF8 |
|
|
35 | const_octet_string T_CF_OCTETS |
|
|
36 | const_utf8_string T_CF_UTF8 |
| 19 | |
37 | |
| 20 | INPUT |
38 | INPUT |
| 21 | |
39 | |
| 22 | T_VAL64 |
40 | T_VAL64 |
| 23 | $var = ($type)SvVAL64 ($arg); |
41 | $var = ($type)SvVAL64 ($arg); |
| 24 | |
42 | |
| 25 | T_OBJECT |
43 | T_UVAL64 |
| 26 | $var = (object *)SvPTR ($arg, \"cf::object\"); |
44 | $var = ($type)SvUVAL64 ($arg); |
| 27 | |
45 | |
| 28 | T_CF_OBJ |
46 | T_CF_OBJ |
| 29 | sv_to ($arg, $var) |
47 | sv_to ($arg, $var); |
|
|
48 | if (!$var) |
|
|
49 | warn (\"must not pass invalid/null cf_obj here\"); |
|
|
50 | |
|
|
51 | T_CF_OBJ_ORNULL |
|
|
52 | if (SvOK ($arg)) |
|
|
53 | sv_to ($arg, $var); |
|
|
54 | else |
|
|
55 | $var = 0; |
| 30 | |
56 | |
| 31 | T_SETTINGS |
57 | T_SETTINGS |
| 32 | $var = &settings; |
58 | $var = &settings |
| 33 | |
59 | |
| 34 | T_OBJECT_ORNULL |
60 | T_CF_OCTETS |
| 35 | $var = (object *)SvPTR_ornull ($arg, \"cf::object\"); |
61 | $var = SvPVbyte_nolen ($arg) |
| 36 | |
62 | |
| 37 | T_MAP_ORNULL |
63 | T_CF_UTF8 |
| 38 | $var = (mapstruct *)SvPTR_ornull ($arg, \"cf::map\"); |
64 | $var = SvPVutf8_nolen ($arg) |
| 39 | |
65 | |
| 40 | OUTPUT |
66 | OUTPUT |
| 41 | |
67 | |
| 42 | T_VAL64 |
68 | T_VAL64 |
| 43 | $arg = newSVval64 ($var); |
69 | $arg = newSVval64 ($var); |
| 44 | |
70 | |
| 45 | T_OBJECT |
71 | T_UVAL64 |
|
|
72 | $arg = newSVuval64 ($var); |
|
|
73 | |
|
|
74 | T_CF_OBJ_NORNULL |
| 46 | $arg = to_sv ($var); |
75 | $arg = to_sv ($var); |
| 47 | |
76 | |
| 48 | T_CF_OBJ |
77 | T_CF_OBJ |
| 49 | $arg = to_sv ($var); |
78 | $arg = to_sv ($var); |
| 50 | |
79 | |
|
|
80 | T_CF_OCTETS |
|
|
81 | $arg = $var ? newSVpv ($var, 0) : &PL_sv_undef; |
|
|
82 | |
|
|
83 | T_CF_UTF8 |
|
|
84 | if ($var) |
|
|
85 | { |
|
|
86 | sv_setpv ($arg, $var); |
|
|
87 | SvUTF8_on ($arg); |
|
|
88 | } |
|
|
89 | |
