ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/server/plugins/cfperl/typemap
Revision: 1.3
Committed: Thu Mar 16 23:43:58 2006 UTC (18 years, 4 months ago) by root
Branch: MAIN
Changes since 1.2: +6 -0 lines
Log Message:
plug various holes in the plug-in interface

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 root 1.3 living * T_LIVING
8 root 1.1
9 root 1.2 object_ornull * T_OBJECT_ORNULL
10     mapstruct_ornull * T_MAP_ORNULL
11    
12 root 1.1 INPUT
13    
14     T_OBJECT
15     $var = (object *)SvPTR ($arg, \"cf::object\");
16     T_PARTY
17     $var = (partylist *)SvPTR ($arg, \"cf::party\");
18     T_ARCH
19     $var = (archetype *)SvPTR ($arg, \"cf::arch\");
20     T_MAP
21     $var = (mapstruct *)SvPTR ($arg, \"cf::map\");
22     T_REGION
23     $var = (region *)SvPTR ($arg, \"cf::region\");
24     T_PLAYER
25     $var = (player *)SvPTR ($arg, \"cf::player\");
26 root 1.3 T_LIVING
27     $var = (living *)SvPTR ($arg, \"cf::living\");
28 root 1.1
29 root 1.2 T_OBJECT_ORNULL
30     $var = (object *)SvPTR_ornull ($arg, \"cf::object\");
31     T_MAP_ORNULL
32     $var = (mapstruct *)SvPTR_ornull ($arg, \"cf::map\");
33    
34 root 1.1 OUTPUT
35    
36     T_OBJECT
37     $arg = newSVcfapi (CFAPI_POBJECT, $var);
38     T_MAP
39     $arg = newSVcfapi (CFAPI_PMAP, $var);
40     T_ARCH
41     $arg = newSVcfapi (CFAPI_PARCH, $var);
42     T_PARTY
43     $arg = newSVcfapi (CFAPI_PPARTY, $var);
44     T_REGION
45     $arg = newSVcfapi (CFAPI_PREGION, $var);
46     T_PLAYER
47     $arg = newSVcfapi (CFAPI_PPLAYER, $var);
48 root 1.3 T_LIVING
49     $arg = newSVptr ($var, \"cf::living\");
50