ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/server/plugins/cfperl/typemap
Revision: 1.2
Committed: Fri Feb 10 07:37:13 2006 UTC (18 years, 5 months ago) by root
Branch: MAIN
Changes since 1.1: +8 -0 lines
Log Message:
*** empty log message ***

File Contents

# User Rev Content
1 root 1.1 object * T_OBJECT
2     partylist * T_PARTY
3     archetype * T_ARCH
4     mapstruct * T_MAP
5     region * T_REGION
6     player * T_PLAYER
7    
8 root 1.2 object_ornull * T_OBJECT_ORNULL
9     mapstruct_ornull * T_MAP_ORNULL
10    
11 root 1.1 INPUT
12    
13     T_OBJECT
14     $var = (object *)SvPTR ($arg, \"cf::object\");
15     T_PARTY
16     $var = (partylist *)SvPTR ($arg, \"cf::party\");
17     T_ARCH
18     $var = (archetype *)SvPTR ($arg, \"cf::arch\");
19     T_MAP
20     $var = (mapstruct *)SvPTR ($arg, \"cf::map\");
21     T_REGION
22     $var = (region *)SvPTR ($arg, \"cf::region\");
23     T_PLAYER
24     $var = (player *)SvPTR ($arg, \"cf::player\");
25    
26 root 1.2 T_OBJECT_ORNULL
27     $var = (object *)SvPTR_ornull ($arg, \"cf::object\");
28     T_MAP_ORNULL
29     $var = (mapstruct *)SvPTR_ornull ($arg, \"cf::map\");
30    
31 root 1.1 OUTPUT
32    
33     T_OBJECT
34     $arg = newSVcfapi (CFAPI_POBJECT, $var);
35     T_MAP
36     $arg = newSVcfapi (CFAPI_PMAP, $var);
37     T_ARCH
38     $arg = newSVcfapi (CFAPI_PARCH, $var);
39     T_PARTY
40     $arg = newSVcfapi (CFAPI_PPARTY, $var);
41     T_REGION
42     $arg = newSVcfapi (CFAPI_PREGION, $var);
43     T_PLAYER
44     $arg = newSVcfapi (CFAPI_PPLAYER, $var);