ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/server/server/typemap
Revision: 1.17
Committed: Mon Apr 9 04:51:01 2007 UTC (17 years, 1 month ago) by root
Branch: MAIN
Changes since 1.16: +8 -3 lines
Log Message: 
bugs, bugs, bugs :/

File Contents

# User Rev Content
1 root 1.1 val64 T_VAL64
2     uint64 T_VAL64
3 root 1.11 sint16 T_INT
4 root 1.13 sint8 T_INT
5 root 1.15 faceidx T_INT
6 root 1.1
7 root 1.9 object * T_CF_OBJ
8 root 1.7 partylist * T_CF_OBJ
9     archetype * T_CF_OBJ
10     maptile * T_CF_OBJ
11 root 1.12 struct region * T_CF_OBJ
12 root 1.7 region * T_CF_OBJ
13 root 1.8 client * T_CF_OBJ
14 root 1.7 player * T_CF_OBJ
15     living * T_CF_OBJ
16 root 1.10 attachable * T_CF_OBJ
17 root 1.14 faceset * T_CF_OBJ
18 root 1.7
19 root 1.6 Settings * T_SETTINGS
20 root 1.1
21 root 1.9 object_ornull * T_CF_OBJ_ORNULL
22     mapstruct_ornull * T_CF_OBJ_ORNULL
23 root 1.16 octet_string T_CF_OCTETS
24     utf8_string T_CF_UTF8
25     const_octet_string T_CF_OCTETS
26     const_utf8_string T_CF_UTF8
27 root 1.1
28     INPUT
29    
30     T_VAL64
31     $var = ($type)SvVAL64 ($arg);
32    
33 root 1.7 T_CF_OBJ
34 root 1.4 sv_to ($arg, $var)
35 root 1.7
36 root 1.6 T_SETTINGS
37 root 1.9 $var = &settings
38 root 1.7
39 root 1.9 T_CF_OBJ_ORNULL
40     if (SvOK ($arg))
41     sv_to ($arg, $var);
42     else
43     $var = 0;
44 root 1.1
45 root 1.16 T_CF_OCTETS
46     $var = SvPVbyte_nolen ($arg)
47    
48     T_CF_UTF8
49     $var = SvPVutf8_nolen ($arg)
50    
51 root 1.1 OUTPUT
52    
53     T_VAL64
54     $arg = newSVval64 ($var);
55    
56 root 1.9 T_CF_OBJ_NORNULL
57 root 1.4 $arg = to_sv ($var);
58 root 1.7
59     T_CF_OBJ
60 root 1.4 $arg = to_sv ($var);
61 root 1.1
62 root 1.16 T_CF_OCTETS
63 root 1.17 $arg = $var ? newSVpv ($var, 0) : &PL_sv_undef;
64 root 1.16
65     T_CF_UTF8
66 root 1.17 if ($var)
67     {
68     $arg = newSVpv ($var, 0);
69     SvUTF8_on ($arg);
70     }
71     else
72     $arg = &PL_sv_undef;
73 root 1.16