diff options
| author | Adam Borowski <kilobyte@angband.pl> | 2012-05-25 22:22:19 +0200 |
|---|---|---|
| committer | Adam Borowski <kilobyte@angband.pl> | 2012-05-25 22:22:19 +0200 |
| commit | 3e8ae9f69b97463cc8e498493e366a822f5a7788 (patch) | |
| tree | a35a8dfd80bd39eda34a475a1697abd6d882041b /crawl-ref/source/util/gather_branches | |
| parent | 434edd5018f6c85ea9a414e2faf584f115116794 (diff) | |
| download | crawl-ref-3e8ae9f69b97463cc8e498493e366a822f5a7788.tar.gz crawl-ref-3e8ae9f69b97463cc8e498493e366a822f5a7788.zip | |
db_lint: check branch descriptions.
Diffstat (limited to 'crawl-ref/source/util/gather_branches')
| -rwxr-xr-x | crawl-ref/source/util/gather_branches | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/crawl-ref/source/util/gather_branches b/crawl-ref/source/util/gather_branches new file mode 100755 index 0000000000..946bbacac1 --- /dev/null +++ b/crawl-ref/source/util/gather_branches @@ -0,0 +1,14 @@ +#!/usr/bin/perl -w + +undef $/; +open IN, "<branch-data.h" or die "Can't read branch-data.h\n"; +$_ = <IN>; +close IN; + +s|//.*$||gm; + +print "$_\n" for + /{\s*BRANCH_[A-Z_]+, \s*[A-Z_]+, \s*[0-9-]+, \s*[0-9-]+, \s*[0-9-]+, \s*[0-9-]+, + \s*[^,\n]+, \s*[^,\n]+, + \s*[^,\n]+, \s*[^,\n]+, + \s*"([^"\n"]+)",/sgx; |