From d91143bbd32de6eecd6a43d4bed7f2fa4da1e077 Mon Sep 17 00:00:00 2001
From: Arnaud Patard <rtp@mageia.org>
Date: Fri, 18 Mar 2011 21:33:51 +0000
Subject: - import stage1/drakxtools arm support

---
 perl-install/bootloader.pm | 27 +++++++++++++++++++++++----
 1 file changed, 23 insertions(+), 4 deletions(-)

(limited to 'perl-install/bootloader.pm')

diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index bd85f8446..e300f949a 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -22,7 +22,7 @@ use modules;
 #-#####################################################################################
 #- Functions
 #-#####################################################################################
-my $vmlinuz_regexp = 'vmlinu[xz]|win4lin';
+my $vmlinuz_regexp = 'vmlinu[xz]|win4lin|uImage';
 my $decompose_vmlinuz_name = qr/((?:$vmlinuz_regexp).*?)-(\d+\.\d+.*)/;
 
 sub expand_vmlinuz_symlink {
@@ -57,7 +57,7 @@ sub kernel_str2short_name {
 
 sub basename2initrd_basename {
     my ($basename) = @_;
-    $basename =~ s!vmlinu[zx]-?!!; #- here we do not use $vmlinuz_regexp since we explictly want to keep all that is not "vmlinuz"
+    $basename =~ s!(vmlinu[zx]|uImage)-?!!; #- here we do not use $vmlinuz_regexp since we explictly want to keep all that is not "vmlinuz"
     'initrd' . ($basename ? "-$basename" : '');    
 }
 sub kernel_str2vmlinuz_long {
@@ -188,7 +188,7 @@ sub read {
 	    if (m!/fd\d+$!) {
 		warn "not checking the method on floppy, assuming $main_method is right\n";
 		$main_method;
-	    } elsif (member($main_method, qw(yaboot cromwell silo pmon2000))) {
+	    } elsif (member($main_method, qw(yaboot cromwell silo pmon2000 uboot))) {
 		#- not checking, there's only one bootloader anyway :)
 		$main_method;
 	    } elsif (my $type = partition_table::raw::typeOfMBR($_)) {
@@ -414,6 +414,11 @@ sub read_pmon2000() {
     $b{method} = 'pmon2000';
     \%b;
 }
+sub read_uboot() {
+    my %b;
+    $b{method} = 'uboot';
+    \%b;
+}
 sub read_cromwell() {
     my %b;
     $b{method} = 'cromwell';
@@ -729,7 +734,7 @@ sub add_kernel {
 
     #- new versions of yaboot do not handle symlinks
     $b_nolink ||= arch() =~ /ppc/;
-    $b_no_initrd //= arch() =~ /mips/ && !detect_devices::is_mips_gdium();
+    $b_no_initrd //= (arch() =~ /mips|arm/) && !detect_devices::is_mips_gdium();
 
     $b_nolink ||= $kernel_str->{use_long_name};
 
@@ -1178,6 +1183,7 @@ sub method_choices_raw {
     arch() =~ /ia64/ ? 'lilo' : 
     arch() =~ /sparc/ ? 'silo' : 
     arch() =~ /mips/ ? 'pmon2000' : 
+    arch() =~ /arm/ ? 'uboot' :
       (
        if_(!$b_prefix_mounted || whereis_binary('grub', $::prefix), 
 	   'grub-graphic', 'grub-menu'),
@@ -1354,6 +1360,19 @@ sub when_config_changed_pmon2000 {
     log::l("Mips/pmon2000 - nothing to do...");
 }
 
+sub install_uboot { 
+    my ($_bootloader, $_all_hds) = @_;
+    log::l("uboot - nothing to install...");
+}
+sub write_uboot { 
+    my ($_bootloader, $_all_hds) = @_;
+    log::l("uboot - nothing to write...");
+}
+sub when_config_changed_uboot {
+    my ($_bootloader) = @_;
+    log::l("uboot - nothing to do...");
+}
+
 sub install_cromwell { 
     my ($_bootloader, $_all_hds) = @_;
     log::l("XBox/Cromwell - nothing to install...");
-- 
cgit v1.2.1