summaryrefslogtreecommitdiffstats
path: root/perl-install/cpufreq.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2007-04-25 12:26:16 +0000
committerPascal Rigaux <pixel@mandriva.com>2007-04-25 12:26:16 +0000
commit126777bc019a54afb4ec51299f2cf9d2841698aa (patch)
tree97f76e571902ead55ba138f1156a4b4f00b9b779 /perl-install/cpufreq.pm
parentf1f67448efc714873378dfeb8279fae68054a90a (diff)
downloaddrakx-126777bc019a54afb4ec51299f2cf9d2841698aa.tar
drakx-126777bc019a54afb4ec51299f2cf9d2841698aa.tar.gz
drakx-126777bc019a54afb4ec51299f2cf9d2841698aa.tar.bz2
drakx-126777bc019a54afb4ec51299f2cf9d2841698aa.tar.xz
drakx-126777bc019a54afb4ec51299f2cf9d2841698aa.zip
re-sync after the big svn loss
Diffstat (limited to 'perl-install/cpufreq.pm')
-rw-r--r--perl-install/cpufreq.pm149
1 files changed, 149 insertions, 0 deletions
diff --git a/perl-install/cpufreq.pm b/perl-install/cpufreq.pm
new file mode 100644
index 000000000..34862c015
--- /dev/null
+++ b/perl-install/cpufreq.pm
@@ -0,0 +1,149 @@
+package cpufreq;
+
+use common;
+use detect_devices;
+
+my %vendor_ids = (
+ GenuineIntel => "Intel",
+ AuthenticAMD => "AMD",
+ CyrixInstead => "Cyrix",
+ "Geode by NSC" => "NSC",
+ TransmetaCPU => "Transmeta",
+ GenuineTMx86 => "Transmeta",
+ CentaurHauls => "Centaur",
+);
+
+sub get_vendor {
+ my ($cpu) = @_;
+ $vendor_ids{$cpu->{vendor_id}};
+}
+
+sub has_flag {
+ my ($cpu, $flag) = @_;
+ $cpu->{flags} =~ /\b$flag\b/;
+}
+
+my @cpus;
+sub get_cpus() {
+ @cpus ? @cpus : @cpus = detect_devices::getCPUs();
+}
+
+my @pci;
+sub pci_probe() {
+ @pci ? @pci : @pci = detect_devices::pci_probe();
+}
+
+sub find_pci_device {
+ my (@devices) = @_;
+ any { my $dev = $_; any { $_->{vendor} == $dev->[0] && $_->{id} == $dev->[1] } pci_probe() } @devices;
+}
+
+sub probe_centrino() {
+ any {
+ get_vendor($_) eq "Intel" &&
+ has_flag($_, 'est') && (
+ $_->{'cpu family'} == 6 && member($_->{model}, 9, 13, 14) ||
+ $_->{'cpu family'} == 15 && member($_->{model}, 3, 4)
+ );
+ } get_cpus();
+}
+
+sub probe_ich() { find_pci_device([ 0x8086, 0x244c ], [ 0x8086, 0x24cc ], [ 0x8086, 0x248c ]) }
+
+sub probe_smi() { find_pci_device([ 0x8086, 0x7190 ]) }
+
+sub probe_nforce2() { find_pci_device([ 0x10de, 0x01e0 ]) }
+
+sub probe_gsx() {
+ any { member(get_vendor($_), "Cyrix", "NSC") } get_cpus() &&
+ find_pci_device([ 0x1078, 0x0100 ], [ 0x1078, 0x0002 ], [ 0x1078, 0x0000 ]);
+}
+
+sub probe_powerpc() {
+ arch() =~ /ppc/ && any {
+ member($_->{motherboard}, ('PowerBook3,4', 'PowerBook3,5', 'PowerBook4,1', 'PowerBook3,2', 'MacRISC3')) &&
+ # Kernel contains a special case for the supported 750FX,
+ # not sure if the cpu name can be used, so use same test as kernel
+ first($_->{revision} =~ /\bpvr\s+(\d+)\b/) == 7000;
+ } get_cpus();
+}
+
+sub probe_p4() {
+ any {
+ get_vendor($_) eq "Intel" &&
+ $_->{'cpu family'} == 15;
+ } get_cpus();
+}
+
+sub probe_powernow_k6() {
+ any {
+ get_vendor($_) eq "AMD" &&
+ $_->{'cpu family'} == 5 &&
+ member($_->{model}, 12, 13);
+ } get_cpus();
+}
+
+sub probe_powernow_k7() {
+ any {
+ get_vendor($_) eq "AMD" &&
+ $_->{'cpu family'} == 6;
+ } get_cpus();
+}
+
+sub probe_powernow_k8() {
+ any {
+ get_vendor($_) eq "AMD" &&
+ $_->{'cpu family'} == 15 &&
+ ($_->{'power management'} =~ /\bfid\b/ || has_flag($_, 'fid')); # frequency ID control
+ } get_cpus();
+}
+
+sub probe_longhaul() {
+ any {
+ get_vendor($_) eq "Centaur" &&
+ $_->{'cpu family'} == 6 &&
+ member($_->{model}, 6, 7, 8, 9);
+ } get_cpus();
+}
+
+sub probe_longrun() {
+ any {
+ get_vendor($_) eq "Transmeta" &&
+ has_flag($_, 'longrun');
+ } get_cpus();
+}
+
+my @modules = (
+ # probe centrino first, it will get detected on ICH chipset and
+ # speedstep-ich doesn't work with it
+ [ "speedstep-centrino", \&probe_centrino ],
+ # try to find cpufreq compliant northbridge
+ [ "speedstep-ich", \&probe_ich ],
+ [ "speedstep-smi", \&probe_smi ],
+ [ "cpufreq-nforce2", \&probe_nforce2 ],
+ [ "gsx-suspmod", \&probe_gsx ],
+ # try to find a cpufreq compliant processor
+ [ "p4-clockmod", \&probe_p4 ],
+ [ "powernow-k6", \&probe_powernow_k6 ],
+ [ "powernow-k7", \&probe_powernow_k7 ],
+ [ "powernow-k8", \&probe_powernow_k8 ],
+ [ "longhaul", \&probe_longhaul ],
+ [ "longrun", \&probe_longrun ],
+);
+
+sub find_driver() {
+ my $m = find { $_->[1]->() } @modules;
+ $m && $m->[0];
+}
+
+my @governor_modules = map { "cpufreq_$_" } qw(performance powersave conservative ondemand);
+
+sub get_modules() {
+ my $module;
+ if (probe_powerpc() || ($module = find_driver())) {
+ return if_($module, $module), @governor_modules;
+ }
+ ();
+}
+
+1;