+# List of savers not included in the iOS build.
+#
+my %disable = (
+ 'extrusion' => 1,
+ 'lcdscrub' => 1,
+ 'lockward' => 1,
+ 'webcollage' => 1,
+ );
+
+# Parse the RETIRED_EXES variable from the Makefiles to populate %disable.
+# Duplicated in ../hacks/munge-ad.pl.
+#
+sub parse_makefiles() {
+ foreach my $mf ( "hacks/Makefile.in", "hacks/glx/Makefile.in" ) {
+ open (my $in, '<', $mf) || error ("$mf: $!");
+ print STDERR "$progname: reading $mf\n" if ($verbose > 1);
+ local $/ = undef; # read entire file
+ my $body = <$in>;
+ close $in;
+
+ $body =~ s/\\\n//gs;
+ my ($var) = ($body =~ m/^RETIRED_EXES\s*=\s*(.*)$/mi);
+ my ($var2) = ($body =~ m/^RETIRED_GL_EXES\s*=\s*(.*)$/mi);
+ error ("no RETIRED_EXES in $mf") unless $var;
+ $var .= " $var2" if $var2;
+ foreach my $hack (split (/\s+/, $var)) {
+ $disable{$hack} = 2;
+ }
+ }
+}