mir/lm-sensors
2
0
Fork 0
mirror of https://github.com/lm-sensors/lm-sensors synced 2025-08-31 14:25:39 +00:00
Code Issues Releases Wiki Activity

Reindent and cleanup I/O port access functions.

Browse Source 
git-svn-id: http://lm-sensors.org/svn/lm-sensors/branches/lm-sensors-3.0.0@5447 7894878c-1315-0410-8ee3-d5d059ff63e0
This commit is contained in:
Jean Delvare
2008-11-27 18:27:20 +00:00
parent 7ef9fb78c4
commit d798d611f8
1 changed files with 18 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

40
prog/detect/sensors-detect
View File

@@ -2067,44 +2067,40 @@ sub any_list_match
}
###################
# I/O port access #
# I/O PORT ACCESS #
###################
sub initialize_ioports
{
sysopen(IOPORTS, "/dev/port", O_RDWR)
or die "/dev/port: $!\n";
binmode(IOPORTS);
sysopen(IOPORTS, "/dev/port", O_RDWR)
or die "/dev/port: $!\n";
binmode(IOPORTS);
}
sub close_ioports
{
close(IOPORTS)
or print "Warning: $!\n";
close(IOPORTS);
}
# $_[0]: port to read
# Returns: -1 on failure, read value on success.
sub inb
{
my ($res, $nrchars);
sysseek(IOPORTS, $_[0], 0) or return -1;
$nrchars = sysread(IOPORTS, $res, 1);
return -1 if not defined $nrchars or $nrchars != 1;
$res = unpack("C", $res);
return $res;
my ($res, $nrchars);
sysseek(IOPORTS, $_[0], 0) or return -1;
$nrchars = sysread(IOPORTS, $res, 1);
return -1 if not defined $nrchars or $nrchars != 1;
$res = unpack("C", $res);
return $res;
}
# $_[0]: port to write
# $_[1]: value to write
# Returns: -1 on failure, 0 on success.
# We assume this can't fail.
sub outb
{
my $towrite = pack("C", $_[1]);
sysseek(IOPORTS, $_[0], 0) or return -1;
my $nrchars = syswrite(IOPORTS, $towrite, 1);
return -1 if not defined $nrchars or $nrchars != 1;
return 0;
sysseek(IOPORTS, $_[0], 0);
syswrite(IOPORTS, pack("C", $_[1]), 1);
}
# $_[0]: Address register
@@ -2113,8 +2109,8 @@ sub outb
# Returns: read value
sub isa_read_byte
{
outb($_[0], $_[2]);
return inb($_[1]);
outb($_[0], $_[2]);
return inb($_[1]);
}
# $_[0]: Base address
@@ -2124,8 +2120,8 @@ sub isa_read_byte
# offset 5 and data register at offset 6.
sub isa_read_i5d6
{
my ($addr, $reg) = @_;
return isa_read_byte($addr + 5, $addr + 6, $reg);
my ($addr, $reg) = @_;
return isa_read_byte($addr + 5, $addr + 6, $reg);
}
#################