[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
   treasure
   type
   unaggressive
   undead
   unique
   unpaid
   use_content_on_gen
   uuid
   value
   vulnerable
   was_wiz
   wc
   weapontype
   weight
   will_apply
   wis
   wiz
   x
   xrays
   y

   Object
   Str
   Dex
   Con
   Wis
   Cha
   Int
   Pow
   More

   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

   color_fg
   color_bg
   visibility
   magicmap

   parent
   longname
   jail
   fallback
   nomore
);

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.14
Committed:	Fri Jan 19 17:50:11 2007 UTC (17 years, 4 months ago) by root
Branch:	MAIN
Changes since 1.13:	+11 -0 lines
Log Message:	- rename Animations => animation - rename New_Face => facetile - add but do not implement some generic loader framework classes
#	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	treasure
236	type
237	unaggressive
238	undead
239	unique
240	unpaid
241	use_content_on_gen
242	uuid
243	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
256	Object
257	Str
258	Dex
259	Con
260	Wis
261	Cha
262	Int
263	Pow
264	More
265
266	maplore
267	endmaplore
268	enter_x
269	enter_y
270	width
271	height
272	reset_timeout
273	reset_time
274	swap_time
275	difficulty
276	darkness
277	fixed_resettime
278	per_player
279	per_party
280	region
281	shopitems
282	shopgreed
283	shopmin
284	shopmax
285	shoprace
286	outdoor
287	tile_path_1
288	tile_path_2
289	tile_path_3
290	tile_path_4
291
292	file_format_version
293
294	temp
295	pressure
296	humid
297	windspeed
298	winddir
299	sky
300
301	map
302	savebed_map
303	bed_x
304	bed_y
305	password
306	shoottype
307	bowtype
308	petmode
309	gen_hp
310	gen_sp
311	gen_grace
312	listening
313	peaceful
314	digestion
315	pickup
316	outputs_sync
317	outputs_count
318	usekeys
319	unapply
320	weapon_sp
321	lev_array
322	endplst
323
324	color_fg
325	color_bg
326	visibility
327	magicmap
328
329	parent
330	longname
331	jail
332	fallback
333	nomore
334	);
335
336	open GPERF, "\|-", "exec $ARG{GPERF} -m50 >kw_hash.h"
337	or die "$ARGV{GPERF}: $!";
338
339	print GPERF <<EOF;
340	%language=C++
341	%enum
342	%define class-name kw_lex
343	%define lookup-function-name match
344	%struct-type
345	%compare-strncmp
346	%delimiters=,
347	struct keyword_idx { const char *name; enum keyword index; };
348	%%
349	EOF
350
351	for (@kw) {
352	printf GPERF "%s,%s\n", $_, "KW_$_";
353	}
354
355	print GPERF <<EOF;
356	%%
357	extern const char *const keyword_str [] = {
358	"<EOF>",
359	"<ERROR>",
360	EOF
361
362	for (@kw) {
363	printf GPERF " \"%s\",\n", $_;
364	}
365
366	print GPERF "};\n";
367
368	printf GPERF "\nextern const unsigned char keyword_len [] = { 5, 7, %s };\n\n",
369	join ", ", map length, @kw;
370
371	close GPERF
372	or die "$ARG{GPERF}: failed to run";
373
374	open KW, ">", "keyword.h";
375
376	print KW <<EOF;
377	#ifndef KW_H__
378	#define KW_H__
379
380	enum keyword {
381	KW_NULL = 0,
382	KW_EOF = 0,
383	KW_ERROR,
384	EOF
385
386	for (@kw) {
387	printf KW " %s,\n", "KW_$_",
388	}
389
390	print KW <<EOF;
391	NUM_KEYWORD,
392	};
393
394	extern const char *const keyword_str [];
395	extern const unsigned char keyword_len [];
396
397	EOF
398
399	printf KW "#define MAX_KEYWORD_LEN %d\n", List::Util::max map length, @kw;
400
401	print KW <<EOF;
402
403	#endif
404
405	EOF
406