[ViewVC] Annotation of: cvs/deliantra/server/include/genkeywords

#!/opt/bin/perl

#
# This file is part of Deliantra, the Roguelike Realtime MMORPG.
#  
# Copyright (©) 2005,2006,2007,2008,2009 Marc Alexander Lehmann / Robin Redeker / the Deliantra team
#  
# Deliantra is free software: you can redistribute it and/or modify it under
# the terms of the Affero GNU General Public License as published by the
# Free Software Foundation, either version 3 of the License, or (at your
# option) any later version.
#  
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#  
# You should have received a copy of the Affero GNU General Public License
# and the GNU General Public License along with this program. If not, see
# <http://www.gnu.org/licenses/>.
#  
# The authors can be reached via e-mail to <support@deliantra.net>
# 

my %ARG = @ARGV;

use List::Util;

# todo: gather dynamically
my @kw = qw(
   gender
   hintmode
   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_transparent_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_magic
   no_pick
   no_skill_ident
   no_steal
   no_strength
   nrof
   obj_original
   object
   oid
   one_hit
   only_attack
   other_arch
   overlay_floor
   owner
   path_attuned
   path_denied
   path_repelled
   perm_exp
   pick_up
   player_sold
   pow
   precious
   protected
   is_quad
   race
   random_move
   random_movement
   random_speed
   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
   sound
   sound_destroy
   smoothlevel
   sp
   speed
   speed_left
   sl
   splitting
   stand_still
   startequip
   state
   stealth
   str
   subtype
   tag
   tear_down
   title
   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
   no_reset
   region
   shopitems
   shopgreed
   shopmin
   shopmax
   shoprace
   outdoor
   tile_path_1
   tile_path_2
   tile_path_3
   tile_path_4
   tile_path_5
   tile_path_6

   file_format_version

   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

   parent
   longname
   jail_map
   jail_x
   jail_y
   portal_map
   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

   max_level

   authour
   size
   index
);

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;
//
// AUTOGENERATED: this is a generated file
// edit include/genkeywords instead
//

