diff options
| author | Stew Benedict <stewb@mandriva.org> | 2001-03-20 21:36:09 +0000 |
|---|---|---|
| committer | Stew Benedict <stewb@mandriva.org> | 2001-03-20 21:36:09 +0000 |
| commit | 52d7a2de5518ccb7eef3225383bad2711a3695bb (patch) | |
| tree | f13a0493716ad2d2616dfef1c9d3f8bc86025f4f /perl-install | |
| parent | c0d16c54372f940ca9cde3dbfd9d57a0d70b8d79 (diff) | |
| download | drakx-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.pm | 2 | ||||
| -rw-r--r-- | perl-install/install_steps_interactive.pm | 2 | ||||
| -rw-r--r-- | perl-install/modules.pm | 19 |
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 { |