ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/server/server/typemap
Revision: 1.1
Committed: Tue Aug 15 17:10:46 2006 UTC (17 years, 9 months ago) by root
Branch: MAIN
Log Message:
converted perl to a mandatory / non-dynamic plug-in, firts step to put it fully in-core

File Contents

# User Rev Content
1 root 1.1 val64 T_VAL64
2     uint64 T_VAL64
3    
4     const object * T_OBJECT
5     object * T_OBJECT
6     partylist * T_PARTY
7     archetype * T_ARCH
8     mapstruct * T_MAP
9     region * T_REGION
10     player * T_PLAYER
11     living * T_LIVING
12    
13     object_ornull * T_OBJECT_ORNULL
14     mapstruct_ornull * T_MAP_ORNULL
15    
16     INPUT
17    
18     T_VAL64
19     $var = ($type)SvVAL64 ($arg);
20    
21     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     T_LIVING
34     $var = (living *)SvPTR ($arg, \"cf::living\");
35    
36     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     OUTPUT
42    
43     T_VAL64
44     $arg = newSVval64 ($var);
45    
46     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     T_LIVING
59     $arg = newSVptr ($var, \"cf::living\");
60