ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/server/server/typemap
Revision: 1.3
Committed: Mon Aug 28 07:07:42 2006 UTC (17 years, 9 months ago) by root
Branch: MAIN
Changes since 1.2: +1 -1 lines
Log Message:
better but more wasteful serialisation support, perl can invoke events, fixes

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 root 1.2 $arg = newSVdt (DT_OBJECT, $var);
48 root 1.1 T_MAP
49 root 1.2 $arg = newSVdt (DT_MAP, $var);
50 root 1.1 T_ARCH
51 root 1.2 $arg = newSVdt (DT_ARCH, $var);
52 root 1.1 T_PARTY
53 root 1.2 $arg = newSVdt (DT_PARTY, $var);
54 root 1.1 T_REGION
55 root 1.2 $arg = newSVdt (DT_REGION, $var);
56 root 1.1 T_PLAYER
57 root 1.2 $arg = newSVdt (DT_PLAYER, $var);
58 root 1.1 T_LIVING
59 root 1.3 $arg = newSVptr ($var, \"cf::living::wrap\");
60 root 1.1