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.1 by root, Thu Aug 31 06:23:19 2006 UTC vs.
Revision 1.21 by root, Sat Apr 14 07:23:00 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
5 ac 16 ac
6 activate_on_push 17 activate_on_push
7 activate_on_release 18 activate_on_release
8 alive 19 alive
9 anim_speed 20 anim_speed
… …
57 cursed 68 cursed
58 custom_name 69 custom_name
59 dam 70 dam
60 dam_modifier 71 dam_modifier
61 damned 72 damned
73 destroy_on_death
62 dex 74 dex
63 direction 75 direction
64 duration 76 duration
65 duration_modifier 77 duration_modifier
66 editable 78 editable
… …
83 has_ready_rod 95 has_ready_rod
84 has_ready_scroll 96 has_ready_scroll
85 has_ready_skill 97 has_ready_skill
86 has_ready_wand 98 has_ready_wand
87 has_ready_weapon 99 has_ready_weapon
100 has_ready_range
88 hitback 101 hitback
89 hp 102 hp
90 identified 103 identified
91 immune 104 immune
92 int 105 int
… …
94 invisible 107 invisible
95 is_animated 108 is_animated
96 is_blind 109 is_blind
97 is_buildable 110 is_buildable
98 is_cauldron 111 is_cauldron
112 is_dust
99 is_floor 113 is_floor
100 is_hilly 114 is_hilly
101 is_lightable 115 is_lightable
102 is_thrown 116 is_thrown
103 is_turnable 117 is_turnable
… …
144 no_pick 158 no_pick
145 no_skill_ident 159 no_skill_ident
146 no_steal 160 no_steal
147 no_strength 161 no_strength
148 nrof 162 nrof
163 obj_original
149 object 164 object
150 oid 165 oid
151 one_hit 166 one_hit
152 only_attack 167 only_attack
153 other_arch 168 other_arch
… …
155 path_attuned 170 path_attuned
156 path_denied 171 path_denied
157 path_repelled 172 path_repelled
158 perm_exp 173 perm_exp
159 pick_up 174 pick_up
175 player_sold
160 pow 176 pow
161 protected 177 protected
162 race 178 race
163 random_move 179 random_move
164 random_movement 180 random_movement
… …
221 unaggressive 237 unaggressive
222 undead 238 undead
223 unique 239 unique
224 unpaid 240 unpaid
225 use_content_on_gen 241 use_content_on_gen
242 uuid
226 value 243 value
227 vulnerable 244 vulnerable
228 was_wiz 245 was_wiz
229 wc 246 wc
230 weapontype 247 weapontype
… …
233 wis 250 wis
234 wiz 251 wiz
235 x 252 x
236 xrays 253 xrays
237 y 254 y
255
256 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
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
314 visibility
315 magicmap
316
317 match
318 parent
319 longname
320 jail_map
321 jail_x
322 jail_y
323 fallback
324 nomore
325
326 chance
327 mods
328 diff
329 saves
330 description
331 density
332 damage
333
334 anim
335 mina
336 facings
337 player
338
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
238); 353);
239 354
240open GPERF, "|-", "gperf -m50 >kw_hash.h" 355open GPERF, "|-", "exec $ARG{GPERF} -m50 >kw_hash.h"
241 or die "gperf: $!"; 356 or die "$ARGV{GPERF}: $!";
242 357
243print GPERF <<EOF; 358print GPERF <<EOF;
244%language=C++ 359%language=C++
245%enum 360%enum
246%define class-name kw_lex 361%define class-name kw_lex
247%define lookup-function-name match 362%define lookup-function-name match
248%struct-type 363%struct-type
249%compare-strncmp 364%compare-strncmp
250%delimiters=, 365%delimiters=,
251struct kw { const char *name; enum kw index; }; 366struct keyword_idx { const char *name; enum keyword index; };
252%% 367%%
253EOF 368EOF
254 369
255for (@kw) { 370for (@kw) {
256 printf GPERF "%s,%s\n", $_, "KW_" . uc; 371 printf GPERF "%s,%s\n", $_, "KW_$_";
257} 372}
258 373
259print GPERF <<EOF; 374print GPERF <<EOF;
260%% 375%%
261const char *const keyword_str [] = { 376extern const char *const keyword_str [] = {
262 "<EOF>", 377 "<EOF>",
263 "<ERROR>", 378 "<ERROR>",
264EOF 379EOF
265 380
266for (@kw) { 381for (@kw) {
267 printf GPERF " \"%s\",\n", $_; 382 printf GPERF " \"%s\",\n", $_;
268} 383}
269 384
270print GPERF "};\n\n"; 385print GPERF "};\n";
386
387printf GPERF "\nextern const unsigned char keyword_len [] = { 5, 7, %s };\n\n",
388 join ", ", map length, @kw;
389
390close GPERF
391 or die "$ARG{GPERF}: failed to run";
271 392
272open KW, ">", "keyword.h"; 393open KW, ">", "keyword.h";
273 394
274print KW <<EOF; 395print KW <<EOF;
275#ifndef KW_H__ 396#ifndef KW_H__
276#define KW_H__ 397#define KW_H__
277 398
278enum keyword { 399enum keyword {
279 KW_eof, KW_error, 400 KW_NULL = 0,
401 KW_EOF = 0,
402 KW_ERROR,
280EOF 403EOF
281 404
282for (@kw) { 405for (@kw) {
283 printf KW " %s,\n", "KW_" . uc; 406 printf KW " %s,\n", "KW_$_",
284} 407}
285 408
286print KW <<EOF; 409print KW <<EOF;
287 NUM_KEYWORD, 410 NUM_KEYWORD,
288}; 411};
289 412
290extern const char *const keyword_str []; 413extern const char *const keyword_str [];
414extern const unsigned char keyword_len [];
415
416EOF
417
418printf KW "#define MAX_KEYWORD_LEN %d\n", List::Util::max map length, @kw;
419
420print KW <<EOF;
291 421
292#endif 422#endif
293 423
294EOF 424EOF
295 425

Diff Legend

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