[ViewVC] Contents of: cvs/deliantra/server/include/preprocess

#!/opt/bin/perl

my %ARG = @ARGV;

use List::Util;

# todo: gather dynamically
my @kw = qw(
   no_pass
   walk_on
   walk_off
   fly_on
   fly_off
   flying

   ac
   activate_on_push
   activate_on_release
   alive
   anim_speed
   animation
   applied
   arch
   armour
   attach
   attack_movement
   attacktype
   auto_apply
   been_applied
   berserk
   blocksview
   body_range
   body_arm
   body_torso
   body_head
   body_neck
   body_skill
   body_finger
   body_shoulder
   body_foot
   body_hand
   body_wrist
   body_waist
   can_apply
   can_cast_spell
   can_roll
   can_see_in_dark
   can_use_armour
   can_use_bow
   can_use_horn
   can_use_range
   can_use_ring
   can_use_rod
   can_use_scroll
   can_use_shield
   can_use_skill
   can_use_wand
   can_use_weapon
   carrying
   casting_time
   cha
   changing
   client_type
   con
   confused
   connected
   container
   cursed
   custom_name
   dam
   dam_modifier
   damned
   destroy_on_death
   dex
   direction
   duration
   duration_modifier
   editable
   editor_folder
   elevation
   end
   endlore
   endmsg
   exp
   expmul
   face
   food
   friendly
   gen_sp_armour
   generator
   glow_radius
   grace
   has_ready_bow
   has_ready_horn
   has_ready_rod
   has_ready_scroll
   has_ready_skill
   has_ready_wand
   has_ready_weapon
   has_ready_range
   hitback
   hp
   identified
   immune
   int
   inv_locked
   invisible
   is_animated
   is_blind
   is_buildable
   is_cauldron
   is_dust
   is_floor
   is_hilly
   is_lightable
   is_thrown
   is_turnable
   is_used_up
   is_water
   is_wooded
   item_power
   known_cursed
   known_magical
   last_eat
   last_grace
   last_heal
   last_sp
   level
   lifesave
   lore
   luck
   magic
   make_invisible
   material
   materialname
   maxgrace
   maxhp
   maxsp
   monster
   more
   move_allow
   move_block
   move_off
   move_on
   move_slow
   move_slow_penalty
   move_state
   move_type
   msg
   name
   name_pl
   neutral
   no_attack
   no_damage
   no_drop
   no_fix_player
   no_magic
   no_pick
   no_skill_ident
   no_steal
   no_strength
   nrof
   obj_original
   object
   oid
   one_hit
   only_attack
   other_arch
   overlay_floor
   path_attuned
   path_denied
   path_repelled
   perm_exp
   pick_up
   player_sold
   pow
   protected
   race
   random_move
   random_movement
   randomitems
   range
   range_modifier
   reflect_missile
   reflect_spell
   reflecting
   resist_acid
   resist_blind
   resist_cancellation
   resist_chaos
   resist_cold
   resist_confusion
   resist_counterspell
   resist_death
   resist_deplete
   resist_disease
   resist_drain
   resist_electricity
   resist_fear
   resist_fire
   resist_ghosthit
   resist_godpower
   resist_holyword
   resist_internal
   resist_life_stealing
   resist_magic
   resist_paralyze
   resist_physical
   resist_poison
   resist_slow
   resist_turn_undead
   resist_weaponmagic
   run_away
   scared
   see_anywhere
   see_invisible
   skill
   slaying
   sleep
   slow_move
   smoothlevel
   sp
   speed
   speed_left
   splitting
   stand_still
   startequip
   state
   stealth
   str
   subtype
   tear_down
   title
   tooltype
   type
   unaggressive
   undead
   unique
   unpaid
   use_content_on_gen
   uuid
   value
   vulnerable
   was_wiz
   wc
   weapontype
   weight
   will_apply
   wis
   wiz
   x
   xrays
   y

   maplore
   endmaplore
   enter_x
   enter_y
   width
   height
   reset_timeout
   reset_time
   swap_time
   difficulty
   darkness
   fixed_resettime
   per_player
   per_party
   region
   shopitems
   shopgreed
   shopmin
   shopmax
   shoprace
   outdoor
   tile_path_1
   tile_path_2
   tile_path_3
   tile_path_4

   file_format_version

   temp
   pressure
   humid
   windspeed
   winddir
   sky

   map
   savebed_map
   bed_x
   bed_y
   password
   shoottype
   bowtype
   petmode
   gen_hp
   gen_sp
   gen_grace
   listening
   peaceful
   digestion
   pickup
   outputs_sync
   outputs_count
   usekeys
   unapply
   weapon_sp
   lev_array
   endplst

   visibility
   magicmap

   match
   parent
   longname
   jail_map
   jail_x
   jail_y
   fallback
   nomore

   chance
   mods
   diff
   saves
   description
   density
   damage

   anim
   mina
   facings
   player

   allowed
   keycode
   trans
   yield
   ingred
   cauldron

   Str
   Dex
   Con
   Wis
   Cha
   Int
   Pow

   treasure
   treasureone
   list
   change_name
   change_title
   change_slaying
   yes
   no
);

open GPERF, "|-", "exec $ARG{GPERF} -m50 >kw_hash.h"
   or die "$ARGV{GPERF}: $!";

print GPERF <<EOF;
%language=C++
%enum
%define class-name kw_lex
%define lookup-function-name match
%struct-type
%compare-strncmp
%delimiters=,
struct keyword_idx { const char *name; enum keyword index; };
%%
EOF

