ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/server/plugins/cfperl/typemap
Revision: 1.4
Committed: Sat Jul 15 21:10:04 2006 UTC (18 years ago) by root
Branch: MAIN
CVS Tags: LAST_C_VERSION, difficulty_fix_merge_060810_2300
Branch point for: difficulty_fix
Changes since 1.3: +8 -0 lines
Log Message:
define an abstract val64 type for 64 bit quantities, use double for now

File Contents

# Content
1 val64 T_VAL64
2
3 object * T_OBJECT
4 partylist * T_PARTY
5 archetype * T_ARCH
6 mapstruct * T_MAP
7 region * T_REGION
8 player * T_PLAYER
9 living * T_LIVING
10
11 object_ornull * T_OBJECT_ORNULL
12 mapstruct_ornull * T_MAP_ORNULL
13
14 INPUT
15
16 T_VAL64
17 $var = (val64)SvVAL64 ($arg);
18
19 T_OBJECT
20 $var = (object *)SvPTR ($arg, \"cf::object\");
21 T_PARTY
22 $var = (partylist *)SvPTR ($arg, \"cf::party\");
23 T_ARCH
24 $var = (archetype *)SvPTR ($arg, \"cf::arch\");
25 T_MAP
26 $var = (mapstruct *)SvPTR ($arg, \"cf::map\");
27 T_REGION
28 $var = (region *)SvPTR ($arg, \"cf::region\");
29 T_PLAYER
30 $var = (player *)SvPTR ($arg, \"cf::player\");
31 T_LIVING
32 $var = (living *)SvPTR ($arg, \"cf::living\");
33
34 T_OBJECT_ORNULL
35 $var = (object *)SvPTR_ornull ($arg, \"cf::object\");
36 T_MAP_ORNULL
37 $var = (mapstruct *)SvPTR_ornull ($arg, \"cf::map\");
38
39 OUTPUT
40
41 T_VAL64
42 $arg = newSVval64 ($var);
43
44 T_OBJECT
45 $arg = newSVcfapi (CFAPI_POBJECT, $var);
46 T_MAP
47 $arg = newSVcfapi (CFAPI_PMAP, $var);
48 T_ARCH
49 $arg = newSVcfapi (CFAPI_PARCH, $var);
50 T_PARTY
51 $arg = newSVcfapi (CFAPI_PPARTY, $var);
52 T_REGION
53 $arg = newSVcfapi (CFAPI_PREGION, $var);
54 T_PLAYER
55 $arg = newSVcfapi (CFAPI_PPLAYER, $var);
56 T_LIVING
57 $arg = newSVptr ($var, \"cf::living\");
58