ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/server/include/preprocess
(Generate patch)

Comparing deliantra/server/include/preprocess (file contents):
Revision 1.2 by root, Thu Aug 31 09:19:34 2006 UTC vs.
Revision 1.29 by root, Fri May 18 19:46:22 2007 UTC

1#!/opt/bin/perl 1#!/opt/bin/perl
2
3my %ARG = @ARGV;
4
5use List::Util;
2 6
3# todo: gather dynamically 7# todo: gather dynamically
4my @kw = qw( 8my @kw = qw(
9 no_pass
10 walk_on
11 walk_off
12 fly_on
13 fly_off
14 flying
15
16 attack_skill
17 ranged_skill
18
5 ac 19 ac
6 activate_on_push 20 activate_on_push
7 activate_on_release 21 activate_on_release
8 alive 22 alive
9 anim_speed 23 anim_speed
… …
28 body_shoulder 42 body_shoulder
29 body_foot 43 body_foot
30 body_hand 44 body_hand
31 body_wrist 45 body_wrist
32 body_waist 46 body_waist
47 body_shield
48 body_combat
33 can_apply 49 can_apply
34 can_cast_spell 50 can_cast_spell
35 can_roll 51 can_roll
36 can_see_in_dark 52 can_see_in_dark
37 can_use_armour 53 can_use_armour
… …
57 cursed 73 cursed
58 custom_name 74 custom_name
59 dam 75 dam
60 dam_modifier 76 dam_modifier
61 damned 77 damned
78 destroy_on_death
62 dex 79 dex
63 direction 80 direction
64 duration 81 duration
65 duration_modifier 82 duration_modifier
66 editable 83 editable
… …
77 gen_sp_armour 94 gen_sp_armour
78 generator 95 generator
79 glow_radius 96 glow_radius
80 grace 97 grace
81 has_ready_bow 98 has_ready_bow
82 has_ready_horn
83 has_ready_rod
84 has_ready_scroll 99 has_ready_scroll
85 has_ready_skill 100 has_ready_skill
86 has_ready_wand
87 has_ready_weapon 101 has_ready_weapon
102 has_ready_range
88 hitback 103 hitback
89 hp 104 hp
90 identified 105 identified
91 immune 106 immune
107 inherit
92 int 108 int
93 inv_locked 109 inv_locked
94 invisible 110 invisible
95 is_animated 111 is_animated
96 is_blind 112 is_blind
97 is_buildable 113 is_buildable
98 is_cauldron 114 is_cauldron
115 is_dust
99 is_floor 116 is_floor
100 is_hilly 117 is_hilly
101 is_lightable 118 is_lightable
102 is_thrown 119 is_thrown
103 is_turnable 120 is_turnable
… …
144 no_pick 161 no_pick
145 no_skill_ident 162 no_skill_ident
146 no_steal 163 no_steal
147 no_strength 164 no_strength
148 nrof 165 nrof
166 obj_original
149 object 167 object
150 oid 168 oid
151 one_hit 169 one_hit
152 only_attack 170 only_attack
153 other_arch 171 other_arch
… …
155 path_attuned 173 path_attuned
156 path_denied 174 path_denied
157 path_repelled 175 path_repelled
158 perm_exp 176 perm_exp
159 pick_up 177 pick_up
178 player_sold
160 pow 179 pow
180 precious
161 protected 181 protected
162 race 182 race
163 random_move 183 random_move
164 random_movement 184 random_movement
165 randomitems 185 randomitems
… …
214 str 234 str
215 subtype 235 subtype
216 tear_down 236 tear_down
217 title 237 title
218 tooltype 238 tooltype
219 treasure 239 treasure_env
220 type 240 type
221 unaggressive 241 unaggressive
222 undead 242 undead
223 unique 243 unique
224 unpaid 244 unpaid
225 use_content_on_gen 245 use_content_on_gen
246 uuid
226 value 247 value
227 vulnerable 248 vulnerable
228 was_wiz
229 wc 249 wc
230 weapontype 250 weapontype
231 weight 251 weight
232 will_apply 252 will_apply
233 wis 253 wis
234 wiz
235 x 254 x
236 xrays 255 xrays
237 y 256 y
257
258 maplore
259 endmaplore
260 enter_x
261 enter_y
262 width
263 height
264 reset_timeout
265 reset_time
266 swap_time
267 difficulty
268 darkness
269 fixed_resettime
270 per_player
271 per_party
272 region
273 shopitems
274 shopgreed
275 shopmin
276 shopmax
277 shoprace
278 outdoor
279 tile_path_1
280 tile_path_2
281 tile_path_3
282 tile_path_4
283
284 file_format_version
285
286 temp
287 pressure
288 humid
289 windspeed
290 winddir
291 sky
292
293 map
294 savebed_map
295 bed_x
296 bed_y
297 password
298 bowtype
299 petmode
300 gen_hp
301 gen_sp
302 gen_grace
303 listening
304 peaceful
305 digestion
306 pickup
307 outputs_sync
308 outputs_count
309 usekeys
310 unapply
311 weapon_sp
312 weapon_sp_left
313 lev_array
314 endplst
315
316 visibility
317 magicmap
318
319 match
320 parent
321 longname
322 jail_map
323 jail_x
324 jail_y
325 fallback
326 nomore
327
328 chance
329 mods
330 diff
331 saves
332 description
333 density
334 damage
335
336 anim
337 mina
338 facings
339 player
340
341 allowed
342 keycode
343 trans
344 yield
345 ingred
346 cauldron
347
348 Str
349 Dex
350 Con
351 Wis
352 Cha
353 Int
354 Pow
355
356 treasure
357 treasureone
358 list
359 change_name
360 change_title
361 change_slaying
362 yes
363 no
238); 364);
239 365
240open GPERF, "|-", "gperf -m50 >kw_hash.h" 366open GPERF, "|-", "exec $ARG{GPERF} -m50 >kw_hash.h"
241 or die "gperf: $!"; 367 or die "$ARGV{GPERF}: $!";
242 368
243print GPERF <<EOF; 369print GPERF <<EOF;
244%language=C++ 370%language=C++
245%enum 371%enum
246%define class-name kw_lex 372%define class-name kw_lex
… …
251struct keyword_idx { const char *name; enum keyword index; }; 377struct keyword_idx { const char *name; enum keyword index; };
252%% 378%%
253EOF 379EOF
254 380
255for (@kw) { 381for (@kw) {
256 printf GPERF "%s,%s\n", $_, "KW_" . uc; 382 printf GPERF "%s,%s\n", $_, "KW_$_";
257} 383}
258 384
259print GPERF <<EOF; 385print GPERF <<EOF;
260%% 386%%
261const char *const keyword_str [] = { 387extern const char *const keyword_str [] = {
262 "<EOF>", 388 "<EOF>",
263 "<ERROR>", 389 "<ERROR>",
264EOF 390EOF
265 391
266for (@kw) { 392for (@kw) {
267 printf GPERF " \"%s\",\n", $_; 393 printf GPERF " \"%s\",\n", $_;
268} 394}
269 395
270print GPERF "};\n\n"; 396print GPERF "};\n";
397
398printf GPERF "\nextern const unsigned char keyword_len [] = { 5, 7, %s };\n\n",
399 join ", ", map length, @kw;
400
401close GPERF
402 or die "$ARG{GPERF}: failed to run";
271 403
272open KW, ">", "keyword.h"; 404open KW, ">", "keyword.h";
273 405
274print KW <<EOF; 406print KW <<EOF;
275#ifndef KW_H__ 407#ifndef KW_H__
276#define KW_H__ 408#define KW_H__
277 409
278enum keyword { 410enum keyword {
279 KW_eof, KW_error, 411 KW_NULL = 0,
412 KW_EOF = 0,
413 KW_ERROR,
280EOF 414EOF
281 415
282for (@kw) { 416for (@kw) {
283 printf KW " %s,\n", "KW_" . uc; 417 printf KW " %s,\n", "KW_$_",
284} 418}
285 419
286print KW <<EOF; 420print KW <<EOF;
287 NUM_KEYWORD, 421 NUM_KEYWORD,
288}; 422};
289 423
290extern const char *const keyword_str []; 424extern const char *const keyword_str [];
425extern const unsigned char keyword_len [];
426
427EOF
428
429printf KW "#define MAX_KEYWORD_LEN %d\n", List::Util::max map length, @kw;
430
431print KW <<EOF;
291 432
292#endif 433#endif
293 434
294EOF 435EOF
295 436

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines