From 1d3ac921d66022bb6e19a96dce95472cc31f0987 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 9 Sep 1999 09:02:47 +0000
Subject: no_comment

---
 perl-install/modules.pm | 133 +++++++++++++-----------------------------------
 1 file changed, 36 insertions(+), 97 deletions(-)

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

diff --git a/perl-install/modules.pm b/perl-install/modules.pm
index 46ff2b068..d0c38d49c 100644
--- a/perl-install/modules.pm
+++ b/perl-install/modules.pm
@@ -15,91 +15,30 @@ my $scsi = 0;
 my %deps = ();
 
 
-my @neOptions = (
-  [ "io=", "Base IO port:", "0x300:0x280:0x320:0x340:0x360" ],
-  [ "irq=", "IRQ level:", "" ],
-);
-
-my @de4x5Options = (
-  [ "io=", "Base IO port:", "0x0b" ],
-);
-
-my @cdu31aOptions = (
-  [ "cdu31a_port=", "Base IO port:", "" ],
-  [ "cdu31a_irq=", "IRQ level:", "" ],
-);
-
-#
-#my %knownAliases = (
-#    eth => { type => 'net', minor => 'ethernet' },
-#    scsi_hostadapter => { type => 'scsi' },
-#);
-#
-#my @neOptions = (
-#  [ "io=", __("Base IO port:"), "0x300", "0x280", "0x320", "0x340", "0x360" ],
-#  [ "irq=", __("IRQ level:"), "" ],
-#);
-#
-#my @de4x5Options = (
-#  [ "io=", __("Base IO port:"), "0x0b" ],
-#);
-#
-#my @cdu31aOptions = (
-#  [ "cdu31a_port=", __("Base IO port:"), "" ],
-#  [ "cdu31a_irq=", __("IRQ level:"), "" ],
-#);
-#
-#my @cm206Options = (
-#  [ "cm206=", __("IO base, IRQ:"), "" ],
-#);
-#
-#my @mcdOptions = (
-#  [ "mcd=", __("Base IO port:"), "" ],
-#);
-#
-#my @optcdOptions = (
-#  [ "optcd=", __("Base IO port:"), "" ],
-#);
-#
-#my @fdomainOptions = (
-#  [ "setup_called=", __("Use other options"), "1" ],
-#  [ "port_base=", __("Base IO port:"), "0xd800" ],
-#  [ "interrupt_level=", __("Interrupt level (IRQ):"), "10" ],
-#);
-#
-#my @sbpcdOptions = (
-#  [ "sbpcd=", __("IO base, IRQ, label:"), "" ],
-#);
-#
-#my @parportPcOptions = (
-#  [ "io=", __("Base IO port:"), "0x378" ],
-#  [ "irq=", __("IRQ level:"), "7" ],
-#);
-#
-#my @modules_fields = qw(shouldAutoprobe options flags defaultOptions);
-#my %modules = (
-#  "8390" => [ 1 ],
-#  "cdu31a" => [ 0, \@cdu31aOptions ],
-#  "cm206" => [ 0, \@cm206Options ],
-#  "de4x5" => [ 1, \@de4x5Options, 'AUTOPROBE', "io=0" ],
-#  "ds" => [ 1, undef, 0, '' ],
-#  "fdomain" => [ 1, \@fdomainOptions, 0, '' ],
-#  "i82365" => [ 1, undef, 0, '' ],
-#  "isofs" => [ 1, undef, 0, '' ],
-#  "loop" => [ 1, undef, 0, '' ],
-#  "lp" => [ 1, undef, 0, '' ],
-#  "parport" => [ 1, undef, 0, '' ],
-#  "parport_pc" => [ 1, \@parportPcOptions, 0, "irq=7" ],
-#  "mcd" => [ 0, \@mcdOptions, 0, '' ],
-#  "ne" => [ 0, \@neOptions, 'FAKEAUTOPROBE', "io=0x300" ],
-#  "nfs" => [ 1, undef, 0, '' ],
-#  "optcd" => [ 0, \@optcdOptions, 0, '' ],
-#  "pcmcia_core" => [ 1, undef, 0, '' ],
-#  "sbpcd" => [ 1, \@sbpcdOptions, 0, '' ],
-#  "smbfs" => [ 1, undef, 0, '' ],
-#  "tcic" => [ 1, undef, 0, '' ],
-#  "vfat" => [ 1, undef, 0, '' ],
-#);
+#-my @modules_fields = qw(shouldAutoprobe options flags defaultOptions);
+#-my %modules = (
+#-  "8390" => [ 1 ],
+#-  "cdu31a" => [ 0, \@cdu31aOptions ],
+#-  "cm206" => [ 0, \@cm206Options ],
+#-  "de4x5" => [ 1, \@de4x5Options, 'AUTOPROBE', "io=0" ],
+#-  "ds" => [ 1, undef, 0, '' ],
+#-  "fdomain" => [ 1, \@fdomainOptions, 0, '' ],
+#-  "i82365" => [ 1, undef, 0, '' ],
+#-  "isofs" => [ 1, undef, 0, '' ],
+#-  "loop" => [ 1, undef, 0, '' ],
+#-  "lp" => [ 1, undef, 0, '' ],
+#-  "parport" => [ 1, undef, 0, '' ],
+#-  "parport_pc" => [ 1, \@parportPcOptions, 0, "irq=7" ],
+#-  "mcd" => [ 0, \@mcdOptions, 0, '' ],
+#-  "ne" => [ 0, \@neOptions, 'FAKEAUTOPROBE', "io=0x300" ],
+#-  "nfs" => [ 1, undef, 0, '' ],
+#-  "optcd" => [ 0, \@optcdOptions, 0, '' ],
+#-  "pcmcia_core" => [ 1, undef, 0, '' ],
+#-  "sbpcd" => [ 1, \@sbpcdOptions, 0, '' ],
+#-  "smbfs" => [ 1, undef, 0, '' ],
+#-  "tcic" => [ 1, undef, 0, '' ],
+#-  "vfat" => [ 1, undef, 0, '' ],
+#-);
 my @drivers_by_category = (
 [ \&detect_devices::hasEthernet, 'net', 'ethernet', {
   "3c509" => "3com 3c509",
@@ -274,7 +213,7 @@ sub load_raw($@) {
 
     run_program::run("insmod", $name, @options) or die("insmod $name failed");
 
-    # this is a hack to make plip go
+    #- this is a hack to make plip go
     if ($name eq "parport_pc") {
 	foreach (@options) {
 	    /^irq=(\d+)/ or next;
@@ -315,7 +254,7 @@ sub read_conf($;$) {
 	    $$scsi = max($$scsi, $1 || 0) if /^\s*alias\s+scsi_hostadapter (\d*)/x && $scsi;
 	} if /^\s*(\S+)\s+(\S+)\s+(.*?)\s*$/;
     }
-    # cheating here: not handling aliases of aliases
+    #- cheating here: not handling aliases of aliases
     while (my ($k, $v) = each %c) {
 	$$scsi ||= $v->{scsi_hostadapter} if $scsi;
 	if (my $a = $v->{alias}) {
@@ -372,15 +311,15 @@ sub load_thiskind($;&) {
     }
 }
 
-# This assumes only one of each driver type is loaded
-sub removeDeviceDriver {
-#    my ($type) = @_;
-#
-#    my @m = grep { $loaded{$_}{type} eq $type } keys %loaded;
-#    @m or return 0;
-#    @m > 1 and log::l("removeDeviceDriver assume only one of each driver type is loaded, which is not the case (" . join(' ', @m) . ")");
-#    removeModule($m[0]);
-#    1;
-}
+#-#- This assumes only one of each driver type is loaded
+#-sub removeDeviceDriver {
+#-    my ($type) = @_;
+#-
+#-    my @m = grep { $loaded{$_}{type} eq $type } keys %loaded;
+#-    @m or return 0;
+#-    @m > 1 and log::l("removeDeviceDriver assume only one of each driver type is loaded, which is not the case (" . join(' ', @m) . ")");
+#-    removeModule($m[0]);
+#-    1;
+#-}
 
 
-- 
cgit v1.2.1