EVOLUTION-MANAGER

Edit File: sensors-conf-convert

#!/usr/bin/perl -w -pi.old

# Convert a sensors.conf file from the old (Linux 2.4, lm-sensors 2)
# symbol names to the new (Linux 2.6 or 3, lm-sensors 3) symbol names.
#
# Copyright (C) 2007, 2011  Jean Delvare <jdelvare@suse.de>
#
# 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., 51 Franklin Street, Fifth Floor, Boston,
# MA 02110-1301, USA.

# Implemented conversions:
# * The "algorithm name" part of bus statements is removed.
# * Bus statements for the ISA bus are removed.
# * Chip names containing dashes are removed.
# * Label, ignore, set and compute statements referencing features
#   which are not part of the new interface are removed.
# * Label, ignore, set and compute statements referencing features
#   which have been renamed are updated. This includes both general
#   feature name changes and chip-specific feature name changes.
#
# Note that we have to look at the commented out lines too, so that
# the user doesn't have a bad surprise when uncommenting them.

use strict;
use vars qw($debug $chip %trans @delete %chip_trans %chip_delete);

BEGIN
{
	$debug = 0;

%trans = (
		qr/\bvid\b/			=> sub { "cpu0_vid" },
		qr/\bremote_temp\b/		=> sub { "temp2" },
		qr/\bremote_temp_hyst\b/	=> sub { "temp2_max_hyst" },
		qr/\bremote_temp_low\b/		=> sub { "temp2_min" },
		qr/\bremote_temp_over\b/	=> sub { "temp2_max" },
		qr/\btemp\b/			=> sub { "temp1" },
		qr/\btemp_hyst\b/		=> sub { "temp1_max_hyst" },
		qr/\btemp_low\b/		=> sub { "temp1_min" },
		qr/\btemp_over\b/		=> sub { "temp1_max" },
		qr/\btemp_high\b/		=> sub { "temp1_max" },
		qr/\btemp_crit\b/		=> sub { "temp1_crit" },

qr/\bvin(\d+)_max\b/		=> sub { "in$1_max" },
		qr/\bvin(\d+)_min\b/		=> sub { "in$1_min" },
		qr/\bvin(\d+)\b/		=> sub { "in$1" },
		qr/\btemp(\d+)_over\b/		=> sub { "temp$1_max" },
		qr/\btemp(\d+)_hyst\b/		=> sub { "temp$1_max_hyst" },
		qr/\btemp(\d+)_high\b/		=> sub { "temp$1_max" },
		qr/\btemp(\d+)_low\b/		=> sub { "temp$1_min" },
		qr/\bsensor(\d+)\b/		=> sub { "temp$1_type" },
	);

%chip_trans = (
		"gl518sm" => {
			qr/\bvdd\b/			=> sub { "in0" },
			qr/\bvdd_min\b/			=> sub { "in0_min" },
			qr/\bvdd_max\b/			=> sub { "in0_max" },
		},
		"gl520sm" => {
			qr/\bvdd\b/			=> sub { "in0" },
			qr/\bvdd_min\b/			=> sub { "in0_min" },
			qr/\bvdd_max\b/			=> sub { "in0_max" },
		},
		"lm80" => {
			qr/\btemp_hot_hyst\b/		=> sub { "temp1_max_hyst" },
			qr/\btemp_hot_max\b/		=> sub { "temp1_max" },
			qr/\btemp_os_hyst\b/		=> sub { "temp1_crit_hyst" },
			qr/\btemp_os_max\b/		=> sub { "temp1_crit" },
		},
		"lm83" => {
			qr/\btcrit\b/			=> sub { "temp3_crit" },
		},
		"lm90" => {
			qr/\btcrit(\d)\b/		=> sub { "temp$1_crit" },
			qr/\bhyst(\d)\b/		=> sub { "temp$1_crit_hyst" },
		},
		"adm1032" => {
			qr/\btcrit(\d)\b/		=> sub { "temp$1_crit" },
			qr/\bhyst(\d)\b/		=> sub { "temp$1_crit_hyst" },
		},
		"lm86" => {
			qr/\btcrit(\d)\b/		=> sub { "temp$1_crit" },
			qr/\bhyst(\d)\b/		=> sub { "temp$1_crit_hyst" },
		},
		"lm99" => {
			qr/\btcrit(\d)\b/		=> sub { "temp$1_crit" },
			qr/\bhyst(\d)\b/		=> sub { "temp$1_crit_hyst" },
		},
		"adt7461" => {
			qr/\btcrit(\d)\b/		=> sub { "temp$1_crit" },
			qr/\bhyst(\d)\b/		=> sub { "temp$1_crit_hyst" },
		},
		"max6657" => {
			qr/\btcrit(\d)\b/		=> sub { "temp$1_crit" },
			qr/\bhyst(\d)\b/		=> sub { "temp$1_crit_hyst" },
		},
		"max6680" => {
			qr/\btcrit(\d)\b/		=> sub { "temp$1_crit" },
			qr/\bhyst(\d)\b/		=> sub { "temp$1_crit_hyst" },
		},
		"lm93" => {
			qr/\bvid([12])\b/			=> sub { "cpu".($1-1)."_vid" },
		},
		"adm9240" => {
			qr/"2\.5V(|_min|_max)"/		=> sub { "in0$1" },
			qr/\bVccp1(|_min|_max)\b/	=> sub { "in1$1" },
			qr/"3\.3V(|_min|_max)"/		=> sub { "in2$1" },
			qr/"5V(|_min|_max)"/		=> sub { "in3$1" },
			qr/"12V(|_min|_max)"/		=> sub { "in4$1" },
			qr/\bVccp2(|_min|_max)\b/	=> sub { "in5$1" },
		},
		"lm81" => {
			qr/"2\.5V(|_min|_max)"/		=> sub { "in0$1" },
			qr/\bVccp1(|_min|_max)\b/	=> sub { "in1$1" },
			qr/"3\.3V(|_min|_max)"/		=> sub { "in2$1" },
			qr/"5V(|_min|_max)"/		=> sub { "in3$1" },
			qr/"12V(|_min|_max)"/		=> sub { "in4$1" },
			qr/\bVccp2(|_min|_max)\b/	=> sub { "in5$1" },
		},
		"ds1780" => {
			qr/"2\.5V(|_min|_max)"/		=> sub { "in0$1" },
			qr/\bVccp1(|_min|_max)\b/	=> sub { "in1$1" },
			qr/"3\.3V(|_min|_max)"/		=> sub { "in2$1" },
			qr/"5V(|_min|_max)"/		=> sub { "in3$1" },
			qr/"12V(|_min|_max)"/		=> sub { "in4$1" },
			qr/\bVccp2(|_min|_max)\b/	=> sub { "in5$1" },
		},
		"adm1024" => {
			qr/"2\.5V(|_min|_max)"/		=> sub { "in0$1" },
			qr/\bVccp1(|_min|_max)\b/	=> sub { "in1$1" },
			qr/"3\.3V(|_min|_max)"/		=> sub { "in2$1" },
			qr/"5V(|_min|_max)"/		=> sub { "in3$1" },
			qr/"12V(|_min|_max)"/		=> sub { "in4$1" },
			qr/\bVccp2(|_min|_max)\b/	=> sub { "in5$1" },
			qr/\btemp_hyst\b/		=> sub { "temp1_min" },
			qr/\btemp(\d)\b/		=> sub { "temp".($1+1) },
			qr/\btemp(\d)_hyst\b/		=> sub { "temp".($1+1)."_min" },
			qr/\btemp(\d)_over\b/		=> sub { "temp".($1+1)."_max" },
		},
		"maxilife" => {
			qr/\bvid(\d)(|_min|_max)\b/	=> sub { "in".($1-1).$2 },
		},
		"thmc50" => {
			qr/\btemp_hyst\b/		=> sub { "temp1_min" },
			qr/\bremote_temp_hyst\b/	=> sub { "temp2_min" },
			qr/\bremote_temp2\b/		=> sub { "temp3" },
			qr/\bremote_temp2_hyst\b/	=> sub { "temp3_min" },
			qr/\bremote_temp2_over\b/	=> sub { "temp3_max" },
		},
		"adm1022" => {
			qr/\btemp_hyst\b/		=> sub { "temp1_min" },
			qr/\bremote_temp_hyst\b/	=> sub { "temp2_min" },
			qr/\bremote_temp2\b/		=> sub { "temp3" },
			qr/\bremote_temp2_hyst\b/	=> sub { "temp3_min" },
			qr/\bremote_temp2_over\b/	=> sub { "temp3_max" },
		},
		"adm1026" => {
			qr/\bfan(\d)(|_div|_min)\b/	=> sub { "fan".($1+1).$2 },
			qr/\btemp(\d)_therm\b/		=> sub { "temp$1_crit" },
		},
		"via686a" => {
			qr/"2\.0V"/			=> sub { "in0" },
			qr/"2\.5V"/			=> sub { "in1" },
			qr/"3\.3V"/			=> sub { "in2" },
			qr/"5\.0V"/			=> sub { "in3" },
			qr/"12V"/			=> sub { "in4" },
		},
		"lm87" => {
			qr/"2\.5V(|_min|_max)"/		=> sub { "in0$1" },
			qr/\bVccp1(|_min|_max)\b/	=> sub { "in1$1" },
			qr/"3\.3V(|_min|_max)"/		=> sub { "in2$1" },
			qr/"5V(|_min|_max)"/		=> sub { "in3$1" },
			qr/"12V(|_min|_max)"/		=> sub { "in4$1" },
			qr/\bVccp2(|_min|_max)\b/	=> sub { "in5$1" },
			qr/\bAIN1(|_min|_max)\b/	=> sub { "in6$1" },
			qr/\bAIN2(|_min|_max)\b/	=> sub { "in7$1" },
			qr/\bCPU_Temp\b/		=> sub { "temp2" },
		},
		"fscpos" => {
			qr/\bvolt12\b/			=> sub { "in0" },
			qr/\bvolt5\b/			=> sub { "in1" },
			qr/\bvoltbatt\b/		=> sub { "in2" },
		},
		"fscscy" => {
			qr/\bvolt12\b/			=> sub { "in0" },
			qr/\bvolt5\b/			=> sub { "in1" },
			qr/\bvoltbatt\b/		=> sub { "in2" },
		},
		"pcf8591" => {
			qr/\bch(\d)\b/			=> sub { "in$1" },
		},
		"smsc47m192" => {
			qr/\btemp(\d)_input_fault\b/	=> sub { "temp$1_fault" },
		},
		"lm92" => {
			qr/\btemp_hyst\b/		=> sub { "temp1_crit_hyst" },
		},
		"max1619" => {
			qr/\btemp2_hyst\b/		=> sub { "temp2_crit_hyst" },
		},
		"lm78" => {
			qr/\bin([56])_(min|max)\b/	=> sub { "in$1_".($2 eq "max" ? "min" : "max") },
		},
		"lm79" => {
			qr/\bin([56])_(min|max)\b/	=> sub { "in$1_".($2 eq "max" ? "min" : "max") },
		},
		"w83781d" => {
			qr/\bin([56])_(min|max)\b/	=> sub { "in$1_".($2 eq "max" ? "min" : "max") },
		},
		"as99127f" => {
			qr/\bin([56])_(min|max)\b/	=> sub { "in$1_".($2 eq "max" ? "min" : "max") },
		},
	);

if (defined $ARGV[0] && ($ARGV[0] eq '-h' || $ARGV[0] eq '--help')) {
		print "Convert sensors.conf from lm-sensors 2 format to lm-sensors 3 format\n",
		      "Typical usage: sensors-conf-convert < /etc/sensors.conf > /etc/sensors3.conf\n";
		exit 0;
	}
}

