crawl-ref/source/util/gather_backgrounds


1
2
3
4
5
6
7
8
9
10
11

#!/usr/bin/perl -w

undef $/;
open IN, "util/cpp_version jobs.cc|" or die "Can't read jobs.cc\n";
$_ = <IN>;
close IN;

s/.*Job_Name_List\[\] =\n\s*\{(.*?)\}.*/$1/s
    or die "Can't find Job_Name_List in jobs.cc\n";

print "$_\n" for (/"([^"]*)"/g);