ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/server/include/preprocess
Revision: 1.21
Committed: Sat Apr 14 07:23:00 2007 UTC (17 years, 1 month ago) by root
Branch: MAIN
Changes since 1.20: +1 -0 lines
Log Message: 
implement defaulting region by map path match

File Contents

# User Rev Content
1 root 1.1 #!/opt/bin/perl
2    
3 root 1.8 my %ARG = @ARGV;
4    
5 root 1.3 use List::Util;
6    
7 root 1.1 # todo: gather dynamically
8     my @kw = qw(
9 root 1.4 no_pass
10     walk_on
11     walk_off
12     fly_on
13     fly_off
14     flying
15    
16 root 1.1 ac
17     activate_on_push
18     activate_on_release
19     alive
20     anim_speed
21     animation
22     applied
23     arch
24     armour
25     attach
26     attack_movement
27     attacktype
28     auto_apply
29     been_applied
30     berserk
31     blocksview
32     body_range
33     body_arm
34     body_torso
35     body_head
36     body_neck
37     body_skill
38     body_finger
39     body_shoulder
40     body_foot
41     body_hand
42     body_wrist
43     body_waist
44     can_apply
45     can_cast_spell
46     can_roll
47     can_see_in_dark
48     can_use_armour
49     can_use_bow
50     can_use_horn
51     can_use_range
52     can_use_ring
53     can_use_rod
54     can_use_scroll
55     can_use_shield
56     can_use_skill
57     can_use_wand
58     can_use_weapon
59     carrying
60     casting_time
61     cha
62     changing
63     client_type
64     con
65     confused
66     connected
67     container
68     cursed
69     custom_name
70     dam
71     dam_modifier
72     damned
73 root 1.12 destroy_on_death
74 root 1.1 dex
75     direction
76     duration
77     duration_modifier
78     editable
79     editor_folder
80     elevation
81     end
82     endlore
83     endmsg
84     exp
85     expmul
86     face
87     food
88     friendly
89     gen_sp_armour
90     generator
91     glow_radius
92     grace
93     has_ready_bow
94     has_ready_horn
95     has_ready_rod
96     has_ready_scroll
97     has_ready_skill
98     has_ready_wand
99     has_ready_weapon
100 root 1.7 has_ready_range
101 root 1.1 hitback
102     hp
103     identified
104     immune
105     int
106     inv_locked
107     invisible
108     is_animated
109     is_blind
110     is_buildable
111     is_cauldron
112 root 1.7 is_dust
113 root 1.1 is_floor
114     is_hilly
115     is_lightable
116     is_thrown
117     is_turnable
118     is_used_up
119     is_water
120     is_wooded
121     item_power
122     known_cursed
123     known_magical
124     last_eat
125     last_grace
126     last_heal
127     last_sp
128     level
129     lifesave
130     lore
131     luck
132     magic
133     make_invisible
134     material
135     materialname
136     maxgrace
137     maxhp
138     maxsp
139     monster
140     more
141     move_allow
142     move_block
143     move_off
144     move_on
145     move_slow
146     move_slow_penalty
147     move_state
148     move_type
149     msg
150     name
151     name_pl
152     neutral
153     no_attack
154     no_damage
155     no_drop
156     no_fix_player
157     no_magic
158     no_pick
159     no_skill_ident
160     no_steal
161     no_strength
162     nrof
163 root 1.13 obj_original
164 root 1.1 object
165     oid
166     one_hit
167     only_attack
168     other_arch
169     overlay_floor
170     path_attuned
171     path_denied
172     path_repelled
173     perm_exp
174     pick_up
175 root 1.7 player_sold
176 root 1.1 pow
177     protected
178     race
179     random_move
180     random_movement
181     randomitems
182     range
183     range_modifier
184     reflect_missile
185     reflect_spell
186     reflecting
187     resist_acid
188     resist_blind
189     resist_cancellation
190     resist_chaos
191     resist_cold
192     resist_confusion
193     resist_counterspell
194     resist_death
195     resist_deplete
196     resist_disease
197     resist_drain
198     resist_electricity
199     resist_fear
200     resist_fire
201     resist_ghosthit
202     resist_godpower
203     resist_holyword
204     resist_internal
205     resist_life_stealing
206     resist_magic
207     resist_paralyze
208     resist_physical
209     resist_poison
210     resist_slow
211     resist_turn_undead
212     resist_weaponmagic
213     run_away
214     scared
215     see_anywhere
216     see_invisible
217     skill
218     slaying
219     sleep
220     slow_move
221     smoothlevel
222     sp
223     speed
224     speed_left
225     splitting
226     stand_still
227     startequip
228     state
229     stealth
230     str
231     subtype
232     tear_down
233     title
234     tooltype
235     treasure
236     type
237     unaggressive
238     undead
239     unique
240     unpaid
241     use_content_on_gen
242 root 1.6 uuid
243 root 1.1 value
244     vulnerable
245     was_wiz
246     wc
247     weapontype
248     weight
249     will_apply
250     wis
251     wiz
252     x
253     xrays
254     y
255 root 1.5
256 root 1.9 maplore
257     endmaplore
258     enter_x
259     enter_y
260     width
261     height
262     reset_timeout
263     reset_time
264     swap_time
265     difficulty
266     darkness
267     fixed_resettime
268     per_player
269     per_party
270     region
271     shopitems
272     shopgreed
273     shopmin
274     shopmax
275     shoprace
276     outdoor
277     tile_path_1
278     tile_path_2
279     tile_path_3
280     tile_path_4
281    
282     file_format_version
283    
284     temp
285     pressure
286     humid
287     windspeed
288     winddir
289     sky
290 root 1.10
291     map
292     savebed_map
293     bed_x
294     bed_y
295     password
296     shoottype
297     bowtype
298     petmode
299     gen_hp
300     gen_sp
301     gen_grace
302     listening
303     peaceful
304     digestion
305     pickup
306     outputs_sync
307     outputs_count
308     usekeys
309     unapply
310     weapon_sp
311     lev_array
312     endplst
313 root 1.14
314     visibility
315     magicmap
316    
317 root 1.21 match
318 root 1.14 parent
319     longname
320 root 1.15 jail_map
321     jail_x
322     jail_y
323 root 1.14 fallback
324     nomore
325 root 1.16
326     chance
327     mods
328     diff
329     saves
330     description
331     density
332     damage
333 root 1.17
334     anim
335     mina
336     facings
337 root 1.18 player
338 root 1.19
339     allowed
340     keycode
341     trans
342     yield
343     ingred
344     cauldron
345    
346     Str
347     Dex
348     Con
349     Wis
350     Cha
351     Int
352     Pow
353 root 1.1 );
354    
355 root 1.8 open GPERF, "|-", "exec $ARG{GPERF} -m50 >kw_hash.h"
356     or die "$ARGV{GPERF}: $!";
357 root 1.1
358     print GPERF <<EOF;
359     %language=C++
360     %enum
361     %define class-name kw_lex
362     %define lookup-function-name match
363     %struct-type
364     %compare-strncmp
365     %delimiters=,
366 root 1.2 struct keyword_idx { const char *name; enum keyword index; };
367 root 1.1 %%
368     EOF
369    
370     for (@kw) {
371 root 1.3 printf GPERF "%s,%s\n", $_, "KW_$_";
372 root 1.1 }
373    
374     print GPERF <<EOF;
375     %%
376 root 1.3 extern const char *const keyword_str [] = {
377 root 1.1 "<EOF>",
378     "<ERROR>",
379     EOF
380    
381     for (@kw) {
382     printf GPERF " \"%s\",\n", $_;
383     }
384    
385 root 1.3 print GPERF "};\n";
386    
387     printf GPERF "\nextern const unsigned char keyword_len [] = { 5, 7, %s };\n\n",
388     join ", ", map length, @kw;
389 root 1.1
390 root 1.8 close GPERF
391     or die "$ARG{GPERF}: failed to run";
392    
393 root 1.1 open KW, ">", "keyword.h";
394    
395     print KW <<EOF;
396     #ifndef KW_H__
397     #define KW_H__
398    
399     enum keyword {
400 root 1.7 KW_NULL = 0,
401     KW_EOF = 0,
402     KW_ERROR,
403 root 1.1 EOF
404    
405     for (@kw) {
406 root 1.3 printf KW " %s,\n", "KW_$_",
407 root 1.1 }
408    
409     print KW <<EOF;
410     NUM_KEYWORD,
411     };
412    
413     extern const char *const keyword_str [];
414 root 1.3 extern const unsigned char keyword_len [];
415    
416     EOF
417    
418     printf KW "#define MAX_KEYWORD_LEN %d\n", List::Util::max map length, @kw;
419    
420     print KW <<EOF;
421 root 1.1
422     #endif
423    
424     EOF
425