crawl-ref/source/util/gather_tiles_gui


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

#!/usr/bin/perl -w

for (grep /\.cc$/, `git ls-files`)
{
    chomp;
    open IN, "<", $_ or die "Can't read $_\n";
    { undef local $/; $_ = <IN>; }
    close IN;

    for (/\bTILEG_[A-Z_]+\b/g)
    {
        s/^TILEG_//;
        $tile{$_}=1;
        if (/^([A-Z_]+)_ON$/)
        {
            $tile{"${1}_OFF"}  =1;
            $tile{"${1}_FOCUS"}=1;
            $tile{"${1}_MAX"}  =1;
        }
    }
}

print "$_\n" for sort keys %tile;