dat/GENFILES

   1 #!/usr/bin/perl
   2 # NetHack 3.6   GENFILES      $NHDT-Date: 1550799147 2019/02/22 01:32:27 $  $NHDT-Branch: NetHack-3.6.2-beta01 $:$NHDT-Revision: 1.0 $
   3 #       Copyright (c) 2018 by Kenneth Lorber
   4 # NetHack may be freely redistributed.  See license for details.
   5
   6 # 2 sections:
   7 #   *.lev entries are generated by reading *.des
   8 #   hardcoded entries are in __DATA__
   9
  10 ($dir = $0) =~ s!^(.*/)(.*)!$1!;
  11
  12 print "T (files generated by lev_comp at playground creation time)\n";
  13
  14 foreach $des (<$dir*.des>){
  15     open IN, "<", $des or warn("Can't open $des: $!");
  16     while(<IN>){
  17         m/^(MAZE|LEVEL):\s*"(.*?)"/ && do {
  18             print "F $2.lev\n";
  19         };
  20     }
  21     close IN;
  22 }
  23 while(<DATA>){
  24     print;
  25 }
  26
  27 __DATA__
  28 T (tile files optionally generated for X ports at playground creation time)
  29 F pet_mark.xbm
  30 F rip.xpm
  31 F x11tiles
  32 T (files generated for Qt interface on Mac OS X)
  33 F nethack.icns
  34 F Info.plist
  35 T (files generated for win32 at compile time)
  36 F porthelp
  37 F dlb.lst
  38 T (files generated for win32 tty at compile time)
  39 F ttyoptions
  40 T (files generated for win32 gui at compile time)
  41 F guioptions
  42 T (files generated by makedefs at playground creation time)
  43 F data
  44 F dungeon.pdf
  45 F options
  46 F oracles
  47 F quest.dat
  48 F rumors
  49 T (file generated by dgn_comp at playground creation time)
  50 F dungeon