wt/lm-sensors
1
0 Fork 0
mirror of https://github.com/lm-sensors/lm-sensors.git synced 2026-11-11 16:40:16 +00:00
Code Issues Packages Projects Releases Wiki Activity

Hopefully, the summary is better now. I'm not convinced it is

Browse Source 
complete yet.


git-svn-id: http://lm-sensors.org/svn/lm-sensors/trunk@275 7894878c-1315-0410-8ee3-d5d059ff63e0
This commit is contained in:
Frodo Looijaard committed 1999-02-25 12:23:04 +00:00
1 parent 8f952fb324
commit 41585468c6
2 files changed
+38 -6
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

prog/detect/detect.pl
+19 -3
View File
@@ -19,6 +19,7 @@
# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
#
# TODO: Better handling of chips with several addresses
# A Perl wizard really ought to look upon this; the PCI and I2C stuff should
# each be put in a separate file, using modules and packages. That is beyond
@@ -806,6 +807,7 @@ sub add_isa_to_chips_detected
if (&$alias_detect ($datahash->{isa_addr},\*FILE,
$new_misdetected_ref->[$j]->{address})) {
$new_misdetected_ref->[$j]->{isa_addr} = $datahash->{isa_addr};
close FILE;
return;
}
close FILE;
@@ -828,6 +830,7 @@ sub add_isa_to_chips_detected
$new_detected_ref->[$j]->{address})) {
$new_detected_ref->[$j]->{isa_addr} = $datahash->{isa_addr};
($datahash) = splice (@$new_detected_ref, $j, 1);
close FILE;
last;
}
close FILE;
@@ -1498,10 +1501,23 @@ sub main
if (@{$$chip{misdetected}}) {
print " Misdetects:\n";
foreach $data (@{$$chip{misdetected}}) {
printf " * Bus `%s' (%s)\n", $data->{adapter}, $data->{algorithm};
my $is_i2c = exists $data->{address};
my $is_isa = exists $data->{isa_addr};
print " * ";
printf "Bus `%s' (%s)\n", $data->{adapter}, $data->{algorithm}
if $is_i2c;
printf " Busdriver `%s', I2C address 0x%02x", $data->{driver},
$data->{address};
printf "(main: 0x%02x", $data->{main} if (exists $data->{main});
$data->{address} if $is_i2c;
printf " (main: 0x%02x)", $data->{main} if (exists $data->{main});
print " " if $is_i2c and $is_isa;
if ($is_isa) {
if ($data->{isa_addr}) {
printf "ISA bus address 0x%04x (Busdriver `i2c-isa')",
$data->{isa_addr};
} else {
printf "ISA bus, undetermined address (Busdriver `i2c-isa')"
}
}
printf "\n Chip `%s' (confidence: %d)\n",
$data->{chipname}, $data->{confidence};
}
prog/detect/sensors-detect
+19 -3
View File
@@ -19,6 +19,7 @@
# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
#
# TODO: Better handling of chips with several addresses
# A Perl wizard really ought to look upon this; the PCI and I2C stuff should
# each be put in a separate file, using modules and packages. That is beyond
@@ -806,6 +807,7 @@ sub add_isa_to_chips_detected
if (&$alias_detect ($datahash->{isa_addr},\*FILE,
$new_misdetected_ref->[$j]->{address})) {
$new_misdetected_ref->[$j]->{isa_addr} = $datahash->{isa_addr};
close FILE;
return;
}
close FILE;
@@ -828,6 +830,7 @@ sub add_isa_to_chips_detected
$new_detected_ref->[$j]->{address})) {
$new_detected_ref->[$j]->{isa_addr} = $datahash->{isa_addr};
($datahash) = splice (@$new_detected_ref, $j, 1);
close FILE;
last;
}
close FILE;
@@ -1498,10 +1501,23 @@ sub main
if (@{$$chip{misdetected}}) {
print " Misdetects:\n";
foreach $data (@{$$chip{misdetected}}) {
printf " * Bus `%s' (%s)\n", $data->{adapter}, $data->{algorithm};
my $is_i2c = exists $data->{address};
my $is_isa = exists $data->{isa_addr};
print " * ";
printf "Bus `%s' (%s)\n", $data->{adapter}, $data->{algorithm}
if $is_i2c;
printf " Busdriver `%s', I2C address 0x%02x", $data->{driver},
$data->{address};
printf "(main: 0x%02x", $data->{main} if (exists $data->{main});
$data->{address} if $is_i2c;
printf " (main: 0x%02x)", $data->{main} if (exists $data->{main});
print " " if $is_i2c and $is_isa;
if ($is_isa) {
if ($data->{isa_addr}) {
printf "ISA bus address 0x%04x (Busdriver `i2c-isa')",
$data->{isa_addr};
} else {
printf "ISA bus, undetermined address (Busdriver `i2c-isa')"
}
}
printf "\n Chip `%s' (confidence: %d)\n",
$data->{chipname}, $data->{confidence};
}