From 855661340817cbc01030259507c33c448ca71ad1 Mon Sep 17 00:00:00 2001
From: keni <keni@his.com>
Date: Sat, 10 Nov 2018 14:45:50 -0500
Subject: [PATCH] Add missing control file.

---
 dat/GENFILES | 47 +++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 47 insertions(+)
 create mode 100755 dat/GENFILES

diff --git a/dat/GENFILES b/dat/GENFILES
new file mode 100755
index 000000000..5ffd00107
--- /dev/null
+++ b/dat/GENFILES
@@ -0,0 +1,47 @@
+#!/usr/bin/perl
+
+# 2 sections:
+#   *.lev entries are generated by reading *.des
+#   hardcoded entries are in __DATA__
+
+($dir = $0) =~ s!^(.*/)(.*)!$1!;
+
+print "T (files generated by lev_comp at playground creation time)\n";
+
+foreach $des (<$dir*.des>){
+    open IN, "<", $des or warn("Can't open $des: $!");
+    while(<IN>){
+	m/^(MAZE|LEVEL):\s*"(.*?)"/ && do {
+	    print "F $2.lev\n";
+	};
+    }
+    close IN;
+}
+while(<DATA>){
+    print;
+}
+
+__DATA__
+T (tile files optionally generated for X ports at playground creation time)
+F pet_mark.xbm
+F rip.xpm
+F x11tiles
+T (files generated for Qt interface on Mac OS X)
+F nethack.icns
+F Info.plist
+T (files generated for win32 at compile time)
+F porthelp
+F dlb.lst
+T (files generated for win32 tty at compile time)
+F ttyoptions
+T (files generated for win32 gui at compile time)
+F guioptions
+T (files generated by makedefs at playground creation time)
+F data
+F dungeon.pdf
+F options
+F oracles
+F quest.dat
+F rumors
+T (file generated by dgn_comp at playground creation time)
+F dungeon