#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.21
Committed:	Sat May 7 20:03:28 2011 UTC (13 years ago) by root
Branch:	MAIN
CVS Tags:	rel-3_1
Changes since 1.20:	+1 -0 lines
Log Message:	* empty log message *
#	User	Rev	Content
1	root	1.1	#!/opt/bin/perl
2
3	root	1.12	#
4			# This file is part of Deliantra, the Roguelike Realtime MMORPG.
5			#
6			# Copyright (©) 2005,2006,2007,2008,2009 Marc Alexander Lehmann / Robin Redeker / the Deliantra team
7			#
8			# Deliantra is free software: you can redistribute it and/or modify it under
9			# the terms of the Affero GNU General Public License as published by the
10			# Free Software Foundation, either version 3 of the License, or (at your
11			# option) any later version.
12			#
13			# This program is distributed in the hope that it will be useful,
14			# but WITHOUT ANY WARRANTY; without even the implied warranty of
15			# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16			# GNU General Public License for more details.
17			#
18			# You should have received a copy of the Affero GNU General Public License
19			# and the GNU General Public License along with this program. If not, see
20			# <http://www.gnu.org/licenses/>.
21			#
22			# The authors can be reached via e-mail to <support@deliantra.net>
23			#
24
25	root	1.1	my %ARG = @ARGV;
26
27			use List::Util;
28
29			# todo: gather dynamically
30			my @kw = qw(
31	root	1.3	gender
32	root	1.10	hintmode
33	root	1.1	attack_skill
34			ranged_skill
35
36			ac
37			activate_on_push
38			activate_on_release
39			alive
40			anim_speed
41			animation
42			applied
43			arch
44			armour
45			attach
46			attack_movement
47			attacktype
48			auto_apply
49			been_applied
50			berserk
51			blocksview
52			body_range
53			body_arm
54			body_torso
55			body_head
56			body_neck
57			body_skill
58			body_finger
59			body_shoulder
60			body_foot
61			body_hand
62			body_wrist
63			body_waist
64			body_shield
65			body_combat
66			can_apply
67			can_cast_spell
68			can_roll
69			can_see_in_dark
70			can_use_armour
71			can_use_bow
72			can_use_horn
73			can_use_range
74			can_use_ring
75			can_use_rod
76			can_use_scroll
77			can_use_shield
78			can_use_skill
79			can_use_wand
80			can_use_weapon
81			carrying
82			casting_time
83			cha
84			changing
85			client_type
86			con
87			confused
88			connected
89			container
90			cursed
91			custom_name
92			dam
93			dam_modifier
94			damned
95			destroy_on_death
96			dex
97			direction
98			duration
99			duration_modifier
100			editable
101			editor_folder
102			elevation
103			end
104			endlore
105			endmsg
106			exp
107			expmul
108			face
109			food
110			friendly
111			gen_sp_armour
112			generator
113			glow_radius
114			grace
115			has_ready_bow
116			has_ready_scroll
117			has_ready_skill
118			has_ready_weapon
119			has_ready_range
120			hitback
121			hp
122			identified
123			immune
124			inherit
125			int
126			inv_locked
127			invisible
128			is_animated
129			is_blind
130			is_buildable
131			is_cauldron
132			is_dust
133			is_floor
134	root	1.21	is_transparent_floor
135	root	1.1	is_hilly
136			is_lightable
137			is_thrown
138			is_turnable
139			is_used_up
140			is_water
141			is_wooded
142			item_power
143			known_cursed
144			known_magical
145			last_eat
146			last_grace
147			last_heal
148			last_sp
149			level
150			lifesave
151			lore
152			luck
153			magic
154			make_invisible
155			material
156			materialname
157			maxgrace
158			maxhp
159			maxsp
160			monster
161			more
162			move_allow
163			move_block
164			move_off
165			move_on
166			move_slow
167			move_slow_penalty
168			move_state
169			move_type
170			msg
171			name
172			name_pl
173			neutral
174			no_attack
175			no_damage
176			no_drop
177			no_magic
178			no_pick
179			no_skill_ident
180			no_steal
181			no_strength
182			nrof
183			obj_original
184			object
185			oid
186			one_hit
187			only_attack
188			other_arch
189			overlay_floor
190	root	1.8	owner
191	root	1.1	path_attuned
192			path_denied
193			path_repelled
194			perm_exp
195			pick_up
196			player_sold
197			pow
198			precious
199			protected
200	elmex	1.19	is_quad
201	root	1.1	race
202			random_move
203			random_movement
204	root	1.14	random_speed
205	root	1.1	randomitems
206			range
207			range_modifier
208			reflect_missile
209			reflect_spell
210			reflecting
211			resist_acid
212			resist_blind
213			resist_cancellation
214			resist_chaos
215			resist_cold
216			resist_confusion
217			resist_counterspell
218			resist_death
219			resist_deplete
220			resist_disease
221			resist_drain
222			resist_electricity
223			resist_fear
224			resist_fire
225			resist_ghosthit
226			resist_godpower
227			resist_holyword
228			resist_internal
229			resist_life_stealing
230			resist_magic
231			resist_paralyze
232			resist_physical
233			resist_poison
234			resist_slow
235			resist_turn_undead
236			resist_weaponmagic
237			run_away
238			scared
239			see_anywhere
240			see_invisible
241			skill
242			slaying
243			sleep
244			slow_move
245	root	1.5	sound
246	root	1.7	sound_destroy
247	root	1.1	smoothlevel
248			sp
249			speed
250			speed_left
251	root	1.14	sl
252	root	1.1	splitting
253			stand_still
254			startequip
255			state
256			stealth
257			str
258			subtype
259	root	1.9	tag
260	root	1.1	tear_down
261			title
262			treasure_env
263			type
264			unaggressive
265			undead
266			unique
267			unpaid
268			use_content_on_gen
269			uuid
270			value
271			vulnerable
272			wc
273			weapontype
274			weight
275			will_apply
276			wis
277			x
278			xrays
279			y
280
281			maplore
282			endmaplore
283			enter_x
284			enter_y
285			width
286			height
287			reset_timeout
288			reset_time
289			swap_time
290			difficulty
291			darkness
292			fixed_resettime
293			per_player
294			per_party
295	root	1.2	no_reset
296	root	1.1	region
297			shopitems
298			shopgreed
299			shopmin
300			shopmax
301			shoprace
302			outdoor
303			tile_path_1
304			tile_path_2
305			tile_path_3
306			tile_path_4
307	root	1.18	tile_path_5
308			tile_path_6
309	root	1.1
310			file_format_version
311
312			map
313			savebed_map
314			bed_x
315			bed_y
316			password
317			bowtype
318			petmode
319			gen_hp
320			gen_sp
321			gen_grace
322			listening
323			peaceful
324			digestion
325			pickup
326			outputs_sync
327			outputs_count
328			usekeys
329			unapply
330			weapon_sp
331			weapon_sp_left
332			lev_array
333			endplst
334
335			visibility
336			magicmap
337
338			parent
339			longname
340			jail_map
341			jail_x
342			jail_y
343			portal_map
344			fallback
345			nomore
346
347			chance
348			mods
349			diff
350			saves
351			description
352			density
353			damage
354
355			anim
356			mina
357			facings
358			player
359
360			allowed
361			keycode
362			trans
363			yield
364			ingred
365			cauldron
366
367			Str
368			Dex
369			Con
370			Wis
371			Cha
372			Int
373			Pow
374
375			treasure
376			treasureone
377			list
378			change_name
379			change_title
380			change_slaying
381			yes
382			no
383	root	1.15
384			max_level
385	root	1.16
386			authour
387			size
388			index
389	root	1.1	);
390
391			open GPERF, "\|-", "exec $ARG{GPERF} -m50 >kw_hash.h"
392			or die "$ARGV{GPERF}: $!";
393
394			print GPERF <<EOF;
395			%language=C++
396			%enum
397			%define class-name kw_lex
398			%define lookup-function-name match
399			%struct-type
400			%compare-strncmp
401			%delimiters=,
402			struct keyword_idx { const char *name; enum keyword index; };
403			%%
404			EOF
405
406			for (@kw) {
407			printf GPERF "%s,%s\n", $_, "KW_$_";
408			}
409
410			print GPERF <<EOF;
411			%%
412			extern const char *const keyword_str [] = {
413			"<EOF>",
414			"<ERROR>",
415			EOF
416
417			for (@kw) {
418			printf GPERF " \"%s\",\n", $_;
419			}
420
421			print GPERF "};\n";
422
423			printf GPERF "\nextern const unsigned char keyword_len [] = { 5, 7, %s };\n\n",
424			join ", ", map length, @kw;
425
426			close GPERF
427			or die "$ARG{GPERF}: failed to run";
428
429			open KW, ">", "keyword.h";
430
431			print KW <<EOF;
432			//
433			// AUTOGENERATED: this is a generated file
434			// edit include/genkeywords instead
435			//
436
437			#ifndef KW_H__
438			#define KW_H__
439
440			enum keyword {
441			KW_NULL = 0,
442			KW_EOF = 0,
443			KW_ERROR,
444			EOF
445
446			for (@kw) {
447			printf KW " %s,\n", "KW_$_",
448			}
449
450			print KW <<EOF;
451			NUM_KEYWORD,
452			};
453
454			extern const char *const keyword_str [];
455			extern const unsigned char keyword_len [];
456
457			EOF
458
459			printf KW "#define MAX_KEYWORD_LEN %d\n", List::Util::max map length, @kw;
460
461			print KW <<EOF;
462
463			#endif
464
465			EOF
466