if ($. == 1) {
	print "# Converted by sensors-conf-convert on ".localtime()."\n";
}

sub substitute_line($$)
{
	my ($chip, $line) = @_;

# First the chip-specific ones
	if ($chip && exists $chip_trans{$chip}) {
		foreach my $t (keys %{$chip_trans{$chip}}) {
			$line =~ s/$t/$chip_trans{$chip}->{$t}->()/ge;
		}
	}

# Then the general substitutions
	foreach my $t (keys %trans) {
		# Kudos to the nice folks in #perl on freenode :)
		$line =~ s/$t/$trans{$t}->()/ge;
	}

return $line;
}

sub delete_line($)
{
	my $feature = shift;

# First the general deletions
	foreach my $t (@delete) {
		return 1 if $feature =~ m/$t/;
	}

# Then the chip-specific ones
	if ($chip && exists $chip_delete{$chip}) {
		foreach my $t (@{$chip_delete{$chip}}) {
			return 1 if $feature =~ m/$t/;
		}
	}

return 0;
}

if (m/^# Converted by sensors-conf-convert/) {
	print STDERR "WARNING: Converting an already converted file!\n";
	print STDERR "         Result will be incorrect for some chip types.\n";
}

# Bus statements
if (m/^([\s#]*bus\s+"?i2c-\d+"?\s+"([^"]+)")\s+"[^"]*"/) {
	print STDERR "Processing bus statement: $2\n" if $debug;

if ($2 eq "ISA main adapter") {
		$_ = '';	# Drop entirely 
	} else {
		$_ = "$1\n";	# Drop algorithm name
	}
}

# Chip statements
elsif (m/^[\s#]*chip\s+"([\w\d*-]+)"/) {
	# We only remember the first chip name, assuming that all chips
	# in a given "chip" statement need the same specific processing
	$chip = $1;
	$chip =~ s/-.*//;
	undef $chip if $chip eq "*";

# Remove dashes from chip names, as this is no longer allowed
	s/(\s+"lm78-)j-/$1/g;
	s/(\s+"maxilife-)(cg|co|as|nba)-/$1/g;
	# Simplify possible duplicates
	s/("lm78-\*")(\s+"lm78-\*")+/$1/g;
	s/("maxilife-\*")(\s+"maxilife-\*")+/$1/g;

# "*" is no longer a valid chip name
	s/"\*"/"\*-\*"/g;

print STDERR "Processing chip section: $chip\n" if $chip and $debug;
}

# Drop references to lm78-j
elsif (m/^\s*#+.*lm78-?j/i) {
	s/(lm78), lm78-?j/$1/gi;
	s/(lm78)-?j/$1/gi;
}

# Drop references to vrm
elsif (m/^[\s#]*set\s+vrm\s/i
    || m/^\s*#+\s*adjust this if your vid is wrong/i
    || m/^\s*#+\s*Also, one should set vrm prior to using vid in any formula/) {
	$_ = '';
}

# Drop references to pwm
elsif (m/^\s*#+\s*PWM Output/i) {
	$_ = '';
}

# Feature name substitution
elsif (m/^[\s#]*(?:label|ignore|set|compute)\s+(\S+)\s/) {
	if (delete_line($1)) {
		# Delete references to features that are now gone
		$_ = '';
	} else {
		# Substitute feature names
		$_ = substitute_line($chip, $_);
	}
}