From 561eb551be419b372d0dc4054f531197412eefa6 Mon Sep 17 00:00:00 2001 From: Jean Delvare Date: Sat, 22 Apr 2006 09:06:21 +0000 Subject: [PATCH] Drop unused I2C/SMBus low-level definitions and code. In particular, we really don't want to use SMBus write functions in this script. git-svn-id: http://lm-sensors.org/svn/lm-sensors/trunk@3289 7894878c-1315-0410-8ee3-d5d059ff63e0 --- prog/detect/sensors-detect | 47 +------------------------------------- 1 file changed, 1 insertion(+), 46 deletions(-) diff --git a/prog/detect/sensors-detect b/prog/detect/sensors-detect index 8c1c5b68..1f2ff49a 100755 --- a/prog/detect/sensors-detect +++ b/prog/detect/sensors-detect @@ -2312,14 +2312,11 @@ sub find_adapter_driver # This should really go into a separate module/package. -# These are copied from and +# These are copied from use constant IOCTL_I2C_SLAVE => 0x0703; -use constant IOCTL_I2C_TENBIT => 0x0704; use constant IOCTL_I2C_SMBUS => 0x0720; -# These are copied from - use constant SMBUS_READ => 1; use constant SMBUS_WRITE => 0; @@ -2327,8 +2324,6 @@ use constant SMBUS_QUICK => 0; use constant SMBUS_BYTE => 1; use constant SMBUS_BYTE_DATA => 2; use constant SMBUS_WORD_DATA => 3; -use constant SMBUS_PROC_CALL => 4; -use constant SMBUS_BLOCK_DATA => 5; # Select the device to communicate with through its address. # $_[0]: Reference to an opened filehandle @@ -2387,18 +2382,6 @@ sub i2c_smbus_read_byte return $data[0]; } -# $_[0]: Reference to an opened filehandle -# $_[1]: Byte to write -# Returns: -1 on failure, 0 on success. -sub i2c_smbus_write_byte -{ - my ($file,$command) = @_; - my @data = ($command); - i2c_smbus_access $file, SMBUS_WRITE, 0, SMBUS_BYTE, \@data - or return -1; - return 0; -} - # $_[0]: Reference to an opened filehandle # $_[1]: Command byte (usually register number) # Returns: -1 on failure, the read byte on success. @@ -2411,19 +2394,6 @@ sub i2c_smbus_read_byte_data return $data[0]; } -# $_[0]: Reference to an opened filehandle -# $_[1]: Command byte (usually register number) -# $_[2]: Byte to write -# Returns: -1 on failure, 0 on success. -sub i2c_smbus_write_byte_data -{ - my ($file,$command,$value) = @_; - my @data = ($value); - i2c_smbus_access $file, SMBUS_WRITE, $command, SMBUS_BYTE_DATA, \@data - or return -1; - return 0; -} - # $_[0]: Reference to an opened filehandle # $_[1]: Command byte (usually register number) # Returns: -1 on failure, the read word on success. @@ -2438,21 +2408,6 @@ sub i2c_smbus_read_word_data return $data[0] + 256 * $data[1]; } -# $_[0]: Reference to an opened filehandle -# $_[1]: Command byte (usually register number) -# $_[2]: Byte to write -# Returns: -1 on failure, 0 on success. -# Note: some devices use the wrong endiannes; use swap_bytes to correct for -# this. -sub i2c_smbus_write_word_data -{ - my ($file,$command,$value) = @_; - my @data = ($value & 0xff, $value >> 8); - i2c_smbus_access $file, SMBUS_WRITE, $command, SMBUS_WORD_DATA, \@data - or return -1; - return 0; -} - # $_[0]: Reference to an opened filehandle # $_[1]: Address # Returns: 1 on successful probing, 0 else.