Changeset 4209

Timestamp:

10/15/06 10:46:36 (7 years ago)

Author:

khali

Message:

Parse /proc/cpuinfo and build a list of CPU from it. This will make it
possible to suggest hardware monitoring drivers based of CPU ID.

Files:

• lm-sensors/trunk/prog/detect/sensors-detect (modified) (2 diffs)

lm-sensors/trunk/prog/detect/sensors-detect

@@ -2058 +2058 @@
 }
 
+# @cpu is a list of reference to hashes, one hash per CPU.
+# Each entry has the following keys: vendor_id, cpu family, model,
+# model name and stepping, directly taken from /proc/cpuinfo.
+use vars qw(@cpu);
+
+sub initialize_cpu_list
+{
+  open(local *INPUTFILE, "/proc/cpuinfo") or die "Can't access /proc/cpuinfo!";
+  local $_;
+  my %entry;
+  while (<INPUTFILE>) {
+    if (m/^processor\s*:\s*(\d+)/) {
+      push @cpu, \%entry if scalar keys(%entry); # Previous entry
+      %entry = (); # New entry
+      next;
+    }
+    if (m/^(vendor_id|cpu family|model|model name|stepping)\s*:\s*(.+)$/) {
+      my $k = $1;
+      my $v = $2;
+      $v =~ s/\s+/ /g;  # Merge multiple spaces
+      $v =~ s/ $//;     # Trim trailing space
+      $entry{$k} = $v;
+      next;
+    }
+  }
+  push @cpu, \%entry if scalar keys(%entry); # Last entry
+  close INPUTFILE;
+}
+
 ###########
 # MODULES #
@@ -5283 +5312 @@
   initialize_modules_supported;
   initialize_kernel_version;
+  initialize_cpu_list();
 
   print "# sensors-detect revision $revision\n\n";