ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/server/server/typemap
Revision: 1.27
Committed: Fri Apr 11 13:59:06 2008 UTC (16 years, 1 month ago) by root
Branch: MAIN
CVS Tags: rel-2_5
Changes since 1.26: +8 -1 lines
Log Message:
*** empty log message ***

File Contents

# Content
1 val64 T_VAL64
2 uint64 T_UVAL64
3 sint16 T_INT
4 sint8 T_INT
5 faceidx T_INT
6 animidx T_INT
7
8 shstr T_PV
9 const shstr T_PV
10
11 object * T_CF_OBJ
12 partylist * T_CF_OBJ
13 archetype * T_CF_OBJ
14 maptile * T_CF_OBJ
15 struct region * T_CF_OBJ
16 region * T_CF_OBJ
17 client * T_CF_OBJ
18 player * 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
25
26 object_thawer * T_CF_OBJ
27 object_freezer * T_CF_OBJ
28
29 Settings * T_SETTINGS
30
31 object_ornull * T_CF_OBJ_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
37
38 INPUT
39
40 T_VAL64
41 $var = ($type)SvVAL64 ($arg);
42
43 T_UVAL64
44 $var = ($type)SvUVAL64 ($arg);
45
46 T_CF_OBJ
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;
56
57 T_SETTINGS
58 $var = &settings
59
60 T_CF_OCTETS
61 $var = SvPVbyte_nolen ($arg)
62
63 T_CF_UTF8
64 $var = SvPVutf8_nolen ($arg)
65
66 OUTPUT
67
68 T_VAL64
69 $arg = newSVval64 ($var);
70
71 T_UVAL64
72 $arg = newSVuval64 ($var);
73
74 T_CF_OBJ_NORNULL
75 $arg = to_sv ($var);
76
77 T_CF_OBJ
78 $arg = to_sv ($var);
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