blob: 9d7a0c08b6d3c4d5ceeda0c6286060579300fa4a (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
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";
}
|