for (@kw) {
   printf GPERF "%s,%s\n", $_, "KW_$_";
}

print GPERF <<EOF;
%%
extern const char *const keyword_str [] = {
  "<EOF>",
  "<ERROR>",
EOF

for (@kw) {
   printf GPERF "  \"%s\",\n", $_;
}

print GPERF "};\n";

printf GPERF "\nextern const unsigned char keyword_len [] = { 5, 7, %s };\n\n",
       join ", ", map length, @kw;

close GPERF
   or die "$ARG{GPERF}: failed to run";

open KW, ">", "keyword.h";

print KW <<EOF;
#ifndef KW_H__
#define KW_H__

enum keyword {
  KW_NULL = 0,
  KW_EOF  = 0,
  KW_ERROR,
EOF

for (@kw) {
   printf KW "  %s,\n", "KW_$_",
}

print KW <<EOF;
  NUM_KEYWORD,
};

extern const char *const keyword_str [];
extern const unsigned char keyword_len [];

EOF

printf KW "#define MAX_KEYWORD_LEN %d\n", List::Util::max map length, @kw;

print KW <<EOF;

#endif

EOF

Revision:	1.22
Committed:	Mon Apr 16 10:14:25 2007 UTC (17 years, 1 month ago) by root
Branch:	MAIN
Changes since 1.21:	+9 -1 lines
Log Message:	- rewrite treasure parser to new framework just for fun. - actually call load_treasures again. - fix bugs.
#	Content
1	#!/opt/bin/perl
2
3	my %ARG = @ARGV;
4
5	use List::Util;
6
7	# todo: gather dynamically
8	my @kw = qw(
9	no_pass
10	walk_on
11	walk_off
12	fly_on
13	fly_off
14	flying
15
16	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	destroy_on_death
74	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	has_ready_range
101	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	is_dust
113	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	obj_original
164	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	player_sold
176	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	type
236	unaggressive
237	undead
238	unique
239	unpaid
240	use_content_on_gen
241	uuid
242	value
243	vulnerable
244	was_wiz
245	wc
246	weapontype
247	weight
248	will_apply
249	wis
250	wiz
251	x
252	xrays
253	y
254
255	maplore
256	endmaplore
257	enter_x
258	enter_y
259	width
260	height
261	reset_timeout
262	reset_time
263	swap_time
264	difficulty
265	darkness
266	fixed_resettime
267	per_player
268	per_party
269	region
270	shopitems
271	shopgreed
272	shopmin
273	shopmax
274	shoprace
275	outdoor
276	tile_path_1
277	tile_path_2
278	tile_path_3
279	tile_path_4
280
281	file_format_version
282
283	temp
284	pressure
285	humid
286	windspeed
287	winddir
288	sky
289
290	map
291	savebed_map
292	bed_x
293	bed_y
294	password
295	shoottype
296	bowtype
297	petmode
298	gen_hp
299	gen_sp
300	gen_grace
301	listening
302	peaceful
303	digestion
304	pickup
305	outputs_sync
306	outputs_count
307	usekeys
308	unapply
309	weapon_sp
310	lev_array
311	endplst
312
313	visibility
314	magicmap
315
316	match
317	parent
318	longname
319	jail_map
320	jail_x
321	jail_y
322	fallback
323	nomore
324
325	chance
326	mods
327	diff
328	saves
329	description
330	density
331	damage
332
333	anim
334	mina
335	facings
336	player
337
338	allowed
339	keycode
340	trans
341	yield
342	ingred
343	cauldron
344
345	Str
346	Dex
347	Con
348	Wis
349	Cha
350	Int
351	Pow
352
353	treasure
354	treasureone
355	list
356	change_name
357	change_title
358	change_slaying
359	yes
360	no
361	);
362
363	open GPERF, "\|-", "exec $ARG{GPERF} -m50 >kw_hash.h"
364	or die "$ARGV{GPERF}: $!";
365
366	print GPERF <<EOF;
367	%language=C++
368	%enum
369	%define class-name kw_lex
370	%define lookup-function-name match
371	%struct-type
372	%compare-strncmp
373	%delimiters=,
374	struct keyword_idx { const char *name; enum keyword index; };
375	%%
376	EOF
377
378	for (@kw) {
379	printf GPERF "%s,%s\n", $_, "KW_$_";
380	}
381
382	print GPERF <<EOF;
383	%%
384	extern const char *const keyword_str [] = {
385	"<EOF>",
386	"<ERROR>",
387	EOF
388
389	for (@kw) {
390	printf GPERF " \"%s\",\n", $_;
391	}
392
393	print GPERF "};\n";
394
395	printf GPERF "\nextern const unsigned char keyword_len [] = { 5, 7, %s };\n\n",
396	join ", ", map length, @kw;
397
398	close GPERF
399	or die "$ARG{GPERF}: failed to run";
400
401	open KW, ">", "keyword.h";
402
403	print KW <<EOF;
404	#ifndef KW_H__
405	#define KW_H__
406
407	enum keyword {
408	KW_NULL = 0,
409	KW_EOF = 0,
410	KW_ERROR,
411	EOF
412
413	for (@kw) {
414	printf KW " %s,\n", "KW_$_",
415	}
416
417	print KW <<EOF;
418	NUM_KEYWORD,
419	};
420
421	extern const char *const keyword_str [];
422	extern const unsigned char keyword_len [];
423
424	EOF
425
426	printf KW "#define MAX_KEYWORD_LEN %d\n", List::Util::max map length, @kw;
427
428	print KW <<EOF;
429
430	#endif
431
432	EOF
433