ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/server/server/typemap
Revision: 1.28
Committed: Sun Apr 20 23:25:09 2008 UTC (16 years, 1 month ago) by root
Branch: MAIN
CVS Tags: rel-2_6, rel-2_54, rel-2_55, rel-2_56, rel-2_52, rel-2_53, rel-2_61
Changes since 1.27: +8 -2 lines
Log Message:
minor refactoring

File Contents

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