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, 5 months ago) by root
Branch: MAIN
Changes since 1.30: +14 -2 lines
Log Message:
further optimisations

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.31 shstr T_SHSTR
15     const shstr T_SHSTR
16     shstr_tmp T_SHSTR
17     const shstr_tmp T_SHSTR
18 root 1.24
19 root 1.20 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 root 1.29 mapspace * T_CF_OBJ
29 root 1.20 attachable * T_CF_OBJ
30 root 1.21 treasurelist * T_CF_OBJ
31 root 1.20 std::string T_CF_OBJ
32     const std::string T_CF_OBJ
33 root 1.27 UUID T_CF_OBJ
34 root 1.30 dynbuf * T_CF_OBJ
35     dynbuf_text * T_CF_OBJ
36 root 1.7
37 root 1.26 object_thawer * T_CF_OBJ
38     object_freezer * T_CF_OBJ
39    
40 root 1.20 Settings * T_SETTINGS
41 root 1.1
42 root 1.9 object_ornull * T_CF_OBJ_ORNULL
43     mapstruct_ornull * T_CF_OBJ_ORNULL
44 root 1.16 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 root 1.1
49     INPUT
50    
51     T_VAL64
52     $var = ($type)SvVAL64 ($arg);
53    
54 root 1.27 T_UVAL64
55     $var = ($type)SvUVAL64 ($arg);
56    
57 root 1.7 T_CF_OBJ
58 root 1.25 sv_to ($arg, $var);
59     if (!$var)
60     warn (\"must not pass invalid/null cf_obj here\");
61 root 1.7
62 root 1.9 T_CF_OBJ_ORNULL
63     if (SvOK ($arg))
64     sv_to ($arg, $var);
65     else
66     $var = 0;
67 root 1.1
68 root 1.26 T_SETTINGS
69     $var = &settings
70    
71 root 1.16 T_CF_OCTETS
72     $var = SvPVbyte_nolen ($arg)
73    
74     T_CF_UTF8
75     $var = SvPVutf8_nolen ($arg)
76    
77 root 1.31 T_SHSTR
78     $var = shstr (SvPVutf8_nolen ($arg))
79    
80 root 1.1 OUTPUT
81    
82     T_VAL64
83     $arg = newSVval64 ($var);
84    
85 root 1.27 T_UVAL64
86     $arg = newSVuval64 ($var);
87    
88 root 1.9 T_CF_OBJ_NORNULL
89 root 1.4 $arg = to_sv ($var);
90 root 1.7
91     T_CF_OBJ
92 root 1.4 $arg = to_sv ($var);
93 root 1.1
94 root 1.16 T_CF_OCTETS
95 root 1.17 $arg = $var ? newSVpv ($var, 0) : &PL_sv_undef;
96 root 1.16
97     T_CF_UTF8
98 root 1.17 if ($var)
99     {
100 root 1.18 sv_setpv ($arg, $var);
101 root 1.17 SvUTF8_on ($arg);
102     }
103 root 1.16
104 root 1.31 T_SHSTR
105     if ($var)
106     {
107     sv_setpv ($arg, $var);
108     SvUTF8_on ($arg);
109     }
110