[ViewVC] Annotation of: cvs/deliantra/server/server/typemap

val64                   T_VAL64
sint64                  T_VAL64
sint32                  T_IV
sint16                  T_IV
sint8                   T_IV
uint64                  T_UVAL64
uint32                  T_UV
uint16                  T_UV
uint8                   T_UV

faceidx                 T_INT
animidx                 T_INT

shstr                   T_SHSTR
const shstr             T_SHSTR
shstr_tmp               T_SHSTR
const shstr_tmp         T_SHSTR
shstr_cmp               T_SHSTR_CMP
const shstr_cmp         T_SHSTR_CMP

object *                T_CF_OBJ
partylist *             T_CF_OBJ
archetype *             T_CF_OBJ
maptile *               T_CF_OBJ
struct region *         T_CF_OBJ
region *                T_CF_OBJ
client *                T_CF_OBJ
player *                T_CF_OBJ
living *                T_CF_OBJ
mapspace *              T_CF_OBJ
attachable *            T_CF_OBJ
treasurelist *          T_CF_OBJ
std::string             T_CF_OBJ
const std::string       T_CF_OBJ
UUID                    T_CF_OBJ
dynbuf *                T_CF_OBJ
dynbuf_text *           T_CF_OBJ

object_thawer *         T_CF_OBJ
object_freezer *        T_CF_OBJ

Settings *              T_SETTINGS

object_ornull *         T_CF_OBJ_ORNULL
mapstruct_ornull *      T_CF_OBJ_ORNULL
octet_string            T_CF_OCTETS
utf8_string             T_CF_UTF8
const_octet_string      T_CF_OCTETS
const_utf8_string       T_CF_UTF8

INPUT

T_VAL64
        $var = ($type)SvVAL64 ($arg);

T_UVAL64
        $var = ($type)SvUVAL64 ($arg);

T_CF_OBJ
        cf_obj_to ($arg, $var);

T_CF_OBJ_ORNULL
        cf_obj_ornull_to ($arg, $var);

T_SETTINGS
        $var = &settings

T_CF_OCTETS
        $var = SvPVbyte_nolen ($arg)

T_CF_UTF8
        $var = SvPVutf8_nolen ($arg)

T_SHSTR
        $var = shstr (SvPVutf8_nolen ($arg))

T_SHSTR_CMP
        $var = shstr_cmp (SvPVutf8_nolen ($arg))

OUTPUT

T_VAL64
        $arg = newSVval64 ($var);

T_UVAL64
        $arg = newSVuval64 ($var);

T_CF_OBJ_NORNULL
        $arg = to_sv ($var);

T_CF_OBJ
        $arg = to_sv ($var);

T_CF_OCTETS
        $arg = $var ? newSVpv ($var, 0) : &PL_sv_undef;

T_CF_UTF8
        if ($var)
          {
            sv_setpv ($arg, $var);
            SvUTF8_on ($arg);
          }

T_SHSTR
        if ($var)
          {
            sv_setpv ($arg, &$var);
            SvUTF8_on ($arg);
          }

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
#	User	Rev	Content
1	root	1.20	val64 T_VAL64
2	root	1.28	sint64 T_VAL64
3			sint32 T_IV
4			sint16 T_IV
5			sint8 T_IV
6	root	1.27	uint64 T_UVAL64
7	root	1.28	uint32 T_UV
8			uint16 T_UV
9			uint8 T_UV
10
11	root	1.20	faceidx T_INT
12			animidx T_INT
13
14	root	1.31	shstr T_SHSTR
15			const shstr T_SHSTR
16			shstr_tmp T_SHSTR
17			const shstr_tmp T_SHSTR
18	root	1.33	shstr_cmp T_SHSTR_CMP
19			const shstr_cmp T_SHSTR_CMP
20	root	1.24
21	root	1.20	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	root	1.29	mapspace * T_CF_OBJ
31	root	1.20	attachable * T_CF_OBJ
32	root	1.21	treasurelist * T_CF_OBJ
33	root	1.20	std::string T_CF_OBJ
34			const std::string T_CF_OBJ
35	root	1.27	UUID T_CF_OBJ
36	root	1.30	dynbuf * T_CF_OBJ
37			dynbuf_text * T_CF_OBJ
38	root	1.7
39	root	1.26	object_thawer * T_CF_OBJ
40			object_freezer * T_CF_OBJ
41
42	root	1.20	Settings * T_SETTINGS
43	root	1.1
44	root	1.9	object_ornull * T_CF_OBJ_ORNULL
45			mapstruct_ornull * T_CF_OBJ_ORNULL
46	root	1.16	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	root	1.1
51			INPUT
52
53			T_VAL64
54			$var = ($type)SvVAL64 ($arg);
55
56	root	1.27	T_UVAL64
57			$var = ($type)SvUVAL64 ($arg);
58
59	root	1.7	T_CF_OBJ
60	root	1.33	cf_obj_to ($arg, $var);
61	root	1.7
62	root	1.9	T_CF_OBJ_ORNULL
63	root	1.33	cf_obj_ornull_to ($arg, $var);
64	root	1.1
65	root	1.26	T_SETTINGS
66			$var = &settings
67
68	root	1.16	T_CF_OCTETS
69			$var = SvPVbyte_nolen ($arg)
70
71			T_CF_UTF8
72			$var = SvPVutf8_nolen ($arg)
73
74	root	1.31	T_SHSTR
75			$var = shstr (SvPVutf8_nolen ($arg))
76
77	root	1.33	T_SHSTR_CMP
78			$var = shstr_cmp (SvPVutf8_nolen ($arg))
79
80	root	1.1	OUTPUT
81
82			T_VAL64
83			$arg = newSVval64 ($var);
84
85	root	1.27	T_UVAL64
86			$arg = newSVuval64 ($var);
87
88	root	1.9	T_CF_OBJ_NORNULL
89	root	1.4	$arg = to_sv ($var);
90	root	1.7
91			T_CF_OBJ
92	root	1.4	$arg = to_sv ($var);
93	root	1.1
94	root	1.16	T_CF_OCTETS
95	root	1.17	$arg = $var ? newSVpv ($var, 0) : &PL_sv_undef;
96	root	1.16
97			T_CF_UTF8
98	root	1.17	if ($var)
99			{
100	root	1.18	sv_setpv ($arg, $var);
101	root	1.17	SvUTF8_on ($arg);
102			}
103	root	1.16
104	root	1.31	T_SHSTR
105			if ($var)
106			{
107	root	1.33	sv_setpv ($arg, &$var);
108	root	1.31	SvUTF8_on ($arg);
109			}
110