[ViewVC] Annotation 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

   attack_skill
   ranged_skill

   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
   body_shield
   body_combat
   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_scroll
   has_ready_skill
   has_ready_weapon
   has_ready_range
   hitback
   hp
   identified
   immune
   inherit
   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
   precious
   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_env
   type
   unaggressive
   undead
   unique
   unpaid
   use_content_on_gen
   uuid
   value
   vulnerable
   wc
   weapontype
   weight
   will_apply
   wis
   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
   bowtype
   petmode
   gen_hp
   gen_sp
   gen_grace
   listening
   peaceful
   digestion
   pickup
   outputs_sync
   outputs_count
   usekeys
   unapply
   weapon_sp
   weapon_sp_left
   lev_array
   endplst

   visibility
   magicmap

   match
   parent
   longname
   jail_map
   jail_x
   jail_y
   portal_map
   portal_x
   portal_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.31
Committed:	Mon May 28 21:15:56 2007 UTC (16 years, 11 months ago) by root
Branch:	MAIN
CVS Tags:	HEAD
Changes since 1.30:	+0 -0 lines
State:	*FILE REMOVED*
Log Message:	- update copyrights in .h files, where applicable - rename preprocess to genkeywords
#	User	Rev	Content
1	root	1.1	#!/opt/bin/perl
2
3	root	1.8	my %ARG = @ARGV;
4
5	root	1.3	use List::Util;
6
7	root	1.1	# todo: gather dynamically
8			my @kw = qw(
9	root	1.4	no_pass
10			walk_on
11			walk_off
12			fly_on
13			fly_off
14			flying
15
16	root	1.25	attack_skill
17			ranged_skill
18
19	root	1.1	ac
20			activate_on_push
21			activate_on_release
22			alive
23			anim_speed
24			animation
25			applied
26			arch
27			armour
28			attach
29			attack_movement
30			attacktype
31			auto_apply
32			been_applied
33			berserk
34			blocksview
35			body_range
36			body_arm
37			body_torso
38			body_head
39			body_neck
40			body_skill
41			body_finger
42			body_shoulder
43			body_foot
44			body_hand
45			body_wrist
46			body_waist
47	root	1.27	body_shield
48			body_combat
49	root	1.1	can_apply
50			can_cast_spell
51			can_roll
52			can_see_in_dark
53			can_use_armour
54			can_use_bow
55			can_use_horn
56			can_use_range
57			can_use_ring
58			can_use_rod
59			can_use_scroll
60			can_use_shield
61			can_use_skill
62			can_use_wand
63			can_use_weapon
64			carrying
65			casting_time
66			cha
67			changing
68			client_type
69			con
70			confused
71			connected
72			container
73			cursed
74			custom_name
75			dam
76			dam_modifier
77			damned
78	root	1.12	destroy_on_death
79	root	1.1	dex
80			direction
81			duration
82			duration_modifier
83			editable
84			editor_folder
85			elevation
86			end
87			endlore
88			endmsg
89			exp
90			expmul
91			face
92			food
93			friendly
94			gen_sp_armour
95			generator
96			glow_radius
97			grace
98			has_ready_bow
99			has_ready_scroll
100			has_ready_skill
101			has_ready_weapon
102	root	1.7	has_ready_range
103	root	1.1	hitback
104			hp
105			identified
106			immune
107	root	1.23	inherit
108	root	1.1	int
109			inv_locked
110			invisible
111			is_animated
112			is_blind
113			is_buildable
114			is_cauldron
115	root	1.7	is_dust
116	root	1.1	is_floor
117			is_hilly
118			is_lightable
119			is_thrown
120			is_turnable
121			is_used_up
122			is_water
123			is_wooded
124			item_power
125			known_cursed
126			known_magical
127			last_eat
128			last_grace
129			last_heal
130			last_sp
131			level
132			lifesave
133			lore
134			luck
135			magic
136			make_invisible
137			material
138			materialname
139			maxgrace
140			maxhp
141			maxsp
142			monster
143			more
144			move_allow
145			move_block
146			move_off
147			move_on
148			move_slow
149			move_slow_penalty
150			move_state
151			move_type
152			msg
153			name
154			name_pl
155			neutral
156			no_attack
157			no_damage
158			no_drop
159			no_fix_player
160			no_magic
161			no_pick
162			no_skill_ident
163			no_steal
164			no_strength
165			nrof
166	root	1.13	obj_original
167	root	1.1	object
168			oid
169			one_hit
170			only_attack
171			other_arch
172			overlay_floor
173			path_attuned
174			path_denied
175			path_repelled
176			perm_exp
177			pick_up
178	root	1.7	player_sold
179	root	1.1	pow
180	root	1.24	precious
181	root	1.1	protected
182			race
183			random_move
184			random_movement
185			randomitems
186			range
187			range_modifier
188			reflect_missile
189			reflect_spell
190			reflecting
191			resist_acid
192			resist_blind
193			resist_cancellation
194			resist_chaos
195			resist_cold
196			resist_confusion
197			resist_counterspell
198			resist_death
199			resist_deplete
200			resist_disease
201			resist_drain
202			resist_electricity
203			resist_fear
204			resist_fire
205			resist_ghosthit
206			resist_godpower
207			resist_holyword
208			resist_internal
209			resist_life_stealing
210			resist_magic
211			resist_paralyze
212			resist_physical
213			resist_poison
214			resist_slow
215			resist_turn_undead
216			resist_weaponmagic
217			run_away
218			scared
219			see_anywhere
220			see_invisible
221			skill
222			slaying
223			sleep
224			slow_move
225			smoothlevel
226			sp
227			speed
228			speed_left
229			splitting
230			stand_still
231			startequip
232			state
233			stealth
234			str
235			subtype
236			tear_down
237			title
238			tooltype
239	root	1.24	treasure_env
240	root	1.1	type
241			unaggressive
242			undead
243			unique
244			unpaid
245			use_content_on_gen
246	root	1.6	uuid
247	root	1.1	value
248			vulnerable
249			wc
250			weapontype
251			weight
252			will_apply
253			wis
254			x
255			xrays
256			y
257	root	1.5
258	root	1.9	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	root	1.10
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	root	1.29	weapon_sp_left
313	root	1.10	lev_array
314			endplst
315	root	1.14
316			visibility
317			magicmap
318
319	root	1.21	match
320	root	1.14	parent
321			longname
322	root	1.15	jail_map
323			jail_x
324			jail_y
325	root	1.30	portal_map
326			portal_x
327			portal_y
328	root	1.14	fallback
329			nomore
330	root	1.16
331			chance
332			mods
333			diff
334			saves
335			description
336			density
337			damage
338	root	1.17
339			anim
340			mina
341			facings
342	root	1.18	player
343	root	1.19
344			allowed
345			keycode
346			trans
347			yield
348			ingred
349			cauldron
350
351			Str
352			Dex
353			Con
354			Wis
355			Cha
356			Int
357			Pow
358	root	1.22
359			treasure
360			treasureone
361			list
362			change_name
363			change_title
364			change_slaying
365			yes
366			no
367	root	1.1	);
368
369	root	1.8	open GPERF, "\|-", "exec $ARG{GPERF} -m50 >kw_hash.h"
370			or die "$ARGV{GPERF}: $!";
371	root	1.1
372			print GPERF <<EOF;
373			%language=C++
374			%enum
375			%define class-name kw_lex
376			%define lookup-function-name match
377			%struct-type
378			%compare-strncmp
379			%delimiters=,
380	root	1.2	struct keyword_idx { const char *name; enum keyword index; };
381	root	1.1	%%
382			EOF
383
384			for (@kw) {
385	root	1.3	printf GPERF "%s,%s\n", $_, "KW_$_";
386	root	1.1	}
387
388			print GPERF <<EOF;
389			%%
390	root	1.3	extern const char *const keyword_str [] = {
391	root	1.1	"<EOF>",
392			"<ERROR>",
393			EOF
394
395			for (@kw) {
396			printf GPERF " \"%s\",\n", $_;
397			}
398
399	root	1.3	print GPERF "};\n";
400
401			printf GPERF "\nextern const unsigned char keyword_len [] = { 5, 7, %s };\n\n",
402			join ", ", map length, @kw;
403	root	1.1
404	root	1.8	close GPERF
405			or die "$ARG{GPERF}: failed to run";
406
407	root	1.1	open KW, ">", "keyword.h";
408
409			print KW <<EOF;
410			#ifndef KW_H__
411			#define KW_H__
412
413			enum keyword {
414	root	1.7	KW_NULL = 0,
415			KW_EOF = 0,
416			KW_ERROR,
417	root	1.1	EOF
418
419			for (@kw) {
420	root	1.3	printf KW " %s,\n", "KW_$_",
421	root	1.1	}
422
423			print KW <<EOF;
424			NUM_KEYWORD,
425			};
426
427			extern const char *const keyword_str [];
428	root	1.3	extern const unsigned char keyword_len [];
429
430			EOF
431
432			printf KW "#define MAX_KEYWORD_LEN %d\n", List::Util::max map length, @kw;
433
434			print KW <<EOF;
435	root	1.1
436			#endif
437
438			EOF
439