Teach db_lint how to check backgrounds.txt

2 files changed, 15 insertions, 1 deletions

diff --git a/crawl-ref/source/util/db_lint b/crawl-ref/source/util/db_lint
index 21a1f23034..33252bd48d 100755
--- a/crawl-ref/source/util/db_lint
+++ b/crawl-ref/source/util/db_lint
@@ -298,7 +298,10 @@ if (read_file("descript/species"))
     check_desc_needed("species", `util/gather_species -d`);
 }
 
-read_file("descript/backgrounds");
+if (read_file("descript/backgrounds"))
+{
+    check_desc_needed("background", `util/gather_backgrounds`);
+}
 __________________________________________________________________________();
 read_file("database/$_") for qw(randname rand_wpn rand_arm rand_all randbook monname);
 check_db_locals();
diff --git a/crawl-ref/source/util/gather_backgrounds b/crawl-ref/source/util/gather_backgrounds
new file mode 100755
index 0000000000..d419182905
--- /dev/null
+++ b/crawl-ref/source/util/gather_backgrounds
@@ -0,0 +1,11 @@
+#!/usr/bin/perl -w
+
+undef $/;
+open IN, "util/cpp_version jobs.cc|" or die "Can't read jobs.cc\n";
+$_ = <IN>;
+close IN;
+
+s/.*Job_Name_List\[\s*NUM_JOBS\s*\] =\n\s*\{(.*?)\}.*/$1/s
+    or die "Can't find Job_Name_List in jobs.cc\n";
+
+print "$_\n" for (/"([^"]*)"/g);