ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/server/server/typemap
Revision: 1.33
Committed: Thu Jan 1 20:49:49 2009 UTC (15 years, 5 months ago) by root
Branch: MAIN
CVS Tags: rel-2_82, rel-2_81, rel-2_80, rel-2_76, rel-2_77, rel-2_75, rel-2_79, rel-2_90, rel-2_92, rel-2_78
Changes since 1.32: +8 -10 lines
Log Message:
slim down perl interface

File Contents

# Content
1 val64 T_VAL64
2 sint64 T_VAL64
3 sint32 T_IV
4 sint16 T_IV
5 sint8 T_IV
6 uint64 T_UVAL64
7 uint32 T_UV
8 uint16 T_UV
9 uint8 T_UV
10
11 faceidx T_INT
12 animidx T_INT
13
14 shstr T_SHSTR
15 const shstr T_SHSTR
16 shstr_tmp T_SHSTR
17 const shstr_tmp T_SHSTR
18 shstr_cmp T_SHSTR_CMP
19 const shstr_cmp T_SHSTR_CMP
20
21 object * T_CF_OBJ
22 partylist * T_CF_OBJ
23 archetype * T_CF_OBJ
24 maptile * T_CF_OBJ
25 struct region * T_CF_OBJ
26 region * T_CF_OBJ
27 client * T_CF_OBJ
28 player * T_CF_OBJ
29 living * T_CF_OBJ
30 mapspace * T_CF_OBJ
31 attachable * T_CF_OBJ
32 treasurelist * T_CF_OBJ
33 std::string T_CF_OBJ
34 const std::string T_CF_OBJ
35 UUID T_CF_OBJ
36 dynbuf * T_CF_OBJ
37 dynbuf_text * T_CF_OBJ
38
39 object_thawer * T_CF_OBJ
40 object_freezer * T_CF_OBJ
41
42 Settings * T_SETTINGS
43
44 object_ornull * T_CF_OBJ_ORNULL
45 mapstruct_ornull * T_CF_OBJ_ORNULL
46 octet_string T_CF_OCTETS
47 utf8_string T_CF_UTF8
48 const_octet_string T_CF_OCTETS
49 const_utf8_string T_CF_UTF8
50
51 INPUT
52
53 T_VAL64
54 $var = ($type)SvVAL64 ($arg);
55
56 T_UVAL64
57 $var = ($type)SvUVAL64 ($arg);
58
59 T_CF_OBJ
60 cf_obj_to ($arg, $var);
61
62 T_CF_OBJ_ORNULL
63 cf_obj_ornull_to ($arg, $var);
64
65 T_SETTINGS
66 $var = &settings
67
68 T_CF_OCTETS
69 $var = SvPVbyte_nolen ($arg)
70
71 T_CF_UTF8
72 $var = SvPVutf8_nolen ($arg)
73
74 T_SHSTR
75 $var = shstr (SvPVutf8_nolen ($arg))
76
77 T_SHSTR_CMP
78 $var = shstr_cmp (SvPVutf8_nolen ($arg))
79
80 OUTPUT
81
82 T_VAL64
83 $arg = newSVval64 ($var);
84
85 T_UVAL64
86 $arg = newSVuval64 ($var);
87
88 T_CF_OBJ_NORNULL
89 $arg = to_sv ($var);
90
91 T_CF_OBJ
92 $arg = to_sv ($var);
93
94 T_CF_OCTETS
95 $arg = $var ? newSVpv ($var, 0) : &PL_sv_undef;
96
97 T_CF_UTF8
98 if ($var)
99 {
100 sv_setpv ($arg, $var);
101 SvUTF8_on ($arg);
102 }
103
104 T_SHSTR
105 if ($var)
106 {
107 sv_setpv ($arg, &$var);
108 SvUTF8_on ($arg);
109 }
110