ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/server/plugins/cfperl/typemap
Revision: 1.6
Committed: Tue Aug 15 06:04:15 2006 UTC (17 years, 11 months ago) by elmex
Branch: MAIN
CVS Tags: STABLE
Changes since 1.5: +1 -0 lines
Log Message:
added need_identify to perl plugin

File Contents

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