ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/server/server/typemap
Revision: 1.6
Committed: Wed Dec 13 02:55:51 2006 UTC (17 years, 6 months ago) by root
Branch: MAIN
Changes since 1.5: +3 -0 lines
Log Message: 
- medium decruftification
- medium cleanups
- make settings accessible to perl using cf::settings->mutator
  (completely untested)

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 root 1.5 maptile * T_MAP
9 root 1.1 region * T_REGION
10     player * T_PLAYER
11     living * T_LIVING
12 root 1.6 Settings * T_SETTINGS
13 root 1.1
14     object_ornull * T_OBJECT_ORNULL
15     mapstruct_ornull * T_MAP_ORNULL
16    
17     INPUT
18    
19     T_VAL64
20     $var = ($type)SvVAL64 ($arg);
21    
22     T_OBJECT
23     $var = (object *)SvPTR ($arg, \"cf::object\");
24     T_PARTY
25 root 1.4 sv_to ($arg, $var)
26 root 1.1 T_ARCH
27 root 1.4 sv_to ($arg, $var)
28 root 1.1 T_MAP
29 root 1.4 sv_to ($arg, $var)
30 root 1.1 T_REGION
31 root 1.4 sv_to ($arg, $var)
32 root 1.1 T_PLAYER
33 root 1.4 sv_to ($arg, $var)
34 root 1.1 T_LIVING
35 root 1.4 sv_to ($arg, $var)
36 root 1.6 T_SETTINGS
37     $var = &settings;
38 root 1.1
39     T_OBJECT_ORNULL
40     $var = (object *)SvPTR_ornull ($arg, \"cf::object\");
41     T_MAP_ORNULL
42     $var = (mapstruct *)SvPTR_ornull ($arg, \"cf::map\");
43    
44     OUTPUT
45    
46     T_VAL64
47     $arg = newSVval64 ($var);
48    
49     T_OBJECT
50 root 1.4 $arg = to_sv ($var);
51 root 1.1 T_MAP
52 root 1.4 $arg = to_sv ($var);
53 root 1.1 T_ARCH
54 root 1.4 $arg = to_sv ($var);
55 root 1.1 T_PARTY
56 root 1.4 $arg = to_sv ($var);
57 root 1.1 T_REGION
58 root 1.4 $arg = to_sv ($var);
59 root 1.1 T_PLAYER
60 root 1.4 $arg = to_sv ($var);
61 root 1.1 T_LIVING
62 root 1.4 $arg = to_sv ($var);
63 root 1.1