ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/server/server/typemap
Revision: 1.31
Committed: Wed Dec 31 18:07:41 2008 UTC (15 years, 4 months ago) by root
Branch: MAIN
Changes since 1.30: +14 -2 lines
Log Message:
further optimisations

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_SHSTR
15 const shstr T_SHSTR
16 shstr_tmp T_SHSTR
17 const shstr_tmp T_SHSTR
18
19 object * T_CF_OBJ
20 partylist * T_CF_OBJ
21 archetype * T_CF_OBJ
22 maptile * T_CF_OBJ
23 struct region * T_CF_OBJ
24 region * T_CF_OBJ
25 client * T_CF_OBJ
26 player * T_CF_OBJ
27 living * T_CF_OBJ
28 mapspace * T_CF_OBJ
29 attachable * T_CF_OBJ
30 treasurelist * T_CF_OBJ
31 std::string T_CF_OBJ
32 const std::string T_CF_OBJ
33 UUID T_CF_OBJ
34 dynbuf * T_CF_OBJ
35 dynbuf_text * T_CF_OBJ
36
37 object_thawer * T_CF_OBJ
38 object_freezer * T_CF_OBJ
39
40 Settings * T_SETTINGS
41
42 object_ornull * T_CF_OBJ_ORNULL
43 mapstruct_ornull * T_CF_OBJ_ORNULL
44 octet_string T_CF_OCTETS
45 utf8_string T_CF_UTF8
46 const_octet_string T_CF_OCTETS
47 const_utf8_string T_CF_UTF8
48
49 INPUT
50
51 T_VAL64
52 $var = ($type)SvVAL64 ($arg);
53
54 T_UVAL64
55 $var = ($type)SvUVAL64 ($arg);
56
57 T_CF_OBJ
58 sv_to ($arg, $var);
59 if (!$var)
60 warn (\"must not pass invalid/null cf_obj here\");
61
62 T_CF_OBJ_ORNULL
63 if (SvOK ($arg))
64 sv_to ($arg, $var);
65 else
66 $var = 0;
67
68 T_SETTINGS
69 $var = &settings
70
71 T_CF_OCTETS
72 $var = SvPVbyte_nolen ($arg)
73
74 T_CF_UTF8
75 $var = SvPVutf8_nolen ($arg)
76
77 T_SHSTR
78 $var = shstr (SvPVutf8_nolen ($arg))
79
80 OUTPUT
81
82 T_VAL64
83 $arg = newSVval64 ($var);
84
85 T_UVAL64
86 $arg = newSVuval64 ($var);
87
88 T_CF_OBJ_NORNULL
89 $arg = to_sv ($var);
90
91 T_CF_OBJ
92 $arg = to_sv ($var);
93
94 T_CF_OCTETS
95 $arg = $var ? newSVpv ($var, 0) : &PL_sv_undef;
96
97 T_CF_UTF8
98 if ($var)
99 {
100 sv_setpv ($arg, $var);
101 SvUTF8_on ($arg);
102 }
103
104 T_SHSTR
105 if ($var)
106 {
107 sv_setpv ($arg, $var);
108 SvUTF8_on ($arg);
109 }
110