db_lint: support :quote quotes

1 files changed, 8 insertions, 13 deletions

diff --git a/crawl-ref/source/util/db_lint b/crawl-ref/source/util/db_lint
index 48da80dc98..d6143129f5 100755
--- a/crawl-ref/source/util/db_lint
+++ b/crawl-ref/source/util/db_lint
@@ -119,7 +119,14 @@ sub check_desc_needed($@)
         err "$file: No description for $kind '$_'\n" unless $entries{$_};
         delete $keys{$_};
     }
-    err "$file: Unused description for $kind '$_'\n" for sort keys %keys;
+    $_ =~ /:quote$/ or err "$file: Unused description for $kind '$_'\n" for sort keys %keys;
+
+    for (sort keys %keys)
+    {
+        next unless s/:quote$//;
+        next if /^__(?:cap-[A-Z]|[a-z])_suffix$/;
+        err "$file: quote for undescribed '$_'\n" unless $entries{$_};
+    }
 }
 
 sub check_desc_links()
@@ -202,7 +209,6 @@ if (read_file("descript/monsters"))
 }
 
 check_desc_links();
-$described{$_} = 1 for keys %entries;
 __________________________________________________________________________();
 read_file("descript/$_") for qw(species backgrounds);
 __________________________________________________________________________();
@@ -215,17 +221,6 @@ __________________________________________________________________________();
 read_file("database/$_") for qw(shout insult);
 check_db_locals();
 __________________________________________________________________________();
-read_file("descript/quotes");
-check_desc_links();
-if (%described) # can't check unless descs are loaded
-{
-    for (keys %entries)
-    {
-        next if /^__(?:cap-[A-Z]|[a-z])_suffix$/;
-        err "$file: quote for undescribed '$_'\n" unless $described{$_};
-    }
-}
-__________________________________________________________________________();
 read_file("database/help");
 __________________________________________________________________________();
 read_file("database/FAQ");