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

val64                   T_VAL64
uint64                  T_VAL64
sint16                  T_INT
sint8                   T_INT
faceidx                 T_INT
animidx                 T_INT

shstr                   T_PV
const shstr             T_PV

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
attachable *            T_CF_OBJ
treasurelist *          T_CF_OBJ
std::string             T_CF_OBJ
const std::string       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_CF_OBJ
        sv_to ($arg, $var)

T_SETTINGS
        $var = &settings

T_CF_OBJ_ORNULL
        if (SvOK ($arg))
          sv_to ($arg, $var);
        else
          $var = 0;

T_CF_OCTETS
        $var = SvPVbyte_nolen ($arg)

T_CF_UTF8
        $var = SvPVutf8_nolen ($arg)

OUTPUT

T_VAL64
        $arg = newSVval64 ($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);
          }

Revision:	1.24
Committed:	Thu Jul 5 08:10:30 2007 UTC (16 years, 11 months ago) by root
Branch:	MAIN
Changes since 1.23:	+3 -0 lines
Log Message:	- unbundle marker code into force_find/force_add - use completely different (more efficient) speed logic - make those methods available to perl - to avoid numerical errors use an exact fp number for MIN_ACTIVE_SPEED.
#	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	shstr T_PV
9	const shstr T_PV
10
11	object * T_CF_OBJ
12	partylist * T_CF_OBJ
13	archetype * T_CF_OBJ
14	maptile * T_CF_OBJ
15	struct region * T_CF_OBJ
16	region * T_CF_OBJ
17	client * T_CF_OBJ
18	player * T_CF_OBJ
19	living * T_CF_OBJ
20	attachable * T_CF_OBJ
21	treasurelist * T_CF_OBJ
22	std::string T_CF_OBJ
23	const std::string T_CF_OBJ
24
25	Settings * T_SETTINGS
26
27	object_ornull * T_CF_OBJ_ORNULL
28	mapstruct_ornull * T_CF_OBJ_ORNULL
29	octet_string T_CF_OCTETS
30	utf8_string T_CF_UTF8
31	const_octet_string T_CF_OCTETS
32	const_utf8_string T_CF_UTF8
33
34	INPUT
35
36	T_VAL64
37	$var = ($type)SvVAL64 ($arg);
38
39	T_CF_OBJ
40	sv_to ($arg, $var)
41
42	T_SETTINGS
43	$var = &settings
44
45	T_CF_OBJ_ORNULL
46	if (SvOK ($arg))
47	sv_to ($arg, $var);
48	else
49	$var = 0;
50
51	T_CF_OCTETS
52	$var = SvPVbyte_nolen ($arg)
53
54	T_CF_UTF8
55	$var = SvPVutf8_nolen ($arg)
56
57	OUTPUT
58
59	T_VAL64
60	$arg = newSVval64 ($var);
61
62	T_CF_OBJ_NORNULL
63	$arg = to_sv ($var);
64
65	T_CF_OBJ
66	$arg = to_sv ($var);
67
68	T_CF_OCTETS
69	$arg = $var ? newSVpv ($var, 0) : &PL_sv_undef;
70
71	T_CF_UTF8
72	if ($var)
73	{
74	sv_setpv ($arg, $var);
75	SvUTF8_on ($arg);
76	}
77