drop support for Alpha/PPC/SPARC

like in drakx, it's unused/unsupported for quite a long time

4 files changed, 9 insertions, 97 deletions

diff --git a/lib/Xconfig/card.pm b/lib/Xconfig/card.pm
index b87dce8..d4b5b6d 100644
--- a/lib/Xconfig/card.pm
+++ b/lib/Xconfig/card.pm
@@ -28,7 +28,7 @@ my %VideoRams = (
    65536 => N_("64 MB or more"),
 );
 
-my @xfree4_Drivers = ((arch() =~ /^sparc/ ? qw(sunbw2 suncg14 suncg3 suncg6 sunffb sunleo suntcx) :
+my @xfree4_Drivers = ((
                        qw(apm ark ast chips cirrus i128 i740 intel mga
                           neomagic newport nouveau nv openchrome psb qxl
                           rendition s3 s3virge savage siliconmotion sis sisusb
@@ -59,12 +59,6 @@ sub to_raw_X {
 
     my @cards = ($card, @{$card->{cards} || []});
 
-    foreach (@cards) {
-	if (arch() =~ /ppc/ && member($_->{Driver}, qw(r128 radeon))) {
-	    $_->{UseFBDev} = 1;
-	}
-    }
-
     $raw_X->set_devices(@cards);
 
     $raw_X->get_ServerLayout->{Xinerama} = { commented => !$card->{Xinerama}, Option => 1 }
@@ -119,12 +113,6 @@ sub probe() {
     if (@cards >= 2 && $cards[0]{card_name} eq $cards[1]{card_name} && $cards[0]{card_name} eq 'Intel 830 - 965') {
 	shift @cards;
     }
-    #- take a default on sparc if nothing has been found.
-    if (arch() =~ /^sparc/ && !@cards) {
-        log::l("Using probe with /proc/fb as nothing has been found!");
-	my $s = cat_("/proc/fb");
-	@cards = { server => $s =~ /Mach64/ ? "Mach64" : $s =~ /Permedia2/ ? "3DLabs" : "Sun24" };
-    }
 
     #- disabling MULTI_HEAD when not available
     foreach (@cards) { 
@@ -138,8 +126,7 @@ sub probe() {
 
     #- in case of only one cards, remove all BusID reference, this will avoid
     #- need of change of it if the card is moved.
-    #- on many PPC machines, card is on-board, BusID is important, leave?
-    if (@cards == 1 && !$cards[0]{MULTI_HEAD} && arch() !~ /ppc/) {
+    if (@cards == 1 && !$cards[0]{MULTI_HEAD}) {
 	delete $cards[0]{BusID};
     }
 
diff --git a/lib/Xconfig/xfree.pm b/lib/Xconfig/xfree.pm
index 08221e7..c235084 100644
--- a/lib/Xconfig/xfree.pm
+++ b/lib/Xconfig/xfree.pm
@@ -841,7 +841,7 @@ $default_header .= <<'END';
 EndSection
 END
 
-our $default_ModeLine = arch() =~ /ppc/ ? <<'END_PPC' : <<'END';
+our $default_ModeLine = <<'END';
     # Apple iMac modes
     ModeLine "1024x768"   78.525 1024 1049 1145 1312   768  769  772  800 +hsync +vsync
     ModeLine "800x600"    62.357  800  821  901 1040   600  601  604  632 +hsync +vsync
@@ -862,7 +862,6 @@ our $default_ModeLine = arch() =~ /ppc/ ? <<'END_PPC' : <<'END';
     ModeLine "1280x1024"  135    1280 1288 1392 1664  1024 1027 1030 1064
     # Another variation
     ModeLine "1280x1024"  134.989 1280 1317 1429 1688  1024 1025 1028 1066 +hsync +vsync
-END_PPC
     # TV fullscreen mode or DVD fullscreen output.
     # 768x576 @ 79 Hz, 50 kHz hsync
     ModeLine "768x576"     50.00  768  832  846 1000   576  590  595  630
diff --git a/lib/keyboard.pm b/lib/keyboard.pm
index dceda25..8dbb27a 100644
--- a/lib/keyboard.pm
+++ b/lib/keyboard.pm
@@ -181,22 +181,6 @@ my @usb2keyboard =
 #-
 #- note: there seems to be a limit of 4 stackable xkb layouts
 my %keyboards = (
-arch() =~ /^sparc/ ? (
-#- do we still support those? all but "se" and "us" have dissapeared from
-#- symbols/sun/ directory in Xorg package.
- "cz"		=> [ N_("_: keyboard\nCzech (QWERTZ)"), 		"sunt5-cz-us",		"cz",		"",		0 ],
- "de"		=> [ N_("_: keyboard\nGerman"), 			"sunt5-de-latin1",	"de",		"",		0 ],
- "dvorak"	=> [ N_("_: keyboard\nDvorak"), 			"sundvorak",		"dvorak",	"",		0 ],
- "es"		=> [ N_("_: keyboard\nSpanish"),			"sunt5-es",		"es",		"",		0 ],
- "fi"		=> [ N_("_: keyboard\nFinnish"),			"sunt5-fi-latin1",	"fi",		"",		0 ],
- "fr"		=> [ N_("_: keyboard\nFrench"), 			"sunt5-fr-latin1",	"fr",		"",		0 ],
- "gb"		=> [ N_("UK keyboard"), 				"sunt5-uk",		"gb",		"",		0 ],
- "no"		=> [ N_("_: keyboard\nNorwegian"),			"sunt4-no-latin1",	"no",		"",		0 ],
- "pl"		=> [ N_("_: keyboard\nPolish"), 			"sun-pl-altgraph",	"pl",		"",		0 ],
- "ru"		=> [ N_("_: keyboard\nRussian"),			"sunt5-ru",		"ru",		"",		1 ],
- "se"		=> [ N_("_: keyboard\nSwedish"),			"sunt5-fi-latin1",	"se",		"",		0 ],
- "us"		=> [ N_("US keyboard"), 				"sunkeymap",		"us",		"",		0 ],
-) : (
  "al"		=> [ N_("_: keyboard\nAlbanian"),			"al",			"al",		"",		0 ],
  #"am_old"	=> [ N_("_: keyboard\nArmenian (old)"), 		"am_old",		"am",		"",		1 ], # X11 variant BROKEN (was: am(old) )
  "am"		=> [ N_("_: keyboard\nArmenian (typewriter)"),		"am-armscii8",		"am",		"",		1 ],
@@ -332,7 +316,6 @@ arch() =~ /^sparc/ ? (
 # old XKB layout
  "vn"		=> [ N_("_: keyboard\nVietnamese \"numeric row\" QWERTY"), "vn-tcvn",		"vn",		"",		0 ], 
  "yu"		=> [ N_("_: keyboard\nYugoslavian (latin)"),		"sr",			"srp",		"latin",	0 ],
-),
 );
 
 #- list of  possible choices for the key combinations to toggle XKB groups
@@ -412,7 +395,7 @@ key to switch between the different keyboard layouts.")));
 # used by rescue's make_rescue_img:
 sub loadkeys_files {
     my ($err) = @_;
-    my $archkbd = arch() =~ /^sparc/ ? "sun" : arch() =~ /i.86|x86_64/ ? "i386" : arch() =~ /ppc/ ? "mac" : arch();
+    my $archkbd = arch() =~ /i.86|x86_64/ ? "i386" : arch();
     my $p = "/usr/lib/kbd/keymaps/$archkbd";
     my $post = ".map.gz";
     my %trans = ("cz-latin2" => "cz-lat2");
@@ -536,9 +519,8 @@ sub default_XkbModel {
 
     my $Layout = _keyboard2xkbl($keyboard);
 
-    (arch() =~ /sparc/ ? 'sun' :
-       $Layout eq 'jp' ? 'jp106' : 
-       $Layout eq 'br' ? 'abnt2' : 'pc105');
+    $Layout eq 'jp' ? 'jp106' : 
+       $Layout eq 'br' ? 'abnt2' : 'pc105';
 }
 
 sub keyboard2full_xkb {
@@ -577,16 +559,7 @@ sub _setxkbmap {
 sub setup_install {
     my ($keyboard) = @_;
 
-    return if arch() =~ /^sparc/ || $::local_install;
-
-    #- Xpmac does not map keys quite right
-    if (arch() =~ /ppc/ && !$::testing && $ENV{DISPLAY}) {
-	log::l("Fixing Mac keyboard");
-	run_program::run('xmodmap', "-e",  "keycode 59 = BackSpace");
-	run_program::run('xmodmap', "-e",  "keycode 131 = Shift_R");
-	run_program::run('xmodmap', "-e",  "add shift = Shift_R");
-	return;
-    }
+    return if $::local_install;
 
     my $kmap = keyboard2kmap($keyboard) or return;
 
@@ -650,15 +623,7 @@ sub write {
     $xorgconf .= "EndSection\n";
     output_p("$::prefix/etc/X11/xorg.conf.d/00-keyboard.conf", $xorgconf);
 
-    if (arch() =~ /ppc/) {
-	my $s = "dev.mac_hid.keyboard_sends_linux_keycodes = 1\n";
-	substInFile { 
-            $_ = '' if /^\Qdev.mac_hid.keyboard_sends_linux_keycodes/;
-            $_ .= $s if eof;
-        } "$::prefix/etc/sysctl.d/51-drakx.conf";
-    } else {
 	run_program::rooted($::prefix, 'dumpkeys', '>', '/etc/sysconfig/console/default.kmap') or log::l("dumpkeys failed");
-    }
     run_program::run('mageia-setup-keyboard');
 }
 
diff --git a/lib/mouse.pm b/lib/mouse.pm
index ef1d272..c6d8cc5 100644
--- a/lib/mouse.pm
+++ b/lib/mouse.pm
@@ -19,13 +19,6 @@ use any;
 use log;
 
 sub _all_mice() {
- arch() =~ /^sparc/ ? 
-(
- 'sunmouse' =>
- [ [ 'sunmouse' ],
-   [ [ 3, 'sun', 'sun', N_("Sun - Mouse") ]
-   ] ]
-) :
 (
  'PS/2' => 
  [ [ 'psaux' ],
@@ -74,8 +67,8 @@ sub _all_mice() {
    ] ],
 
  N_("busmouse") =>
- [ [ arch() eq 'ppc' ? 'adbmouse' : ('atibm', 'inportbm', 'logibm') ],
-   [ if_(arch() eq 'ppc', [ 1, 'Busmouse', 'BusMouse', N_("1 button") ]),
+ [ [ ('atibm', 'inportbm', 'logibm') ],
+   [
      [ 2, 'Busmouse', 'BusMouse', N_("2 buttons") ],
      [ 3, 'Busmouse', 'BusMouse', N_("3 buttons") ],
      [ 3, 'Busmouse', 'BusMouse', N_("3 buttons with Wheel emulation"), 'wheel' ],
@@ -132,8 +125,6 @@ my %mouse_btn_keymap = (
     117 => "Num: =",
     96 => "Enter",
 );
-sub _ppc_one_button_keys() { keys %mouse_btn_keymap }
-sub _ppc_one_button_key2text { $mouse_btn_keymap{$_[0]} }
 
 my @mouses_fields = qw(nbuttons MOUSETYPE Protocol name EmulateWheel);
 
@@ -177,18 +168,6 @@ sub write {
     });
 
     various_xfree_conf($do_pkgs, $mouse);
-
-    if (arch() =~ /ppc/) {
-	my $s = join('',
-	  "dev.mac_hid.mouse_button_emulation = " . to_bool($mouse->{button2_key} || $mouse->{button3_key}) . "\n",
-	  if_($mouse->{button2_key}, "dev.mac_hid.mouse_button2_keycode = $mouse->{button2_key}\n"),
-	  if_($mouse->{button3_key}, "dev.mac_hid.mouse_button3_keycode = $mouse->{button3_key}\n"),
-	);
-	substInFile { 
-	    $_ = '' if /^\Qdev.mac_hid.mouse_button/;
-	    $_ .= $s if eof;
-	} "$::prefix/etc/sysctl.d/51-drakx.conf";
-    }
 }
 
 sub _input_entry_to_device_by_id {
@@ -303,19 +282,11 @@ sub detect {
 
 	my $fullname = detect_devices::is_xbox() ? 
 	  'Universal|Microsoft Xbox Controller S' :
-	    arch() eq "ppc" ? 
-	  'USB|1 button' :
 	  'Universal|Any PS/2 & USB mice';
 
 	fullname2mouse($fullname, wacom => \@wacom, 
 		       synaptics => $synaptics[0], 
 		       if_($evdev_opts, %$evdev_opts));
-    } elsif (arch() eq 'ppc') {
-	# No need to search for an ADB mouse.  If I did, the PPC kernel would
-	# find one whether or not I had one installed!  So..  default to it.
-	fullname2mouse("busmouse|1 button");
-    } elsif (arch() =~ /^sparc/) {
-	fullname2mouse("sunmouse|Sun - Mouse");
     } else {
 	#- probe serial device to make sure a wacom has been detected.
 	eval { modules::load("serial") };
@@ -541,16 +512,6 @@ sub select {
 		     }, [ { list => [ detect_devices::serialPorts() ], format => \&detect_devices::serialPort2text, val => \$mouse->{device} } ]) or return &select;
     }
 
-    if (arch() =~ /ppc/ && $mouse->{nbuttons} == 1) {
-	#- set a sane default F11/F12
-	$mouse->{button2_key} = 87;
-	$mouse->{button3_key} = 88;
-	$in->ask_from('', N("Buttons emulation"),
-		[
-		{ label => N("Button 2 Emulation"), val => \$mouse->{button2_key}, list => [ _ppc_one_button_keys() ], format => \&_ppc_one_button_key2text },
-		{ label => N("Button 3 Emulation"), val => \$mouse->{button3_key}, list => [ _ppc_one_button_keys() ], format => \&_ppc_one_button_key2text },
-		]) or return;
-    }
     1;
 }