#!/usr/bin/perl -w
-# Copyright © 2012-2014 Jamie Zawinski <jwz@jwz.org>
+# Copyright © 2012-2018 Jamie Zawinski <jwz@jwz.org>
#
# Permission to use, copy, modify, distribute, and sell this software and its
# documentation for any purpose is hereby granted without fee, provided that
use strict;
my $progname = $0; $progname =~ s@.*/@@g;
-my ($version) = ('$Revision: 1.3 $' =~ m/\s(\d[.\d]+)\s/s);
+my ($version) = ('$Revision: 1.6 $' =~ m/\s(\d[.\d]+)\s/s);
my $verbose = 1;
#
my %disable = (
'extrusion' => 1,
+ 'glitchpeg' => 1,
'lcdscrub' => 1,
'lockward' => 1,
'webcollage' => 1,
+ 'testx11' => 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" ) {
+ 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
"\n");
$body .= "extern struct $suf";
- foreach my $s (@names) {
- $body .= "\n *${s}_${suf},";
+ foreach my $s (@names, 'testx11') {
+ $body .= "\n ${s}_${suf},";
}
$body =~ s/,\s*$/;/s;
" " . line('apple2', $suf) .
"#elif defined(PHOSPHOR_ONLY)\n" .
" " . line('phosphor', $suf) .
+ "#elif defined(TESTX11_ONLY)\n" .
+ " " . line('testx11', $suf) .
"#else\n");
foreach my $s (@names) { $body .= line($s, $suf); }
$body .= ("#endif\n" .