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

# Content
1 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 treasurelist * T_CF_OBJ
19 std::string T_CF_OBJ
20 const std::string T_CF_OBJ
21
22 Settings * T_SETTINGS
23
24 object_ornull * T_CF_OBJ_ORNULL
25 mapstruct_ornull * T_CF_OBJ_ORNULL
26 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
31 INPUT
32
33 T_VAL64
34 $var = ($type)SvVAL64 ($arg);
35
36 T_CF_OBJ
37 sv_to ($arg, $var)
38
39 T_SETTINGS
40 $var = &settings
41
42 T_CF_OBJ_ORNULL
43 if (SvOK ($arg))
44 sv_to ($arg, $var);
45 else
46 $var = 0;
47
48 T_CF_OCTETS
49 $var = SvPVbyte_nolen ($arg)
50
51 T_CF_UTF8
52 $var = SvPVutf8_nolen ($arg)
53
54 OUTPUT
55
56 T_VAL64
57 $arg = newSVval64 ($var);
58
59 T_CF_OBJ_NORNULL
60 $arg = to_sv ($var);
61
62 T_CF_OBJ
63 $arg = to_sv ($var);
64
65 T_CF_OCTETS
66 $arg = $var ? newSVpv ($var, 0) : &PL_sv_undef;
67
68 T_CF_UTF8
69 if ($var)
70 {
71 sv_setpv ($arg, $var);
72 SvUTF8_on ($arg);
73 }
74