blob: 7c32399812af1c03a12cda7b8850b126f32ab538 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
|
#!/usr/bin/perl -w
undef $/;
open IN, "util/cpp_version ability.cc|" or die "Can't read ability.cc\n";
$_ = <IN>;
close IN;
s/.*Ability_List\[\] =\n{\n(.*?)};.*/$1/s
or die "Can't find Ability_List[] in ability.cc\n";
print join("\n", sort /ABIL_[A-Z0-9_]+\s*,\s*"([*-Za-z0-9 '-]+)"/sg), "\n";
|