ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/server/server/typemap
Revision: 1.21
Committed: Tue Apr 24 00:42:02 2007 UTC (17 years, 1 month ago) by root
Branch: MAIN
Changes since 1.20: +1 -0 lines
Log Message: 
- implement a rudimentary framework for a "msg" command that
  replaces drawinfo and drawextinfo and allows for simpler usage
  in simple cases and extensibility for the less complex uses.
- moved the character race choosing logic into perl, making use
  of the new msg command if the client supports it.

File Contents

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