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

# User Rev Content
1 root 1.20 val64 T_VAL64
2 root 1.28 sint64 T_VAL64
3     sint32 T_IV
4     sint16 T_IV
5     sint8 T_IV
6 root 1.27 uint64 T_UVAL64
7 root 1.28 uint32 T_UV
8     uint16 T_UV
9     uint8 T_UV
10    
11 root 1.20 faceidx T_INT
12     animidx T_INT
13    
14 root 1.24 shstr T_PV
15     const shstr T_PV
16    
17 root 1.20 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 root 1.21 treasurelist * T_CF_OBJ
28 root 1.20 std::string T_CF_OBJ
29     const std::string T_CF_OBJ
30 root 1.27 UUID T_CF_OBJ
31 root 1.7
32 root 1.26 object_thawer * T_CF_OBJ
33     object_freezer * T_CF_OBJ
34    
35 root 1.20 Settings * T_SETTINGS
36 root 1.1
37 root 1.9 object_ornull * T_CF_OBJ_ORNULL
38     mapstruct_ornull * T_CF_OBJ_ORNULL
39 root 1.16 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 root 1.1
44     INPUT
45    
46     T_VAL64
47     $var = ($type)SvVAL64 ($arg);
48    
49 root 1.27 T_UVAL64
50     $var = ($type)SvUVAL64 ($arg);
51    
52 root 1.7 T_CF_OBJ
53 root 1.25 sv_to ($arg, $var);
54     if (!$var)
55     warn (\"must not pass invalid/null cf_obj here\");
56 root 1.7
57 root 1.9 T_CF_OBJ_ORNULL
58     if (SvOK ($arg))
59     sv_to ($arg, $var);
60     else
61     $var = 0;
62 root 1.1
63 root 1.26 T_SETTINGS
64     $var = &settings
65    
66 root 1.16 T_CF_OCTETS
67     $var = SvPVbyte_nolen ($arg)
68    
69     T_CF_UTF8
70     $var = SvPVutf8_nolen ($arg)
71    
72 root 1.1 OUTPUT
73    
74     T_VAL64
75     $arg = newSVval64 ($var);
76    
77 root 1.27 T_UVAL64
78     $arg = newSVuval64 ($var);
79    
80 root 1.9 T_CF_OBJ_NORNULL
81 root 1.4 $arg = to_sv ($var);
82 root 1.7
83     T_CF_OBJ
84 root 1.4 $arg = to_sv ($var);
85 root 1.1
86 root 1.16 T_CF_OCTETS
87 root 1.17 $arg = $var ? newSVpv ($var, 0) : &PL_sv_undef;
88 root 1.16
89     T_CF_UTF8
90 root 1.17 if ($var)
91     {
92 root 1.18 sv_setpv ($arg, $var);
93 root 1.17 SvUTF8_on ($arg);
94     }
95 root 1.16