| 1 | #!/opt/bin/perl |
1 | #!/opt/bin/perl |
|
|
2 | |
|
|
3 | my %ARG = @ARGV; |
| 2 | |
4 | |
| 3 | use List::Util; |
5 | use List::Util; |
| 4 | |
6 | |
| 5 | # todo: gather dynamically |
7 | # todo: gather dynamically |
| 6 | my @kw = qw( |
8 | my @kw = qw( |
| … | |
… | |
| 92 | has_ready_rod |
94 | has_ready_rod |
| 93 | has_ready_scroll |
95 | has_ready_scroll |
| 94 | has_ready_skill |
96 | has_ready_skill |
| 95 | has_ready_wand |
97 | has_ready_wand |
| 96 | has_ready_weapon |
98 | has_ready_weapon |
|
|
99 | has_ready_range |
| 97 | hitback |
100 | hitback |
| 98 | hp |
101 | hp |
| 99 | identified |
102 | identified |
| 100 | immune |
103 | immune |
| 101 | int |
104 | int |
| … | |
… | |
| 103 | invisible |
106 | invisible |
| 104 | is_animated |
107 | is_animated |
| 105 | is_blind |
108 | is_blind |
| 106 | is_buildable |
109 | is_buildable |
| 107 | is_cauldron |
110 | is_cauldron |
|
|
111 | is_dust |
| 108 | is_floor |
112 | is_floor |
| 109 | is_hilly |
113 | is_hilly |
| 110 | is_lightable |
114 | is_lightable |
| 111 | is_thrown |
115 | is_thrown |
| 112 | is_turnable |
116 | is_turnable |
| … | |
… | |
| 164 | path_attuned |
168 | path_attuned |
| 165 | path_denied |
169 | path_denied |
| 166 | path_repelled |
170 | path_repelled |
| 167 | perm_exp |
171 | perm_exp |
| 168 | pick_up |
172 | pick_up |
|
|
173 | player_sold |
| 169 | pow |
174 | pow |
| 170 | protected |
175 | protected |
| 171 | race |
176 | race |
| 172 | random_move |
177 | random_move |
| 173 | random_movement |
178 | random_movement |
| … | |
… | |
| 253 | Wis |
258 | Wis |
| 254 | Cha |
259 | Cha |
| 255 | Int |
260 | Int |
| 256 | Pow |
261 | Pow |
| 257 | More |
262 | More |
|
|
263 | |
|
|
264 | maplore |
|
|
265 | endmaplore |
|
|
266 | enter_x |
|
|
267 | enter_y |
|
|
268 | width |
|
|
269 | height |
|
|
270 | reset_timeout |
|
|
271 | reset_time |
|
|
272 | swap_time |
|
|
273 | difficulty |
|
|
274 | darkness |
|
|
275 | fixed_resettime |
|
|
276 | per_player |
|
|
277 | per_party |
|
|
278 | region |
|
|
279 | shopitems |
|
|
280 | shopgreed |
|
|
281 | shopmin |
|
|
282 | shopmax |
|
|
283 | shoprace |
|
|
284 | outdoor |
|
|
285 | tile_path_1 |
|
|
286 | tile_path_2 |
|
|
287 | tile_path_3 |
|
|
288 | tile_path_4 |
|
|
289 | |
|
|
290 | file_format_version |
|
|
291 | |
|
|
292 | temp |
|
|
293 | pressure |
|
|
294 | humid |
|
|
295 | windspeed |
|
|
296 | winddir |
|
|
297 | sky |
|
|
298 | |
|
|
299 | map |
|
|
300 | savebed_map |
|
|
301 | bed_x |
|
|
302 | bed_y |
|
|
303 | password |
|
|
304 | explore |
|
|
305 | shoottype |
|
|
306 | bowtype |
|
|
307 | petmode |
|
|
308 | gen_hp |
|
|
309 | gen_sp |
|
|
310 | gen_grace |
|
|
311 | listening |
|
|
312 | peaceful |
|
|
313 | digestion |
|
|
314 | pickup |
|
|
315 | outputs_sync |
|
|
316 | outputs_count |
|
|
317 | usekeys |
|
|
318 | unapply |
|
|
319 | weapon_sp |
|
|
320 | lev_array |
|
|
321 | endplst |
| 258 | ); |
322 | ); |
| 259 | |
323 | |
| 260 | open GPERF, "|-", "gperf -m50 >kw_hash.h" |
324 | open GPERF, "|-", "exec $ARG{GPERF} -m50 >kw_hash.h" |
| 261 | or die "gperf: $!"; |
325 | or die "$ARGV{GPERF}: $!"; |
| 262 | |
326 | |
| 263 | print GPERF <<EOF; |
327 | print GPERF <<EOF; |
| 264 | %language=C++ |
328 | %language=C++ |
| 265 | %enum |
329 | %enum |
| 266 | %define class-name kw_lex |
330 | %define class-name kw_lex |
| … | |
… | |
| 290 | print GPERF "};\n"; |
354 | print GPERF "};\n"; |
| 291 | |
355 | |
| 292 | printf GPERF "\nextern const unsigned char keyword_len [] = { 5, 7, %s };\n\n", |
356 | printf GPERF "\nextern const unsigned char keyword_len [] = { 5, 7, %s };\n\n", |
| 293 | join ", ", map length, @kw; |
357 | join ", ", map length, @kw; |
| 294 | |
358 | |
|
|
359 | close GPERF |
|
|
360 | or die "$ARG{GPERF}: failed to run"; |
|
|
361 | |
| 295 | open KW, ">", "keyword.h"; |
362 | open KW, ">", "keyword.h"; |
| 296 | |
363 | |
| 297 | print KW <<EOF; |
364 | print KW <<EOF; |
| 298 | #ifndef KW_H__ |
365 | #ifndef KW_H__ |
| 299 | #define KW_H__ |
366 | #define KW_H__ |
| 300 | |
367 | |
| 301 | enum keyword { |
368 | enum keyword { |
| 302 | KW_EOF, KW_ERROR, |
369 | KW_NULL = 0, |
|
|
370 | KW_EOF = 0, |
|
|
371 | KW_ERROR, |
| 303 | EOF |
372 | EOF |
| 304 | |
373 | |
| 305 | for (@kw) { |
374 | for (@kw) { |
| 306 | printf KW " %s,\n", "KW_$_", |
375 | printf KW " %s,\n", "KW_$_", |
| 307 | } |
376 | } |
