blob: 9f56761cb8eb252283e95d482f2d4bc0038af7c6 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
#!/usr/bin/perl -w
undef $/;
open IN, "util/cpp_version 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";
|