ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/server/server/typemap
Revision: 1.22
Committed: Sun Apr 29 21:44:35 2007 UTC (17 years, 1 month ago) by root
Branch: MAIN
Changes since 1.21: +1 -0 lines
Log Message:
goofign around a bit: the while ranged/non-ranged system is borked and needs some serious redesign

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