add draksound: allow to switch between alsa and oss;

should result in better sound support

3 files changed, 213 insertions, 0 deletions

diff --git a/perl-install/harddrake/Makefile b/perl-install/harddrake/Makefile
new file mode 100644
index 000000000..313fc2eca
--- /dev/null
+++ b/perl-install/harddrake/Makefile
@@ -0,0 +1,2 @@
+sound_drivers.pm: ../../kernel/list_modules.pm gen_snd_list
+	./gen_snd_list > $@
diff --git a/perl-install/harddrake/gen_snd_list b/perl-install/harddrake/gen_snd_list
new file mode 100755
index 000000000..e791ae431
--- /dev/null
+++ b/perl-install/harddrake/gen_snd_list
@@ -0,0 +1,18 @@
+#!/usr/bin/perl
+# 
+# Copyright (C) 2002 MandrakeSoft (tvignaud@mandrakesoft.com)
+# Released under the GNU General Public License
+
+use lib qw(/usr/lib/libDrakX);
+use common;
+use list_modules;
+use Data::Dumper;
+
+$Data::Dumper::Terse = 1;          # don't output names where feasible
+$Data::Dumper::Purity = 1;         # fill in the holes for eval
+
+# ne '' for missing modules ... if_($i ne '', $i, '<none>')
+print "package harddrake::sound_drivers;\n#This is an autogenrated file by gen_snd_list from list_modules.pm\nour\$sound_drivers = ", Dumper({map { my $i=qx((/sbin/modinfo -d $_)|head -1|tr -d \\\"|perl -pi -e 's!\n!!g'); $_ => $i } category2modules("multimedia/sound")}), ";\n1;";
+#print qq(
+#sub
+#)
diff --git a/perl-install/harddrake/sound.pm b/perl-install/harddrake/sound.pm
new file mode 100644
index 000000000..9069966ef
--- /dev/null
+++ b/perl-install/harddrake/sound.pm
@@ -0,0 +1,193 @@
+package harddrake::sound;
+# lists filled with Danny Tholen help, enhanced by Thierry Vignaud
+#
+# No ALSA for OSS's 
+#    o btaudio (tv card),
+#    o isa cards: msnd_pinnacle, pas2, 
+# No OSS for ALSA's
+#    o pci cards: snd-ali5451, snd-als4000, snd-es968, snd-fm801,
+#      snd-hdsp, snd-via8233
+#    o isa cards: snd-als100, snd-azt2320, snd-cmi8330, snd-cs4231,
+#      snd-cs4236, snd-dt0197h, snd-es18xx,snd-es1688, snd-ice1712,
+#      snd-korg1212, snd-rme32, snd-rme96
+#    o usb cards: snd-usb-audio
+
+# TODO: 
+#    o ensure sound isn't user (either dsp/midi/sequencer/mixer)
+#    o fix sound/alsa services
+
+use strict;
+use common;
+use interactive;
+use run_program;
+use modules;
+use harddrake::sound_drivers;  # autogenerated
+use standalone;
+
+my %alsa2oss = 
+    (
+	"snd-ad1816a" => [ "ad1816" ], # isa
+	"snd-ad1848"  => [ "ad1848" ], # isa
+	"snd-ali5451" => [ "unknown" ],
+	"snd-als100"  => [ "unknown" ], # isa
+	"snd-als4000" => [ "unknown" ],
+	"snd-azt2320" => [ "unknown" ], # isa
+	"snd-cmi8330" => [ "unknown" ], # isa
+	"snd-cmipci"  => [ "cmpci" ],
+	"snd-cs4231"  => [ "unknown" ], # isa
+	"snd-cs4232"  => [ "cs4232" ],  # isa
+	"snd-cs4236"  => [ "unknown" ], # isa
+	"snd-cs4281"  => [ "cs4281" ],
+	"snd-cs46xx"  => [ "cs46xx" ],
+	"snd-dt0197h" => [ "unknown" ], # isa
+	"snd-emu10k1" => [ "audigy", "emu10k1" ],
+	"snd-ens1370" => [ "es1370" ],
+	"snd-ens1371" => [ "es1371" ],
+	"snd-es1688"  => [ "unknown" ], # isa
+	"snd-es18xx"  => [ "unknown" ], # isa
+	"snd-es1938"  => [ "esssolo1" ],
+	"snd-es1968"  => [ "maestro" ], # isa
+	"snd-es968"   => [ "unknown" ],
+	"snd-fm801"   => [ "unknown"],
+	"snd-gusclassic" => [ "gus" ], # isa
+	"snd-gusextreme" => [ "gus" ], # isa
+	"snd-gusmax"  => [ "gus" ],    # isa
+	"snd-hdsp" => [ "unknown" ],
+	"snd-ice1712" => [ "unknown" ], # isa
+	"snd-intel8x0" => [ "i810_audio" ],
+	"snd-interwave" => [ "gus" ],  # isa
+	"snd-korg1212" => [ "unknown" ], # isa
+	"snd-maestro3" => [ "maestro3" ],
+	"snd-mpu401"  => [ "mpu401" ],
+	"snd-nm256"   => [ "nm256_audio" ],
+	"snd-opl3sa2" => [ "opl3", "opl3sa", "opl3sa2" ], # isa
+	"snd-opti93x" => [ "mad16" ],
+	"snd-rme32"   => [ "unknown" ], # isa
+	"snd-rme96"   => [ "unknown" ], # isa
+	"snd-rme9652g" => [ "rme96xx" ],
+	"snd-sb16"    => ["sscape", "sb"],
+	"snd-sb8"     => [ "sb" ],
+	"snd-sbawe"   => [ "awe_wave" ],
+	"snd-sgalaxy" => [ "sgalaxy" ], # isa
+	"snd-sonicvibes" => [ "sonicvibes" ],
+	"snd-trident" => [ "trident" ],
+	"snd-usb-audio" => [ "unknown" ], # usb
+	"snd-via686"  => [ "via82cxxx_audio" ],
+	"snd-via8233" => [ "unknown" ],
+	"snd-wavefront" => [ "wavefront" ], # isa
+	"snd-ymfpci"  => [ "ymfpci" ]
+	);
+
+
+my %oss2alsa = 
+    (
+	"ad1816"  => [ "snd-ad1816a" ],
+	"ad1848"  => [ "snd-ad1848" ],
+	"audigy"  => [ "snd-emu10k1" ],
+	"awe_wave" => [ "snd-sbawe" ],
+	"btaudio" => [ "unknown" ],
+	"cmpci"   => [ "snd-cmipci" ],
+	"cs4232"  => [ "snd-cs4232" ],
+	"cs4281"  => [ "snd-cs4281" ],
+	"cs46xx"  => [ "snd-cs46xx" ],
+	"emu10k1" => [ "snd-emu10k1" ],
+	"es1370"  => [ "snd-ens1370" ],
+	"es1371"  => [ "snd-ens1371" ],
+	"esssolo1" => [ "snd-es1938" ],
+	"gus"     => ["snd-interwave", "snd-gusclassic", "snd-gusmax", "snd-gusextreme"],
+	"i810_audio" => [ "snd-intel8x0"],
+	"mad16"   => [ "snd-opti93x" ],
+	"maestro" => [ "snd-es1968" ],
+	"maestro3" => [ "snd-maestro3" ],
+	"mpu401"  => [ "snd-mpu401" ],
+	"msnd_pinnacle" => [ "unknown" ],
+	"msnd_pinnacle" =>  [ "unknown" ],
+	"nm256_audio" => [ "snd-nm256" ],
+	"opl3"    => [ "snd-opl3sa2" ],
+	"opl3sa"  => [ "snd-opl3sa2" ],
+	"opl3sa2" => [ "snd-opl3sa2" ],
+	"pas2"    => [ "unknown" ],
+	"rme96xx" => [ "snd-rme9652.o.g" ],
+	"sb"      => ["snd-sb8", "snd-sb16"],
+	"sgalaxy" => [ "snd-sgalaxy" ],
+	"sonicvibes" => [ "snd-sonicvibes" ],
+	"sscape"  => [ "snd-sb16" ],
+	"trident" => [ "snd-trident" ],
+	"via82cxxx_audio" => [ "snd-via686" ],
+	"wavefront" => [ "snd-wavefront" ],
+	"ymfpci"  => [ "snd-ymfpci" ]
+	);
+
+my $drivers_description = $harddrake::sound_drivers::sound_drivers;
+
+
+sub get_alternative {
+    my ($driver) = @_;
+    if ($alsa2oss{$driver}) {
+	   $alsa2oss{$driver};
+    } elsif ($oss2alsa{$driver}) {
+	   $oss2alsa{$driver}
+    } else { {} }
+}
+
+sub do_switch {
+    my ($old_driver, $new_driver) = @_;
+    standalone::explanations("removing old $old_driver\n");
+    run_program::run("service sound stop");
+    run_program::run("service alsa stop") if $old_driver =~ /^snd-/;
+    modules::unload($old_driver); #    run_program("/sbin/modprobe -r $driver"); # just in case ...
+    modules::remove_module($old_driver); # completed by the next add_alias()
+    modules::add_alias('sound-slot-0', $new_driver);
+    modules::write_conf;
+    if ($new_driver =~ /^snd-/) {
+	   run_program::run("service alsa start");
+	   run_program::run("/sbin/chkconfig --add alsa");
+	   modules::load($new_driver); # service alsa is buggy
+    } else { run_program::run("/sbin/chkconfig --del alsa") }
+    standalone::explanations("loading new $new_driver\n");
+    run_program::run("/sbin/chkconfig --add sound"); # just in case ...
+    run_program::run("service sound start");
+}
+
+sub switch {
+    my ($in, $device) = @_;
+    my $driver = $device->{driver};
+    my $alternative = get_alternative($driver);
+#    $alternative = [ "i810_audio", "snd-intel8x0"];
+    if ($alternative) {
+	   my $new_driver = $alternative->[0];
+	   if ($driver eq "unknown") {
+		  $in->ask_warn(_("No alternative driver"),
+							_("There's no known OSS/ALSA alternative driver for your sound card (%s)",
+							  $device->{description}));
+	   } elsif ($in->ask_from(_("Sound configuration"),
+						 _("Here you can select an alternative driver (either OSS or ALSA) for your sound card (%s)",
+							  $device->{description}),
+						 [
+						  { label => _("Driver :"), val => \$new_driver, list => $alternative, default => $new_driver, sort =>1, format => sub {  "$_[0] ($drivers_description->{$_[0]})" }, allow_empty_list => 1 }
+						  ]
+						 ))
+	   {
+		  standalone::explanations("switching audio driver from '$driver' to '$new_driver'\n");
+		  do_switch($driver, $new_driver);
+	   }
+    } elsif ($driver eq "unknown") {
+	   $in->ask_warn(_("No known driver"), 
+						 _("There's no known driver for your sound card (%s)",
+							  $device->{description}));
+    } elsif (is_listed($driver)) {
+    } else {
+	   $in->ask_warn(_("Unkown driver"), 
+							 _("The \"%s\" driver for your sound card is unlisted\n
+Please send the output of the \"lspcidrake -v\" command to
+Thierry Vignaud <tvignaud at mandrakesoft dot com>
+with subject: unlisted sound driver")
+							   , $driver);
+    }
+}
+
+sub config {
+    my ($in, $device) = @_;
+    switch($in, $device);
+
+}