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.5 by root, Mon Sep 4 15:51:24 2006 UTC vs.
Revision 1.19 by root, Fri Feb 16 19:43:41 2007 UTC

1#!/opt/bin/perl 1#!/opt/bin/perl
2
3my %ARG = @ARGV;
2 4
3use List::Util; 5use List::Util;
4 6
5# todo: gather dynamically 7# todo: gather dynamically
6my @kw = qw( 8my @kw = qw(
… …
66 cursed 68 cursed
67 custom_name 69 custom_name
68 dam 70 dam
69 dam_modifier 71 dam_modifier
70 damned 72 damned
73 destroy_on_death
71 dex 74 dex
72 direction 75 direction
73 duration 76 duration
74 duration_modifier 77 duration_modifier
75 editable 78 editable
… …
92 has_ready_rod 95 has_ready_rod
93 has_ready_scroll 96 has_ready_scroll
94 has_ready_skill 97 has_ready_skill
95 has_ready_wand 98 has_ready_wand
96 has_ready_weapon 99 has_ready_weapon
100 has_ready_range
97 hitback 101 hitback
98 hp 102 hp
99 identified 103 identified
100 immune 104 immune
101 int 105 int
… …
103 invisible 107 invisible
104 is_animated 108 is_animated
105 is_blind 109 is_blind
106 is_buildable 110 is_buildable
107 is_cauldron 111 is_cauldron
112 is_dust
108 is_floor 113 is_floor
109 is_hilly 114 is_hilly
110 is_lightable 115 is_lightable
111 is_thrown 116 is_thrown
112 is_turnable 117 is_turnable
… …
153 no_pick 158 no_pick
154 no_skill_ident 159 no_skill_ident
155 no_steal 160 no_steal
156 no_strength 161 no_strength
157 nrof 162 nrof
163 obj_original
158 object 164 object
159 oid 165 oid
160 one_hit 166 one_hit
161 only_attack 167 only_attack
162 other_arch 168 other_arch
… …
164 path_attuned 170 path_attuned
165 path_denied 171 path_denied
166 path_repelled 172 path_repelled
167 perm_exp 173 perm_exp
168 pick_up 174 pick_up
175 player_sold
169 pow 176 pow
170 protected 177 protected
171 race 178 race
172 random_move 179 random_move
173 random_movement 180 random_movement
… …
230 unaggressive 237 unaggressive
231 undead 238 undead
232 unique 239 unique
233 unpaid 240 unpaid
234 use_content_on_gen 241 use_content_on_gen
242 uuid
235 value 243 value
236 vulnerable 244 vulnerable
237 was_wiz 245 was_wiz
238 wc 246 wc
239 weapontype 247 weapontype
… …
243 wiz 251 wiz
244 x 252 x
245 xrays 253 xrays
246 y 254 y
247 255
248 Object 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 color_fg
315 color_bg
316 visibility
317 magicmap
318
319 parent
320 longname
321 jail_map
322 jail_x
323 jail_y
324 fallback
325 nomore
326
327 chance
328 mods
329 diff
330 saves
331 description
332 density
333 damage
334
335 anim
336 mina
337 facings
338 player
339
340 allowed
341 keycode
342 trans
343 yield
344 ingred
345 cauldron
346
249 Str 347 Str
250 Dex 348 Dex
251 Con 349 Con
252 Wis 350 Wis
253 Cha 351 Cha
254 Int 352 Int
255 Pow 353 Pow
256 More
257); 354);
258 355
259open GPERF, "|-", "gperf -m50 >kw_hash.h" 356open GPERF, "|-", "exec $ARG{GPERF} -m50 >kw_hash.h"
260 or die "gperf: $!"; 357 or die "$ARGV{GPERF}: $!";
261 358
262print GPERF <<EOF; 359print GPERF <<EOF;
263%language=C++ 360%language=C++
264%enum 361%enum
265%define class-name kw_lex 362%define class-name kw_lex
… …
289print GPERF "};\n"; 386print GPERF "};\n";
290 387
291printf GPERF "\nextern const unsigned char keyword_len [] = { 5, 7, %s };\n\n", 388printf GPERF "\nextern const unsigned char keyword_len [] = { 5, 7, %s };\n\n",
292 join ", ", map length, @kw; 389 join ", ", map length, @kw;
293 390
391close GPERF
392 or die "$ARG{GPERF}: failed to run";
393
294open KW, ">", "keyword.h"; 394open KW, ">", "keyword.h";
295 395
296print KW <<EOF; 396print KW <<EOF;
297#ifndef KW_H__ 397#ifndef KW_H__
298#define KW_H__ 398#define KW_H__
299 399
300enum keyword { 400enum keyword {
301 KW_EOF, KW_ERROR, 401 KW_NULL = 0,
402 KW_EOF = 0,
403 KW_ERROR,
302EOF 404EOF
303 405
304for (@kw) { 406for (@kw) {
305 printf KW " %s,\n", "KW_$_", 407 printf KW " %s,\n", "KW_$_",
306} 408}

Diff Legend

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