Changeset 5153

Timestamp:

03/21/08 19:13:45 (5 years ago)

Author:

khali

Message:

Strip trailing whitespace.
Coding-style fixes.

Files:

• i2c-tools/trunk/eeprom/decode-dimms.pl (modified) (19 diffs)

i2c-tools/trunk/eeprom/decode-dimms.pl

@@ -33 +33 @@
 #  -h, --help              display this usage summary
 #
-# References: 
-# PC SDRAM Serial Presence 
-# Detect (SPD) Specification, Intel, 
+# References:
+# PC SDRAM Serial Presence
+# Detect (SPD) Specification, Intel,
 # 1997,1999, Rev 1.2B
 #
@@ -232 +232 @@
  "Enuclia Semiconductor, Inc.", "Virtium Technology Inc.", "Solid State System Co., Ltd.", "Kian Tech LLC",
  "Artimi", "Power Quotient International", "Avago Technologies", "ADTechnology", "Sigma Designs",
- "SiCortex, Inc.", "Ventura Technology Group", "eASIC", "M.H.S. SAS", "Micro Star International", 
- "Rapport Inc.", "Makway International", "Broad Reach Engineering Co.", 
- "Semiconductor Mfg Intl Corp", "SiConnect", "FCI USA Inc.", "Validity Sensors", 
+ "SiCortex, Inc.", "Ventura Technology Group", "eASIC", "M.H.S. SAS", "Micro Star International",
+ "Rapport Inc.", "Makway International", "Broad Reach Engineering Co.",
+ "Semiconductor Mfg Intl Corp", "SiConnect", "FCI USA Inc.", "Validity Sensors",
  "Coney Technology Co. Ltd.", "Spans Logic", "Neterion Inc.", "Qimonda",
  "New Japan Radio Co. Ltd.", "Velogix", "Montalvo Systems", "iVivity Inc.", "Walton Chaintech",
@@ -263 +263 @@
         my $all_00 = 1;
         my $all_ff = 1;
-        
+
         foreach my $b (@_) {
                 $all_00 = 0 unless $b == 0x00;
@@ -293 +293 @@
 
         return ("Undefined", []) unless spd_written(@bytes);
-        
+
         while (defined($first = shift(@bytes)) && $first == 0x7F) {
                 $ai++;
@@ -427 +427 @@
         my $k=0;
         my $ii=0;
-        
+
         $ii = ($bytes->[3] & 0x0f) + ($bytes->[4] & 0x0f) - 17;
         if (($bytes->[5] <= 8) && ($bytes->[17] <= 8)) {
                  $k = $bytes->[5] * $bytes->[17];
         }
-        
-        if($ii > 0 && $ii <= 12 && $k > 0) {
-                printl "Size", ((1 << $ii) * $k) . " MB"; }
-        else { 
+
+        if ($ii > 0 && $ii <= 12 && $k > 0) {
+                printl "Size", ((1 << $ii) * $k) . " MB";
+        } else {
                 printl "INVALID SIZE", $bytes->[3] . "," . $bytes->[4] . "," .
                                        $bytes->[5] . "," . $bytes->[17];
@@ -723 +723 @@
         my $k=0;
         my $ii=0;
-        
+
         $ii = ($bytes->[3] & 0x0f) + ($bytes->[4] & 0x0f) - 17;
         if (($bytes->[5] <= 8) && ($bytes->[17] <= 8)) {
                  $k = $bytes->[5] * $bytes->[17];
         }
-        
-        if($ii > 0 && $ii <= 12 && $k > 0) {
-                printl "Size", ((1 << $ii) * $k) . " MB"; }
-        else { 
+
+        if ($ii > 0 && $ii <= 12 && $k > 0) {
+                printl "Size", ((1 << $ii) * $k) . " MB";
+        } else {
                 printl "INVALID SIZE", $bytes->[3] . ", " . $bytes->[4] . ", " .
                                        $bytes->[5] . ", " . $bytes->[17];
@@ -819 +819 @@
         my $byte = shift;
         my $ctime;
-        
+
         $ctime = $byte >> 4;
         if (($byte & 0xf) <= 9) { $ctime += ($byte & 0xf) * 0.1; }
@@ -834 +834 @@
         my $byte = shift;
         my $atime;
-        
+
         $atime = ($byte >> 4) * 0.1 + ($byte & 0xf) * 0.01;
 
@@ -908 +908 @@
         $ii = ($bytes->[3] & 0x0f) + ($bytes->[4] & 0x0f) - 17;
         $k = (($bytes->[5] & 0x7) + 1) * $bytes->[17];
-        
+
         if($ii > 0 && $ii <= 12 && $k > 0) {
-                printl "Size", ((1 << $ii) * $k) . " MB"; 
+                printl "Size", ((1 << $ii) * $k) . " MB";
         } else {
                 printl "INVALID SIZE", $bytes->[3] . "," . $bytes->[4] . "," .
@@ -954 +954 @@
         my $trp;
         my $tras;
-        
+
         $trcd =($bytes->[29] >> 2)+(($bytes->[29] & 3)*0.25);
         $trp =($bytes->[27] >> 2)+(($bytes->[27] & 3)*0.25);
@@ -1033 +1033 @@
 
         $ii = ($bytes->[4] & 0x0f) + ($bytes->[4] >> 4) + ($bytes->[5] & 0x07) - 13;
-        
+
         if ($ii > 0 && $ii < 16) {
                 printl "Size", (1 << $ii) . " MB";
@@ -1051 +1051 @@
 
         my $ii;
-        
+
         $ii = ($bytes->[3] & 0x0f) + ($bytes->[3] >> 4) + ($bytes->[5] & 0x07) - 13;
-        
+
         if ($ii > 0 && $ii < 16) {
                 printl "Size", (1 << $ii) . " MB";
@@ -1218 +1218 @@
                         printl $l, 2**$bytes[1];
                 } elsif ($bytes[1] == 0) {
-                        printl $l, "RFU"; 
+                        printl $l, "RFU";
                 } else { printl $l, "ERROR!"; }
 
@@ -1246 +1246 @@
 
                 @bytes = readspd64(64, $dimm_list[$i]);
-                
+
                 $l = "Manufacturer";
                 # $extra is a reference to an array containing up to
@@ -1256 +1256 @@
                 $temp = manufacturer_data(@{$extra});
                 printl $l, $temp if defined $temp;
-                
+
                 if (spd_written($bytes[8])) {
                         # Try the location code as ASCII first, as earlier specifications
@@ -1266 +1266 @@
                         printl $l, $temp;
                 }
-                
+
                 $l = "Part Number";
                 $temp = part_number(@bytes[9..26]);
                 printl $l, $temp;
-                
+
                 if (spd_written(@bytes[27..28])) {
                         $l = "Revision Code";
@@ -1276 +1276 @@
                         printl $l, $temp;
                 }
-                
+
                 if (spd_written(@bytes[29..30])) {
                         $l = "Manufacturing Date";
@@ -1295 +1295 @@
                         printl $l, $temp;
                 }
-                
+
                 if (spd_written(@bytes[31..34])) {
                         $l = "Assembly Serial Number";
@@ -1309 +1309 @@
                         decode_intel_spec_freq(\@bytes);
                 }
-                
+
                 print "</table>\n" if $opt_html;
         }