summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--kernel/include/compat.h85
-rwxr-xr-xprog/detect/sensors-detect396
2 files changed, 0 insertions, 481 deletions
diff --git a/kernel/include/compat.h b/kernel/include/compat.h
deleted file mode 100644
index 3d5673cd..00000000
--- a/kernel/include/compat.h
+++ /dev/null
@@ -1,85 +0,0 @@
-/*
- compat.h - Part of lm_sensors, Linux kernel modules for hardware
- monitoring
- Copyright (c) 1998, 1999 Frodo Looijaard <frodol@dds.nl>
-
- This program is free software; you can redistribute it and/or modify
- it under the terms of the GNU General Public License as published by
- the Free Software Foundation; either version 2 of the License, or
- (at your option) any later version.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- GNU General Public License for more details.
-
- You should have received a copy of the GNU General Public License
- along with this program; if not, write to the Free Software
- Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
-*/
-
-#ifndef SENSORS_COMPAT_H
-#define SENSORS_COMPAT_H
-
-/* This useful macro is not defined in the 2.0 kernels */
-
-#include <linux/version.h>
-#ifndef KERNEL_VERSION
-#define KERNEL_VERSION(a,b,c) (((a) << 16) | ((b) << 8) | (c))
-#endif
-
-#ifdef MODULE
-#include <linux/module.h>
-#ifndef MODULE_AUTHOR
-#define MODULE_AUTHOR(whatever)
-#endif
-#ifndef MODULE_DESCRIPTION
-#define MODULE_DESCRIPTION(whatever)
-#endif
-#endif /* def MODULE */
-
-/* copy_from/to_usr is called memcpy_from/to_fs in 2.0 kernels
- get_user was redefined in 2.1 kernels to use two arguments, and returns
- an error code */
-#if (LINUX_VERSION_CODE < KERNEL_VERSION(2,1,4))
-#define copy_from_user memcpy_fromfs
-#define copy_to_user memcpy_tofs
-#define get_user_data(to,from) ((to) = get_user(from),0)
-#else
-#include <asm/uaccess.h>
-#define get_user_data(to,from) get_user(to,from)
-#endif
-
-/* Add a scheduling fix for the new code in kernel 2.1.127 */
-#if (LINUX_VERSION_CODE < KERNEL_VERSION(2,1,127))
-#define schedule_timeout(x) ( current->timeout = jiffies + (x), schedule() )
-#endif
-
-/* If the new PCI interface is not present, fall back on the old PCI BIOS
- interface. We also define some things to unite both interfaces. Not
- very nice, but it works like a charm.
- device is the 2.1 struct pci_dev, bus is the 2.0 bus number, dev is the
- 2.0 device/function code, com is the PCI command, and res is the result. */
-#if (LINUX_VERSION_CODE < KERNEL_VERSION(2,1,54))
-#define pci_present pcibios_present
-#define pci_read_config_byte_united(device,bus,dev,com,res) \
- pcibios_read_config_byte(bus,dev,com,res);
-#define pci_read_config_word_united(device,bus,dev,com,res) \
- pcibios_read_config_word(bus,dev,com,res);
-#define pci_write_config_byte_united(device,bus,dev,com,res) \
- pcibios_write_config_byte(bus,dev,com,res);
-#define pci_write_config_word_united(device,bus,dev,com,res) \
- pcibios_write_config_word(bus,dev,com,res);
-#else
-#define pci_read_config_byte_united(device,bus,dev,com,res) \
- pci_read_config_byte(device,com,res);
-#define pci_read_config_word_united(device,bus,dev,com,res) \
- pci_read_config_word(device,com,res);
-#define pci_write_config_byte_united(device,bus,dev,com,res) \
- pci_write_config_byte(device,com,res);
-#define pci_write_config_word_united(device,bus,dev,com,res) \
- pci_write_config_byte(device,com,res);
-#endif
-
-
-#endif /* SENSORS_COMPAT_H */
diff --git a/prog/detect/sensors-detect b/prog/detect/sensors-detect
deleted file mode 100755
index f40431e6..00000000
--- a/prog/detect/sensors-detect
+++ /dev/null
@@ -1,396 +0,0 @@
-#!/usr/bin/perl
-
-#
-# detect.pl - Detect PCI bus and chips
-# Copyright (c) 1998, 1999 Frodo Looijaard <frodol@dds.nl>
-#
-# This program is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 2 of the License, or
-# (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-# GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License
-# along with this program; if not, write to the Free Software
-# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
-#
-
-
-# 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
-# me.
-
-use strict;
-
-use vars qw(@pci_list @pci_adapters);
-
-#########################
-# CONSTANT DECLARATIONS #
-#########################
-
-# This is the list of SMBus or I2C adapters we recognize by their PCI
-# signature. This is an easy and fast way to determine which SMBus or I2C
-# adapters should be present.
-# Each entry must have a vindid (Vendor ID), devid (Device ID), func (PCI
-# Function) and procid (string as appears in /proc/pci; see linux/driver/pci,
-# either pci.c or oldproc.c). If no driver is written yet, omit the
-# driver (Driver Name) field.
-@pci_adapters = (
- {
- vendid => 0x8086,
- devid => 0x7113,
- func => 3,
- procid => "Intel 82371AB PIIX4 ACPI",
- driver => "i2c-piix4"
- } ,
- {
- vendid => 0x1106,
- devid => 0x3040,
- func => 3,
- procid => "VIA Technologies VT 82C586B Apollo ACPI",
- driver => "i2c-via"
- } ,
- {
- vendid => 0x1039,
- devid => 0x0008,
- func => 0,
- procid => "Silicon Integrated Systems 85C503",
- driver => "i2c-ali15x3"
- } ,
- {
- vendid => 0x10b9,
- devid => 0x7101,
- funcid => 0,
- procid => "Acer Labs M7101",
- }
-);
-
-
-##############
-# PCI ACCESS #
-##############
-
-# This function returns a list of hashes. Each hash has some PCI information
-# (more than we will ever need, probably). The most important
-# fields are 'bus', 'slot', 'func' (they uniquely identify a PCI device in
-# a computer) and 'vendid','devid' (they uniquely identify a type of device).
-# /proc/bus/pci/devices is only available on late 2.1 and 2.2 kernels.
-sub read_proc_dev_pci
-{
- my ($dfn,$vend,@pci_list);
- open INPUTFILE, "/proc/bus/pci/devices" or return;
- while (<INPUTFILE>) {
- my $record = {};
- ($dfn,$vend,$record->{irq},$record->{base_addr0},$record->{base_addr1},
- $record->{base_addr2},$record->{base_addr3},$record->{base_addr4},
- $record->{base_addr5},$record->{rom_base_addr}) =
- map { oct "0x$_" } split;
- $record->{bus} = $dfn >> 8;
- $record->{slot} = ($dfn & 0xf8) >> 3;
- $record->{func} = $dfn & 0x07;
- $record->{vendid} = $vend >> 16;
- $record->{devid} = $vend & 0xffff;
- push @pci_list,$record;
- }
- close INPUTFILE or return;
- return @pci_list;
-}
-
-# This function returns a list of hashes. Each hash has some PCI
-# information. The important fields here are 'bus', 'slot', 'func' (they
-# uniquely identify a PCI device in a computer) and 'desc' (a functional
-# description of the PCI device). If this is an 'unknown device', the
-# vendid and devid fields are set instead.
-sub read_proc_pci
-{
- my @pci_list;
- open INPUTFILE, "/proc/pci" or return;
- while (<INPUTFILE>) {
- my $record = {};
- if (($record->{bus},$record->{slot},$record->{func}) =
- /^\s*Bus\s*(\S)+\s*,\s*device\s*(\S+)\s*,\s*function\s*(\S+)\s*:\s*$/) {
- my $desc = <INPUTFILE>;
- unless (($desc =~ /Unknown device/) and
- (($record->{vendid},$record->{devid}) =
- /^\s*Vendor id=(\S+)\.\s*Device id=(\S+)\.$/)) {
- $record->{desc} = $desc;
- }
- push @pci_list,$record;
- }
- }
- close INPUTFILE or return;
- return @pci_list;
-}
-
-sub intialize_proc_pci
-{
- @pci_list = read_proc_dev_pci;
- @pci_list = read_proc_pci if not defined @pci_list;
- die "Can't access either /proc/bus/pci/ or /proc/pci!"
- if not defined @pci_list;
-}
-
-#####################
-# ADAPTER DETECTION #
-#####################
-
-
-sub adapter_pci_detection
-{
- my ($device,$try,@res);
- print "Probing for PCI bus adapters...\n";
-
- foreach $device (@pci_list) {
- foreach $try (@pci_adapters) {
- if ((defined($device->{vendid}) and
- $try->{vendid} == $device->{vendid} and
- $try->{devid} == $device->{devid} and
- $try->{func} == $device->{func}) or
- (! defined($device->{vendid}) and
- $device->{desc} =~ /$try->{procid}/ and
- $try->{func} == $device->{func})) {
- printf "Use driver `%s' for device %02x:%02x.%x: %s\n",
- $try->{driver}?$try->{driver}:"<To Be Written>",
- $device->{bus},$device->{slot},$device->{func},$try->{procid};
- push @res,$try->{driver};
- }
- }
- }
- if (! defined @res) {
- print ("Sorry, no PCI bus adapters found.\n");
- } else {
- printf ("Probe succesfully concluded.\n");
- }
- return @res;
-}
-
-#############################
-# I2C AND SMBUS /DEV ACCESS #
-#############################
-
-use vars qw($IOCTL_I2C_RETRIES $IOCTL_I2C_TIMEOUT $IOCTL_I2C_UDELAY
- $IOCTL_I2C_MDELAY $IOCTL_I2C_SLAVE $IOCTL_I2C_TENBIT
- $IOCTL_I2C_SMBUS);
-
-# These are copied from <linux/i2c.h> and <linux/smbus.h>
-
-# For bit-adapters:
-$IOCTL_I2C_RETRIES = 0x0701;
-$IOCTL_I2C_TIMEOUT = 0x0702;
-$IOCTL_I2C_UDELAY = 0x0705;
-$IOCTL_I2C_MDELAY = 0x0706;
-
-# General ones:
-$IOCTL_I2C_SLAVE = 0x0703;
-$IOCTL_I2C_TENBIT = 0x0704;
-$IOCTL_I2C_SMBUS = 0x0720;
-
-
-use vars qw($SMBUS_READ $SMBUS_WRITE $SMBUS_QUICK $SMBUS_BYTE $SMBUS_BYTE_DATA
- $SMBUS_WORD_DATA $SMBUS_PROC_CALL $SMBUS_BLOCK_DATA);
-
-# These are copied from <linux/smbus.h>
-
-$SMBUS_READ = 1;
-$SMBUS_WRITE = 0;
-$SMBUS_QUICK = 0;
-$SMBUS_BYTE = 1;
-$SMBUS_BYTE_DATA = 2;
-$SMBUS_WORD_DATA = 3;
-$SMBUS_PROC_CALL = 4;
-$SMBUS_BLOCK_DATA = 5;
-
-# Select the device to communicate with through its address.
-# $_[0]: Reference to an opened filehandle
-# $_[1]: Address to select
-# Returns: 0 on failure, 1 on success.
-sub i2c_set_slave_addr
-{
- my ($file,$addr) = @_;
- ioctl $file, $IOCTL_I2C_SLAVE, $addr or return 0;
- return 1;
-}
-
-# i2c_smbus_access is based upon the corresponding C function (see
-# <linux/i2c-dev.h>). You should not need to call this directly.
-# Exact calling conventions are intricate; read i2c-dev.c if you really need
-# to know.
-# $_[0]: Reference to an opened filehandle
-# $_[1]: $SMBUS_READ for reading, $SMBUS_WRITE for writing
-# $_[2]: Command (usually register number)
-# $_[3]: Transaction kind ($SMBUS_BYTE, $SMBUS_BYTE_DATA, etc.)
-# $_[4]: Reference to an array used for input/output of data
-# Returns: 0 on failure, 1 on success.
-# Note the "SS" pack, even though they are declared as chars in the C struct!
-# This is very compiler-dependent; I wish there was some other way to do this.
-sub i2c_smbus_access
-{
- my ($file,$read_write,$command,$size,$data) = @_;
- my $data_array = pack "C32", @$data;
- my $ioctl_data = pack "SSIp", ($read_write,$command,$size,$data_array);
- ioctl $file, $IOCTL_I2C_SMBUS, $ioctl_data or return 0;
- $_[4] = [ unpack "C32",$data_array ];
- return 1;
-}
-
-# $_[0]: Reference to an opened filehandle
-# $_[1]: Either 0 or 1
-# Returns: -1 on failure, the 0 on success.
-sub i2c_smbus_write_quick
-{
- my ($file,$value) = @_;
- my $data = [];
- i2c_smbus_access $file, $value, 0, $SMBUS_QUICK, $data
- or return -1;
- return 0;
-}
-
-# $_[0]: Reference to an opened filehandle
-# Returns: -1 on failure, the read byte on success.
-sub i2c_smbus_read_byte
-{
- my ($file) = @_;
- my $data = [];
- i2c_smbus_access $file, $SMBUS_READ, 0, $SMBUS_BYTE, $data
- or return -1;
- 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.
-sub i2c_smbus_read_byte_data
-{
- my ($file,$command) = @_;
- my $data = [];
- i2c_smbus_access $file, $SMBUS_READ, $command, $SMBUS_BYTE_DATA, $data
- or return -1;
- 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)
-# $_[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]: Command byte (usually register number)
-# Returns: -1 on failure, the read word on success.
-# Note: some devices use the wrong endiannes; use swap_bytes to correct for
-# this.
-sub i2c_smbus_read_word_data
-{
- my ($file,$command) = @_;
- my $data = [];
- i2c_smbus_access $file, $SMBUS_READ, $command, $SMBUS_WORD_DATA, $data
- or return -1;
- return $$data[0] + 256 * $$data[1];
-}
-
-# $_[0]: Reference to an opened filehandle
-# $_[1]: Command byte (usually register number)
-# $_[2]: Word to write
-# Returns: -1 on failure, read word on success.
-# Note: some devices use the wrong endiannes; use swap_bytes to correct for
-# this.
-sub i2c_smbus_process_call
-{
- my ($file,$command,$value) = @_;
- my $data = [$value & 0xff, $value >> 8];
- i2c_smbus_access $file, $SMBUS_WRITE, $command, $SMBUS_PROC_CALL, $data
- or return -1;
- return $$data[0] + 256 * $$data[1];
-}
-
-# $_[0]: Reference to an opened filehandle
-# $_[1]: Command byte (usually register number)
-# Returns: Undefined on failure, a list of read bytes on success
-# Note: some devices use the wrong endiannes; use swap_bytes to correct for
-# this.
-sub i2c_smbus_read_block_data
-{
- my ($file,$command) = @_;
- my $data = [];
- i2c_smbus_access $file, $SMBUS_READ, $command, $SMBUS_BLOCK_DATA, $data
- or return;
- shift @$data;
- return @$data;
-}
-
-# $_[0]: Reference to an opened filehandle
-# $_[1]: Command byte (usually register number)
-# @_[2..]: List of values 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_read_block_data
-{
- my ($file,$command,@data) = @_;
- i2c_smbus_access $file, $SMBUS_WRITE, $command, $SMBUS_BLOCK_DATA, \@data
- or return;
- return 0;
-}
-
-# $_[0]: Reference to an opened filehandle
-#######################
-# AUXILIARY FUNCTIONS #
-#######################
-
-sub swap_bytes
-{
- return (($_[0] & 0xff00) >> 8) + (($_[0] & 0x00ff) << 7)
-}
-
-
-################
-# MAIN PROGRAM #
-################
-
-my @hallo;
-
-intialize_proc_pci;
-adapter_pci_detection;
-
-# TEST!
-#open FILE, "+>/dev/i2c-0" or die "Can't open /dev/i2c-0!";
-#i2c_set_slave_addr \*FILE, 0x49 or die "Couldn't set slave addr!";
-#print (i2c_read_word_data \*FILE, 0), "\n";