summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorStew Benedict <stewb@mandriva.org>2001-03-20 21:36:09 +0000
committerStew Benedict <stewb@mandriva.org>2001-03-20 21:36:09 +0000
commit52d7a2de5518ccb7eef3225383bad2711a3695bb (patch)
treef13a0493716ad2d2616dfef1c9d3f8bc86025f4f /perl-install
parentc0d16c54372f940ca9cde3dbfd9d57a0d70b8d79 (diff)
downloaddrakx-backup-do-not-use-52d7a2de5518ccb7eef3225383bad2711a3695bb.tar
drakx-backup-do-not-use-52d7a2de5518ccb7eef3225383bad2711a3695bb.tar.gz
drakx-backup-do-not-use-52d7a2de5518ccb7eef3225383bad2711a3695bb.tar.bz2
drakx-backup-do-not-use-52d7a2de5518ccb7eef3225383bad2711a3695bb.tar.xz
drakx-backup-do-not-use-52d7a2de5518ccb7eef3225383bad2711a3695bb.zip
make_boot_img: add routine for - PPC
any.pm: double "Append" entry in expert mode for yaboot.conf - PPC install_steps_interactive: setup dmasound - PPC modules.pm: load Mac hardware modules - PPC
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/any.pm2
-rw-r--r--perl-install/install_steps_interactive.pm2
-rw-r--r--perl-install/modules.pm19
3 files changed, 20 insertions, 3 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm
index 260983fa8..d015e5897 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -281,7 +281,7 @@ if (arch() !~ /ppc/) {
@l );
if ($e->{type} eq "image") {
@l = ({ label => _("Label"), val => \$e->{label} },
- $::expert ? @l[1..4] : @l[1..2], { label => _("Append"), val => \$e->{append} } ,
+ $::expert ? @l[1..4] : (@l[1..2], { label => _("Append"), val => \$e->{append} }) ,
if_($::expert, { label => _("Initrd-size"), val => \$e->{initrdsize}, list => [ '', '4096', '8192', '16384', '24576' ] }),
if_($::expert, $l[5]),
{ label => _("NoVideo"), val => \$e->{novideo}, type => 'bool' },
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 874099d14..62c1ba7b5 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -789,7 +789,7 @@ sub summary {
} grep { $_->{driver} eq 'hisax' } detect_devices::probeall()),
(map {
{ label => _("Sound card"), val => $_->{description} }
- } modules::get_that_type('sound')),
+ } arch() !~ /ppc/ ? modules::get_that_type('sound') : modules::load_thiskind('sound')),
(map {
{ label => _("TV card"), val => $_->{description} }
} grep { $_->{driver} eq 'bttv' } detect_devices::probeall()),
diff --git a/perl-install/modules.pm b/perl-install/modules.pm
index a93c79c02..092320cc1 100644
--- a/perl-install/modules.pm
+++ b/perl-install/modules.pm
@@ -84,6 +84,10 @@ arch() =~ /^sparc/ ? (
"de4x5" => "Digital 425,434,435,450,500",
"rtl8139" => "RealTek RTL8129/8139",
"8139too" => "Realtek RTL-8139",
+arch() =~ /ppc/ ? (
+ "mace" => "Apple PowerMac Ethernet",
+ "bmac" => "Apple G3 Ethernet",
+ "gmac" => "Apple G4/iBook Ethernet") : (),
}],
[ 'net_raw', {
"8390" => "8390",
@@ -138,6 +142,9 @@ arch() =~ /^sparc/ ? (
"pci2000" => "Perceptive Solutions PCI-2000", # TODO
"qlogicisp" => "Qlogic ISP",
"sym53c8xx" => "Symbios 53c8xx",
+arch() =~ /ppc/ ? (
+ "mesh" => "Apple Internal SCSI",
+ "mac53c94" => "Apple External SCSI") : (),
}],
[ 'scsi_raw', {
"scsi_mod" => "scsi_mod",
@@ -213,6 +220,8 @@ arch() !~ /^sparc/ ? (
"snd-card-trident" => "Silicon Integrated Systems [SiS]|7018 PCI Audio",
"snd-card-via686a" => "VIA Technologies|VT82C686 [Apollo Super AC97/Audio]",
"snd-card-ymfpci" => "Yamaha Corporation|YMF-740",
+) : arch() =~ /ppc/ ? (
+ "dmasound" => "Amiga or PowerMac DMA sound",
) : (),
}],
[ 'pcmcia', {
@@ -441,6 +450,10 @@ sub load {
add_alias($_, $name) foreach difference2([ detect_devices::getNet() ], \@netdev);
}
+ if ($type eq 'sound' && arch() =~ /ppc/) {
+ add_alias($type, $name);
+ }
+
when_load($name, $type, @options);
}
sub load_multi {
@@ -629,7 +642,11 @@ sub load_thiskind {
} get_that_type($type),
$type =~ /scsi/ && arch() !~ /sparc/ ?
(map { +{ driver => $_, description => $_, try => 1 } }
- detect_devices::usbZips() ? "usb-storage" : (), "imm", "ppa") : ();
+ detect_devices::usbZips() ? "usb-storage" : (), arch() =~ /ppc/ ? ("mesh", "mac53c94",) : ("imm", "ppa",)) :
+ $type =~ /net/ && arch() =~ /ppc/ ?
+ (map { +{ driver => $_, description => $_, try => 1 } } ("bmac", "gmac", "pmac",)) :
+ $type =~ /sound/ && arch() =~ /ppc/ ?
+ (map { +{ driver => $_, description => $_, try => 1 } } "dmasound") : ();
}
sub get_that_type {