From 68e173d018ffdc674d2e3073a1f6cd9f73f6ff68 Mon Sep 17 00:00:00 2001
From: Stew Benedict <stewb@mandriva.org>
Date: Tue, 8 Mar 2005 14:14:43 +0000
Subject: mousedrake, detectloader support for XBox

---
 perl-install/bootloader.pm | 19 +++++++++++++++++++
 perl-install/mouse.pm      |  4 ++++
 2 files changed, 23 insertions(+)

diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index 9aa46b72a..092ffe44b 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -167,6 +167,9 @@ sub read {
 	    } elsif ($main_method eq 'yaboot') {
 		#- not checking on ppc, there's only yaboot anyway :)
 		$main_method;
+	    } elsif ($main_method eq 'cromwell') {
+		#- XBox
+		$main_method;
 	    } elsif (my $type = partition_table::raw::typeOfMBR($_)) {
 		warn "typeOfMBR $type on $_ for method $main_method\n" if $ENV{DEBUG};
 		$type;
@@ -258,6 +261,11 @@ sub yaboot2file {
     "$::prefix/boot/" . basename($of_path);
 }
 
+sub read_cromwell() {
+    my %b;
+    $b{method} = 'cromwell';
+    \%b;
+}
 sub read_yaboot() { &read_lilo }
 sub read_lilo() {
     my $file = sprintf("$::prefix/etc/%s.conf", arch() =~ /ppc/ ? 'yaboot' : 'lilo');
@@ -824,6 +832,7 @@ sub method2text {
 }
 
 sub method_choices_raw() {
+    is_xbox() ? 'cromwell' :
     arch() =~ /ppc/ ? 'yaboot' : 
     arch() =~ /ia64/ ? 'lilo' : 
       (
@@ -973,6 +982,16 @@ sub when_config_changed_yaboot {
     run_program::rooted($::prefix, "/usr/sbin/ybin", "2>", \$error) or die "ybin failed: $error";
 }
 
+sub install_cromwell { 
+    log::l("XBox/Cromwell - nothing to install...");
+}
+sub write_cromwell { 
+    log::l("XBox/Cromwell - nothing to write...");
+}
+sub when_config_changed_cromwell {
+    my ($_bootloader) = @_;
+    log::l("XBox/Cromwell - nothing to do...");
+}
 
 sub make_label_lilo_compatible {
     my ($label) = @_; 
diff --git a/perl-install/mouse.pm b/perl-install/mouse.pm
index d79eaa020..459c8ce61 100644
--- a/perl-install/mouse.pm
+++ b/perl-install/mouse.pm
@@ -86,6 +86,7 @@ my %mice =
  N_("Universal") =>
  [ [ 'input/mice' ],
    [ [ 7, 'ps/2', 'ExplorerPS/2', N_("Any PS/2 & USB mice") ],
+     if_(is_xbox(), [ 5, 'ps/2', 'IMPS/2', N_("Microsoft Xbox Controller S") ]),
      [ 5, 'ps/2', 'auto-dev', N_("Synaptics Touchpad") ],
    ] ],
     ),
@@ -292,6 +293,9 @@ sub detect {
         my @input_devices = cat_('/proc/bus/input/devices');
         my $synaptics_mouse;
         if (my $mouse_nb = grep { /^H: Handlers=mouse/ } @input_devices) {
+            if (is_xbox()) {
+                return fullname2mouse('Universal|Microsoft Xbox Controller S');
+            }
             my $univ_mouse = fullname2mouse('Universal|Any PS/2 & USB mice', wacom => \@wacom);
             if (any { m!^N: Name="(?:SynPS/2 Synaptics TouchPad|AlpsPS/2 ALPS TouchPad)"$! } @input_devices) {
                 $synaptics_mouse = fullname2mouse('Universal|Synaptics Touchpad');
-- 
cgit v1.2.1