Scripts to gather the names of cards and monsters.

1 files changed, 13 insertions, 0 deletions

diff --git a/crawl-ref/source/util/gather_cards b/crawl-ref/source/util/gather_cards
new file mode 100755
index 0000000000..cd3ef6db6c
--- /dev/null
+++ b/crawl-ref/source/util/gather_cards
@@ -0,0 +1,13 @@
+#!/usr/bin/perl -w
+
+undef $/;
+open IN, "<decks.cc" or die "Can't read decks.cc\n";
+$_ = <IN>;
+close IN;
+
+s/.*card_name\(card_type card\)\n{\n\s+switch(.*?)\n}\n.*/$1/s
+    or die "Can't find card_name() in decks.cc\n";
+
+@cards = map { /case CARD_[A-Z_]+:\s+return "([^"]+)";$/ ? ("$1") : () } split /\n/;
+
+print join("\n", sort @cards), "\n";