diff options
author | Adam Borowski <kilobyte@angband.pl> | 2013-08-26 14:58:18 +0200 |
---|---|---|
committer | Adam Borowski <kilobyte@angband.pl> | 2013-08-27 22:19:58 +0200 |
commit | b94ead36cbbd95ea7bf8f0fe1bec4be1906a09d6 (patch) | |
tree | ebfe4ae7f1f6107a6acec3092a2a05342946821b /crawl-ref/source/util/gather_spells | |
parent | dd8d853530f706351fe75844f411acd3786f2350 (diff) | |
download | crawl-ref-b94ead36cbbd95ea7bf8f0fe1bec4be1906a09d6.tar.gz crawl-ref-b94ead36cbbd95ea7bf8f0fe1bec4be1906a09d6.zip |
Check the descs of spells in db_lint.
This includes monster spells!
Diffstat (limited to 'crawl-ref/source/util/gather_spells')
-rwxr-xr-x | crawl-ref/source/util/gather_spells | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/crawl-ref/source/util/gather_spells b/crawl-ref/source/util/gather_spells new file mode 100755 index 0000000000..9d7a0c08b6 --- /dev/null +++ b/crawl-ref/source/util/gather_spells @@ -0,0 +1,12 @@ +#!/usr/bin/perl -w + +undef $/; +open IN, "util/cpp_version spl-data.h|" or die "Can't read spl-data.h\n"; +$_ = <IN>; +close IN; + +for (/\{\s*SPELL_\w+,\s*"([^"\n"]+)"/sg) +{ + next if /^[a-z]/; # dummy spells start with lowercase + print "$_\n"; +} |