--- deliantra/server/include/preprocess	2006/09/21 00:05:25	1.7
+++ deliantra/server/include/preprocess	2007/02/06 13:21:29	1.16
@@ -1,5 +1,7 @@
 #!/opt/bin/perl
 
+my %ARG = @ARGV;
+
 use List::Util;
 
 # todo: gather dynamically
@@ -68,6 +70,7 @@
    dam
    dam_modifier
    damned
+   destroy_on_death
    dex
    direction
    duration
@@ -157,6 +160,7 @@
    no_steal
    no_strength
    nrof
+   obj_original
    object
    oid
    one_hit
@@ -258,10 +262,89 @@
    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_map
+   jail_x
+   jail_y
+   fallback
+   nomore
+
+   chance
+   mods
+   diff
+   saves
+   description
+   density
+   damage
 );
 
-open GPERF, "|-", "gperf -m50 >kw_hash.h"
-   or die "gperf: $!";
+open GPERF, "|-", "exec $ARG{GPERF} -m50 >kw_hash.h"
+   or die "$ARGV{GPERF}: $!";
 
 print GPERF <<EOF;
 %language=C++
@@ -295,6 +378,9 @@
 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;